diff --git a/GI/Gtk.hs b/GI/Gtk.hs # file too large to diff: GI/Gtk.hs diff --git a/GI/Gtk/Callbacks.hs b/GI/Gtk/Callbacks.hs deleted file mode 100644 --- a/GI/Gtk/Callbacks.hs +++ /dev/null @@ -1,2885 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types - -import 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 -import qualified GI.Cairo as Cairo - --- 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 tree_view search_dialog _ = do - tree_view' <- (newObject TreeView) tree_view - search_dialog' <- (newObject Widget) search_dialog - _cb tree_view' search_dialog' - 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 tree_view path _ = do - tree_view' <- (newObject TreeView) tree_view - path' <- (newBoxed TreePath) path - _cb tree_view' 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 tree_view column prev_column next_column _ = do - tree_view' <- (newObject TreeView) tree_view - column' <- (newObject TreeViewColumn) column - prev_column' <- (newObject TreeViewColumn) prev_column - next_column' <- (newObject TreeViewColumn) next_column - result <- _cb tree_view' column' prev_column' next_column' - 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 path_currently_selected _ = do - selection' <- (newObject TreeSelection) selection - model' <- (newObject TreeModel) model - path' <- (newBoxed TreePath) path - let path_currently_selected' = (/= 0) path_currently_selected - result <- _cb selection' model' path' path_currently_selected' - 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 tree_view path children _ = do - tree_view' <- (newObject TreeView) tree_view - path' <- (newBoxed TreePath) path - _cb tree_view' 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 tree_column cell tree_model iter _ = do - tree_column' <- (newObject TreeViewColumn) tree_column - cell' <- (newObject CellRenderer) cell - tree_model' <- (newObject TreeModel) tree_model - iter' <- (newBoxed TreeIter) iter - _cb tree_column' cell' tree_model' 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 frame_clock _ = do - widget' <- (newObject Widget) widget - frame_clock' <- (newObject Gdk.FrameClock) frame_clock - result <- _cb widget' frame_clock' - 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 register_buffer content_buffer start end length_ _ = do - register_buffer' <- (newObject TextBuffer) register_buffer - content_buffer' <- (newObject TextBuffer) content_buffer - start' <- (newBoxed TextIter) start - end' <- (newBoxed TextIter) end - result <- _cb register_buffer' content_buffer' 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 register_buffer content_buffer iter data_ length_ create_tags _ = do - register_buffer' <- (newObject TextBuffer) register_buffer - content_buffer' <- (newObject TextBuffer) content_buffer - iter' <- (newBoxed TextIter) iter - data_' <- (unpackByteStringWithLength length_) data_ - let create_tags' = (/= 0) create_tags - result <- _cb register_buffer' content_buffer' iter' data_' create_tags' - 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 filter_info _ = do - filter_info' <- (newPtr 56 RecentFilterInfo) filter_info - result <- _cb filter_info' - 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 rc_string property_value = do - pspec' <- newGParamSpecFromPtr pspec - rc_string' <- (newBoxed GLib.String) rc_string - property_value' <- (newBoxed GValue) property_value - result <- _cb pspec' rc_string' property_value' - 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 page_setup _ = do - page_setup' <- (newObject PageSetup) page_setup - _cb page_setup' - 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 push_in _ = do - menu' <- (newObject Menu) menu - x' <- peek x - y' <- peek y - (outx, outy, outpush_in) <- _cb menu' x' y' - poke x outx - poke y outy - let outpush_in' = (fromIntegral . fromEnum) outpush_in - poke push_in outpush_in' - 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 attach_widget menu = do - attach_widget' <- (newObject Widget) attach_widget - menu' <- (newObject Menu) menu - _cb attach_widget' 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 grab_widget event _ = do - grab_widget' <- (newObject Widget) grab_widget - event' <- (newPtr 56 Gdk.EventKey) event - result <- _cb grab_widget' 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 icon_view path _ = do - icon_view' <- (newObject IconView) icon_view - path' <- (newBoxed TreePath) path - _cb icon_view' 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 filter_info _ = do - filter_info' <- (newPtr 40 FileFilterInfo) filter_info - result <- _cb filter_info' - 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 n_colors = do - screen' <- (newObject Gdk.Screen) screen - colors' <- (unpackBoxedArrayWithLength 12 n_colors) 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 n_colors = do - colors' <- (unpackBoxedArrayWithLength 12 n_colors) 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 n_atoms _ = do - clipboard' <- (newObject Clipboard) clipboard - maybeAtoms <- - if atoms == nullPtr - then return Nothing - else do - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - atoms' <- (unpackPtrArrayWithLength n_atoms) atoms - atoms'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) 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 - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - format' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) 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 selection_data _ = do - clipboard' <- (newObject Clipboard) clipboard - selection_data' <- (newBoxed SelectionData) selection_data - _cb clipboard' selection_data' - 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 selection_data info user_data_or_owner = do - clipboard' <- (newObject Clipboard) clipboard - selection_data' <- (newBoxed SelectionData) selection_data - _cb clipboard' selection_data' info user_data_or_owner - 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 user_data_or_owner = do - clipboard' <- (newObject Clipboard) clipboard - _cb clipboard' user_data_or_owner - 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 cell_layout cell tree_model iter _ = do - cell_layout' <- (newObject CellLayout) cell_layout - cell' <- (newObject CellRenderer) cell - tree_model' <- (newObject TreeModel) tree_model - iter' <- (newBoxed TreeIter) iter - _cb cell_layout' cell' tree_model' 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 Cairo.RectangleInt -> - Ptr Cairo.RectangleInt -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkCellAllocCallback :: CellAllocCallbackC -> IO (FunPtr CellAllocCallbackC) - -type CellAllocCallback = - CellRenderer -> - Cairo.RectangleInt -> - Cairo.RectangleInt -> - IO Bool - -noCellAllocCallback :: Maybe CellAllocCallback -noCellAllocCallback = Nothing - -cellAllocCallbackWrapper :: - Maybe (Ptr (FunPtr (CellAllocCallbackC))) -> - CellAllocCallback -> - Ptr CellRenderer -> - Ptr Cairo.RectangleInt -> - Ptr Cairo.RectangleInt -> - Ptr () -> - IO CInt -cellAllocCallbackWrapper funptrptr _cb renderer cell_area cell_background _ = do - renderer' <- (newObject CellRenderer) renderer - cell_area' <- (newBoxed Cairo.RectangleInt) cell_area - cell_background' <- (newBoxed Cairo.RectangleInt) cell_background - result <- _cb renderer' cell_area' cell_background' - 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 signal_name handler_name connect_object flags _ = do - builder' <- (newObject Builder) builder - object' <- (newObject GObject.Object) object - signal_name' <- cstringToText signal_name - handler_name' <- cstringToText handler_name - maybeConnect_object <- - if connect_object == nullPtr - then return Nothing - else do - connect_object' <- (newObject GObject.Object) connect_object - return $ Just connect_object' - let flags' = wordToGFlags flags - _cb builder' object' signal_name' handler_name' maybeConnect_object 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 current_page _ = do - result <- _cb current_page - 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_ accel_path accel_key accel_mods changed = do - accel_path' <- cstringToText accel_path - let accel_mods' = wordToGFlags accel_mods - let changed' = (/= 0) changed - _cb data_ accel_path' accel_key accel_mods' 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 12 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 accel_group acceleratable keyval modifier = do - accel_group' <- (newObject AccelGroup) accel_group - acceleratable' <- (newObject GObject.Object) acceleratable - let modifier' = wordToGFlags modifier - result <- _cb accel_group' 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,1068 +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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - - -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 = 16 :: Int32 - - -pattern MICRO_VERSION = 7 :: 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 = 7 :: Int32 - - -pattern INPUT_ERROR = -1 :: Int32 - - -pattern BINARY_AGE = 1607 :: 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,3292 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- 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 - | 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 (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 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,868 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- 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 BoxedEnum UIManagerItemType where - boxedEnumType _ = 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 BoxedEnum TreeModelFlags where - boxedEnumType _ = 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 BoxedEnum ToolPaletteDragTargets where - boxedEnumType _ = 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 BoxedEnum TextSearchFlags where - boxedEnumType _ = 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 BoxedEnum TargetFlags where - boxedEnumType _ = 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 BoxedEnum StateFlags where - boxedEnumType _ = 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 BoxedEnum RegionFlags where - boxedEnumType _ = 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 BoxedEnum RecentFilterFlags where - boxedEnumType _ = 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 BoxedEnum RcFlags where - boxedEnumType _ = 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 BoxedEnum PlacesOpenFlags where - boxedEnumType _ = 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 BoxedEnum JunctionSides where - boxedEnumType _ = c_gtk_junction_sides_get_type - -instance IsGFlag JunctionSides - --- Flags InputHints - -data InputHints = - InputHintsNone - | InputHintsSpellcheck - | InputHintsNoSpellcheck - | InputHintsWordCompletion - | InputHintsLowercase - | InputHintsUppercaseChars - | InputHintsUppercaseWords - | InputHintsUppercaseSentences - | InputHintsInhibitOsk - | 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 (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 k = AnotherInputHints k - -foreign import ccall "gtk_input_hints_get_type" c_gtk_input_hints_get_type :: - IO GType - -instance BoxedEnum InputHints where - boxedEnumType _ = 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 BoxedEnum IconLookupFlags where - boxedEnumType _ = 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 BoxedEnum FileFilterFlags where - boxedEnumType _ = 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 BoxedEnum DialogFlags where - boxedEnumType _ = 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 BoxedEnum DestDefaults where - boxedEnumType _ = 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 BoxedEnum DebugFlag where - boxedEnumType _ = 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 BoxedEnum CellRendererState where - boxedEnumType _ = 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 BoxedEnum CalendarDisplayOptions where - boxedEnumType _ = 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 BoxedEnum AttachOptions where - boxedEnumType _ = 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 BoxedEnum ApplicationInhibitFlags where - boxedEnumType _ = 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 BoxedEnum AccelFlags where - boxedEnumType _ = 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,6856 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - - --- ** bindingEntryAddSignalFromString - bindingEntryAddSignalFromString , - - --- ** bindingEntryAddSignall - bindingEntryAddSignall , - - --- ** bindingEntryRemove - bindingEntryRemove , - - --- ** bindingEntrySkip - bindingEntrySkip , - - --- ** bindingSetFind - bindingSetFind , - - --- ** bindingsActivate - bindingsActivate , - - --- ** bindingsActivateEvent - bindingsActivateEvent , - - --- ** builderErrorQuark - builderErrorQuark , - - --- ** cairoShouldDrawWindow - cairoShouldDrawWindow , - - --- ** cairoTransformToWindow - cairoTransformToWindow , - - --- ** checkVersion - checkVersion , - - --- ** cssProviderErrorQuark - cssProviderErrorQuark , - - --- ** 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 , - - --- ** fileChooserErrorQuark - fileChooserErrorQuark , - - --- ** 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 , - - --- ** iconSizeFromName - iconSizeFromName , - - --- ** iconSizeGetName - iconSizeGetName , - - --- ** iconSizeLookup - iconSizeLookup , - - --- ** iconSizeLookupForSettings - iconSizeLookupForSettings , - - --- ** iconSizeRegister - iconSizeRegister , - - --- ** iconSizeRegisterAlias - iconSizeRegisterAlias , - - --- ** iconThemeErrorQuark - iconThemeErrorQuark , - - --- ** 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 , - - --- ** paperSizeGetDefault - paperSizeGetDefault , - - --- ** paperSizeGetPaperSizes - paperSizeGetPaperSizes , - - --- ** parseArgs - parseArgs , - - --- ** printErrorQuark - printErrorQuark , - - --- ** 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 , - - --- ** rcPropertyParseBorder - rcPropertyParseBorder , - - --- ** rcPropertyParseColor - rcPropertyParseColor , - - --- ** rcPropertyParseEnum - rcPropertyParseEnum , - - --- ** rcPropertyParseFlags - rcPropertyParseFlags , - - --- ** rcPropertyParseRequisition - rcPropertyParseRequisition , - - --- ** rcReparseAll - rcReparseAll , - - --- ** rcReparseAllForSettings - rcReparseAllForSettings , - - --- ** rcResetStyles - rcResetStyles , - - --- ** rcSetDefaultFiles - rcSetDefaultFiles , - - --- ** recentChooserErrorQuark - recentChooserErrorQuark , - - --- ** recentManagerErrorQuark - recentManagerErrorQuark , - - --- ** 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 , - - --- ** treeRowReferenceDeleted - treeRowReferenceDeleted , - - --- ** treeRowReferenceInserted - treeRowReferenceInserted , - - --- ** treeSetRowDragData - treeSetRowDragData , - - --- ** true - true , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_true" gtk_true :: - IO CInt - - -true :: - (MonadIO m) => - m Bool -true = liftIO $ do - result <- gtk_true - let result' = (/= 0) result - return result' - - --- function gtk_tree_set_row_drag_data --- Args : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- selection_data - a -> -- tree_model - TreePath -> -- path - m Bool -treeSetRowDragData selection_data tree_model path = liftIO $ do - let selection_data' = unsafeManagedPtrGetPtr selection_data - let tree_model' = unsafeManagedPtrCastPtr tree_model - let path' = unsafeManagedPtrGetPtr path - result <- gtk_tree_set_row_drag_data selection_data' tree_model' path' - let result' = (/= 0) result - touchManagedPtr selection_data - touchManagedPtr tree_model - touchManagedPtr path - return result' - - --- function gtk_tree_row_reference_inserted --- Args : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - --- function gtk_tree_row_reference_deleted --- Args : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - --- function gtk_tree_get_row_drag_data --- Args : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- selection_data - m (Bool,(Maybe TreeModel),(Maybe TreePath)) -treeGetRowDragData selection_data = liftIO $ do - let selection_data' = unsafeManagedPtrGetPtr selection_data - tree_model <- allocMem :: IO (Ptr (Ptr TreeModel)) - path <- allocMem :: IO (Ptr (Ptr TreePath)) - result <- gtk_tree_get_row_drag_data selection_data' tree_model path - let result' = (/= 0) result - tree_model' <- peek tree_model - maybeTree_model' <- convertIfNonNull tree_model' $ \tree_model'' -> do - tree_model''' <- (newObject TreeModel) tree_model'' - return tree_model''' - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - touchManagedPtr selection_data - freeMem tree_model - freeMem path - return (result', maybeTree_model', maybePath') - - --- function gtk_test_widget_wait_for_draw --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -testWidgetSendKey :: - (MonadIO m, WidgetK a) => - a -> -- widget - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifiers - m Bool -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -testWidgetClick :: - (MonadIO m, WidgetK a) => - a -> -- widget - Word32 -> -- button - [Gdk.ModifierType] -> -- modifiers - m Bool -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 () -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "spinner", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upwards", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CInt -> -- upwards : TBasicType TBoolean - IO CInt - - -testSpinButtonClick :: - (MonadIO m, SpinButtonK a) => - a -> -- spinner - Word32 -> -- button - Bool -> -- upwards - m Bool -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "percentage", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_test_register_all_types" gtk_test_register_all_types :: - IO () - - -testRegisterAllTypes :: - (MonadIO m) => - m () -testRegisterAllTypes = liftIO $ do - gtk_test_register_all_types - return () - - --- function gtk_test_list_all_types --- Args : [Arg {argName = "n_types", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [] --- returnType : 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 TUInt32 - IO (Ptr CGType) - - -testListAllTypes :: - (MonadIO m) => - m ([GType],Word32) -testListAllTypes = liftIO $ do - n_types <- allocMem :: IO (Ptr Word32) - result <- gtk_test_list_all_types n_types - checkUnexpectedReturnNULL "gtk_test_list_all_types" result - result' <- (unpackMapZeroTerminatedStorableArray GType) result - n_types' <- peek n_types - freeMem n_types - return (result', n_types') - - --- function gtk_test_find_widget --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- label_pattern - GType -> -- widget_type - m Widget -testFindWidget widget label_pattern widget_type = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - label_pattern' <- textToCString label_pattern - let widget_type' = gtypeToCGType widget_type - result <- gtk_test_find_widget widget' label_pattern' widget_type' - checkUnexpectedReturnNULL "gtk_test_find_widget" result - result' <- (newObject Widget) result - touchManagedPtr widget - freeMem label_pattern' - return result' - - --- function gtk_test_find_sibling --- Args : [Arg {argName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "base_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- base_widget - GType -> -- widget_type - m Widget -testFindSibling base_widget widget_type = liftIO $ do - let base_widget' = unsafeManagedPtrCastPtr base_widget - let widget_type' = gtypeToCGType widget_type - result <- gtk_test_find_sibling base_widget' widget_type' - checkUnexpectedReturnNULL "gtk_test_find_sibling" result - result' <- (newObject Widget) result - touchManagedPtr base_widget - return result' - - --- function gtk_test_find_label --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- label_pattern - m Widget -testFindLabel widget label_pattern = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - label_pattern' <- textToCString label_pattern - result <- gtk_test_find_label widget' label_pattern' - checkUnexpectedReturnNULL "gtk_test_find_label" result - result' <- (newObject Widget) result - touchManagedPtr widget - freeMem label_pattern' - return result' - - --- function gtk_test_create_simple_window --- Args : [Arg {argName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "window_title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dialog_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- window_title - T.Text -> -- dialog_text - m Widget -testCreateSimpleWindow window_title dialog_text = liftIO $ do - window_title' <- textToCString window_title - dialog_text' <- textToCString dialog_text - result <- gtk_test_create_simple_window window_title' dialog_text' - checkUnexpectedReturnNULL "gtk_test_create_simple_window" result - result' <- (newObject Widget) result - freeMem window_title' - freeMem dialog_text' - return result' - - --- function gtk_targets_include_uri --- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -targetsIncludeUri :: - (MonadIO m) => - [Gdk.Atom] -> -- targets - m Bool -targetsIncludeUri targets = liftIO $ do - let n_targets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - result <- gtk_targets_include_uri targets'' n_targets - let result' = (/= 0) result - mapM_ touchManagedPtr targets - freeMem targets'' - return result' - - --- function gtk_targets_include_text --- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -targetsIncludeText :: - (MonadIO m) => - [Gdk.Atom] -> -- targets - m Bool -targetsIncludeText targets = liftIO $ do - let n_targets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - result <- gtk_targets_include_text targets'' n_targets - let result' = (/= 0) result - mapM_ touchManagedPtr targets - freeMem targets'' - return result' - - --- function gtk_targets_include_rich_text --- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Ptr TextBuffer -> -- buffer : TInterface "Gtk" "TextBuffer" - IO CInt - - -targetsIncludeRichText :: - (MonadIO m, TextBufferK a) => - [Gdk.Atom] -> -- targets - a -> -- buffer - m Bool -targetsIncludeRichText targets buffer = liftIO $ do - let n_targets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - let buffer' = unsafeManagedPtrCastPtr buffer - result <- gtk_targets_include_rich_text targets'' n_targets buffer' - let result' = (/= 0) result - mapM_ touchManagedPtr targets - touchManagedPtr buffer - freeMem targets'' - return result' - - --- function gtk_targets_include_image --- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - CInt -> -- writable : TBasicType TBoolean - IO CInt - - -targetsIncludeImage :: - (MonadIO m) => - [Gdk.Atom] -> -- targets - Bool -> -- writable - m Bool -targetsIncludeImage targets writable = liftIO $ do - let n_targets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - let writable' = (fromIntegral . fromEnum) writable - result <- gtk_targets_include_image targets'' n_targets writable' - let result' = (/= 0) result - mapM_ touchManagedPtr targets - freeMem targets'' - return result' - - --- function gtk_target_table_new_from_list --- Args : [Arg {argName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr TargetEntry) - - -targetTableNewFromList :: - (MonadIO m) => - TargetList -> -- list - m [TargetEntry] -targetTableNewFromList list = liftIO $ do - let list' = unsafeManagedPtrGetPtr list - n_targets <- allocMem :: IO (Ptr Int32) - result <- gtk_target_table_new_from_list list' n_targets - n_targets' <- peek n_targets - checkUnexpectedReturnNULL "gtk_target_table_new_from_list" result - result' <- (unpackBoxedArrayWithLength 16 n_targets') result - result'' <- mapM (wrapBoxed TargetEntry) result' - freeMem result - touchManagedPtr list - freeMem n_targets - return result'' - - --- function gtk_target_table_free --- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -targetTableFree :: - (MonadIO m) => - [TargetEntry] -> -- targets - m () -targetTableFree targets = liftIO $ do - let n_targets = fromIntegral $ length targets - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - gtk_target_table_free targets'' n_targets - mapM_ touchManagedPtr targets - freeMem targets'' - return () - - --- function gtk_stock_set_translate_func --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - -{-# DEPRECATED stockSetTranslateFunc ["(Since version 3.10)"]#-} -stockSetTranslateFunc :: - (MonadIO m) => - T.Text -> -- domain - TranslateFunc -> -- func - m () -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 {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "StockItem", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- stock_id - m (Bool,StockItem) -stockLookup stock_id = liftIO $ do - stock_id' <- textToCString stock_id - item <- callocBytes 32 :: IO (Ptr StockItem) - result <- gtk_stock_lookup stock_id' item - let result' = (/= 0) result - item' <- (wrapPtr StockItem) item - freeMem stock_id' - return (result', item') - - --- function gtk_stock_list_ids --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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] -stockListIds = liftIO $ do - result <- gtk_stock_list_ids - checkUnexpectedReturnNULL "gtk_stock_list_ids" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - return result'' - - --- function gtk_stock_add_static --- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - -{-# DEPRECATED stockAddStatic ["(Since version 3.10)"]#-} -stockAddStatic :: - (MonadIO m) => - [StockItem] -> -- items - m () -stockAddStatic items = liftIO $ do - let n_items = fromIntegral $ length items - let items' = map unsafeManagedPtrGetPtr items - items'' <- packBlockArray 32 items' - gtk_stock_add_static items'' n_items - mapM_ touchManagedPtr items - freeMem items'' - return () - - --- function gtk_stock_add --- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_items", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "Gtk" "StockItem"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - -{-# DEPRECATED stockAdd ["(Since version 3.10)"]#-} -stockAdd :: - (MonadIO m) => - [StockItem] -> -- items - m () -stockAdd items = liftIO $ do - let n_items = fromIntegral $ length items - let items' = map unsafeManagedPtrGetPtr items - items'' <- packBlockArray 32 items' - gtk_stock_add items'' n_items - mapM_ touchManagedPtr items - freeMem items'' - return () - - --- function gtk_show_uri --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_set_debug_flags" gtk_set_debug_flags :: - Word32 -> -- flags : TBasicType TUInt32 - IO () - - -setDebugFlags :: - (MonadIO m) => - Word32 -> -- flags - m () -setDebugFlags flags = liftIO $ do - gtk_set_debug_flags flags - return () - - --- function gtk_selection_remove_all --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -selectionAddTargets :: - (MonadIO m, WidgetK a) => - a -> -- widget - Gdk.Atom -> -- selection - [TargetEntry] -> -- targets - m () -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -selectionAddTarget :: - (MonadIO m, WidgetK a) => - a -> -- widget - Gdk.Atom -> -- selection - Gdk.Atom -> -- target - Word32 -> -- info - m () -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 {argName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "r", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy0_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xy1_gap", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- gap_side - Double -> -- xy0_gap - Double -> -- xy1_gap - m () -renderFrameGap context cr x y width height gap_side xy0_gap xy1_gap = 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 gap_side' = (fromIntegral . fromEnum) gap_side - let xy0_gap' = realToFrac xy0_gap - let xy1_gap' = realToFrac xy1_gap - gtk_render_frame_gap context' cr' x' y' width' height' gap_side' xy0_gap' xy1_gap' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_frame --- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- gap_side - m () -renderExtension context cr x y width height gap_side = 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 gap_side' = (fromIntegral . fromEnum) gap_side - gtk_render_extension context' cr' x' y' width' height' gap_side' - touchManagedPtr context - touchManagedPtr cr - return () - - --- function gtk_render_expander --- Args : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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_recent_manager_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_manager_error_quark" gtk_recent_manager_error_quark :: - IO Word32 - - -recentManagerErrorQuark :: - (MonadIO m) => - m Word32 -recentManagerErrorQuark = liftIO $ do - result <- gtk_recent_manager_error_quark - return result - - --- function gtk_recent_chooser_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_error_quark" gtk_recent_chooser_error_quark :: - IO Word32 - - -recentChooserErrorQuark :: - (MonadIO m) => - m Word32 -recentChooserErrorQuark = liftIO $ do - result <- gtk_recent_chooser_error_quark - return result - - --- function gtk_rc_set_default_files --- Args : [Arg {argName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filenames", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_load", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- force_load - m Bool -rcReparseAllForSettings settings force_load = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - let force_load' = (fromIntegral . fromEnum) force_load - result <- gtk_rc_reparse_all_for_settings settings' force_load' - let result' = (/= 0) result - touchManagedPtr settings - return result' - - --- function gtk_rc_reparse_all --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -rcReparseAll = liftIO $ do - result <- gtk_rc_reparse_all - let result' = (/= 0) result - return result' - - --- function gtk_rc_property_parse_requisition --- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -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 -> -- property_value - m Bool -rcPropertyParseRequisition pspec gstring property_value = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let property_value' = unsafeManagedPtrGetPtr property_value - result <- gtk_rc_property_parse_requisition pspec' gstring' property_value' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr property_value - return result' - - --- function gtk_rc_property_parse_flags --- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -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 -> -- property_value - m Bool -rcPropertyParseFlags pspec gstring property_value = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let property_value' = unsafeManagedPtrGetPtr property_value - result <- gtk_rc_property_parse_flags pspec' gstring' property_value' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr property_value - return result' - - --- function gtk_rc_property_parse_enum --- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -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 -> -- property_value - m Bool -rcPropertyParseEnum pspec gstring property_value = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let property_value' = unsafeManagedPtrGetPtr property_value - result <- gtk_rc_property_parse_enum pspec' gstring' property_value' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr property_value - return result' - - --- function gtk_rc_property_parse_color --- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -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 -> -- property_value - m Bool -rcPropertyParseColor pspec gstring property_value = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let property_value' = unsafeManagedPtrGetPtr property_value - result <- gtk_rc_property_parse_color pspec' gstring' property_value' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr property_value - return result' - - --- function gtk_rc_property_parse_border --- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gstring", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -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 -> -- property_value - m Bool -rcPropertyParseBorder pspec gstring property_value = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - let gstring' = unsafeManagedPtrGetPtr gstring - let property_value' = unsafeManagedPtrGetPtr property_value - result <- gtk_rc_property_parse_border pspec' gstring' property_value' - let result' = (/= 0) result - touchManagedPtr gstring - touchManagedPtr property_value - return result' - - --- function gtk_rc_parse_string --- Args : [Arg {argName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "rc_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- rc_string - m () -rcParseString rc_string = liftIO $ do - rc_string' <- textToCString rc_string - gtk_rc_parse_string rc_string' - freeMem rc_string' - return () - - --- function gtk_rc_parse_state --- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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) -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 {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -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 {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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) -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 {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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) -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 {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -rcParse filename = liftIO $ do - filename' <- textToCString filename - gtk_rc_parse filename' - freeMem filename' - return () - - --- function gtk_rc_get_theme_dir --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- widget_path - Maybe (T.Text) -> -- class_path - GType -> -- type - m Style -rcGetStyleByPaths settings widget_path class_path type_ = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - maybeWidget_path <- case widget_path of - Nothing -> return nullPtr - Just jWidget_path -> do - jWidget_path' <- textToCString jWidget_path - return jWidget_path' - maybeClass_path <- case class_path of - Nothing -> return nullPtr - Just jClass_path -> do - jClass_path' <- textToCString jClass_path - return jClass_path' - let type_' = gtypeToCGType type_ - result <- gtk_rc_get_style_by_paths settings' maybeWidget_path maybeClass_path type_' - checkUnexpectedReturnNULL "gtk_rc_get_style_by_paths" result - result' <- (newObject Style) result - touchManagedPtr settings - freeMem maybeWidget_path - freeMem maybeClass_path - return result' - - --- function gtk_rc_get_style --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : 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] -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 : [] --- hInArgs : [] --- returnType : 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] -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 : [] --- hInArgs : [] --- returnType : 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] -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 : [] --- hInArgs : [] --- returnType : 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]] -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 {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixmap_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- pixmap_file - m [Char] -rcFindPixmapInPath settings scanner pixmap_file = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - let scanner' = unsafeManagedPtrGetPtr scanner - pixmap_file' <- textToCString pixmap_file - result <- gtk_rc_find_pixmap_in_path settings' scanner' pixmap_file' - checkUnexpectedReturnNULL "gtk_rc_find_pixmap_in_path" result - result' <- cstringToString result - freeMem result - touchManagedPtr settings - touchManagedPtr scanner - freeMem pixmap_file' - return result' - - --- function gtk_rc_find_module_in_path --- Args : [Arg {argName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "module_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- module_file - m [Char] -rcFindModuleInPath module_file = liftIO $ do - module_file' <- textToCString module_file - result <- gtk_rc_find_module_in_path module_file' - checkUnexpectedReturnNULL "gtk_rc_find_module_in_path" result - result' <- cstringToString result - freeMem result - freeMem module_file' - return result' - - --- function gtk_rc_add_default_file --- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -rcAddDefaultFile filename = liftIO $ do - filename' <- stringToCString filename - gtk_rc_add_default_file filename' - freeMem filename' - return () - - --- function gtk_propagate_event --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "done_cb", argType = TInterface "Gtk" "PageSetupDoneFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -printRunPageSetupDialogAsync :: - (MonadIO m, WindowK a, PageSetupK b, PrintSettingsK c) => - Maybe (a) -> -- parent - Maybe (b) -> -- page_setup - c -> -- settings - PageSetupDoneFunc -> -- done_cb - m () -printRunPageSetupDialogAsync parent page_setup settings done_cb = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - maybePage_setup <- case page_setup of - Nothing -> return nullPtr - Just jPage_setup -> do - let jPage_setup' = unsafeManagedPtrCastPtr jPage_setup - return jPage_setup' - let settings' = unsafeManagedPtrCastPtr settings - ptrdone_cb <- callocMem :: IO (Ptr (FunPtr PageSetupDoneFuncC)) - done_cb' <- mkPageSetupDoneFunc (pageSetupDoneFuncWrapper (Just ptrdone_cb) done_cb) - poke ptrdone_cb done_cb' - let data_ = nullPtr - gtk_print_run_page_setup_dialog_async maybeParent maybePage_setup settings' done_cb' data_ - whenJust parent touchManagedPtr - whenJust page_setup touchManagedPtr - touchManagedPtr settings - return () - - --- function gtk_print_run_page_setup_dialog --- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- page_setup - c -> -- settings - m PageSetup -printRunPageSetupDialog parent page_setup settings = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - maybePage_setup <- case page_setup of - Nothing -> return nullPtr - Just jPage_setup -> do - let jPage_setup' = unsafeManagedPtrCastPtr jPage_setup - return jPage_setup' - let settings' = unsafeManagedPtrCastPtr settings - result <- gtk_print_run_page_setup_dialog maybeParent maybePage_setup settings' - checkUnexpectedReturnNULL "gtk_print_run_page_setup_dialog" result - result' <- (wrapObject PageSetup) result - whenJust parent touchManagedPtr - whenJust page_setup touchManagedPtr - touchManagedPtr settings - return result' - - --- function gtk_print_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_error_quark" gtk_print_error_quark :: - IO Word32 - - -printErrorQuark :: - (MonadIO m) => - m Word32 -printErrorQuark = liftIO $ do - result <- gtk_print_error_quark - return result - - --- function gtk_parse_args --- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_parse_args" gtk_parse_args :: - Ptr Int32 -> -- argc : TBasicType TInt32 - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO CInt - - -parseArgs :: - (MonadIO m) => - [T.Text] -> -- argv - m (Bool,[T.Text]) -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_paper_size_get_paper_sizes --- Args : [Arg {argName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "include_custom", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- include_custom - m [PaperSize] -paperSizeGetPaperSizes include_custom = liftIO $ do - let include_custom' = (fromIntegral . fromEnum) include_custom - result <- gtk_paper_size_get_paper_sizes include_custom' - checkUnexpectedReturnNULL "gtk_paper_size_get_paper_sizes" result - result' <- unpackGList result - result'' <- mapM (wrapBoxed PaperSize) result' - g_list_free result - return result'' - - --- function gtk_paper_size_get_default --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -paperSizeGetDefault = liftIO $ do - result <- gtk_paper_size_get_default - checkUnexpectedReturnNULL "gtk_paper_size_get_default" result - result' <- cstringToText result - return result' - - --- function gtk_paint_vline --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y2_ : TBasicType TInt32 - Int32 -> -- x : TBasicType TInt32 - 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 -> -- state_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- y1_ - Int32 -> -- y2_ - Int32 -> -- x - m () -paintVline style cr state_type widget detail y1_ y2_ x = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - 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' state_type' maybeWidget maybeDetail y1_ y2_ x - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_tab --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - -{-# DEPRECATED paintTab ["(Since version 3.0)","Use cairo instead"]#-} -paintTab :: - (MonadIO m, StyleK a, WidgetK b) => - a -> -- style - Cairo.Context -> -- cr - StateType -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintTab style cr state_type shadow_type widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_spinner --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Word32 -> -- step - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintSpinner style cr state_type widget detail step x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - 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' state_type' maybeWidget maybeDetail step x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_slider --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - Orientation -> -- orientation - m () -paintSlider style cr state_type shadow_type widget detail x y width height orientation = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height orientation' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_shadow_gap --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - Int32 -> -- gap_x : TBasicType TInt32 - Int32 -> -- gap_width : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - PositionType -> -- gap_side - Int32 -> -- gap_x - Int32 -> -- gap_width - m () -paintShadowGap style cr state_type shadow_type widget detail x y width height gap_side gap_x gap_width = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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 gap_side' = (fromIntegral . fromEnum) gap_side - gtk_paint_shadow_gap style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side' gap_x gap_width - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_shadow --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintShadow style cr state_type shadow_type widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_resize_grip --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Gdk.WindowEdge -> -- edge - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintResizeGrip style cr state_type widget detail edge x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - 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' state_type' maybeWidget maybeDetail edge' x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_option --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintOption style cr state_type shadow_type widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_layout --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - 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 -> -- state_type - Bool -> -- use_text - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - c -> -- layout - m () -paintLayout style cr state_type use_text widget detail x y layout = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let use_text' = (fromIntegral . fromEnum) use_text - 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' state_type' use_text' maybeWidget maybeDetail x y layout' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - touchManagedPtr layout - freeMem maybeDetail - return () - - --- function gtk_paint_hline --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x2", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- x2 : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - 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 -> -- state_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x1 - Int32 -> -- x2 - Int32 -> -- y - m () -paintHline style cr state_type widget detail x1 x2 y = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - 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' state_type' maybeWidget maybeDetail x1 x2 y - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_handle --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - Orientation -> -- orientation - m () -paintHandle style cr state_type shadow_type widget detail x y width height orientation = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height orientation' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_focus --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintFocus style cr state_type widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - 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' state_type' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_flat_box --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintFlatBox style cr state_type shadow_type widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_extension --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - PositionType -> -- gap_side - m () -paintExtension style cr state_type shadow_type widget detail x y width height gap_side = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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 gap_side' = (fromIntegral . fromEnum) gap_side - gtk_paint_extension style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_expander --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expander_style", argType = TInterface "Gtk" "ExpanderStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - 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 -> -- state_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - ExpanderStyle -> -- expander_style - m () -paintExpander style cr state_type widget detail x y expander_style = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - 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 expander_style' = (fromIntegral . fromEnum) expander_style - gtk_paint_expander style' cr' state_type' maybeWidget maybeDetail x y expander_style' - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_diamond --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - -{-# DEPRECATED paintDiamond ["(Since version 3.0)","Use cairo instead"]#-} -paintDiamond :: - (MonadIO m, StyleK a, WidgetK b) => - a -> -- style - Cairo.Context -> -- cr - StateType -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintDiamond style cr state_type shadow_type widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_check --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintCheck style cr state_type shadow_type widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_box_gap --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gap_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CUInt -> -- gap_side : TInterface "Gtk" "PositionType" - Int32 -> -- gap_x : TBasicType TInt32 - Int32 -> -- gap_width : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - PositionType -> -- gap_side - Int32 -> -- gap_x - Int32 -> -- gap_width - m () -paintBoxGap style cr state_type shadow_type widget detail x y width height gap_side gap_x gap_width = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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 gap_side' = (fromIntegral . fromEnum) gap_side - gtk_paint_box_gap style' cr' state_type' shadow_type' maybeWidget maybeDetail x y width height gap_side' gap_x gap_width - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_box --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintBox style cr state_type shadow_type widget detail x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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' state_type' shadow_type' maybeWidget maybeDetail x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_paint_arrow --- Args : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - ShadowType -> -- shadow_type - Maybe (b) -> -- widget - Maybe (T.Text) -> -- detail - ArrowType -> -- arrow_type - Bool -> -- fill - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -paintArrow style cr state_type shadow_type widget detail arrow_type fill x y width height = liftIO $ do - let style' = unsafeManagedPtrCastPtr style - let cr' = unsafeManagedPtrGetPtr cr - let state_type' = (fromIntegral . fromEnum) state_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - 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 arrow_type' = (fromIntegral . fromEnum) arrow_type - let fill' = (fromIntegral . fromEnum) fill - gtk_paint_arrow style' cr' state_type' shadow_type' maybeWidget maybeDetail arrow_type' fill' x y width height - touchManagedPtr style - touchManagedPtr cr - whenJust widget touchManagedPtr - freeMem maybeDetail - return () - - --- function gtk_main_quit --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_main_quit" gtk_main_quit :: - IO () - - -mainQuit :: - (MonadIO m) => - m () -mainQuit = liftIO $ do - gtk_main_quit - return () - - --- function gtk_main_level --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_main_level" gtk_main_level :: - IO Word32 - - -mainLevel :: - (MonadIO m) => - m Word32 -mainLevel = liftIO $ do - result <- gtk_main_level - return result - - --- function gtk_main_iteration_do --- Args : [Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_main_iteration" gtk_main_iteration :: - IO CInt - - -mainIteration :: - (MonadIO m) => - m Bool -mainIteration = liftIO $ do - result <- gtk_main_iteration - let result' = (/= 0) result - return result' - - --- function gtk_main_do_event --- Args : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -mainDoEvent event = liftIO $ do - let event' = unsafeManagedPtrGetPtr event - gtk_main_do_event event' - touchManagedPtr event - return () - - --- function gtk_main --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_main" gtk_main :: - IO () - - -main :: - (MonadIO m) => - m () -main = liftIO $ do - gtk_main - return () - - --- function gtk_key_snooper_remove --- Args : [Arg {argName = "snooper_handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "snooper_handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_key_snooper_remove" gtk_key_snooper_remove :: - Word32 -> -- snooper_handler_id : TBasicType TUInt32 - IO () - -{-# DEPRECATED keySnooperRemove ["(Since version 3.4)","Key snooping should not be done. Events should"," be handled by widgets."]#-} -keySnooperRemove :: - (MonadIO m) => - Word32 -> -- snooper_handler_id - m () -keySnooperRemove snooper_handler_id = liftIO $ do - gtk_key_snooper_remove snooper_handler_id - return () - - --- function gtk_init_with_args --- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gtk_init_with_args" gtk_init_with_args :: - Ptr Int32 -> -- argc : TBasicType TInt32 - 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) -> -- parameter_string - [GLib.OptionEntry] -> -- entries - T.Text -> -- translation_domain - m ((Maybe [T.Text])) -initWithArgs argv parameter_string entries translation_domain = 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 - maybeParameter_string <- case parameter_string of - Nothing -> return nullPtr - Just jParameter_string -> do - jParameter_string' <- textToCString jParameter_string - return jParameter_string' - let entries' = map unsafeManagedPtrGetPtr entries - entries'' <- packZeroTerminatedPtrArray entries' - translation_domain' <- textToCString translation_domain - onException (do - _ <- propagateGError $ gtk_init_with_args argc' maybeArgv' maybeParameter_string entries'' translation_domain' - 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 maybeParameter_string - freeMem entries'' - freeMem translation_domain' - return maybeMaybeArgv'' - ) (do - freeMem argc' - freeMem maybeArgv' - freeMem maybeParameter_string - freeMem entries'' - freeMem translation_domain' - ) - - --- function gtk_init_check --- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_init_check" gtk_init_check :: - Ptr Int32 -> -- argc : TBasicType TInt32 - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO CInt - - -initCheck :: - (MonadIO m) => - Maybe ([T.Text]) -> -- argv - m (Bool,(Maybe [T.Text])) -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 {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_init" gtk_init :: - Ptr Int32 -> -- argc : TBasicType TInt32 - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO () - - -init :: - (MonadIO m) => - Maybe ([T.Text]) -> -- argv - m ((Maybe [T.Text])) -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_icon_theme_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_theme_error_quark" gtk_icon_theme_error_quark :: - IO Word32 - - -iconThemeErrorQuark :: - (MonadIO m) => - m Word32 -iconThemeErrorQuark = liftIO $ do - result <- gtk_icon_theme_error_quark - return result - - --- function gtk_icon_size_register_alias --- Args : [Arg {argName = "alias", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "alias", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_size_register_alias" gtk_icon_size_register_alias :: - CString -> -- alias : TBasicType TUTF8 - Int32 -> -- target : TBasicType TInt32 - IO () - -{-# DEPRECATED iconSizeRegisterAlias ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSizeRegisterAlias :: - (MonadIO m) => - T.Text -> -- alias - Int32 -> -- target - m () -iconSizeRegisterAlias alias target = liftIO $ do - alias' <- textToCString alias - gtk_icon_size_register_alias alias' target - freeMem alias' - return () - - --- function gtk_icon_size_register --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_size_register" gtk_icon_size_register :: - CString -> -- name : TBasicType TUTF8 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO Int32 - -{-# DEPRECATED iconSizeRegister ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSizeRegister :: - (MonadIO m) => - T.Text -> -- name - Int32 -> -- width - Int32 -> -- height - m Int32 -iconSizeRegister name width height = liftIO $ do - name' <- textToCString name - result <- gtk_icon_size_register name' width height - freeMem name' - return result - - --- function gtk_icon_size_lookup_for_settings --- Args : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "settings", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_size_lookup_for_settings" gtk_icon_size_lookup_for_settings :: - Ptr Settings -> -- settings : TInterface "Gtk" "Settings" - Int32 -> -- size : TBasicType TInt32 - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO CInt - -{-# DEPRECATED iconSizeLookupForSettings ["(Since version 3.10)","Use gtk_icon_size_lookup() instead."]#-} -iconSizeLookupForSettings :: - (MonadIO m, SettingsK a) => - a -> -- settings - Int32 -> -- size - m (Bool,Int32,Int32) -iconSizeLookupForSettings settings size = liftIO $ do - let settings' = unsafeManagedPtrCastPtr settings - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - result <- gtk_icon_size_lookup_for_settings settings' size width height - let result' = (/= 0) result - width' <- peek width - height' <- peek height - touchManagedPtr settings - freeMem width - freeMem height - return (result', width', height') - - --- function gtk_icon_size_lookup --- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_size_lookup" gtk_icon_size_lookup :: - Int32 -> -- size : TBasicType TInt32 - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO CInt - - -iconSizeLookup :: - (MonadIO m) => - Int32 -> -- size - m (Bool,Int32,Int32) -iconSizeLookup size = liftIO $ do - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - result <- gtk_icon_size_lookup size width height - let result' = (/= 0) result - width' <- peek width - height' <- peek height - freeMem width - freeMem height - return (result', width', height') - - --- function gtk_icon_size_get_name --- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_size_get_name" gtk_icon_size_get_name :: - Int32 -> -- size : TBasicType TInt32 - IO CString - -{-# DEPRECATED iconSizeGetName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSizeGetName :: - (MonadIO m) => - Int32 -> -- size - m T.Text -iconSizeGetName size = liftIO $ do - result <- gtk_icon_size_get_name size - checkUnexpectedReturnNULL "gtk_icon_size_get_name" result - result' <- cstringToText result - return result' - - --- function gtk_icon_size_from_name --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_size_from_name" gtk_icon_size_from_name :: - CString -> -- name : TBasicType TUTF8 - IO Int32 - -{-# DEPRECATED iconSizeFromName ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSizeFromName :: - (MonadIO m) => - T.Text -> -- name - m Int32 -iconSizeFromName name = liftIO $ do - name' <- textToCString name - result <- gtk_icon_size_from_name name' - freeMem name' - return result - - --- function gtk_grab_get_current --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 Widget -grabGetCurrent = liftIO $ do - result <- gtk_grab_get_current - checkUnexpectedReturnNULL "gtk_grab_get_current" result - result' <- (newObject Widget) result - return result' - - --- function gtk_get_option_group --- Args : [Arg {argName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "open_default_display", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- open_default_display - m GLib.OptionGroup -getOptionGroup open_default_display = liftIO $ do - let open_default_display' = (fromIntegral . fromEnum) open_default_display - result <- gtk_get_option_group open_default_display' - checkUnexpectedReturnNULL "gtk_get_option_group" result - result' <- (wrapBoxed GLib.OptionGroup) result - return result' - - --- function gtk_get_minor_version --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_minor_version" gtk_get_minor_version :: - IO Word32 - - -getMinorVersion :: - (MonadIO m) => - m Word32 -getMinorVersion = liftIO $ do - result <- gtk_get_minor_version - return result - - --- function gtk_get_micro_version --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_micro_version" gtk_get_micro_version :: - IO Word32 - - -getMicroVersion :: - (MonadIO m) => - m Word32 -getMicroVersion = liftIO $ do - result <- gtk_get_micro_version - return result - - --- function gtk_get_major_version --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_major_version" gtk_get_major_version :: - IO Word32 - - -getMajorVersion :: - (MonadIO m) => - m Word32 -getMajorVersion = liftIO $ do - result <- gtk_get_major_version - return result - - --- function gtk_get_locale_direction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -getLocaleDirection = liftIO $ do - result <- gtk_get_locale_direction - let result' = (toEnum . fromIntegral) result - return result' - - --- function gtk_get_interface_age --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_interface_age" gtk_get_interface_age :: - IO Word32 - - -getInterfaceAge :: - (MonadIO m) => - m Word32 -getInterfaceAge = liftIO $ do - result <- gtk_get_interface_age - return result - - --- function gtk_get_event_widget --- Args : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Widget -getEventWidget event = liftIO $ do - let event' = unsafeManagedPtrGetPtr event - result <- gtk_get_event_widget event' - checkUnexpectedReturnNULL "gtk_get_event_widget" result - result' <- (newObject Widget) result - touchManagedPtr event - return result' - - --- function gtk_get_default_language --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_debug_flags" gtk_get_debug_flags :: - IO Word32 - - -getDebugFlags :: - (MonadIO m) => - m Word32 -getDebugFlags = liftIO $ do - result <- gtk_get_debug_flags - return result - - --- function gtk_get_current_event_time --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -getCurrentEventTime = liftIO $ do - result <- gtk_get_current_event_time - return result - - --- function gtk_get_current_event_state --- Args : [Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [] --- returnType : 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]) -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 : [] --- hInArgs : [] --- returnType : 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 Gdk.Device -getCurrentEventDevice = liftIO $ do - result <- gtk_get_current_event_device - checkUnexpectedReturnNULL "gtk_get_current_event_device" result - result' <- (newObject Gdk.Device) result - return result' - - --- function gtk_get_current_event --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 Gdk.Event -getCurrentEvent = liftIO $ do - result <- gtk_get_current_event - checkUnexpectedReturnNULL "gtk_get_current_event" result - result' <- (wrapBoxed Gdk.Event) result - return result' - - --- function gtk_get_binary_age --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_get_binary_age" gtk_get_binary_age :: - IO Word32 - - -getBinaryAge :: - (MonadIO m) => - m Word32 -getBinaryAge = liftIO $ do - result <- gtk_get_binary_age - return result - - --- function gtk_file_chooser_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_error_quark" gtk_file_chooser_error_quark :: - IO Word32 - - -fileChooserErrorQuark :: - (MonadIO m) => - m Word32 -fileChooserErrorQuark = liftIO $ do - result <- gtk_file_chooser_error_quark - return result - - --- function gtk_false --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_false" gtk_false :: - IO CInt - - -false :: - (MonadIO m) => - m Bool -false = liftIO $ do - result <- gtk_false - let result' = (/= 0) result - return result' - - --- function gtk_events_pending --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_events_pending" gtk_events_pending :: - IO CInt - - -eventsPending :: - (MonadIO m) => - m Bool -eventsPending = liftIO $ do - result <- gtk_events_pending - let result' = (/= 0) result - return result' - - --- function gtk_draw_insertion_cursor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_primary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- location : TInterface "cairo" "RectangleInt" - 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 - Cairo.RectangleInt -> -- location - Bool -> -- is_primary - TextDirection -> -- direction - Bool -> -- draw_arrow - m () -drawInsertionCursor widget cr location is_primary direction draw_arrow = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let cr' = unsafeManagedPtrGetPtr cr - let location' = unsafeManagedPtrGetPtr location - let is_primary' = (fromIntegral . fromEnum) is_primary - let direction' = (fromIntegral . fromEnum) direction - let draw_arrow' = (fromIntegral . fromEnum) draw_arrow - gtk_draw_insertion_cursor widget' cr' location' is_primary' direction' draw_arrow' - touchManagedPtr widget - touchManagedPtr cr - touchManagedPtr location - return () - - --- function gtk_drag_set_icon_widget --- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- hot_y : TBasicType TInt32 - IO () - - -dragSetIconWidget :: - (MonadIO m, Gdk.DragContextK a, WidgetK b) => - a -> -- context - b -> -- widget - Int32 -> -- hot_x - Int32 -> -- hot_y - m () -dragSetIconWidget context widget hot_x hot_y = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - gtk_drag_set_icon_widget context' widget' hot_x hot_y - touchManagedPtr context - touchManagedPtr widget - return () - - --- function gtk_drag_set_icon_surface --- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- hot_y : TBasicType TInt32 - IO () - -{-# DEPRECATED dragSetIconStock ["(Since version 3.10)","Use gtk_drag_set_icon_name() instead."]#-} -dragSetIconStock :: - (MonadIO m, Gdk.DragContextK a) => - a -> -- context - T.Text -> -- stock_id - Int32 -> -- hot_x - Int32 -> -- hot_y - m () -dragSetIconStock context stock_id hot_x hot_y = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - stock_id' <- textToCString stock_id - gtk_drag_set_icon_stock context' stock_id' hot_x hot_y - touchManagedPtr context - freeMem stock_id' - return () - - --- function gtk_drag_set_icon_pixbuf --- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- hot_y : TBasicType TInt32 - IO () - - -dragSetIconPixbuf :: - (MonadIO m, Gdk.DragContextK a, GdkPixbuf.PixbufK b) => - a -> -- context - b -> -- pixbuf - Int32 -> -- hot_x - Int32 -> -- hot_y - m () -dragSetIconPixbuf context pixbuf hot_x hot_y = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_drag_set_icon_pixbuf context' pixbuf' hot_x hot_y - touchManagedPtr context - touchManagedPtr pixbuf - return () - - --- function gtk_drag_set_icon_name --- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- hot_y : TBasicType TInt32 - IO () - - -dragSetIconName :: - (MonadIO m, Gdk.DragContextK a) => - a -> -- context - T.Text -> -- icon_name - Int32 -> -- hot_x - Int32 -> -- hot_y - m () -dragSetIconName context icon_name hot_x hot_y = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - icon_name' <- textToCString icon_name - gtk_drag_set_icon_name context' icon_name' hot_x hot_y - touchManagedPtr context - freeMem icon_name' - return () - - --- function gtk_drag_set_icon_gicon --- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hot_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- hot_y : TBasicType TInt32 - IO () - - -dragSetIconGicon :: - (MonadIO m, Gdk.DragContextK a, Gio.IconK b) => - a -> -- context - b -> -- icon - Int32 -> -- hot_x - Int32 -> -- hot_y - m () -dragSetIconGicon context icon hot_x hot_y = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let icon' = unsafeManagedPtrCastPtr icon - gtk_drag_set_icon_gicon context' icon' hot_x hot_y - touchManagedPtr context - touchManagedPtr icon - return () - - --- function gtk_drag_set_icon_default --- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "del", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "del", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -dragCancel context = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - gtk_drag_cancel context' - touchManagedPtr context - return () - - --- function gtk_distribute_natural_allocation --- Args : [Arg {argName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "extra_space", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_requested_sizes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TInterface "Gtk" "RequestedSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_distribute_natural_allocation" gtk_distribute_natural_allocation :: - Int32 -> -- extra_space : TBasicType TInt32 - Word32 -> -- n_requested_sizes : TBasicType TUInt32 - Ptr RequestedSize -> -- sizes : TInterface "Gtk" "RequestedSize" - IO Int32 - - -distributeNaturalAllocation :: - (MonadIO m) => - Int32 -> -- extra_space - Word32 -> -- n_requested_sizes - RequestedSize -> -- sizes - m Int32 -distributeNaturalAllocation extra_space n_requested_sizes sizes = liftIO $ do - let sizes' = unsafeManagedPtrGetPtr sizes - result <- gtk_distribute_natural_allocation extra_space n_requested_sizes sizes' - touchManagedPtr sizes - return result - - --- function gtk_disable_setlocale --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_disable_setlocale" gtk_disable_setlocale :: - IO () - - -disableSetlocale :: - (MonadIO m) => - m () -disableSetlocale = liftIO $ do - gtk_disable_setlocale - return () - - --- function gtk_device_grab_remove --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "block_others", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- block_others - m () -deviceGrabAdd widget device block_others = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - let device' = unsafeManagedPtrCastPtr device - let block_others' = (fromIntegral . fromEnum) block_others - gtk_device_grab_add widget' device' block_others' - touchManagedPtr widget - touchManagedPtr device - return () - - --- function gtk_css_provider_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_css_provider_error_quark" gtk_css_provider_error_quark :: - IO Word32 - - -cssProviderErrorQuark :: - (MonadIO m) => - m Word32 -cssProviderErrorQuark = liftIO $ do - result <- gtk_css_provider_error_quark - return result - - --- function gtk_check_version --- Args : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_check_version" gtk_check_version :: - Word32 -> -- required_major : TBasicType TUInt32 - Word32 -> -- required_minor : TBasicType TUInt32 - Word32 -> -- required_micro : TBasicType TUInt32 - IO CString - - -checkVersion :: - (MonadIO m) => - Word32 -> -- required_major - Word32 -> -- required_minor - Word32 -> -- required_micro - m T.Text -checkVersion required_major required_minor required_micro = liftIO $ do - result <- gtk_check_version required_major required_minor required_micro - checkUnexpectedReturnNULL "gtk_check_version" result - result' <- cstringToText result - return result' - - --- function gtk_cairo_transform_to_window --- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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_builder_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_error_quark" gtk_builder_error_quark :: - IO Word32 - - -builderErrorQuark :: - (MonadIO m) => - m Word32 -builderErrorQuark = liftIO $ do - result <- gtk_builder_error_quark - return result - - --- function gtk_bindings_activate_event --- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -bindingsActivate :: - (MonadIO m, GObject.ObjectK a) => - a -> -- object - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifiers - m Bool -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_binding_set_find --- Args : [Arg {argName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "set_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- set_name - m BindingSet -bindingSetFind set_name_ = liftIO $ do - set_name_' <- textToCString set_name_ - result <- gtk_binding_set_find set_name_' - checkUnexpectedReturnNULL "gtk_binding_set_find" result - result' <- (newPtr 64 BindingSet) result - freeMem set_name_' - return result' - - --- function gtk_binding_entry_skip --- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO () - - -bindingEntrySkip :: - (MonadIO m) => - BindingSet -> -- binding_set - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifiers - m () -bindingEntrySkip binding_set keyval modifiers = liftIO $ do - let binding_set' = unsafeManagedPtrGetPtr binding_set - let modifiers' = gflagsToWord modifiers - gtk_binding_entry_skip binding_set' keyval modifiers' - touchManagedPtr binding_set - return () - - --- function gtk_binding_entry_remove --- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO () - - -bindingEntryRemove :: - (MonadIO m) => - BindingSet -> -- binding_set - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifiers - m () -bindingEntryRemove binding_set keyval modifiers = liftIO $ do - let binding_set' = unsafeManagedPtrGetPtr binding_set - let modifiers' = gflagsToWord modifiers - gtk_binding_entry_remove binding_set' keyval modifiers' - touchManagedPtr binding_set - return () - - --- function gtk_binding_entry_add_signall --- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "binding_args", argType = TGSList (TInterface "Gtk" "BindingArg"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - 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 -> -- binding_set - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifiers - T.Text -> -- signal_name - [BindingArg] -> -- binding_args - m () -bindingEntryAddSignall binding_set keyval modifiers signal_name binding_args = liftIO $ do - let binding_set' = unsafeManagedPtrGetPtr binding_set - let modifiers' = gflagsToWord modifiers - signal_name' <- textToCString signal_name - let binding_args' = map unsafeManagedPtrGetPtr binding_args - binding_args'' <- packGSList binding_args' - gtk_binding_entry_add_signall binding_set' keyval modifiers' signal_name' binding_args'' - touchManagedPtr binding_set - mapM_ touchManagedPtr binding_args - freeMem signal_name' - g_slist_free binding_args'' - return () - - --- function gtk_binding_entry_add_signal_from_string --- Args : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "binding_set", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_desc", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- binding_set - T.Text -> -- signal_desc - m GLib.TokenType -bindingEntryAddSignalFromString binding_set signal_desc = liftIO $ do - let binding_set' = unsafeManagedPtrGetPtr binding_set - signal_desc' <- textToCString signal_desc - result <- gtk_binding_entry_add_signal_from_string binding_set' signal_desc' - let result' = (toEnum . fromIntegral) result - touchManagedPtr binding_set - freeMem signal_desc' - return result' - - --- function gtk_alternative_dialog_button_order --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_accelerator_valid" gtk_accelerator_valid :: - Word32 -> -- keyval : TBasicType TUInt32 - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -acceleratorValid :: - (MonadIO m) => - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifiers - m Bool -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 {argName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "default_mod_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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] -> -- default_mod_mask - m () -acceleratorSetDefaultModMask default_mod_mask = liftIO $ do - let default_mod_mask' = gflagsToWord default_mod_mask - gtk_accelerator_set_default_mod_mask default_mod_mask' - return () - - --- function gtk_accelerator_parse_with_keycode --- Args : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_codes", argType = TCArray True (-1) (-1) (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accelerator_parse_with_keycode" gtk_accelerator_parse_with_keycode :: - CString -> -- accelerator : TBasicType TUTF8 - Ptr Word32 -> -- accelerator_key : TBasicType TUInt32 - Ptr (Ptr Word32) -> -- accelerator_codes : TCArray True (-1) (-1) (TBasicType TUInt32) - Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO () - - -acceleratorParseWithKeycode :: - (MonadIO m) => - T.Text -> -- accelerator - m (Word32,[Word32],[Gdk.ModifierType]) -acceleratorParseWithKeycode accelerator = liftIO $ do - accelerator' <- textToCString accelerator - accelerator_key <- allocMem :: IO (Ptr Word32) - accelerator_codes <- allocMem :: IO (Ptr (Ptr Word32)) - accelerator_mods <- allocMem :: IO (Ptr CUInt) - gtk_accelerator_parse_with_keycode accelerator' accelerator_key accelerator_codes accelerator_mods - accelerator_key' <- peek accelerator_key - accelerator_codes' <- peek accelerator_codes - accelerator_codes'' <- unpackZeroTerminatedStorableArray accelerator_codes' - freeMem accelerator_codes' - accelerator_mods' <- peek accelerator_mods - let accelerator_mods'' = wordToGFlags accelerator_mods' - freeMem accelerator' - freeMem accelerator_key - freeMem accelerator_codes - freeMem accelerator_mods - return (accelerator_key', accelerator_codes'', accelerator_mods'') - - --- function gtk_accelerator_parse --- Args : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accelerator_parse" gtk_accelerator_parse :: - CString -> -- accelerator : TBasicType TUTF8 - Ptr Word32 -> -- accelerator_key : TBasicType TUInt32 - Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO () - - -acceleratorParse :: - (MonadIO m) => - T.Text -> -- accelerator - m (Word32,[Gdk.ModifierType]) -acceleratorParse accelerator = liftIO $ do - accelerator' <- textToCString accelerator - accelerator_key <- allocMem :: IO (Ptr Word32) - accelerator_mods <- allocMem :: IO (Ptr CUInt) - gtk_accelerator_parse accelerator' accelerator_key accelerator_mods - accelerator_key' <- peek accelerator_key - accelerator_mods' <- peek accelerator_mods - let accelerator_mods'' = wordToGFlags accelerator_mods' - freeMem accelerator' - freeMem accelerator_key - freeMem accelerator_mods - return (accelerator_key', accelerator_mods'') - - --- function gtk_accelerator_name_with_keycode --- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - Word32 -> -- keycode : TBasicType TUInt32 - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO CString - - -acceleratorNameWithKeycode :: - (MonadIO m, Gdk.DisplayK a) => - Maybe (a) -> -- display - Word32 -> -- accelerator_key - Word32 -> -- keycode - [Gdk.ModifierType] -> -- accelerator_mods - m T.Text -acceleratorNameWithKeycode display accelerator_key keycode accelerator_mods = liftIO $ do - maybeDisplay <- case display of - Nothing -> return nullPtr - Just jDisplay -> do - let jDisplay' = unsafeManagedPtrCastPtr jDisplay - return jDisplay' - let accelerator_mods' = gflagsToWord accelerator_mods - result <- gtk_accelerator_name_with_keycode maybeDisplay accelerator_key keycode accelerator_mods' - checkUnexpectedReturnNULL "gtk_accelerator_name_with_keycode" result - result' <- cstringToText result - freeMem result - whenJust display touchManagedPtr - return result' - - --- function gtk_accelerator_name --- Args : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_accelerator_name" gtk_accelerator_name :: - Word32 -> -- accelerator_key : TBasicType TUInt32 - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO CString - - -acceleratorName :: - (MonadIO m) => - Word32 -> -- accelerator_key - [Gdk.ModifierType] -> -- accelerator_mods - m T.Text -acceleratorName accelerator_key accelerator_mods = liftIO $ do - let accelerator_mods' = gflagsToWord accelerator_mods - result <- gtk_accelerator_name accelerator_key accelerator_mods' - checkUnexpectedReturnNULL "gtk_accelerator_name" result - result' <- cstringToText result - freeMem result - return result' - - --- function gtk_accelerator_get_label_with_keycode --- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - Word32 -> -- keycode : TBasicType TUInt32 - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO CString - - -acceleratorGetLabelWithKeycode :: - (MonadIO m, Gdk.DisplayK a) => - Maybe (a) -> -- display - Word32 -> -- accelerator_key - Word32 -> -- keycode - [Gdk.ModifierType] -> -- accelerator_mods - m T.Text -acceleratorGetLabelWithKeycode display accelerator_key keycode accelerator_mods = liftIO $ do - maybeDisplay <- case display of - Nothing -> return nullPtr - Just jDisplay -> do - let jDisplay' = unsafeManagedPtrCastPtr jDisplay - return jDisplay' - let accelerator_mods' = gflagsToWord accelerator_mods - result <- gtk_accelerator_get_label_with_keycode maybeDisplay accelerator_key keycode accelerator_mods' - 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 {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_accelerator_get_label" gtk_accelerator_get_label :: - Word32 -> -- accelerator_key : TBasicType TUInt32 - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO CString - - -acceleratorGetLabel :: - (MonadIO m) => - Word32 -> -- accelerator_key - [Gdk.ModifierType] -> -- accelerator_mods - m T.Text -acceleratorGetLabel accelerator_key accelerator_mods = liftIO $ do - let accelerator_mods' = gflagsToWord accelerator_mods - result <- gtk_accelerator_get_label accelerator_key accelerator_mods' - checkUnexpectedReturnNULL "gtk_accelerator_get_label" result - result' <- cstringToText result - freeMem result - return result' - - --- function gtk_accelerator_get_default_mod_mask --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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] -acceleratorGetDefaultModMask = liftIO $ do - result <- gtk_accelerator_get_default_mod_mask - let result' = wordToGFlags result - return result' - - --- function gtk_accel_groups_from_object --- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -accelGroupsFromObject object = liftIO $ do - let object' = unsafeManagedPtrCastPtr object - result <- gtk_accel_groups_from_object object' - checkUnexpectedReturnNULL "gtk_accel_groups_from_object" result - result' <- unpackGSList result - result'' <- mapM (newObject AccelGroup) result' - touchManagedPtr object - return result'' - - --- function gtk_accel_groups_activate --- Args : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -accelGroupsActivate :: - (MonadIO m, GObject.ObjectK a) => - a -> -- object - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m Bool -accelGroupsActivate object accel_key accel_mods = liftIO $ do - let object' = unsafeManagedPtrCastPtr object - let accel_mods' = gflagsToWord accel_mods - result <- gtk_accel_groups_activate object' accel_key accel_mods' - 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,66 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - - 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,283 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - actionableGetActionName , - - --- ** actionableGetActionTargetValue - actionableGetActionTargetValue , - - --- ** actionableSetActionName - actionableSetActionName , - - --- ** actionableSetActionTargetValue - actionableSetActionTargetValue , - - --- ** actionableSetDetailedActionName - actionableSetDetailedActionName , - - - - - -- * Properties --- ** ActionName - ActionableActionNamePropertyInfo , - constructActionableActionName , - getActionableActionName , - setActionableActionName , - - --- ** ActionTarget - ActionableActionTargetPropertyInfo , - constructActionableActionTarget , - getActionableActionTarget , - setActionableActionTarget , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface Actionable - -newtype Actionable = Actionable (ForeignPtr Actionable) -noActionable :: Maybe Actionable -noActionable = Nothing - --- VVV Prop "action-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getActionableActionName :: (MonadIO m, ActionableK o) => o -> m T.Text -getActionableActionName obj = liftIO $ getObjectPropertyString obj "action-name" - -setActionableActionName :: (MonadIO m, ActionableK o) => o -> T.Text -> m () -setActionableActionName obj val = liftIO $ setObjectPropertyString obj "action-name" val - -constructActionableActionName :: T.Text -> IO ([Char], GValue) -constructActionableActionName val = constructObjectPropertyString "action-name" 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 = "Actionable::action-name" - attrGet _ = getActionableActionName - attrSet _ = setActionableActionName - attrConstruct _ = constructActionableActionName - --- VVV Prop "action-target" - -- Type: TVariant - -- Flags: [PropertyReadable,PropertyWritable] - -getActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m GVariant -getActionableActionTarget obj = liftIO $ getObjectPropertyVariant obj "action-target" - -setActionableActionTarget :: (MonadIO m, ActionableK o) => o -> GVariant -> m () -setActionableActionTarget obj val = liftIO $ setObjectPropertyVariant obj "action-target" val - -constructActionableActionTarget :: GVariant -> IO ([Char], GValue) -constructActionableActionTarget val = constructObjectPropertyVariant "action-target" val - -data ActionableActionTargetPropertyInfo -instance AttrInfo ActionableActionTargetPropertyInfo where - type AttrAllowedOps ActionableActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionableActionTargetPropertyInfo = (~) GVariant - type AttrBaseTypeConstraint ActionableActionTargetPropertyInfo = ActionableK - type AttrGetType ActionableActionTargetPropertyInfo = GVariant - type AttrLabel ActionableActionTargetPropertyInfo = "Actionable::action-target" - attrGet _ = getActionableActionTarget - attrSet _ = setActionableActionTarget - attrConstruct _ = constructActionableActionTarget - -type instance AttributeList Actionable = ActionableAttributeList -type ActionableAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Actionable = ActionableSignalList -type ActionableSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Actionable::get_action_target_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Actionable::set_action_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- action_name - m () -actionableSetActionName _obj action_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - gtk_actionable_set_action_name _obj' action_name' - touchManagedPtr _obj - freeMem action_name' - return () - --- method Actionable::set_action_target_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- target_value - m () -actionableSetActionTargetValue _obj target_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target_value' = unsafeManagedPtrGetPtr target_value - gtk_actionable_set_action_target_value _obj' target_value' - touchManagedPtr _obj - return () - --- method Actionable::set_detailed_action_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Actionable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- detailed_action_name - m () -actionableSetDetailedActionName _obj detailed_action_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - detailed_action_name' <- textToCString detailed_action_name - gtk_actionable_set_detailed_action_name _obj' detailed_action_name' - touchManagedPtr _obj - freeMem detailed_action_name' - return () - - 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,15 +0,0 @@ -module GI.Gtk.Interfaces.Actionable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,318 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - activatableDoSetRelatedAction , - - --- ** activatableGetRelatedAction - activatableGetRelatedAction , - - --- ** activatableGetUseActionAppearance - activatableGetUseActionAppearance , - - --- ** activatableSetRelatedAction - activatableSetRelatedAction , - - --- ** activatableSetUseActionAppearance - activatableSetUseActionAppearance , - - --- ** activatableSyncActionProperties - activatableSyncActionProperties , - - - - - -- * Properties --- ** RelatedAction - ActivatableRelatedActionPropertyInfo , - constructActivatableRelatedAction , - getActivatableRelatedAction , - setActivatableRelatedAction , - - --- ** UseActionAppearance - ActivatableUseActionAppearancePropertyInfo, - constructActivatableUseActionAppearance , - getActivatableUseActionAppearance , - setActivatableUseActionAppearance , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface Activatable - -newtype Activatable = Activatable (ForeignPtr Activatable) -noActivatable :: Maybe Activatable -noActivatable = Nothing - --- VVV Prop "related-action" - -- Type: TInterface "Gtk" "Action" - -- Flags: [PropertyReadable,PropertyWritable] - -getActivatableRelatedAction :: (MonadIO m, ActivatableK o) => o -> m Action -getActivatableRelatedAction obj = liftIO $ getObjectPropertyObject obj "related-action" Action - -setActivatableRelatedAction :: (MonadIO m, ActivatableK o, ActionK a) => o -> a -> m () -setActivatableRelatedAction obj val = liftIO $ setObjectPropertyObject obj "related-action" val - -constructActivatableRelatedAction :: (ActionK a) => a -> IO ([Char], GValue) -constructActivatableRelatedAction val = constructObjectPropertyObject "related-action" 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 = "Activatable::related-action" - attrGet _ = getActivatableRelatedAction - attrSet _ = setActivatableRelatedAction - attrConstruct _ = constructActivatableRelatedAction - --- VVV Prop "use-action-appearance" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Activatable::use-action-appearance" - attrGet _ = getActivatableUseActionAppearance - attrSet _ = setActivatableUseActionAppearance - attrConstruct _ = constructActivatableUseActionAppearance - -type instance AttributeList Activatable = ActivatableAttributeList -type ActivatableAttributeList = ('[ '("related-action", ActivatableRelatedActionPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Activatable = ActivatableSignalList -type ActivatableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Activatable::get_related_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Activatable::get_use_action_appearance --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -activatableGetUseActionAppearance _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_activatable_get_use_action_appearance _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Activatable::set_related_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Activatable::set_use_action_appearance --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_appearance", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_appearance - m () -activatableSetUseActionAppearance _obj use_appearance = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_appearance' = (fromIntegral . fromEnum) use_appearance - gtk_activatable_set_use_action_appearance _obj' use_appearance' - touchManagedPtr _obj - return () - --- method Activatable::sync_action_properties --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Activatable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Interfaces.Activatable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,183 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - appChooserGetAppInfo , - - --- ** appChooserGetContentType - appChooserGetContentType , - - --- ** appChooserRefresh - appChooserRefresh , - - - - - -- * Properties --- ** ContentType - AppChooserContentTypePropertyInfo , - constructAppChooserContentType , - getAppChooserContentType , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - --- interface AppChooser - -newtype AppChooser = AppChooser (ForeignPtr AppChooser) -noAppChooser :: Maybe AppChooser -noAppChooser = Nothing - --- VVV Prop "content-type" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAppChooserContentType :: (MonadIO m, AppChooserK o) => o -> m T.Text -getAppChooserContentType obj = liftIO $ getObjectPropertyString obj "content-type" - -constructAppChooserContentType :: T.Text -> IO ([Char], GValue) -constructAppChooserContentType val = constructObjectPropertyString "content-type" val - -data AppChooserContentTypePropertyInfo -instance AttrInfo AppChooserContentTypePropertyInfo where - type AttrAllowedOps AppChooserContentTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserContentTypePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AppChooserContentTypePropertyInfo = AppChooserK - type AttrGetType AppChooserContentTypePropertyInfo = T.Text - type AttrLabel AppChooserContentTypePropertyInfo = "AppChooser::content-type" - attrGet _ = getAppChooserContentType - attrSet _ = undefined - attrConstruct _ = constructAppChooserContentType - -type instance AttributeList AppChooser = AppChooserAttributeList -type AppChooserAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AppChooser = AppChooserSignalList -type AppChooserSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooser::get_content_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooser::refresh --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -appChooserRefresh _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_app_chooser_refresh _obj' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Interfaces.AppChooser where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AppChooser = AppChooser (ForeignPtr AppChooser) -data AppChooserContentTypePropertyInfo -instance GObject AppChooser where -class GObject o => AppChooserK o -instance (GObject o, IsDescendantOf AppChooser o) => AppChooserK o 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,462 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - buildableAddChild , - - --- ** buildableConstructChild - buildableConstructChild , - - --- ** buildableCustomFinished - buildableCustomFinished , - - --- ** buildableCustomTagEnd - buildableCustomTagEnd , - - --- ** buildableCustomTagStart - buildableCustomTagStart , - - --- ** buildableGetInternalChild - buildableGetInternalChild , - - --- ** buildableGetName - buildableGetName , - - --- ** buildableParserFinished - buildableParserFinished , - - --- ** buildableSetBuildableProperty - buildableSetBuildableProperty , - - --- ** buildableSetName - buildableSetName , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList Buildable = BuildableAttributeList -type BuildableAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Buildable = BuildableSignalList -type BuildableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Buildable::construct_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Buildable::custom_finished --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "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 TVoid - IO () - - -buildableCustomFinished :: - (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -> -- _obj - b -> -- builder - Maybe (c) -> -- child - T.Text -> -- tagname - Ptr () -> -- data - m () -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 () - --- method Buildable::custom_tag_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "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 TVoid - IO () - - -buildableCustomTagEnd :: - (MonadIO m, BuildableK a, BuilderK b, GObject.ObjectK c) => - a -> -- _obj - b -> -- builder - Maybe (c) -> -- child - T.Text -> -- tagname - Ptr () -> -- data - m () -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 () - --- method Buildable::custom_tag_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TVoid - 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 ())) -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_') - --- method Buildable::get_internal_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "childname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Buildable::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Buildable::parser_finished --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buildableParserFinished _obj builder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let builder' = unsafeManagedPtrCastPtr builder - gtk_buildable_parser_finished _obj' builder' - touchManagedPtr _obj - touchManagedPtr builder - return () - --- method Buildable::set_buildable_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "builder", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 () -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 () - --- method Buildable::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Buildable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -buildableSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_buildable_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - - 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,13 +0,0 @@ -module GI.Gtk.Interfaces.Buildable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Buildable = Buildable (ForeignPtr Buildable) -instance GObject Buildable where -class GObject o => BuildableK o -instance (GObject o, IsDescendantOf Buildable o) => BuildableK o 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,360 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellAccessibleParentActivate , - - --- ** cellAccessibleParentEdit - cellAccessibleParentEdit , - - --- ** cellAccessibleParentExpandCollapse - cellAccessibleParentExpandCollapse , - - --- ** cellAccessibleParentGetCellArea - cellAccessibleParentGetCellArea , - - --- ** cellAccessibleParentGetCellExtents - cellAccessibleParentGetCellExtents , - - --- ** cellAccessibleParentGetChildIndex - cellAccessibleParentGetChildIndex , - - --- ** cellAccessibleParentGetRendererState - cellAccessibleParentGetRendererState , - - --- ** cellAccessibleParentGrabFocus - cellAccessibleParentGrabFocus , - - --- ** cellAccessibleParentUpdateRelationset - cellAccessibleParentUpdateRelationset , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.Cairo as Cairo - --- interface CellAccessibleParent - -newtype CellAccessibleParent = CellAccessibleParent (ForeignPtr CellAccessibleParent) -noCellAccessibleParent :: Maybe CellAccessibleParent -noCellAccessibleParent = Nothing - -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 {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellAccessibleParent::edit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellAccessibleParent::expand_collapse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellAccessibleParent::get_cell_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- cell_rect : TInterface "cairo" "RectangleInt" - IO () - - -cellAccessibleParentGetCellArea :: - (MonadIO m, CellAccessibleParentK a, CellAccessibleK b) => - a -> -- _obj - b -> -- cell - Cairo.RectangleInt -> -- cell_rect - m () -cellAccessibleParentGetCellArea _obj cell cell_rect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let cell_rect' = unsafeManagedPtrGetPtr cell_rect - gtk_cell_accessible_parent_get_cell_area _obj' cell' cell_rect' - touchManagedPtr _obj - touchManagedPtr cell - touchManagedPtr cell_rect - return () - --- method CellAccessibleParent::get_cell_extents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "coord_type", argType = TInterface "Atk" "CoordType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- coord_type - m () -cellAccessibleParentGetCellExtents _obj cell x y width height coord_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell' = unsafeManagedPtrCastPtr cell - let coord_type' = (fromIntegral . fromEnum) coord_type - gtk_cell_accessible_parent_get_cell_extents _obj' cell' x y width height coord_type' - touchManagedPtr _obj - touchManagedPtr cell - return () - --- method CellAccessibleParent::get_child_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method CellAccessibleParent::get_renderer_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method CellAccessibleParent::grab_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellAccessibleParent::update_relationset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAccessibleParent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relationset", argType = TInterface "Atk" "RelationSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,12 +0,0 @@ -module GI.Gtk.Interfaces.CellAccessibleParent where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype CellAccessibleParent = CellAccessibleParent (ForeignPtr CellAccessibleParent) -class ForeignPtrNewtype a => CellAccessibleParentK a -instance (ForeignPtrNewtype o, IsDescendantOf CellAccessibleParent o) => CellAccessibleParentK o 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,303 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellEditableEditingDone , - - --- ** cellEditableRemoveWidget - cellEditableRemoveWidget , - - --- ** cellEditableStartEditing - cellEditableStartEditing , - - - - - -- * Properties --- ** EditingCanceled - CellEditableEditingCanceledPropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - --- interface CellEditable - -newtype CellEditable = CellEditable (ForeignPtr CellEditable) -noCellEditable :: Maybe CellEditable -noCellEditable = Nothing - --- 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] - -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 = "CellEditable::editing-canceled" - attrGet _ = getCellEditableEditingCanceled - attrSet _ = setCellEditableEditingCanceled - attrConstruct _ = constructCellEditableEditingCanceled - -type instance AttributeList CellEditable = CellEditableAttributeList -type CellEditableAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellEditableEditingDone _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_editable_editing_done _obj' - touchManagedPtr _obj - return () - --- method CellEditable::remove_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellEditableRemoveWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_editable_remove_widget _obj' - touchManagedPtr _obj - return () - --- method CellEditable::start_editing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellEditable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,16 +0,0 @@ -module GI.Gtk.Interfaces.CellEditable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,371 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellLayoutAddAttribute , - - --- ** cellLayoutClear - cellLayoutClear , - - --- ** cellLayoutClearAttributes - cellLayoutClearAttributes , - - --- ** cellLayoutGetArea - cellLayoutGetArea , - - --- ** cellLayoutGetCells - cellLayoutGetCells , - - --- ** cellLayoutPackEnd - cellLayoutPackEnd , - - --- ** cellLayoutPackStart - cellLayoutPackStart , - - --- ** cellLayoutReorder - cellLayoutReorder , - - --- ** cellLayoutSetCellDataFunc - cellLayoutSetCellDataFunc , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList CellLayout = CellLayoutAttributeList -type CellLayoutAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList CellLayout = CellLayoutSignalList -type CellLayoutSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -cellLayoutAddAttribute :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - T.Text -> -- attribute - Int32 -> -- column - m () -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 () - --- method CellLayout::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellLayoutClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_layout_clear _obj' - touchManagedPtr _obj - return () - --- method CellLayout::clear_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellLayout::get_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 CellArea -cellLayoutGetArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_layout_get_area _obj' - checkUnexpectedReturnNULL "gtk_cell_layout_get_area" result - result' <- (newObject CellArea) result - touchManagedPtr _obj - return result' - --- method CellLayout::get_cells --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -cellLayoutGetCells _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_layout_get_cells _obj' - checkUnexpectedReturnNULL "gtk_cell_layout_get_cells" result - result' <- unpackGList result - result'' <- mapM (newObject CellRenderer) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method CellLayout::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellLayout::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellLayout::reorder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -cellLayoutReorder :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - Int32 -> -- position - m () -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 () - --- method CellLayout::set_cell_data_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CellLayoutDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -cellLayoutSetCellDataFunc :: - (MonadIO m, CellLayoutK a, CellRendererK b) => - a -> -- _obj - b -> -- cell - Maybe (CellLayoutDataFunc) -> -- func - m () -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 func_data = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_cell_layout_set_cell_data_func _obj' cell' maybeFunc func_data destroy - touchManagedPtr _obj - touchManagedPtr cell - return () - - 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,13 +0,0 @@ -module GI.Gtk.Interfaces.CellLayout where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype CellLayout = CellLayout (ForeignPtr CellLayout) -instance GObject CellLayout where -class GObject o => CellLayoutK o -instance (GObject o, IsDescendantOf CellLayout o) => CellLayoutK o 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,361 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - colorChooserAddPalette , - - --- ** colorChooserGetRgba - colorChooserGetRgba , - - --- ** colorChooserGetUseAlpha - colorChooserGetUseAlpha , - - --- ** colorChooserSetRgba - colorChooserSetRgba , - - --- ** colorChooserSetUseAlpha - colorChooserSetUseAlpha , - - - - - -- * Properties --- ** Rgba - ColorChooserRgbaPropertyInfo , - constructColorChooserRgba , - getColorChooserRgba , - setColorChooserRgba , - - --- ** UseAlpha - ColorChooserUseAlphaPropertyInfo , - constructColorChooserUseAlpha , - getColorChooserUseAlpha , - setColorChooserUseAlpha , - - - - - -- * Signals --- ** ColorActivated - ColorChooserColorActivatedCallback , - ColorChooserColorActivatedCallbackC , - ColorChooserColorActivatedSignalInfo , - afterColorChooserColorActivated , - colorChooserColorActivatedCallbackWrapper, - colorChooserColorActivatedClosure , - mkColorChooserColorActivatedCallback , - noColorChooserColorActivatedCallback , - onColorChooserColorActivated , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - --- interface ColorChooser - -newtype ColorChooser = ColorChooser (ForeignPtr ColorChooser) -noColorChooser :: Maybe ColorChooser -noColorChooser = Nothing - --- 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] - -getColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> m 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" val - -constructColorChooserRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorChooserRgba val = constructObjectPropertyBoxed "rgba" 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 = Gdk.RGBA - type AttrLabel ColorChooserRgbaPropertyInfo = "ColorChooser::rgba" - attrGet _ = getColorChooserRgba - attrSet _ = setColorChooserRgba - attrConstruct _ = constructColorChooserRgba - --- VVV Prop "use-alpha" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ColorChooser::use-alpha" - attrGet _ = getColorChooserUseAlpha - attrSet _ = setColorChooserUseAlpha - attrConstruct _ = constructColorChooserUseAlpha - -type instance AttributeList ColorChooser = ColorChooserAttributeList -type ColorChooserAttributeList = ('[ '("rgba", ColorChooserRgbaPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo)] :: [(Symbol, *)]) - -data ColorChooserColorActivatedSignalInfo -instance SignalInfo ColorChooserColorActivatedSignalInfo where - type HaskellCallbackType ColorChooserColorActivatedSignalInfo = ColorChooserColorActivatedCallback - connectSignal _ = connectColorChooserColorActivated - -type instance SignalList ColorChooser = ColorChooserSignalList -type ColorChooserSignalList = ('[ '("color-activated", ColorChooserColorActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors_per_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 3 (TInterface "Gdk" "RGBA"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- n_colors : TBasicType TInt32 - Ptr Gdk.RGBA -> -- colors : TCArray False (-1) 3 (TInterface "Gdk" "RGBA") - IO () - - -colorChooserAddPalette :: - (MonadIO m, ColorChooserK a) => - a -> -- _obj - Orientation -> -- orientation - Int32 -> -- colors_per_line - Maybe ([Gdk.RGBA]) -> -- colors - m () -colorChooserAddPalette _obj orientation colors_per_line colors = liftIO $ do - let n_colors = 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' colors_per_line n_colors maybeColors - touchManagedPtr _obj - whenJust colors (mapM_ touchManagedPtr) - freeMem maybeColors - return () - --- method ColorChooser::get_rgba --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ColorChooser::get_use_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -colorChooserGetUseAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_chooser_get_use_alpha _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ColorChooser::set_rgba --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ColorChooser::set_use_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_alpha - m () -colorChooserSetUseAlpha _obj use_alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_alpha' = (fromIntegral . fromEnum) use_alpha - gtk_color_chooser_set_use_alpha _obj' use_alpha' - touchManagedPtr _obj - return () - - 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,16 +0,0 @@ -module GI.Gtk.Interfaces.ColorChooser where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,641 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - editableCopyClipboard , - - --- ** editableCutClipboard - editableCutClipboard , - - --- ** editableDeleteSelection - editableDeleteSelection , - - --- ** editableDeleteText - editableDeleteText , - - --- ** editableGetChars - editableGetChars , - - --- ** editableGetEditable - editableGetEditable , - - --- ** editableGetPosition - editableGetPosition , - - --- ** editableGetSelectionBounds - editableGetSelectionBounds , - - --- ** editableInsertText - editableInsertText , - - --- ** editablePasteClipboard - editablePasteClipboard , - - --- ** editableSelectRegion - editableSelectRegion , - - --- ** editableSetEditable - editableSetEditable , - - --- ** editableSetPosition - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - --- interface Editable - -newtype Editable = Editable (ForeignPtr Editable) -noEditable :: Maybe Editable -noEditable = Nothing - --- 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 _ start_pos end_pos _ = do - _cb start_pos end_pos - -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 _ new_text new_text_length position _ = do - new_text' <- cstringToText new_text - position' <- peek position - outposition <- _cb new_text' new_text_length 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), '("delete-text", EditableDeleteTextSignalInfo), '("insert-text", 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 {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -editableCopyClipboard _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_copy_clipboard _obj' - touchManagedPtr _obj - return () - --- method Editable::cut_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -editableCutClipboard _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_cut_clipboard _obj' - touchManagedPtr _obj - return () - --- method Editable::delete_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -editableDeleteSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_delete_selection _obj' - touchManagedPtr _obj - return () - --- method Editable::delete_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_editable_delete_text" gtk_editable_delete_text :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- start_pos : TBasicType TInt32 - Int32 -> -- end_pos : TBasicType TInt32 - IO () - - -editableDeleteText :: - (MonadIO m, EditableK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m () -editableDeleteText _obj start_pos end_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_delete_text _obj' start_pos end_pos - touchManagedPtr _obj - return () - --- method Editable::get_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType 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 TInt32 - Int32 -> -- end_pos : TBasicType TInt32 - IO CString - - -editableGetChars :: - (MonadIO m, EditableK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m T.Text -editableGetChars _obj start_pos end_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_editable_get_chars _obj' start_pos end_pos - checkUnexpectedReturnNULL "gtk_editable_get_chars" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Editable::get_editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -editableGetEditable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_editable_get_editable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Editable::get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -editableGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_editable_get_position _obj' - touchManagedPtr _obj - return result - --- method Editable::get_selection_bounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Ptr Int32 -> -- end_pos : TBasicType TInt32 - IO CInt - - -editableGetSelectionBounds :: - (MonadIO m, EditableK a) => - a -> -- _obj - m (Bool,Int32,Int32) -editableGetSelectionBounds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start_pos <- allocMem :: IO (Ptr Int32) - end_pos <- allocMem :: IO (Ptr Int32) - result <- gtk_editable_get_selection_bounds _obj' start_pos end_pos - let result' = (/= 0) result - start_pos' <- peek start_pos - end_pos' <- peek end_pos - touchManagedPtr _obj - freeMem start_pos - freeMem end_pos - return (result', start_pos', end_pos') - --- method Editable::insert_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_text_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- position : TBasicType TInt32 - IO () - - -editableInsertText :: - (MonadIO m, EditableK a) => - a -> -- _obj - T.Text -> -- new_text - Int32 -> -- new_text_length - Int32 -> -- position - m (Int32) -editableInsertText _obj new_text new_text_length position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - new_text' <- textToCString new_text - position' <- allocMem :: IO (Ptr Int32) - poke position' position - gtk_editable_insert_text _obj' new_text' new_text_length position' - position'' <- peek position' - touchManagedPtr _obj - freeMem new_text' - freeMem position' - return position'' - --- method Editable::paste_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -editablePasteClipboard _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_paste_clipboard _obj' - touchManagedPtr _obj - return () - --- method Editable::select_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_editable_select_region" gtk_editable_select_region :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- start_pos : TBasicType TInt32 - Int32 -> -- end_pos : TBasicType TInt32 - IO () - - -editableSelectRegion :: - (MonadIO m, EditableK a) => - a -> -- _obj - Int32 -> -- start_pos - Int32 -> -- end_pos - m () -editableSelectRegion _obj start_pos end_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_select_region _obj' start_pos end_pos - touchManagedPtr _obj - return () - --- method Editable::set_editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_editable - m () -editableSetEditable _obj is_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_editable' = (fromIntegral . fromEnum) is_editable - gtk_editable_set_editable _obj' is_editable' - touchManagedPtr _obj - return () - --- method Editable::set_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Editable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_editable_set_position" gtk_editable_set_position :: - Ptr Editable -> -- _obj : TInterface "Gtk" "Editable" - Int32 -> -- position : TBasicType TInt32 - IO () - - -editableSetPosition :: - (MonadIO m, EditableK a) => - a -> -- _obj - Int32 -> -- position - m () -editableSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_editable_set_position _obj' position - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Interfaces.Editable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Editable = Editable (ForeignPtr Editable) -data EditableChangedSignalInfo -data EditableDeleteTextSignalInfo -data EditableInsertTextSignalInfo -class ForeignPtrNewtype a => EditableK a -instance (ForeignPtrNewtype o, IsDescendantOf Editable o) => EditableK o 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,2562 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - fileChooserAddFilter , - - --- ** fileChooserAddShortcutFolder - fileChooserAddShortcutFolder , - - --- ** fileChooserAddShortcutFolderUri - fileChooserAddShortcutFolderUri , - - --- ** fileChooserGetAction - fileChooserGetAction , - - --- ** fileChooserGetCreateFolders - fileChooserGetCreateFolders , - - --- ** fileChooserGetCurrentFolder - fileChooserGetCurrentFolder , - - --- ** fileChooserGetCurrentFolderFile - fileChooserGetCurrentFolderFile , - - --- ** fileChooserGetCurrentFolderUri - fileChooserGetCurrentFolderUri , - - --- ** fileChooserGetCurrentName - fileChooserGetCurrentName , - - --- ** fileChooserGetDoOverwriteConfirmation - fileChooserGetDoOverwriteConfirmation , - - --- ** fileChooserGetExtraWidget - fileChooserGetExtraWidget , - - --- ** fileChooserGetFile - fileChooserGetFile , - - --- ** fileChooserGetFilename - fileChooserGetFilename , - - --- ** fileChooserGetFilenames - fileChooserGetFilenames , - - --- ** fileChooserGetFiles - fileChooserGetFiles , - - --- ** fileChooserGetFilter - fileChooserGetFilter , - - --- ** fileChooserGetLocalOnly - fileChooserGetLocalOnly , - - --- ** fileChooserGetPreviewFile - fileChooserGetPreviewFile , - - --- ** fileChooserGetPreviewFilename - fileChooserGetPreviewFilename , - - --- ** fileChooserGetPreviewUri - fileChooserGetPreviewUri , - - --- ** fileChooserGetPreviewWidget - fileChooserGetPreviewWidget , - - --- ** fileChooserGetPreviewWidgetActive - fileChooserGetPreviewWidgetActive , - - --- ** fileChooserGetSelectMultiple - fileChooserGetSelectMultiple , - - --- ** fileChooserGetShowHidden - fileChooserGetShowHidden , - - --- ** fileChooserGetUri - fileChooserGetUri , - - --- ** fileChooserGetUris - fileChooserGetUris , - - --- ** fileChooserGetUsePreviewLabel - fileChooserGetUsePreviewLabel , - - --- ** fileChooserListFilters - fileChooserListFilters , - - --- ** fileChooserListShortcutFolderUris - fileChooserListShortcutFolderUris , - - --- ** fileChooserListShortcutFolders - fileChooserListShortcutFolders , - - --- ** fileChooserRemoveFilter - fileChooserRemoveFilter , - - --- ** fileChooserRemoveShortcutFolder - fileChooserRemoveShortcutFolder , - - --- ** fileChooserRemoveShortcutFolderUri - fileChooserRemoveShortcutFolderUri , - - --- ** fileChooserSelectAll - fileChooserSelectAll , - - --- ** fileChooserSelectFile - fileChooserSelectFile , - - --- ** fileChooserSelectFilename - fileChooserSelectFilename , - - --- ** fileChooserSelectUri - fileChooserSelectUri , - - --- ** fileChooserSetAction - fileChooserSetAction , - - --- ** fileChooserSetCreateFolders - fileChooserSetCreateFolders , - - --- ** fileChooserSetCurrentFolder - fileChooserSetCurrentFolder , - - --- ** fileChooserSetCurrentFolderFile - fileChooserSetCurrentFolderFile , - - --- ** fileChooserSetCurrentFolderUri - fileChooserSetCurrentFolderUri , - - --- ** fileChooserSetCurrentName - fileChooserSetCurrentName , - - --- ** fileChooserSetDoOverwriteConfirmation - fileChooserSetDoOverwriteConfirmation , - - --- ** fileChooserSetExtraWidget - fileChooserSetExtraWidget , - - --- ** fileChooserSetFile - fileChooserSetFile , - - --- ** fileChooserSetFilename - fileChooserSetFilename , - - --- ** fileChooserSetFilter - fileChooserSetFilter , - - --- ** fileChooserSetLocalOnly - fileChooserSetLocalOnly , - - --- ** fileChooserSetPreviewWidget - fileChooserSetPreviewWidget , - - --- ** fileChooserSetPreviewWidgetActive - fileChooserSetPreviewWidgetActive , - - --- ** fileChooserSetSelectMultiple - fileChooserSetSelectMultiple , - - --- ** fileChooserSetShowHidden - fileChooserSetShowHidden , - - --- ** fileChooserSetUri - fileChooserSetUri , - - --- ** fileChooserSetUsePreviewLabel - fileChooserSetUsePreviewLabel , - - --- ** fileChooserUnselectAll - fileChooserUnselectAll , - - --- ** fileChooserUnselectFile - fileChooserUnselectFile , - - --- ** fileChooserUnselectFilename - fileChooserUnselectFilename , - - --- ** fileChooserUnselectUri - fileChooserUnselectUri , - - - - - -- * Properties --- ** Action - FileChooserActionPropertyInfo , - constructFileChooserAction , - getFileChooserAction , - setFileChooserAction , - - --- ** CreateFolders - FileChooserCreateFoldersPropertyInfo , - constructFileChooserCreateFolders , - getFileChooserCreateFolders , - setFileChooserCreateFolders , - - --- ** DoOverwriteConfirmation - FileChooserDoOverwriteConfirmationPropertyInfo, - constructFileChooserDoOverwriteConfirmation, - getFileChooserDoOverwriteConfirmation , - setFileChooserDoOverwriteConfirmation , - - --- ** ExtraWidget - FileChooserExtraWidgetPropertyInfo , - constructFileChooserExtraWidget , - getFileChooserExtraWidget , - setFileChooserExtraWidget , - - --- ** Filter - FileChooserFilterPropertyInfo , - constructFileChooserFilter , - getFileChooserFilter , - setFileChooserFilter , - - --- ** LocalOnly - FileChooserLocalOnlyPropertyInfo , - constructFileChooserLocalOnly , - getFileChooserLocalOnly , - setFileChooserLocalOnly , - - --- ** PreviewWidget - FileChooserPreviewWidgetPropertyInfo , - constructFileChooserPreviewWidget , - getFileChooserPreviewWidget , - setFileChooserPreviewWidget , - - --- ** PreviewWidgetActive - FileChooserPreviewWidgetActivePropertyInfo, - constructFileChooserPreviewWidgetActive , - getFileChooserPreviewWidgetActive , - setFileChooserPreviewWidgetActive , - - --- ** SelectMultiple - FileChooserSelectMultiplePropertyInfo , - constructFileChooserSelectMultiple , - getFileChooserSelectMultiple , - setFileChooserSelectMultiple , - - --- ** ShowHidden - FileChooserShowHiddenPropertyInfo , - constructFileChooserShowHidden , - getFileChooserShowHidden , - setFileChooserShowHidden , - - --- ** UsePreviewLabel - FileChooserUsePreviewLabelPropertyInfo , - constructFileChooserUsePreviewLabel , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - --- interface FileChooser - -newtype FileChooser = FileChooser (ForeignPtr FileChooser) -noFileChooser :: Maybe FileChooser -noFileChooser = Nothing - --- 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] - -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 = "FileChooser::action" - attrGet _ = getFileChooserAction - attrSet _ = setFileChooserAction - attrConstruct _ = constructFileChooserAction - --- VVV Prop "create-folders" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FileChooser::create-folders" - attrGet _ = getFileChooserCreateFolders - attrSet _ = setFileChooserCreateFolders - attrConstruct _ = constructFileChooserCreateFolders - --- VVV Prop "do-overwrite-confirmation" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FileChooser::do-overwrite-confirmation" - attrGet _ = getFileChooserDoOverwriteConfirmation - attrSet _ = setFileChooserDoOverwriteConfirmation - attrConstruct _ = constructFileChooserDoOverwriteConfirmation - --- VVV Prop "extra-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserExtraWidget :: (MonadIO m, FileChooserK o) => o -> m Widget -getFileChooserExtraWidget obj = liftIO $ getObjectPropertyObject obj "extra-widget" Widget - -setFileChooserExtraWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () -setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" val - -constructFileChooserExtraWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" 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 = "FileChooser::extra-widget" - attrGet _ = getFileChooserExtraWidget - attrSet _ = setFileChooserExtraWidget - attrConstruct _ = constructFileChooserExtraWidget - --- VVV Prop "filter" - -- Type: TInterface "Gtk" "FileFilter" - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserFilter :: (MonadIO m, FileChooserK o) => o -> m FileFilter -getFileChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" FileFilter - -setFileChooserFilter :: (MonadIO m, FileChooserK o, FileFilterK a) => o -> a -> m () -setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val - -constructFileChooserFilter :: (FileFilterK a) => a -> IO ([Char], GValue) -constructFileChooserFilter val = constructObjectPropertyObject "filter" 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 = "FileChooser::filter" - attrGet _ = getFileChooserFilter - attrSet _ = setFileChooserFilter - attrConstruct _ = constructFileChooserFilter - --- VVV Prop "local-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FileChooser::local-only" - attrGet _ = getFileChooserLocalOnly - attrSet _ = setFileChooserLocalOnly - attrConstruct _ = constructFileChooserLocalOnly - --- VVV Prop "preview-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserPreviewWidget :: (MonadIO m, FileChooserK o) => o -> m Widget -getFileChooserPreviewWidget obj = liftIO $ getObjectPropertyObject obj "preview-widget" Widget - -setFileChooserPreviewWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () -setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" val - -constructFileChooserPreviewWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" 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 = "FileChooser::preview-widget" - attrGet _ = getFileChooserPreviewWidget - attrSet _ = setFileChooserPreviewWidget - attrConstruct _ = constructFileChooserPreviewWidget - --- VVV Prop "preview-widget-active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FileChooser::preview-widget-active" - attrGet _ = getFileChooserPreviewWidgetActive - attrSet _ = setFileChooserPreviewWidgetActive - attrConstruct _ = constructFileChooserPreviewWidgetActive - --- VVV Prop "select-multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FileChooser::select-multiple" - attrGet _ = getFileChooserSelectMultiple - attrSet _ = setFileChooserSelectMultiple - attrConstruct _ = constructFileChooserSelectMultiple - --- VVV Prop "show-hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FileChooser::show-hidden" - attrGet _ = getFileChooserShowHidden - attrSet _ = setFileChooserShowHidden - attrConstruct _ = constructFileChooserShowHidden - --- VVV Prop "use-preview-label" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FileChooser::use-preview-label" - attrGet _ = getFileChooserUsePreviewLabel - attrSet _ = setFileChooserUsePreviewLabel - attrConstruct _ = constructFileChooserUsePreviewLabel - -type instance AttributeList FileChooser = FileChooserAttributeList -type FileChooserAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- 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 () -fileChooserAddFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filter' <- refObject filter - gtk_file_chooser_add_filter _obj' filter' - touchManagedPtr _obj - touchManagedPtr filter - return () - --- method FileChooser::add_shortcut_folder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method FileChooser::add_shortcut_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method FileChooser::get_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileChooserGetAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_action _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_create_folders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileChooserGetCreateFolders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_create_folders _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_current_folder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method FileChooser::get_current_folder_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_current_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_current_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_do_overwrite_confirmation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_extra_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method FileChooser::get_filenames --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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]] -fileChooserGetFilenames _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_filenames _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_filenames" result - result' <- unpackGSList result - result'' <- mapM cstringToString result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::get_files --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -fileChooserGetFiles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_files _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_files" result - result' <- unpackGSList result - result'' <- mapM (wrapObject Gio.File) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::get_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_local_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileChooserGetLocalOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_local_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_preview_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_preview_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method FileChooser::get_preview_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_preview_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_preview_widget_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileChooserGetSelectMultiple _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_select_multiple _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_show_hidden --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fileChooserGetShowHidden _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_show_hidden _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FileChooser::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_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] -fileChooserGetUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_get_uris _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_get_uris" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::get_use_preview_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::list_filters --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -fileChooserListFilters _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_filters _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_filters" result - result' <- unpackGSList result - result'' <- mapM (newObject FileFilter) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::list_shortcut_folder_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_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] -fileChooserListShortcutFolderUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_shortcut_folder_uris _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folder_uris" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::list_shortcut_folders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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]] -fileChooserListShortcutFolders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_list_shortcut_folders _obj' - checkUnexpectedReturnNULL "gtk_file_chooser_list_shortcut_folders" result - result' <- unpackGSList result - result'' <- mapM cstringToString result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method FileChooser::remove_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileChooser::remove_shortcut_folder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "folder", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method FileChooser::remove_shortcut_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method FileChooser::select_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -fileChooserSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_select_all _obj' - touchManagedPtr _obj - return () - --- method FileChooser::select_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method FileChooser::select_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::select_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method FileChooser::set_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -fileChooserSetAction _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = (fromIntegral . fromEnum) action - gtk_file_chooser_set_action _obj' action' - touchManagedPtr _obj - return () - --- method FileChooser::set_create_folders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_folders", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- create_folders - m () -fileChooserSetCreateFolders _obj create_folders = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let create_folders' = (fromIntegral . fromEnum) create_folders - gtk_file_chooser_set_create_folders _obj' create_folders' - touchManagedPtr _obj - return () - --- method FileChooser::set_current_folder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::set_current_folder_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method FileChooser::set_current_folder_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method FileChooser::set_current_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileChooser::set_do_overwrite_confirmation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_overwrite_confirmation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- do_overwrite_confirmation - m () -fileChooserSetDoOverwriteConfirmation _obj do_overwrite_confirmation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let do_overwrite_confirmation' = (fromIntegral . fromEnum) do_overwrite_confirmation - gtk_file_chooser_set_do_overwrite_confirmation _obj' do_overwrite_confirmation' - touchManagedPtr _obj - return () - --- method FileChooser::set_extra_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- extra_widget - m () -fileChooserSetExtraWidget _obj extra_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let extra_widget' = unsafeManagedPtrCastPtr extra_widget - gtk_file_chooser_set_extra_widget _obj' extra_widget' - touchManagedPtr _obj - touchManagedPtr extra_widget - return () - --- method FileChooser::set_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method FileChooser::set_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooser::set_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileChooser::set_local_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- local_only - m () -fileChooserSetLocalOnly _obj local_only = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let local_only' = (fromIntegral . fromEnum) local_only - gtk_file_chooser_set_local_only _obj' local_only' - touchManagedPtr _obj - return () - --- method FileChooser::set_preview_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preview_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- preview_widget - m () -fileChooserSetPreviewWidget _obj preview_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let preview_widget' = unsafeManagedPtrCastPtr preview_widget - gtk_file_chooser_set_preview_widget _obj' preview_widget' - touchManagedPtr _obj - touchManagedPtr preview_widget - return () - --- method FileChooser::set_preview_widget_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileChooser::set_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- select_multiple - m () -fileChooserSetSelectMultiple _obj select_multiple = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let select_multiple' = (fromIntegral . fromEnum) select_multiple - gtk_file_chooser_set_select_multiple _obj' select_multiple' - touchManagedPtr _obj - return () - --- method FileChooser::set_show_hidden --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_hidden - m () -fileChooserSetShowHidden _obj show_hidden = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_hidden' = (fromIntegral . fromEnum) show_hidden - gtk_file_chooser_set_show_hidden _obj' show_hidden' - touchManagedPtr _obj - return () - --- method FileChooser::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method FileChooser::set_use_preview_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_label", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_label - m () -fileChooserSetUsePreviewLabel _obj use_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_label' = (fromIntegral . fromEnum) use_label - gtk_file_chooser_set_use_preview_label _obj' use_label' - touchManagedPtr _obj - return () - --- method FileChooser::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -fileChooserUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_unselect_all _obj' - touchManagedPtr _obj - return () - --- method FileChooser::unselect_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FileChooser::unselect_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -fileChooserUnselectFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- stringToCString filename - gtk_file_chooser_unselect_filename _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - --- method FileChooser::unselect_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -fileChooserUnselectUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - gtk_file_chooser_unselect_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - - 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,29 +0,0 @@ -module GI.Gtk.Interfaces.FileChooser where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.Interfaces.FontChooser - ( - --- * Exported types - FontChooser(..) , - noFontChooser , - FontChooserK , - toFontChooser , - - - -- * Methods --- ** fontChooserGetFont - fontChooserGetFont , - - --- ** fontChooserGetFontDesc - fontChooserGetFontDesc , - - --- ** fontChooserGetFontFace - fontChooserGetFontFace , - - --- ** fontChooserGetFontFamily - fontChooserGetFontFamily , - - --- ** fontChooserGetFontSize - fontChooserGetFontSize , - - --- ** fontChooserGetPreviewText - fontChooserGetPreviewText , - - --- ** fontChooserGetShowPreviewEntry - fontChooserGetShowPreviewEntry , - - --- ** fontChooserSetFilterFunc - fontChooserSetFilterFunc , - - --- ** fontChooserSetFont - fontChooserSetFont , - - --- ** fontChooserSetFontDesc - fontChooserSetFontDesc , - - --- ** fontChooserSetPreviewText - fontChooserSetPreviewText , - - --- ** fontChooserSetShowPreviewEntry - fontChooserSetShowPreviewEntry , - - - - - -- * Properties --- ** Font - FontChooserFontPropertyInfo , - constructFontChooserFont , - getFontChooserFont , - setFontChooserFont , - - --- ** FontDesc - FontChooserFontDescPropertyInfo , - constructFontChooserFontDesc , - getFontChooserFontDesc , - setFontChooserFontDesc , - - --- ** PreviewText - FontChooserPreviewTextPropertyInfo , - constructFontChooserPreviewText , - getFontChooserPreviewText , - setFontChooserPreviewText , - - --- ** ShowPreviewEntry - FontChooserShowPreviewEntryPropertyInfo , - constructFontChooserShowPreviewEntry , - getFontChooserShowPreviewEntry , - setFontChooserShowPreviewEntry , - - - - - -- * Signals --- ** FontActivated - FontChooserFontActivatedCallback , - FontChooserFontActivatedCallbackC , - FontChooserFontActivatedSignalInfo , - afterFontChooserFontActivated , - fontChooserFontActivatedCallbackWrapper , - fontChooserFontActivatedClosure , - mkFontChooserFontActivatedCallback , - noFontChooserFontActivatedCallback , - onFontChooserFontActivated , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m T.Text -getFontChooserFont obj = liftIO $ getObjectPropertyString obj "font" - -setFontChooserFont :: (MonadIO m, FontChooserK o) => o -> T.Text -> m () -setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" val - -constructFontChooserFont :: T.Text -> IO ([Char], GValue) -constructFontChooserFont val = constructObjectPropertyString "font" 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 = T.Text - type AttrLabel FontChooserFontPropertyInfo = "FontChooser::font" - attrGet _ = getFontChooserFont - attrSet _ = setFontChooserFont - attrConstruct _ = constructFontChooserFont - --- VVV Prop "font-desc" - -- Type: TInterface "Pango" "FontDescription" - -- Flags: [PropertyReadable,PropertyWritable] - -getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m 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" val - -constructFontChooserFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" 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 = Pango.FontDescription - type AttrLabel FontChooserFontDescPropertyInfo = "FontChooser::font-desc" - attrGet _ = getFontChooserFontDesc - attrSet _ = setFontChooserFontDesc - attrConstruct _ = constructFontChooserFontDesc - --- VVV Prop "preview-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m 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" val - -constructFontChooserPreviewText :: T.Text -> IO ([Char], GValue) -constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" 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 = T.Text - type AttrLabel FontChooserPreviewTextPropertyInfo = "FontChooser::preview-text" - attrGet _ = getFontChooserPreviewText - attrSet _ = setFontChooserPreviewText - attrConstruct _ = constructFontChooserPreviewText - --- VVV Prop "show-preview-entry" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FontChooser::show-preview-entry" - attrGet _ = getFontChooserShowPreviewEntry - attrSet _ = setFontChooserShowPreviewEntry - attrConstruct _ = constructFontChooserShowPreviewEntry - -type instance AttributeList FontChooser = FontChooserAttributeList -type FontChooserAttributeList = ('[ '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo)] :: [(Symbol, *)]) - -data FontChooserFontActivatedSignalInfo -instance SignalInfo FontChooserFontActivatedSignalInfo where - type HaskellCallbackType FontChooserFontActivatedSignalInfo = FontChooserFontActivatedCallback - connectSignal _ = connectFontChooserFontActivated - -type instance SignalList FontChooser = FontChooserSignalList -type FontChooserSignalList = ('[ '("font-activated", FontChooserFontActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontChooser::get_font_desc --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontChooser::get_font_face --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontChooser::get_font_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontChooser::get_font_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -fontChooserGetFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_chooser_get_font_size _obj' - touchManagedPtr _obj - return result - --- method FontChooser::get_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontChooser::get_show_preview_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontChooser::set_filter_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "FontFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -fontChooserSetFilterFunc :: - (MonadIO m, FontChooserK a) => - a -> -- _obj - Maybe (FontFilterFunc) -> -- filter - m () -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 user_data = castFunPtrToPtr maybeFilter - let destroy = safeFreeFunPtrPtr - gtk_font_chooser_set_filter_func _obj' maybeFilter user_data destroy - touchManagedPtr _obj - return () - --- method FontChooser::set_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -fontChooserSetFont _obj fontname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - fontname' <- textToCString fontname - gtk_font_chooser_set_font _obj' fontname' - touchManagedPtr _obj - freeMem fontname' - return () - --- method FontChooser::set_font_desc --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- font_desc - m () -fontChooserSetFontDesc _obj font_desc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let font_desc' = unsafeManagedPtrGetPtr font_desc - gtk_font_chooser_set_font_desc _obj' font_desc' - touchManagedPtr _obj - touchManagedPtr font_desc - return () - --- method FontChooser::set_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method FontChooser::set_show_preview_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_preview_entry", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_preview_entry - m () -fontChooserSetShowPreviewEntry _obj show_preview_entry = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_preview_entry' = (fromIntegral . fromEnum) show_preview_entry - gtk_font_chooser_set_show_preview_entry _obj' show_preview_entry' - touchManagedPtr _obj - return () - - 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,18 +0,0 @@ -module GI.Gtk.Interfaces.FontChooser where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,157 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - orientableGetOrientation , - - --- ** orientableSetOrientation - orientableSetOrientation , - - - - - -- * Properties --- ** Orientation - OrientableOrientationPropertyInfo , - constructOrientableOrientation , - getOrientableOrientation , - setOrientableOrientation , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface Orientable - -newtype Orientable = Orientable (ForeignPtr Orientable) -noOrientable :: Maybe Orientable -noOrientable = Nothing - --- VVV Prop "orientation" - -- Type: TInterface "Gtk" "Orientation" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Orientable::orientation" - attrGet _ = getOrientableOrientation - attrSet _ = setOrientableOrientation - attrConstruct _ = constructOrientableOrientation - -type instance AttributeList Orientable = OrientableAttributeList -type OrientableAttributeList = ('[ '("orientation", OrientableOrientationPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Orientable = OrientableSignalList -type OrientableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -orientableGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_orientable_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Orientable::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Orientable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -orientableSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_orientable_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Interfaces.Orientable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Orientable = Orientable (ForeignPtr Orientable) -data OrientableOrientationPropertyInfo -instance GObject Orientable where -class GObject o => OrientableK o -instance (GObject o, IsDescendantOf Orientable o) => OrientableK o 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,277 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - printOperationPreviewEndPreview , - - --- ** printOperationPreviewIsSelected - printOperationPreviewIsSelected , - - --- ** printOperationPreviewRenderPage - printOperationPreviewRenderPage , - - - - - -- * Signals --- ** GotPageSize - PrintOperationPreviewGotPageSizeCallback, - PrintOperationPreviewGotPageSizeCallbackC, - PrintOperationPreviewGotPageSizeSignalInfo, - afterPrintOperationPreviewGotPageSize , - mkPrintOperationPreviewGotPageSizeCallback, - noPrintOperationPreviewGotPageSizeCallback, - onPrintOperationPreviewGotPageSize , - printOperationPreviewGotPageSizeCallbackWrapper, - printOperationPreviewGotPageSizeClosure , - - --- ** Ready - PrintOperationPreviewReadyCallback , - PrintOperationPreviewReadyCallbackC , - PrintOperationPreviewReadySignalInfo , - afterPrintOperationPreviewReady , - mkPrintOperationPreviewReadyCallback , - noPrintOperationPreviewReadyCallback , - onPrintOperationPreviewReady , - printOperationPreviewReadyCallbackWrapper, - printOperationPreviewReadyClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface PrintOperationPreview - -newtype PrintOperationPreview = PrintOperationPreview (ForeignPtr PrintOperationPreview) -noPrintOperationPreview :: Maybe PrintOperationPreview -noPrintOperationPreview = Nothing - --- 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 page_setup _ = do - context' <- (newObject PrintContext) context - page_setup' <- (newObject PageSetup) page_setup - _cb context' page_setup' - -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 = ('[ '("got-page-size", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printOperationPreviewEndPreview _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_preview_end_preview _obj' - touchManagedPtr _obj - return () - --- method PrintOperationPreview::is_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -printOperationPreviewIsSelected :: - (MonadIO m, PrintOperationPreviewK a) => - a -> -- _obj - Int32 -> -- page_nr - m Bool -printOperationPreviewIsSelected _obj page_nr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_preview_is_selected _obj' page_nr - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintOperationPreview::render_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperationPreview", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_nr", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_preview_render_page" gtk_print_operation_preview_render_page :: - Ptr PrintOperationPreview -> -- _obj : TInterface "Gtk" "PrintOperationPreview" - Int32 -> -- page_nr : TBasicType TInt32 - IO () - - -printOperationPreviewRenderPage :: - (MonadIO m, PrintOperationPreviewK a) => - a -> -- _obj - Int32 -> -- page_nr - m () -printOperationPreviewRenderPage _obj page_nr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_preview_render_page _obj' page_nr - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Interfaces.PrintOperationPreview where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1448 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - recentChooserAddFilter , - - --- ** recentChooserGetCurrentItem - recentChooserGetCurrentItem , - - --- ** recentChooserGetCurrentUri - recentChooserGetCurrentUri , - - --- ** recentChooserGetFilter - recentChooserGetFilter , - - --- ** recentChooserGetItems - recentChooserGetItems , - - --- ** recentChooserGetLimit - recentChooserGetLimit , - - --- ** recentChooserGetLocalOnly - recentChooserGetLocalOnly , - - --- ** recentChooserGetSelectMultiple - recentChooserGetSelectMultiple , - - --- ** recentChooserGetShowIcons - recentChooserGetShowIcons , - - --- ** recentChooserGetShowNotFound - recentChooserGetShowNotFound , - - --- ** recentChooserGetShowPrivate - recentChooserGetShowPrivate , - - --- ** recentChooserGetShowTips - recentChooserGetShowTips , - - --- ** recentChooserGetSortType - recentChooserGetSortType , - - --- ** recentChooserGetUris - recentChooserGetUris , - - --- ** recentChooserListFilters - recentChooserListFilters , - - --- ** recentChooserRemoveFilter - recentChooserRemoveFilter , - - --- ** recentChooserSelectAll - recentChooserSelectAll , - - --- ** recentChooserSelectUri - recentChooserSelectUri , - - --- ** recentChooserSetCurrentUri - recentChooserSetCurrentUri , - - --- ** recentChooserSetFilter - recentChooserSetFilter , - - --- ** recentChooserSetLimit - recentChooserSetLimit , - - --- ** recentChooserSetLocalOnly - recentChooserSetLocalOnly , - - --- ** recentChooserSetSelectMultiple - recentChooserSetSelectMultiple , - - --- ** recentChooserSetShowIcons - recentChooserSetShowIcons , - - --- ** recentChooserSetShowNotFound - recentChooserSetShowNotFound , - - --- ** recentChooserSetShowPrivate - recentChooserSetShowPrivate , - - --- ** recentChooserSetShowTips - recentChooserSetShowTips , - - --- ** recentChooserSetSortFunc - recentChooserSetSortFunc , - - --- ** recentChooserSetSortType - recentChooserSetSortType , - - --- ** recentChooserUnselectAll - recentChooserUnselectAll , - - --- ** recentChooserUnselectUri - recentChooserUnselectUri , - - - - - -- * Properties --- ** Filter - RecentChooserFilterPropertyInfo , - constructRecentChooserFilter , - getRecentChooserFilter , - setRecentChooserFilter , - - --- ** Limit - RecentChooserLimitPropertyInfo , - constructRecentChooserLimit , - getRecentChooserLimit , - setRecentChooserLimit , - - --- ** LocalOnly - RecentChooserLocalOnlyPropertyInfo , - constructRecentChooserLocalOnly , - getRecentChooserLocalOnly , - setRecentChooserLocalOnly , - - --- ** RecentManager - RecentChooserRecentManagerPropertyInfo , - constructRecentChooserRecentManager , - - --- ** SelectMultiple - RecentChooserSelectMultiplePropertyInfo , - constructRecentChooserSelectMultiple , - getRecentChooserSelectMultiple , - setRecentChooserSelectMultiple , - - --- ** ShowIcons - RecentChooserShowIconsPropertyInfo , - constructRecentChooserShowIcons , - getRecentChooserShowIcons , - setRecentChooserShowIcons , - - --- ** ShowNotFound - RecentChooserShowNotFoundPropertyInfo , - constructRecentChooserShowNotFound , - getRecentChooserShowNotFound , - setRecentChooserShowNotFound , - - --- ** ShowPrivate - RecentChooserShowPrivatePropertyInfo , - constructRecentChooserShowPrivate , - getRecentChooserShowPrivate , - setRecentChooserShowPrivate , - - --- ** ShowTips - RecentChooserShowTipsPropertyInfo , - constructRecentChooserShowTips , - getRecentChooserShowTips , - setRecentChooserShowTips , - - --- ** SortType - RecentChooserSortTypePropertyInfo , - constructRecentChooserSortType , - getRecentChooserSortType , - setRecentChooserSortType , - - - - - -- * Signals --- ** ItemActivated - RecentChooserItemActivatedCallback , - RecentChooserItemActivatedCallbackC , - RecentChooserItemActivatedSignalInfo , - afterRecentChooserItemActivated , - mkRecentChooserItemActivatedCallback , - noRecentChooserItemActivatedCallback , - onRecentChooserItemActivated , - recentChooserItemActivatedCallbackWrapper, - recentChooserItemActivatedClosure , - - --- ** SelectionChanged - RecentChooserSelectionChangedCallback , - RecentChooserSelectionChangedCallbackC , - RecentChooserSelectionChangedSignalInfo , - afterRecentChooserSelectionChanged , - mkRecentChooserSelectionChangedCallback , - noRecentChooserSelectionChangedCallback , - onRecentChooserSelectionChanged , - recentChooserSelectionChangedCallbackWrapper, - recentChooserSelectionChangedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- interface RecentChooser - -newtype RecentChooser = RecentChooser (ForeignPtr RecentChooser) -noRecentChooser :: Maybe RecentChooser -noRecentChooser = Nothing - --- 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] - -getRecentChooserFilter :: (MonadIO m, RecentChooserK o) => o -> m RecentFilter -getRecentChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" RecentFilter - -setRecentChooserFilter :: (MonadIO m, RecentChooserK o, RecentFilterK a) => o -> a -> m () -setRecentChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val - -constructRecentChooserFilter :: (RecentFilterK a) => a -> IO ([Char], GValue) -constructRecentChooserFilter val = constructObjectPropertyObject "filter" val - -data RecentChooserFilterPropertyInfo -instance AttrInfo RecentChooserFilterPropertyInfo where - type AttrAllowedOps RecentChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentChooserFilterPropertyInfo = RecentFilterK - type AttrBaseTypeConstraint RecentChooserFilterPropertyInfo = RecentChooserK - type AttrGetType RecentChooserFilterPropertyInfo = RecentFilter - type AttrLabel RecentChooserFilterPropertyInfo = "RecentChooser::filter" - attrGet _ = getRecentChooserFilter - attrSet _ = setRecentChooserFilter - attrConstruct _ = constructRecentChooserFilter - --- VVV Prop "limit" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> m Int32 -getRecentChooserLimit obj = liftIO $ getObjectPropertyCInt obj "limit" - -setRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> Int32 -> m () -setRecentChooserLimit obj val = liftIO $ setObjectPropertyCInt obj "limit" val - -constructRecentChooserLimit :: Int32 -> IO ([Char], GValue) -constructRecentChooserLimit val = constructObjectPropertyCInt "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 = "RecentChooser::limit" - attrGet _ = getRecentChooserLimit - attrSet _ = setRecentChooserLimit - attrConstruct _ = constructRecentChooserLimit - --- VVV Prop "local-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentChooser::local-only" - attrGet _ = getRecentChooserLocalOnly - attrSet _ = setRecentChooserLocalOnly - attrConstruct _ = constructRecentChooserLocalOnly - --- VVV Prop "recent-manager" - -- Type: TInterface "Gtk" "RecentManager" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -constructRecentChooserRecentManager :: (RecentManagerK a) => a -> IO ([Char], GValue) -constructRecentChooserRecentManager val = constructObjectPropertyObject "recent-manager" val - -data RecentChooserRecentManagerPropertyInfo -instance AttrInfo RecentChooserRecentManagerPropertyInfo where - type AttrAllowedOps RecentChooserRecentManagerPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentManagerK - type AttrBaseTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentChooserK - type AttrGetType RecentChooserRecentManagerPropertyInfo = () - type AttrLabel RecentChooserRecentManagerPropertyInfo = "RecentChooser::recent-manager" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructRecentChooserRecentManager - --- VVV Prop "select-multiple" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentChooser::select-multiple" - attrGet _ = getRecentChooserSelectMultiple - attrSet _ = setRecentChooserSelectMultiple - attrConstruct _ = constructRecentChooserSelectMultiple - --- VVV Prop "show-icons" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentChooser::show-icons" - attrGet _ = getRecentChooserShowIcons - attrSet _ = setRecentChooserShowIcons - attrConstruct _ = constructRecentChooserShowIcons - --- VVV Prop "show-not-found" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentChooser::show-not-found" - attrGet _ = getRecentChooserShowNotFound - attrSet _ = setRecentChooserShowNotFound - attrConstruct _ = constructRecentChooserShowNotFound - --- VVV Prop "show-private" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentChooser::show-private" - attrGet _ = getRecentChooserShowPrivate - attrSet _ = setRecentChooserShowPrivate - attrConstruct _ = constructRecentChooserShowPrivate - --- VVV Prop "show-tips" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentChooser::show-tips" - attrGet _ = getRecentChooserShowTips - attrSet _ = setRecentChooserShowTips - attrConstruct _ = constructRecentChooserShowTips - --- VVV Prop "sort-type" - -- Type: TInterface "Gtk" "RecentSortType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentChooser::sort-type" - attrGet _ = getRecentChooserSortType - attrSet _ = setRecentChooserSortType - attrConstruct _ = constructRecentChooserSortType - -type instance AttributeList RecentChooser = RecentChooserAttributeList -type RecentChooserAttributeList = ('[ '("filter", RecentChooserFilterPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("item-activated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method RecentChooser::get_current_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentChooser::get_current_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentChooser::get_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentChooser::get_items --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -recentChooserGetItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_items _obj' - checkUnexpectedReturnNULL "gtk_recent_chooser_get_items" result - result' <- unpackGList result - result'' <- mapM (wrapBoxed RecentInfo) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method RecentChooser::get_limit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -recentChooserGetLimit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_limit _obj' - touchManagedPtr _obj - return result - --- method RecentChooser::get_local_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentChooserGetLocalOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_local_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentChooser::get_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentChooserGetSelectMultiple _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_select_multiple _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentChooser::get_show_icons --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentChooserGetShowIcons _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_show_icons _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentChooser::get_show_not_found --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentChooser::get_show_private --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentChooserGetShowPrivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_show_private _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentChooser::get_show_tips --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentChooserGetShowTips _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_get_show_tips _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentChooser::get_sort_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentChooser::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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_') - --- method RecentChooser::list_filters --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -recentChooserListFilters _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_chooser_list_filters _obj' - checkUnexpectedReturnNULL "gtk_recent_chooser_list_filters" result - result' <- unpackGSList result - result'' <- mapM (newObject RecentFilter) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method RecentChooser::remove_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method RecentChooser::select_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -recentChooserSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_chooser_select_all _obj' - touchManagedPtr _obj - return () - --- method RecentChooser::select_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method RecentChooser::set_current_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method RecentChooser::set_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method RecentChooser::set_limit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_chooser_set_limit" gtk_recent_chooser_set_limit :: - Ptr RecentChooser -> -- _obj : TInterface "Gtk" "RecentChooser" - Int32 -> -- limit : TBasicType TInt32 - IO () - - -recentChooserSetLimit :: - (MonadIO m, RecentChooserK a) => - a -> -- _obj - Int32 -> -- limit - m () -recentChooserSetLimit _obj limit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_chooser_set_limit _obj' limit - touchManagedPtr _obj - return () - --- method RecentChooser::set_local_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- local_only - m () -recentChooserSetLocalOnly _obj local_only = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let local_only' = (fromIntegral . fromEnum) local_only - gtk_recent_chooser_set_local_only _obj' local_only' - touchManagedPtr _obj - return () - --- method RecentChooser::set_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "select_multiple", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- select_multiple - m () -recentChooserSetSelectMultiple _obj select_multiple = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let select_multiple' = (fromIntegral . fromEnum) select_multiple - gtk_recent_chooser_set_select_multiple _obj' select_multiple' - touchManagedPtr _obj - return () - --- method RecentChooser::set_show_icons --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_icons", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_icons - m () -recentChooserSetShowIcons _obj show_icons = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_icons' = (fromIntegral . fromEnum) show_icons - gtk_recent_chooser_set_show_icons _obj' show_icons' - touchManagedPtr _obj - return () - --- method RecentChooser::set_show_not_found --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_not_found", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_not_found - m () -recentChooserSetShowNotFound _obj show_not_found = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_not_found' = (fromIntegral . fromEnum) show_not_found - gtk_recent_chooser_set_show_not_found _obj' show_not_found' - touchManagedPtr _obj - return () - --- method RecentChooser::set_show_private --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_private - m () -recentChooserSetShowPrivate _obj show_private = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_private' = (fromIntegral . fromEnum) show_private - gtk_recent_chooser_set_show_private _obj' show_private' - touchManagedPtr _obj - return () - --- method RecentChooser::set_show_tips --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tips", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_tips - m () -recentChooserSetShowTips _obj show_tips = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_tips' = (fromIntegral . fromEnum) show_tips - gtk_recent_chooser_set_show_tips _obj' show_tips' - touchManagedPtr _obj - return () - --- method RecentChooser::set_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "sort_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "RecentSortFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -recentChooserSetSortFunc :: - (MonadIO m, RecentChooserK a) => - a -> -- _obj - RecentSortFunc -> -- sort_func - m () -recentChooserSetSortFunc _obj sort_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sort_func' <- mkRecentSortFunc (recentSortFuncWrapper Nothing sort_func) - let sort_data = castFunPtrToPtr sort_func' - let data_destroy = safeFreeFunPtrPtr - gtk_recent_chooser_set_sort_func _obj' sort_func' sort_data data_destroy - touchManagedPtr _obj - return () - --- method RecentChooser::set_sort_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_type", argType = TInterface "Gtk" "RecentSortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- sort_type - m () -recentChooserSetSortType _obj sort_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sort_type' = (fromIntegral . fromEnum) sort_type - gtk_recent_chooser_set_sort_type _obj' sort_type' - touchManagedPtr _obj - return () - --- method RecentChooser::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -recentChooserUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_chooser_unselect_all _obj' - touchManagedPtr _obj - return () - --- method RecentChooser::unselect_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -recentChooserUnselectUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - gtk_recent_chooser_unselect_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - - 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,25 +0,0 @@ -module GI.Gtk.Interfaces.RecentChooser where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,475 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - scrollableGetBorder , - - --- ** scrollableGetHadjustment - scrollableGetHadjustment , - - --- ** scrollableGetHscrollPolicy - scrollableGetHscrollPolicy , - - --- ** scrollableGetVadjustment - scrollableGetVadjustment , - - --- ** scrollableGetVscrollPolicy - scrollableGetVscrollPolicy , - - --- ** scrollableSetHadjustment - scrollableSetHadjustment , - - --- ** scrollableSetHscrollPolicy - scrollableSetHscrollPolicy , - - --- ** scrollableSetVadjustment - scrollableSetVadjustment , - - --- ** scrollableSetVscrollPolicy - scrollableSetVscrollPolicy , - - - - - -- * Properties --- ** Hadjustment - ScrollableHadjustmentPropertyInfo , - constructScrollableHadjustment , - getScrollableHadjustment , - setScrollableHadjustment , - - --- ** HscrollPolicy - ScrollableHscrollPolicyPropertyInfo , - constructScrollableHscrollPolicy , - getScrollableHscrollPolicy , - setScrollableHscrollPolicy , - - --- ** Vadjustment - ScrollableVadjustmentPropertyInfo , - constructScrollableVadjustment , - getScrollableVadjustment , - setScrollableVadjustment , - - --- ** VscrollPolicy - ScrollableVscrollPolicyPropertyInfo , - constructScrollableVscrollPolicy , - getScrollableVscrollPolicy , - setScrollableVscrollPolicy , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface Scrollable - -newtype Scrollable = Scrollable (ForeignPtr Scrollable) -noScrollable :: Maybe Scrollable -noScrollable = Nothing - --- VVV Prop "hadjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getScrollableHadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment -getScrollableHadjustment obj = liftIO $ getObjectPropertyObject obj "hadjustment" Adjustment - -setScrollableHadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m () -setScrollableHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" val - -constructScrollableHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrollableHadjustment val = constructObjectPropertyObject "hadjustment" val - -data ScrollableHadjustmentPropertyInfo -instance AttrInfo ScrollableHadjustmentPropertyInfo where - type AttrAllowedOps ScrollableHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrollableHadjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint ScrollableHadjustmentPropertyInfo = ScrollableK - type AttrGetType ScrollableHadjustmentPropertyInfo = Adjustment - type AttrLabel ScrollableHadjustmentPropertyInfo = "Scrollable::hadjustment" - attrGet _ = getScrollableHadjustment - attrSet _ = setScrollableHadjustment - attrConstruct _ = constructScrollableHadjustment - --- VVV Prop "hscroll-policy" - -- Type: TInterface "Gtk" "ScrollablePolicy" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Scrollable::hscroll-policy" - attrGet _ = getScrollableHscrollPolicy - attrSet _ = setScrollableHscrollPolicy - attrConstruct _ = constructScrollableHscrollPolicy - --- VVV Prop "vadjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getScrollableVadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment -getScrollableVadjustment obj = liftIO $ getObjectPropertyObject obj "vadjustment" Adjustment - -setScrollableVadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m () -setScrollableVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" val - -constructScrollableVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrollableVadjustment val = constructObjectPropertyObject "vadjustment" val - -data ScrollableVadjustmentPropertyInfo -instance AttrInfo ScrollableVadjustmentPropertyInfo where - type AttrAllowedOps ScrollableVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScrollableVadjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint ScrollableVadjustmentPropertyInfo = ScrollableK - type AttrGetType ScrollableVadjustmentPropertyInfo = Adjustment - type AttrLabel ScrollableVadjustmentPropertyInfo = "Scrollable::vadjustment" - attrGet _ = getScrollableVadjustment - attrSet _ = setScrollableVadjustment - attrConstruct _ = constructScrollableVadjustment - --- VVV Prop "vscroll-policy" - -- Type: TInterface "Gtk" "ScrollablePolicy" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Scrollable::vscroll-policy" - attrGet _ = getScrollableVscrollPolicy - attrSet _ = setScrollableVscrollPolicy - attrConstruct _ = constructScrollableVscrollPolicy - -type instance AttributeList Scrollable = ScrollableAttributeList -type ScrollableAttributeList = ('[ '("hadjustment", ScrollableHadjustmentPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Scrollable = ScrollableSignalList -type ScrollableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Scrollable::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Scrollable::get_hscroll_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scrollableGetHscrollPolicy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrollable_get_hscroll_policy _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Scrollable::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Scrollable::get_vscroll_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scrollableGetVscrollPolicy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrollable_get_vscroll_policy _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Scrollable::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Scrollable::set_hscroll_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -scrollableSetHscrollPolicy _obj policy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let policy' = (fromIntegral . fromEnum) policy - gtk_scrollable_set_hscroll_policy _obj' policy' - touchManagedPtr _obj - return () - --- method Scrollable::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Scrollable::set_vscroll_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scrollable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "ScrollablePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -scrollableSetVscrollPolicy _obj policy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let policy' = (fromIntegral . fromEnum) policy - gtk_scrollable_set_vscroll_policy _obj' policy' - touchManagedPtr _obj - return () - - 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,17 +0,0 @@ -module GI.Gtk.Interfaces.Scrollable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.Interfaces.StyleProvider - ( - --- * Exported types - StyleProvider(..) , - noStyleProvider , - StyleProviderK , - - - -- * Methods --- ** styleProviderGetIconFactory - styleProviderGetIconFactory , - - --- ** styleProviderGetStyle - styleProviderGetStyle , - - --- ** styleProviderGetStyleProperty - styleProviderGetStyleProperty , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - --- interface StyleProvider - -newtype StyleProvider = StyleProvider (ForeignPtr StyleProvider) -noStyleProvider :: Maybe StyleProvider -noStyleProvider = Nothing - -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 {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StyleProvider::get_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StyleProvider::get_style_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - - 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,12 +0,0 @@ -module GI.Gtk.Interfaces.StyleProvider where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StyleProvider = StyleProvider (ForeignPtr StyleProvider) -class ForeignPtrNewtype a => StyleProviderK a -instance (ForeignPtrNewtype o, IsDescendantOf StyleProvider o) => StyleProviderK o 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,324 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - toolShellGetEllipsizeMode , - - --- ** toolShellGetIconSize - toolShellGetIconSize , - - --- ** toolShellGetOrientation - toolShellGetOrientation , - - --- ** toolShellGetReliefStyle - toolShellGetReliefStyle , - - --- ** toolShellGetStyle - toolShellGetStyle , - - --- ** toolShellGetTextAlignment - toolShellGetTextAlignment , - - --- ** toolShellGetTextOrientation - toolShellGetTextOrientation , - - --- ** toolShellGetTextSizeGroup - toolShellGetTextSizeGroup , - - --- ** toolShellRebuildMenu - toolShellRebuildMenu , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ToolShell = ToolShellAttributeList -type ToolShellAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ToolShell = ToolShellSignalList -type ToolShellSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolShell::get_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -toolShellGetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_icon_size _obj' - touchManagedPtr _obj - return result - --- method ToolShell::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolShellGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method ToolShell::get_relief_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolShell::get_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolShellGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method ToolShell::get_text_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolShellGetTextAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_shell_get_text_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method ToolShell::get_text_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolShell::get_text_size_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolShell::rebuild_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolShellRebuildMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_shell_rebuild_menu _obj' - touchManagedPtr _obj - return () - - 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,13 +0,0 @@ -module GI.Gtk.Interfaces.ToolShell where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ToolShell = ToolShell (ForeignPtr ToolShell) -instance GObject ToolShell where -class GObject o => ToolShellK o -instance (GObject o, IsDescendantOf ToolShell o) => ToolShellK o 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,123 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Interfaces.TreeDragDest - ( - --- * Exported types - TreeDragDest(..) , - noTreeDragDest , - TreeDragDestK , - - - -- * Methods --- ** treeDragDestDragDataReceived - treeDragDestDragDataReceived , - - --- ** treeDragDestRowDropPossible - treeDragDestRowDropPossible , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - --- interface TreeDragDest - -newtype TreeDragDest = TreeDragDest (ForeignPtr TreeDragDest) -noTreeDragDest :: Maybe TreeDragDest -noTreeDragDest = Nothing - -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 {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- selection_data - m Bool -treeDragDestDragDataReceived _obj dest selection_data = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest' = unsafeManagedPtrGetPtr dest - let selection_data' = unsafeManagedPtrGetPtr selection_data - result <- gtk_tree_drag_dest_drag_data_received _obj' dest' selection_data' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr dest - touchManagedPtr selection_data - return result' - --- method TreeDragDest::row_drop_possible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragDest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- dest_path - SelectionData -> -- selection_data - m Bool -treeDragDestRowDropPossible _obj dest_path selection_data = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest_path' = unsafeManagedPtrGetPtr dest_path - let selection_data' = unsafeManagedPtrGetPtr selection_data - result <- gtk_tree_drag_dest_row_drop_possible _obj' dest_path' selection_data' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr dest_path - touchManagedPtr selection_data - return result' - - 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,12 +0,0 @@ -module GI.Gtk.Interfaces.TreeDragDest where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TreeDragDest = TreeDragDest (ForeignPtr TreeDragDest) -class ForeignPtrNewtype a => TreeDragDestK a -instance (ForeignPtrNewtype o, IsDescendantOf TreeDragDest o) => TreeDragDestK o 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,152 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treeDragSourceDragDataDelete , - - --- ** treeDragSourceDragDataGet - treeDragSourceDragDataGet , - - --- ** treeDragSourceRowDraggable - treeDragSourceRowDraggable , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - --- interface TreeDragSource - -newtype TreeDragSource = TreeDragSource (ForeignPtr TreeDragSource) -noTreeDragSource :: Maybe TreeDragSource -noTreeDragSource = Nothing - -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 {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeDragSource::drag_data_get --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection_data", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- selection_data - m Bool -treeDragSourceDragDataGet _obj path selection_data = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let selection_data' = unsafeManagedPtrGetPtr selection_data - result <- gtk_tree_drag_source_drag_data_get _obj' path' selection_data' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - touchManagedPtr selection_data - return result' - --- method TreeDragSource::row_draggable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeDragSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,12 +0,0 @@ -module GI.Gtk.Interfaces.TreeDragSource where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TreeDragSource = TreeDragSource (ForeignPtr TreeDragSource) -class ForeignPtrNewtype a => TreeDragSourceK a -instance (ForeignPtrNewtype o, IsDescendantOf TreeDragSource o) => TreeDragSourceK o 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,1217 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treeModelFilterNew , - - --- ** treeModelForeach - treeModelForeach , - - --- ** treeModelGetColumnType - treeModelGetColumnType , - - --- ** treeModelGetFlags - treeModelGetFlags , - - --- ** treeModelGetIter - treeModelGetIter , - - --- ** treeModelGetIterFirst - treeModelGetIterFirst , - - --- ** treeModelGetIterFromString - treeModelGetIterFromString , - - --- ** treeModelGetNColumns - treeModelGetNColumns , - - --- ** treeModelGetPath - treeModelGetPath , - - --- ** treeModelGetStringFromIter - treeModelGetStringFromIter , - - --- ** treeModelGetValue - treeModelGetValue , - - --- ** treeModelIterChildren - treeModelIterChildren , - - --- ** treeModelIterHasChild - treeModelIterHasChild , - - --- ** treeModelIterNChildren - treeModelIterNChildren , - - --- ** treeModelIterNext - treeModelIterNext , - - --- ** treeModelIterNthChild - treeModelIterNthChild , - - --- ** treeModelIterParent - treeModelIterParent , - - --- ** treeModelIterPrevious - treeModelIterPrevious , - - --- ** treeModelRefNode - treeModelRefNode , - - --- ** treeModelRowChanged - treeModelRowChanged , - - --- ** treeModelRowDeleted - treeModelRowDeleted , - - --- ** treeModelRowHasChildToggled - treeModelRowHasChildToggled , - - --- ** treeModelRowInserted - treeModelRowInserted , - - --- ** treeModelRowsReordered - treeModelRowsReordered , - - --- ** treeModelSortNewWithModel - treeModelSortNewWithModel , - - --- ** treeModelUnrefNode - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject - --- interface TreeModel - -newtype TreeModel = TreeModel (ForeignPtr TreeModel) -noTreeModel :: Maybe TreeModel -noTreeModel = Nothing - --- 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), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModel::foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -treeModelForeach :: - (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeModelForeachFunc -> -- func - m () -treeModelForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkTreeModelForeachFunc (treeModelForeachFuncWrapper Nothing func) - let user_data = nullPtr - gtk_tree_model_foreach _obj' func' user_data - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - --- method TreeModel::get_column_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType 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 TInt32 - IO CGType - - -treeModelGetColumnType :: - (MonadIO m, TreeModelK a) => - a -> -- _obj - Int32 -> -- index_ - m GType -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' - --- method TreeModel::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -treeModelGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method TreeModel::get_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - --- method TreeModel::get_iter_first --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - --- method TreeModel::get_iter_from_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- path_string - m (Bool,TreeIter) -treeModelGetIterFromString _obj path_string = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - path_string' <- textToCString path_string - result <- gtk_tree_model_get_iter_from_string _obj' iter path_string' - let result' = (/= 0) result - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - freeMem path_string' - return (result', iter') - --- method TreeModel::get_n_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeModelGetNColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_model_get_n_columns _obj' - touchManagedPtr _obj - return result - --- method TreeModel::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModel::get_string_from_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModel::get_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -treeModelGetValue :: - (MonadIO m, TreeModelK a) => - a -> -- _obj - TreeIter -> -- iter - Int32 -> -- column - m (GValue) -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' - --- method TreeModel::iter_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - --- method TreeModel::iter_has_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModel::iter_n_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method TreeModel::iter_next --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModel::iter_nth_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -treeModelIterNthChild :: - (MonadIO m, TreeModelK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - Int32 -> -- n - m (Bool,TreeIter) -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') - --- method TreeModel::iter_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - --- method TreeModel::iter_previous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModel::ref_node --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeModel::row_changed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeModel::row_deleted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeModel::row_has_child_toggled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeModel::row_inserted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeModel::rows_reordered --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32) - Int32 -> -- length : TBasicType TInt32 - IO () - - -treeModelRowsReordered :: - (MonadIO m, TreeModelK a) => - a -> -- _obj - TreePath -> -- path - Maybe (TreeIter) -> -- iter - [Int32] -> -- new_order - m () -treeModelRowsReordered _obj path iter new_order = liftIO $ do - let length_ = fromIntegral $ length new_order - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeIter <- case iter of - Nothing -> return nullPtr - Just jIter -> do - let jIter' = unsafeManagedPtrGetPtr jIter - return jIter' - new_order' <- packStorableArray new_order - gtk_tree_model_rows_reordered_with_length _obj' path' maybeIter new_order' length_ - touchManagedPtr _obj - touchManagedPtr path - whenJust iter touchManagedPtr - freeMem new_order' - return () - --- method TreeModel::sort_new_with_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModel::unref_node --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,17 +0,0 @@ -module GI.Gtk.Interfaces.TreeModel where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,322 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Interfaces.TreeSortable - ( - --- * Exported types - TreeSortable(..) , - noTreeSortable , - TreeSortableK , - toTreeSortable , - - - -- * Methods --- ** treeSortableGetSortColumnId - treeSortableGetSortColumnId , - - --- ** treeSortableHasDefaultSortFunc - treeSortableHasDefaultSortFunc , - - --- ** treeSortableSetDefaultSortFunc - treeSortableSetDefaultSortFunc , - - --- ** treeSortableSetSortColumnId - treeSortableSetSortColumnId , - - --- ** treeSortableSetSortFunc - treeSortableSetSortFunc , - - --- ** treeSortableSortColumnChanged - treeSortableSortColumnChanged , - - - - - -- * Signals --- ** SortColumnChanged - TreeSortableSortColumnChangedCallback , - TreeSortableSortColumnChangedCallbackC , - TreeSortableSortColumnChangedSignalInfo , - afterTreeSortableSortColumnChanged , - mkTreeSortableSortColumnChangedCallback , - noTreeSortableSortColumnChangedCallback , - onTreeSortableSortColumnChanged , - treeSortableSortColumnChangedCallbackWrapper, - treeSortableSortColumnChangedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- interface TreeSortable - -newtype TreeSortable = TreeSortable (ForeignPtr TreeSortable) -noTreeSortable :: Maybe TreeSortable -noTreeSortable = Nothing - --- 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), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Ptr CUInt -> -- order : TInterface "Gtk" "SortType" - IO CInt - - -treeSortableGetSortColumnId :: - (MonadIO m, TreeSortableK a) => - a -> -- _obj - m (Bool,Int32,SortType) -treeSortableGetSortColumnId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sort_column_id <- allocMem :: IO (Ptr Int32) - order <- allocMem :: IO (Ptr CUInt) - result <- gtk_tree_sortable_get_sort_column_id _obj' sort_column_id order - let result' = (/= 0) result - sort_column_id' <- peek sort_column_id - order' <- peek order - let order'' = (toEnum . fromIntegral) order' - touchManagedPtr _obj - freeMem sort_column_id - freeMem order - return (result', sort_column_id', order'') - --- method TreeSortable::has_default_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeSortable::set_default_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeSortableSetDefaultSortFunc :: - (MonadIO m, TreeSortableK a) => - a -> -- _obj - TreeIterCompareFunc -> -- sort_func - m () -treeSortableSetDefaultSortFunc _obj sort_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sort_func' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sort_func) - let user_data = castFunPtrToPtr sort_func' - let destroy = safeFreeFunPtrPtr - gtk_tree_sortable_set_default_sort_func _obj' sort_func' user_data destroy - touchManagedPtr _obj - return () - --- method TreeSortable::set_sort_column_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CUInt -> -- order : TInterface "Gtk" "SortType" - IO () - - -treeSortableSetSortColumnId :: - (MonadIO m, TreeSortableK a) => - a -> -- _obj - Int32 -> -- sort_column_id - SortType -> -- order - m () -treeSortableSetSortColumnId _obj sort_column_id order = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let order' = (fromIntegral . fromEnum) order - gtk_tree_sortable_set_sort_column_id _obj' sort_column_id order' - touchManagedPtr _obj - return () - --- method TreeSortable::set_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "TreeIterCompareFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - FunPtr TreeIterCompareFuncC -> -- sort_func : TInterface "Gtk" "TreeIterCompareFunc" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeSortableSetSortFunc :: - (MonadIO m, TreeSortableK a) => - a -> -- _obj - Int32 -> -- sort_column_id - TreeIterCompareFunc -> -- sort_func - m () -treeSortableSetSortFunc _obj sort_column_id sort_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sort_func' <- mkTreeIterCompareFunc (treeIterCompareFuncWrapper Nothing sort_func) - let user_data = castFunPtrToPtr sort_func' - let destroy = safeFreeFunPtrPtr - gtk_tree_sortable_set_sort_func _obj' sort_column_id sort_func' user_data destroy - touchManagedPtr _obj - return () - --- method TreeSortable::sort_column_changed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSortable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeSortableSortColumnChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_sortable_sort_column_changed _obj' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Interfaces.TreeSortable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TreeSortable = TreeSortable (ForeignPtr TreeSortable) -data TreeSortableSortColumnChangedSignalInfo -instance GObject TreeSortable where -class GObject o => TreeSortableK o -instance (GObject o, IsDescendantOf TreeSortable o) => TreeSortableK o diff --git a/GI/Gtk/Objects.hs b/GI/Gtk/Objects.hs deleted file mode 100644 --- a/GI/Gtk/Objects.hs +++ /dev/null @@ -1,534 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - - 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,1619 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - aboutDialogAddCreditSection , - - --- ** aboutDialogGetArtists - aboutDialogGetArtists , - - --- ** aboutDialogGetAuthors - aboutDialogGetAuthors , - - --- ** aboutDialogGetComments - aboutDialogGetComments , - - --- ** aboutDialogGetCopyright - aboutDialogGetCopyright , - - --- ** aboutDialogGetDocumenters - aboutDialogGetDocumenters , - - --- ** aboutDialogGetLicense - aboutDialogGetLicense , - - --- ** aboutDialogGetLicenseType - aboutDialogGetLicenseType , - - --- ** aboutDialogGetLogo - aboutDialogGetLogo , - - --- ** aboutDialogGetLogoIconName - aboutDialogGetLogoIconName , - - --- ** aboutDialogGetProgramName - aboutDialogGetProgramName , - - --- ** aboutDialogGetTranslatorCredits - aboutDialogGetTranslatorCredits , - - --- ** aboutDialogGetVersion - aboutDialogGetVersion , - - --- ** aboutDialogGetWebsite - aboutDialogGetWebsite , - - --- ** aboutDialogGetWebsiteLabel - aboutDialogGetWebsiteLabel , - - --- ** aboutDialogGetWrapLicense - aboutDialogGetWrapLicense , - - --- ** aboutDialogNew - aboutDialogNew , - - --- ** aboutDialogSetArtists - aboutDialogSetArtists , - - --- ** aboutDialogSetAuthors - aboutDialogSetAuthors , - - --- ** aboutDialogSetComments - aboutDialogSetComments , - - --- ** aboutDialogSetCopyright - aboutDialogSetCopyright , - - --- ** aboutDialogSetDocumenters - aboutDialogSetDocumenters , - - --- ** aboutDialogSetLicense - aboutDialogSetLicense , - - --- ** aboutDialogSetLicenseType - aboutDialogSetLicenseType , - - --- ** aboutDialogSetLogo - aboutDialogSetLogo , - - --- ** aboutDialogSetLogoIconName - aboutDialogSetLogoIconName , - - --- ** aboutDialogSetProgramName - aboutDialogSetProgramName , - - --- ** aboutDialogSetTranslatorCredits - aboutDialogSetTranslatorCredits , - - --- ** aboutDialogSetVersion - aboutDialogSetVersion , - - --- ** aboutDialogSetWebsite - aboutDialogSetWebsite , - - --- ** aboutDialogSetWebsiteLabel - aboutDialogSetWebsiteLabel , - - --- ** aboutDialogSetWrapLicense - aboutDialogSetWrapLicense , - - - - - -- * Properties --- ** Artists - AboutDialogArtistsPropertyInfo , - constructAboutDialogArtists , - getAboutDialogArtists , - setAboutDialogArtists , - - --- ** Authors - AboutDialogAuthorsPropertyInfo , - constructAboutDialogAuthors , - getAboutDialogAuthors , - setAboutDialogAuthors , - - --- ** Comments - AboutDialogCommentsPropertyInfo , - constructAboutDialogComments , - getAboutDialogComments , - setAboutDialogComments , - - --- ** Copyright - AboutDialogCopyrightPropertyInfo , - constructAboutDialogCopyright , - getAboutDialogCopyright , - setAboutDialogCopyright , - - --- ** Documenters - AboutDialogDocumentersPropertyInfo , - constructAboutDialogDocumenters , - getAboutDialogDocumenters , - setAboutDialogDocumenters , - - --- ** License - AboutDialogLicensePropertyInfo , - constructAboutDialogLicense , - getAboutDialogLicense , - setAboutDialogLicense , - - --- ** LicenseType - AboutDialogLicenseTypePropertyInfo , - constructAboutDialogLicenseType , - getAboutDialogLicenseType , - setAboutDialogLicenseType , - - --- ** Logo - AboutDialogLogoPropertyInfo , - constructAboutDialogLogo , - getAboutDialogLogo , - setAboutDialogLogo , - - --- ** LogoIconName - AboutDialogLogoIconNamePropertyInfo , - constructAboutDialogLogoIconName , - getAboutDialogLogoIconName , - setAboutDialogLogoIconName , - - --- ** ProgramName - AboutDialogProgramNamePropertyInfo , - constructAboutDialogProgramName , - getAboutDialogProgramName , - setAboutDialogProgramName , - - --- ** TranslatorCredits - AboutDialogTranslatorCreditsPropertyInfo, - constructAboutDialogTranslatorCredits , - getAboutDialogTranslatorCredits , - setAboutDialogTranslatorCredits , - - --- ** Version - AboutDialogVersionPropertyInfo , - constructAboutDialogVersion , - getAboutDialogVersion , - setAboutDialogVersion , - - --- ** Website - AboutDialogWebsitePropertyInfo , - constructAboutDialogWebsite , - getAboutDialogWebsite , - setAboutDialogWebsite , - - --- ** WebsiteLabel - AboutDialogWebsiteLabelPropertyInfo , - constructAboutDialogWebsiteLabel , - getAboutDialogWebsiteLabel , - setAboutDialogWebsiteLabel , - - --- ** WrapLicense - AboutDialogWrapLicensePropertyInfo , - constructAboutDialogWrapLicense , - getAboutDialogWrapLicense , - setAboutDialogWrapLicense , - - - - - -- * Signals --- ** ActivateLink - AboutDialogActivateLinkCallback , - AboutDialogActivateLinkCallbackC , - AboutDialogActivateLinkSignalInfo , - aboutDialogActivateLinkCallbackWrapper , - aboutDialogActivateLinkClosure , - afterAboutDialogActivateLink , - mkAboutDialogActivateLinkCallback , - noAboutDialogActivateLinkCallback , - onAboutDialogActivateLink , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogArtists obj = liftIO $ getObjectPropertyStringArray obj "artists" - -setAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogArtists obj val = liftIO $ setObjectPropertyStringArray obj "artists" val - -constructAboutDialogArtists :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogArtists val = constructObjectPropertyStringArray "artists" 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 = "AboutDialog::artists" - attrGet _ = getAboutDialogArtists - attrSet _ = setAboutDialogArtists - attrConstruct _ = constructAboutDialogArtists - --- VVV Prop "authors" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogAuthors obj = liftIO $ getObjectPropertyStringArray obj "authors" - -setAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogAuthors obj val = liftIO $ setObjectPropertyStringArray obj "authors" val - -constructAboutDialogAuthors :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogAuthors val = constructObjectPropertyStringArray "authors" 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 = "AboutDialog::authors" - attrGet _ = getAboutDialogAuthors - attrSet _ = setAboutDialogAuthors - attrConstruct _ = constructAboutDialogAuthors - --- VVV Prop "comments" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogComments obj = liftIO $ getObjectPropertyString obj "comments" - -setAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogComments obj val = liftIO $ setObjectPropertyString obj "comments" val - -constructAboutDialogComments :: T.Text -> IO ([Char], GValue) -constructAboutDialogComments val = constructObjectPropertyString "comments" val - -data AboutDialogCommentsPropertyInfo -instance AttrInfo AboutDialogCommentsPropertyInfo where - type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogCommentsPropertyInfo = AboutDialogK - type AttrGetType AboutDialogCommentsPropertyInfo = T.Text - type AttrLabel AboutDialogCommentsPropertyInfo = "AboutDialog::comments" - attrGet _ = getAboutDialogComments - attrSet _ = setAboutDialogComments - attrConstruct _ = constructAboutDialogComments - --- VVV Prop "copyright" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogCopyright obj = liftIO $ getObjectPropertyString obj "copyright" - -setAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogCopyright obj val = liftIO $ setObjectPropertyString obj "copyright" val - -constructAboutDialogCopyright :: T.Text -> IO ([Char], GValue) -constructAboutDialogCopyright val = constructObjectPropertyString "copyright" val - -data AboutDialogCopyrightPropertyInfo -instance AttrInfo AboutDialogCopyrightPropertyInfo where - type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogCopyrightPropertyInfo = AboutDialogK - type AttrGetType AboutDialogCopyrightPropertyInfo = T.Text - type AttrLabel AboutDialogCopyrightPropertyInfo = "AboutDialog::copyright" - attrGet _ = getAboutDialogCopyright - attrSet _ = setAboutDialogCopyright - attrConstruct _ = constructAboutDialogCopyright - --- VVV Prop "documenters" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] -getAboutDialogDocumenters obj = liftIO $ getObjectPropertyStringArray obj "documenters" - -setAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () -setAboutDialogDocumenters obj val = liftIO $ setObjectPropertyStringArray obj "documenters" val - -constructAboutDialogDocumenters :: [T.Text] -> IO ([Char], GValue) -constructAboutDialogDocumenters val = constructObjectPropertyStringArray "documenters" 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 = "AboutDialog::documenters" - attrGet _ = getAboutDialogDocumenters - attrSet _ = setAboutDialogDocumenters - attrConstruct _ = constructAboutDialogDocumenters - --- VVV Prop "license" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogLicense obj = liftIO $ getObjectPropertyString obj "license" - -setAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogLicense obj val = liftIO $ setObjectPropertyString obj "license" val - -constructAboutDialogLicense :: T.Text -> IO ([Char], GValue) -constructAboutDialogLicense val = constructObjectPropertyString "license" val - -data AboutDialogLicensePropertyInfo -instance AttrInfo AboutDialogLicensePropertyInfo where - type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogLicensePropertyInfo = AboutDialogK - type AttrGetType AboutDialogLicensePropertyInfo = T.Text - type AttrLabel AboutDialogLicensePropertyInfo = "AboutDialog::license" - attrGet _ = getAboutDialogLicense - attrSet _ = setAboutDialogLicense - attrConstruct _ = constructAboutDialogLicense - --- VVV Prop "license-type" - -- Type: TInterface "Gtk" "License" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "AboutDialog::license-type" - attrGet _ = getAboutDialogLicenseType - attrSet _ = setAboutDialogLicenseType - attrConstruct _ = constructAboutDialogLicenseType - --- VVV Prop "logo" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogLogo :: (MonadIO m, AboutDialogK o) => o -> m GdkPixbuf.Pixbuf -getAboutDialogLogo obj = liftIO $ getObjectPropertyObject obj "logo" GdkPixbuf.Pixbuf - -setAboutDialogLogo :: (MonadIO m, AboutDialogK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setAboutDialogLogo obj val = liftIO $ setObjectPropertyObject obj "logo" val - -constructAboutDialogLogo :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructAboutDialogLogo val = constructObjectPropertyObject "logo" val - -data AboutDialogLogoPropertyInfo -instance AttrInfo AboutDialogLogoPropertyInfo where - type AttrAllowedOps AboutDialogLogoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogLogoPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint AboutDialogLogoPropertyInfo = AboutDialogK - type AttrGetType AboutDialogLogoPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel AboutDialogLogoPropertyInfo = "AboutDialog::logo" - attrGet _ = getAboutDialogLogo - attrSet _ = setAboutDialogLogo - attrConstruct _ = constructAboutDialogLogo - --- VVV Prop "logo-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogLogoIconName obj = liftIO $ getObjectPropertyString obj "logo-icon-name" - -setAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogLogoIconName obj val = liftIO $ setObjectPropertyString obj "logo-icon-name" val - -constructAboutDialogLogoIconName :: T.Text -> IO ([Char], GValue) -constructAboutDialogLogoIconName val = constructObjectPropertyString "logo-icon-name" val - -data AboutDialogLogoIconNamePropertyInfo -instance AttrInfo AboutDialogLogoIconNamePropertyInfo where - type AttrAllowedOps AboutDialogLogoIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogLogoIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogLogoIconNamePropertyInfo = AboutDialogK - type AttrGetType AboutDialogLogoIconNamePropertyInfo = T.Text - type AttrLabel AboutDialogLogoIconNamePropertyInfo = "AboutDialog::logo-icon-name" - attrGet _ = getAboutDialogLogoIconName - attrSet _ = setAboutDialogLogoIconName - attrConstruct _ = constructAboutDialogLogoIconName - --- VVV Prop "program-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogProgramName obj = liftIO $ getObjectPropertyString obj "program-name" - -setAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogProgramName obj val = liftIO $ setObjectPropertyString obj "program-name" val - -constructAboutDialogProgramName :: T.Text -> IO ([Char], GValue) -constructAboutDialogProgramName val = constructObjectPropertyString "program-name" 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 = "AboutDialog::program-name" - attrGet _ = getAboutDialogProgramName - attrSet _ = setAboutDialogProgramName - attrConstruct _ = constructAboutDialogProgramName - --- VVV Prop "translator-credits" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogTranslatorCredits obj = liftIO $ getObjectPropertyString obj "translator-credits" - -setAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogTranslatorCredits obj val = liftIO $ setObjectPropertyString obj "translator-credits" val - -constructAboutDialogTranslatorCredits :: T.Text -> IO ([Char], GValue) -constructAboutDialogTranslatorCredits val = constructObjectPropertyString "translator-credits" val - -data AboutDialogTranslatorCreditsPropertyInfo -instance AttrInfo AboutDialogTranslatorCreditsPropertyInfo where - type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = AboutDialogK - type AttrGetType AboutDialogTranslatorCreditsPropertyInfo = T.Text - type AttrLabel AboutDialogTranslatorCreditsPropertyInfo = "AboutDialog::translator-credits" - attrGet _ = getAboutDialogTranslatorCredits - attrSet _ = setAboutDialogTranslatorCredits - attrConstruct _ = constructAboutDialogTranslatorCredits - --- VVV Prop "version" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogVersion obj = liftIO $ getObjectPropertyString obj "version" - -setAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogVersion obj val = liftIO $ setObjectPropertyString obj "version" val - -constructAboutDialogVersion :: T.Text -> IO ([Char], GValue) -constructAboutDialogVersion val = constructObjectPropertyString "version" val - -data AboutDialogVersionPropertyInfo -instance AttrInfo AboutDialogVersionPropertyInfo where - type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogVersionPropertyInfo = AboutDialogK - type AttrGetType AboutDialogVersionPropertyInfo = T.Text - type AttrLabel AboutDialogVersionPropertyInfo = "AboutDialog::version" - attrGet _ = getAboutDialogVersion - attrSet _ = setAboutDialogVersion - attrConstruct _ = constructAboutDialogVersion - --- VVV Prop "website" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogWebsite obj = liftIO $ getObjectPropertyString obj "website" - -setAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogWebsite obj val = liftIO $ setObjectPropertyString obj "website" val - -constructAboutDialogWebsite :: T.Text -> IO ([Char], GValue) -constructAboutDialogWebsite val = constructObjectPropertyString "website" val - -data AboutDialogWebsitePropertyInfo -instance AttrInfo AboutDialogWebsitePropertyInfo where - type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AboutDialogWebsitePropertyInfo = AboutDialogK - type AttrGetType AboutDialogWebsitePropertyInfo = T.Text - type AttrLabel AboutDialogWebsitePropertyInfo = "AboutDialog::website" - attrGet _ = getAboutDialogWebsite - attrSet _ = setAboutDialogWebsite - attrConstruct _ = constructAboutDialogWebsite - --- VVV Prop "website-label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> m T.Text -getAboutDialogWebsiteLabel obj = liftIO $ getObjectPropertyString obj "website-label" - -setAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () -setAboutDialogWebsiteLabel obj val = liftIO $ setObjectPropertyString obj "website-label" val - -constructAboutDialogWebsiteLabel :: T.Text -> IO ([Char], GValue) -constructAboutDialogWebsiteLabel val = constructObjectPropertyString "website-label" 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 = "AboutDialog::website-label" - attrGet _ = getAboutDialogWebsiteLabel - attrSet _ = setAboutDialogWebsiteLabel - attrConstruct _ = constructAboutDialogWebsiteLabel - --- VVV Prop "wrap-license" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "AboutDialog::wrap-license" - attrGet _ = getAboutDialogWrapLicense - attrSet _ = setAboutDialogWrapLicense - attrConstruct _ = constructAboutDialogWrapLicense - -type instance AttributeList AboutDialog = AboutDialogAttributeList -type AboutDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("authors", AboutDialogAuthorsPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("license-type", AboutDialogLicenseTypePropertyInfo), '("logo", AboutDialogLogoPropertyInfo), '("logo-icon-name", AboutDialogLogoIconNamePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("program-name", AboutDialogProgramNamePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("translator-credits", AboutDialogTranslatorCreditsPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("website-label", AboutDialogWebsiteLabelPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo), '("wrap-license", AboutDialogWrapLicensePropertyInfo)] :: [(Symbol, *)]) - -data AboutDialogActivateLinkSignalInfo -instance SignalInfo AboutDialogActivateLinkSignalInfo where - type HaskellCallbackType AboutDialogActivateLinkSignalInfo = AboutDialogActivateLinkCallback - connectSignal _ = connectAboutDialogActivateLink - -type instance SignalList AboutDialog = AboutDialogSignalList -type AboutDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("activate-link", AboutDialogActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AboutDialog::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "section_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "people", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- section_name - [T.Text] -> -- people - m () -aboutDialogAddCreditSection _obj section_name people = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - section_name' <- textToCString section_name - people' <- packZeroTerminatedUTF8CArray people - gtk_about_dialog_add_credit_section _obj' section_name' people' - touchManagedPtr _obj - freeMem section_name' - mapZeroTerminatedCArray freeMem people' - freeMem people' - return () - --- method AboutDialog::get_artists --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method AboutDialog::get_authors --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method AboutDialog::get_comments --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_copyright --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_documenters --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method AboutDialog::get_license --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_license_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_logo --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_logo_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_program_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_translator_credits --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_version --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_website --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_website_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AboutDialog::get_wrap_license --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -aboutDialogGetWrapLicense _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_about_dialog_get_wrap_license _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method AboutDialog::set_artists --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "artists", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method AboutDialog::set_authors --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "authors", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method AboutDialog::set_comments --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comments", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AboutDialog::set_copyright --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copyright", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AboutDialog::set_documenters --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "documenters", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method AboutDialog::set_license --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AboutDialog::set_license_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "license_type", argType = TInterface "Gtk" "License", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- license_type - m () -aboutDialogSetLicenseType _obj license_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let license_type' = (fromIntegral . fromEnum) license_type - gtk_about_dialog_set_license_type _obj' license_type' - touchManagedPtr _obj - return () - --- method AboutDialog::set_logo --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logo", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AboutDialog::set_logo_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- icon_name - m () -aboutDialogSetLogoIconName _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_name <- case icon_name of - Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_about_dialog_set_logo_icon_name _obj' maybeIcon_name - touchManagedPtr _obj - freeMem maybeIcon_name - return () - --- method AboutDialog::set_program_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method AboutDialog::set_translator_credits --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translator_credits", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- translator_credits - m () -aboutDialogSetTranslatorCredits _obj translator_credits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTranslator_credits <- case translator_credits of - Nothing -> return nullPtr - Just jTranslator_credits -> do - jTranslator_credits' <- textToCString jTranslator_credits - return jTranslator_credits' - gtk_about_dialog_set_translator_credits _obj' maybeTranslator_credits - touchManagedPtr _obj - freeMem maybeTranslator_credits - return () - --- method AboutDialog::set_version --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AboutDialog::set_website --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AboutDialog::set_website_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "website_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- website_label - m () -aboutDialogSetWebsiteLabel _obj website_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - website_label' <- textToCString website_label - gtk_about_dialog_set_website_label _obj' website_label' - touchManagedPtr _obj - freeMem website_label' - return () - --- method AboutDialog::set_wrap_license --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AboutDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_license", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- wrap_license - m () -aboutDialogSetWrapLicense _obj wrap_license = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap_license' = (fromIntegral . fromEnum) wrap_license - gtk_about_dialog_set_wrap_license _obj' wrap_license' - touchManagedPtr _obj - return () - - 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,29 +0,0 @@ -module GI.Gtk.Objects.AboutDialog where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,681 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - accelGroupActivate , - - --- ** accelGroupConnect - accelGroupConnect , - - --- ** accelGroupConnectByPath - accelGroupConnectByPath , - - --- ** accelGroupDisconnect - accelGroupDisconnect , - - --- ** accelGroupDisconnectKey - accelGroupDisconnectKey , - - --- ** accelGroupFind - accelGroupFind , - - --- ** accelGroupFromAccelClosure - accelGroupFromAccelClosure , - - --- ** accelGroupGetIsLocked - accelGroupGetIsLocked , - - --- ** accelGroupGetModifierMask - accelGroupGetModifierMask , - - --- ** accelGroupLock - accelGroupLock , - - --- ** accelGroupNew - accelGroupNew , - - --- ** accelGroupQuery - accelGroupQuery , - - --- ** accelGroupUnlock - accelGroupUnlock , - - - - - -- * Properties --- ** IsLocked - AccelGroupIsLockedPropertyInfo , - getAccelGroupIsLocked , - - --- ** ModifierMask - AccelGroupModifierMaskPropertyInfo , - getAccelGroupModifierMask , - - - - - -- * Signals --- ** AccelActivate - AccelGroupAccelActivateCallback , - AccelGroupAccelActivateCallbackC , - AccelGroupAccelActivateSignalInfo , - accelGroupAccelActivateCallbackWrapper , - accelGroupAccelActivateClosure , - afterAccelGroupAccelActivate , - mkAccelGroupAccelActivateCallback , - noAccelGroupAccelActivateCallback , - onAccelGroupAccelActivate , - - --- ** AccelChanged - AccelGroupAccelChangedCallback , - AccelGroupAccelChangedCallbackC , - AccelGroupAccelChangedSignalInfo , - accelGroupAccelChangedCallbackWrapper , - accelGroupAccelChangedClosure , - afterAccelGroupAccelChanged , - mkAccelGroupAccelChangedCallback , - noAccelGroupAccelChangedCallback , - onAccelGroupAccelChanged , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 accel_closure _ = do - let modifier' = wordToGFlags modifier - accel_closure' <- (newBoxed Closure) accel_closure - _cb keyval modifier' accel_closure' - -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] - -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 = "AccelGroup::is-locked" - attrGet _ = getAccelGroupIsLocked - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "modifier-mask" - -- Type: TInterface "Gdk" "ModifierType" - -- Flags: [PropertyReadable] - -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 = "AccelGroup::modifier-mask" - attrGet _ = getAccelGroupModifierMask - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList AccelGroup = AccelGroupAttributeList -type AccelGroupAttributeList = ('[ '("is-locked", AccelGroupIsLockedPropertyInfo), '("modifier-mask", AccelGroupModifierMaskPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-activate", AccelGroupAccelActivateSignalInfo), '("accel-changed", AccelGroupAccelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AccelGroup::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "acceleratable", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -accelGroupActivate :: - (MonadIO m, AccelGroupK a, GObject.ObjectK b) => - a -> -- _obj - Word32 -> -- accel_quark - b -> -- acceleratable - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m Bool -accelGroupActivate _obj accel_quark acceleratable accel_key accel_mods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let acceleratable' = unsafeManagedPtrCastPtr acceleratable - let accel_mods' = gflagsToWord accel_mods - result <- gtk_accel_group_activate _obj' accel_quark acceleratable' accel_key accel_mods' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr acceleratable - return result' - --- method AccelGroup::connect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - 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 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - [AccelFlags] -> -- accel_flags - Closure -> -- closure - m () -accelGroupConnect _obj accel_key accel_mods accel_flags closure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_mods' = gflagsToWord accel_mods - let accel_flags' = gflagsToWord accel_flags - let closure' = unsafeManagedPtrGetPtr closure - gtk_accel_group_connect _obj' accel_key accel_mods' accel_flags' closure' - touchManagedPtr _obj - touchManagedPtr closure - return () - --- method AccelGroup::connect_by_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- accel_path - Closure -> -- closure - m () -accelGroupConnectByPath _obj accel_path closure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accel_path' <- textToCString accel_path - let closure' = unsafeManagedPtrGetPtr closure - gtk_accel_group_connect_by_path _obj' accel_path' closure' - touchManagedPtr _obj - touchManagedPtr closure - freeMem accel_path' - return () - --- method AccelGroup::disconnect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AccelGroup::disconnect_key --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -accelGroupDisconnectKey :: - (MonadIO m, AccelGroupK a) => - a -> -- _obj - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m Bool -accelGroupDisconnectKey _obj accel_key accel_mods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_mods' = gflagsToWord accel_mods - result <- gtk_accel_group_disconnect_key _obj' accel_key accel_mods' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method AccelGroup::find --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "find_func", argType = TInterface "Gtk" "AccelGroupFindFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TVoid - IO (Ptr AccelKey) - - -accelGroupFind :: - (MonadIO m, AccelGroupK a) => - a -> -- _obj - AccelGroupFindFunc -> -- find_func - m AccelKey -accelGroupFind _obj find_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - find_func' <- mkAccelGroupFindFunc (accelGroupFindFuncWrapper Nothing find_func) - let data_ = nullPtr - result <- gtk_accel_group_find _obj' find_func' data_ - checkUnexpectedReturnNULL "gtk_accel_group_find" result - result' <- (newPtr 12 AccelKey) result - safeFreeFunPtr $ castFunPtrToPtr find_func' - touchManagedPtr _obj - return result' - --- method AccelGroup::get_is_locked --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -accelGroupGetIsLocked _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_group_get_is_locked _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method AccelGroup::get_modifier_mask --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -accelGroupGetModifierMask _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_group_get_modifier_mask _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method AccelGroup::lock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -accelGroupLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_accel_group_lock _obj' - touchManagedPtr _obj - return () - --- method AccelGroup::query --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_entries", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - Ptr Word32 -> -- n_entries : TBasicType TUInt32 - IO (Ptr AccelGroupEntry) - - -accelGroupQuery :: - (MonadIO m, AccelGroupK a) => - a -> -- _obj - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m [AccelGroupEntry] -accelGroupQuery _obj accel_key accel_mods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_mods' = gflagsToWord accel_mods - n_entries <- allocMem :: IO (Ptr Word32) - result <- gtk_accel_group_query _obj' accel_key accel_mods' n_entries - n_entries' <- peek n_entries - checkUnexpectedReturnNULL "gtk_accel_group_query" result - result' <- (unpackBlockArrayWithLength 32 n_entries') result - result'' <- mapM (newPtr 32 AccelGroupEntry) result' - touchManagedPtr _obj - freeMem n_entries - return result'' - --- method AccelGroup::unlock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -accelGroupUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_accel_group_unlock _obj' - touchManagedPtr _obj - return () - --- method AccelGroup::from_accel_closure --- method type : MemberFunction --- Args : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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,17 +0,0 @@ -module GI.Gtk.Objects.AccelGroup where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,385 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - accelLabelGetAccel , - - --- ** accelLabelGetAccelWidget - accelLabelGetAccelWidget , - - --- ** accelLabelGetAccelWidth - accelLabelGetAccelWidth , - - --- ** accelLabelNew - accelLabelNew , - - --- ** accelLabelRefetch - accelLabelRefetch , - - --- ** accelLabelSetAccel - accelLabelSetAccel , - - --- ** accelLabelSetAccelClosure - accelLabelSetAccelClosure , - - --- ** accelLabelSetAccelWidget - accelLabelSetAccelWidget , - - - - - -- * Properties --- ** AccelClosure - AccelLabelAccelClosurePropertyInfo , - constructAccelLabelAccelClosure , - getAccelLabelAccelClosure , - setAccelLabelAccelClosure , - - --- ** AccelWidget - AccelLabelAccelWidgetPropertyInfo , - constructAccelLabelAccelWidget , - getAccelLabelAccelWidget , - setAccelLabelAccelWidget , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - ---- XXX Duplicated object with different types: - --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], 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], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], 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] - -getAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> m 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" val - -constructAccelLabelAccelClosure :: Closure -> IO ([Char], GValue) -constructAccelLabelAccelClosure val = constructObjectPropertyBoxed "accel-closure" val - -data AccelLabelAccelClosurePropertyInfo -instance AttrInfo AccelLabelAccelClosurePropertyInfo where - type AttrAllowedOps AccelLabelAccelClosurePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AccelLabelAccelClosurePropertyInfo = (~) Closure - type AttrBaseTypeConstraint AccelLabelAccelClosurePropertyInfo = AccelLabelK - type AttrGetType AccelLabelAccelClosurePropertyInfo = Closure - type AttrLabel AccelLabelAccelClosurePropertyInfo = "AccelLabel::accel-closure" - attrGet _ = getAccelLabelAccelClosure - attrSet _ = setAccelLabelAccelClosure - attrConstruct _ = constructAccelLabelAccelClosure - --- VVV Prop "accel-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o) => o -> m Widget -getAccelLabelAccelWidget obj = liftIO $ getObjectPropertyObject obj "accel-widget" Widget - -setAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o, WidgetK a) => o -> a -> m () -setAccelLabelAccelWidget obj val = liftIO $ setObjectPropertyObject obj "accel-widget" val - -constructAccelLabelAccelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructAccelLabelAccelWidget val = constructObjectPropertyObject "accel-widget" 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 = "AccelLabel::accel-widget" - attrGet _ = getAccelLabelAccelWidget - attrSet _ = setAccelLabelAccelWidget - attrConstruct _ = constructAccelLabelAccelWidget - -type instance AttributeList AccelLabel = AccelLabelAttributeList -type AccelLabelAttributeList = ('[ '("accel-closure", AccelLabelAccelClosurePropertyInfo), '("accel-widget", AccelLabelAccelWidgetPropertyInfo), '("angle", LabelAnglePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", LabelCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-width-chars", LabelMaxWidthCharsPropertyInfo), '("mnemonic-keyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonic-widget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selection-bound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("single-line-mode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("track-visited-links", LabelTrackVisitedLinksPropertyInfo), '("use-markup", LabelUseMarkupPropertyInfo), '("use-underline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", LabelWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrap-mode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AccelLabel = AccelLabelSignalList -type AccelLabelSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current-link", LabelActivateCurrentLinkSignalInfo), '("activate-link", LabelActivateLinkSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", LabelCopyClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", LabelMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", LabelPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AccelLabel::new --- method type : Constructor --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO () - - -accelLabelGetAccel :: - (MonadIO m, AccelLabelK a) => - a -> -- _obj - m (Word32,[Gdk.ModifierType]) -accelLabelGetAccel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accelerator_key <- allocMem :: IO (Ptr Word32) - accelerator_mods <- allocMem :: IO (Ptr CUInt) - gtk_accel_label_get_accel _obj' accelerator_key accelerator_mods - accelerator_key' <- peek accelerator_key - accelerator_mods' <- peek accelerator_mods - let accelerator_mods'' = wordToGFlags accelerator_mods' - touchManagedPtr _obj - freeMem accelerator_key - freeMem accelerator_mods - return (accelerator_key', accelerator_mods'') - --- method AccelLabel::get_accel_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AccelLabel::get_accel_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -accelLabelGetAccelWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_label_get_accel_width _obj' - touchManagedPtr _obj - return result - --- method AccelLabel::refetch --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -accelLabelRefetch _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_accel_label_refetch _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method AccelLabel::set_accel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - CUInt -> -- accelerator_mods : TInterface "Gdk" "ModifierType" - IO () - - -accelLabelSetAccel :: - (MonadIO m, AccelLabelK a) => - a -> -- _obj - Word32 -> -- accelerator_key - [Gdk.ModifierType] -> -- accelerator_mods - m () -accelLabelSetAccel _obj accelerator_key accelerator_mods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accelerator_mods' = gflagsToWord accelerator_mods - gtk_accel_label_set_accel _obj' accelerator_key accelerator_mods' - touchManagedPtr _obj - return () - --- method AccelLabel::set_accel_closure --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- accel_closure - m () -accelLabelSetAccelClosure _obj accel_closure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_closure' = unsafeManagedPtrGetPtr accel_closure - gtk_accel_label_set_accel_closure _obj' accel_closure' - touchManagedPtr _obj - touchManagedPtr accel_closure - return () - --- method AccelLabel::set_accel_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AccelLabel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- accel_widget - m () -accelLabelSetAccelWidget _obj accel_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_widget' = unsafeManagedPtrCastPtr accel_widget - gtk_accel_label_set_accel_widget _obj' accel_widget' - touchManagedPtr _obj - touchManagedPtr accel_widget - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.AccelLabel where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,544 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ accel_path accel_key accel_mods _ = do - accel_path' <- cstringToText accel_path - let accel_mods' = wordToGFlags accel_mods - _cb accel_path' accel_key accel_mods' - -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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AccelMap::add_entry --- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO () - - -accelMapAddEntry :: - (MonadIO m) => - T.Text -> -- accel_path - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m () -accelMapAddEntry accel_path accel_key accel_mods = liftIO $ do - accel_path' <- textToCString accel_path - let accel_mods' = gflagsToWord accel_mods - gtk_accel_map_add_entry accel_path' accel_key accel_mods' - freeMem accel_path' - return () - --- method AccelMap::add_filter --- method type : MemberFunction --- Args : [Arg {argName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filter_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_add_filter" gtk_accel_map_add_filter :: - CString -> -- filter_pattern : TBasicType TUTF8 - IO () - - -accelMapAddFilter :: - (MonadIO m) => - T.Text -> -- filter_pattern - m () -accelMapAddFilter filter_pattern = liftIO $ do - filter_pattern' <- textToCString filter_pattern - gtk_accel_map_add_filter filter_pattern' - freeMem filter_pattern' - return () - --- method AccelMap::change_entry --- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - CInt -> -- replace : TBasicType TBoolean - IO CInt - - -accelMapChangeEntry :: - (MonadIO m) => - T.Text -> -- accel_path - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - Bool -> -- replace - m Bool -accelMapChangeEntry accel_path accel_key accel_mods replace = liftIO $ do - accel_path' <- textToCString accel_path - let accel_mods' = gflagsToWord accel_mods - let replace' = (fromIntegral . fromEnum) replace - result <- gtk_accel_map_change_entry accel_path' accel_key accel_mods' replace' - let result' = (/= 0) result - freeMem accel_path' - return result' - --- method AccelMap::foreach --- method type : MemberFunction --- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_foreach" gtk_accel_map_foreach :: - Ptr () -> -- data : TBasicType TVoid - FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach" - IO () - - -accelMapForeach :: - (MonadIO m) => - Maybe (Ptr ()) -> -- data - AccelMapForeach -> -- foreach_func - m () -accelMapForeach data_ foreach_func = liftIO $ do - maybeData_ <- case data_ of - Nothing -> return nullPtr - Just jData_ -> do - return jData_ - foreach_func' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreach_func) - gtk_accel_map_foreach maybeData_ foreach_func' - safeFreeFunPtr $ castFunPtrToPtr foreach_func' - return () - --- method AccelMap::foreach_unfiltered --- method type : MemberFunction --- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "foreach_func", argType = TInterface "Gtk" "AccelMapForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_foreach_unfiltered" gtk_accel_map_foreach_unfiltered :: - Ptr () -> -- data : TBasicType TVoid - FunPtr AccelMapForeachC -> -- foreach_func : TInterface "Gtk" "AccelMapForeach" - IO () - - -accelMapForeachUnfiltered :: - (MonadIO m) => - Ptr () -> -- data - AccelMapForeach -> -- foreach_func - m () -accelMapForeachUnfiltered data_ foreach_func = liftIO $ do - foreach_func' <- mkAccelMapForeach (accelMapForeachWrapper Nothing foreach_func) - gtk_accel_map_foreach_unfiltered data_ foreach_func' - safeFreeFunPtr $ castFunPtrToPtr foreach_func' - return () - --- method AccelMap::get --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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] -> -- file_name - m () -accelMapLoad file_name = liftIO $ do - file_name' <- stringToCString file_name - gtk_accel_map_load file_name' - freeMem file_name' - return () - --- method AccelMap::load_fd --- method type : MemberFunction --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_load_fd" gtk_accel_map_load_fd :: - Int32 -> -- fd : TBasicType TInt32 - IO () - - -accelMapLoadFd :: - (MonadIO m) => - Int32 -> -- fd - m () -accelMapLoadFd fd = liftIO $ do - gtk_accel_map_load_fd fd - return () - --- method AccelMap::load_scanner --- method type : MemberFunction --- Args : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "scanner", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_lock_path" gtk_accel_map_lock_path :: - CString -> -- accel_path : TBasicType TUTF8 - IO () - - -accelMapLockPath :: - (MonadIO m) => - T.Text -> -- accel_path - m () -accelMapLockPath accel_path = liftIO $ do - accel_path' <- textToCString accel_path - gtk_accel_map_lock_path accel_path' - freeMem accel_path' - return () - --- method AccelMap::lookup_entry --- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gtk" "AccelKey", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- accel_path - m (Bool,AccelKey) -accelMapLookupEntry accel_path = liftIO $ do - accel_path' <- textToCString accel_path - key <- callocBytes 12 :: IO (Ptr AccelKey) - result <- gtk_accel_map_lookup_entry accel_path' key - let result' = (/= 0) result - key' <- (wrapPtr AccelKey) key - freeMem accel_path' - return (result', key') - --- method AccelMap::save --- method type : MemberFunction --- Args : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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] -> -- file_name - m () -accelMapSave file_name = liftIO $ do - file_name' <- stringToCString file_name - gtk_accel_map_save file_name' - freeMem file_name' - return () - --- method AccelMap::save_fd --- method type : MemberFunction --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_save_fd" gtk_accel_map_save_fd :: - Int32 -> -- fd : TBasicType TInt32 - IO () - - -accelMapSaveFd :: - (MonadIO m) => - Int32 -> -- fd - m () -accelMapSaveFd fd = liftIO $ do - gtk_accel_map_save_fd fd - return () - --- method AccelMap::unlock_path --- method type : MemberFunction --- Args : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_accel_map_unlock_path" gtk_accel_map_unlock_path :: - CString -> -- accel_path : TBasicType TUTF8 - IO () - - -accelMapUnlockPath :: - (MonadIO m) => - T.Text -> -- accel_path - m () -accelMapUnlockPath accel_path = liftIO $ do - accel_path' <- textToCString accel_path - gtk_accel_map_unlock_path accel_path' - freeMem accel_path' - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.Accessible - ( - --- * Exported types - Accessible(..) , - AccessibleK , - toAccessible , - noAccessible , - - - -- * Methods --- ** accessibleConnectWidgetDestroyed - accessibleConnectWidgetDestroyed , - - --- ** accessibleGetWidget - accessibleGetWidget , - - --- ** accessibleSetWidget - accessibleSetWidget , - - - - - -- * Properties --- ** Widget - AccessibleWidgetPropertyInfo , - constructAccessibleWidget , - getAccessibleWidget , - setAccessibleWidget , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getAccessibleWidget :: (MonadIO m, AccessibleK o) => o -> m Widget -getAccessibleWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget - -setAccessibleWidget :: (MonadIO m, AccessibleK o, WidgetK a) => o -> a -> m () -setAccessibleWidget obj val = liftIO $ setObjectPropertyObject obj "widget" val - -constructAccessibleWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructAccessibleWidget val = constructObjectPropertyObject "widget" val - -data AccessibleWidgetPropertyInfo -instance AttrInfo AccessibleWidgetPropertyInfo where - type AttrAllowedOps AccessibleWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AccessibleWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint AccessibleWidgetPropertyInfo = AccessibleK - type AttrGetType AccessibleWidgetPropertyInfo = Widget - type AttrLabel AccessibleWidgetPropertyInfo = "Accessible::widget" - attrGet _ = getAccessibleWidget - attrSet _ = setAccessibleWidget - attrConstruct _ = constructAccessibleWidget - -type instance AttributeList Accessible = AccessibleAttributeList -type AccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Accessible = AccessibleSignalList -type AccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Accessible::connect_widget_destroyed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -accessibleConnectWidgetDestroyed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_accessible_connect_widget_destroyed _obj' - touchManagedPtr _obj - return () - --- method Accessible::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Accessible::set_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Accessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.Accessible where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Accessible = Accessible (ForeignPtr Accessible) -instance GObject Accessible where -class GObject o => AccessibleK o -instance (GObject o, IsDescendantOf Accessible o) => AccessibleK o -data AccessibleWidgetPropertyInfo 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,1910 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - actionActivate , - - --- ** actionBlockActivate - actionBlockActivate , - - --- ** actionConnectAccelerator - actionConnectAccelerator , - - --- ** actionCreateIcon - actionCreateIcon , - - --- ** actionCreateMenu - actionCreateMenu , - - --- ** actionCreateMenuItem - actionCreateMenuItem , - - --- ** actionCreateToolItem - actionCreateToolItem , - - --- ** actionDisconnectAccelerator - actionDisconnectAccelerator , - - --- ** actionGetAccelClosure - actionGetAccelClosure , - - --- ** actionGetAccelPath - actionGetAccelPath , - - --- ** actionGetAlwaysShowImage - actionGetAlwaysShowImage , - - --- ** actionGetGicon - actionGetGicon , - - --- ** actionGetIconName - actionGetIconName , - - --- ** actionGetIsImportant - actionGetIsImportant , - - --- ** actionGetLabel - actionGetLabel , - - --- ** actionGetName - actionGetName , - - --- ** actionGetProxies - actionGetProxies , - - --- ** actionGetSensitive - actionGetSensitive , - - --- ** actionGetShortLabel - actionGetShortLabel , - - --- ** actionGetStockId - actionGetStockId , - - --- ** actionGetTooltip - actionGetTooltip , - - --- ** actionGetVisible - actionGetVisible , - - --- ** actionGetVisibleHorizontal - actionGetVisibleHorizontal , - - --- ** actionGetVisibleVertical - actionGetVisibleVertical , - - --- ** actionIsSensitive - actionIsSensitive , - - --- ** actionIsVisible - actionIsVisible , - - --- ** actionNew - actionNew , - - --- ** actionSetAccelGroup - actionSetAccelGroup , - - --- ** actionSetAccelPath - actionSetAccelPath , - - --- ** actionSetAlwaysShowImage - actionSetAlwaysShowImage , - - --- ** actionSetGicon - actionSetGicon , - - --- ** actionSetIconName - actionSetIconName , - - --- ** actionSetIsImportant - actionSetIsImportant , - - --- ** actionSetLabel - actionSetLabel , - - --- ** actionSetSensitive - actionSetSensitive , - - --- ** actionSetShortLabel - actionSetShortLabel , - - --- ** actionSetStockId - actionSetStockId , - - --- ** actionSetTooltip - actionSetTooltip , - - --- ** actionSetVisible - actionSetVisible , - - --- ** actionSetVisibleHorizontal - actionSetVisibleHorizontal , - - --- ** actionSetVisibleVertical - actionSetVisibleVertical , - - --- ** actionUnblockActivate - actionUnblockActivate , - - - - - -- * Properties --- ** ActionGroup - ActionActionGroupPropertyInfo , - constructActionActionGroup , - getActionActionGroup , - setActionActionGroup , - - --- ** AlwaysShowImage - ActionAlwaysShowImagePropertyInfo , - constructActionAlwaysShowImage , - getActionAlwaysShowImage , - setActionAlwaysShowImage , - - --- ** Gicon - ActionGiconPropertyInfo , - constructActionGicon , - getActionGicon , - setActionGicon , - - --- ** HideIfEmpty - ActionHideIfEmptyPropertyInfo , - constructActionHideIfEmpty , - getActionHideIfEmpty , - setActionHideIfEmpty , - - --- ** IconName - ActionIconNamePropertyInfo , - constructActionIconName , - getActionIconName , - setActionIconName , - - --- ** IsImportant - ActionIsImportantPropertyInfo , - constructActionIsImportant , - getActionIsImportant , - setActionIsImportant , - - --- ** Label - ActionLabelPropertyInfo , - constructActionLabel , - getActionLabel , - setActionLabel , - - --- ** Name - ActionNamePropertyInfo , - constructActionName , - getActionName , - - --- ** Sensitive - ActionSensitivePropertyInfo , - constructActionSensitive , - getActionSensitive , - setActionSensitive , - - --- ** ShortLabel - ActionShortLabelPropertyInfo , - constructActionShortLabel , - getActionShortLabel , - setActionShortLabel , - - --- ** StockId - ActionStockIdPropertyInfo , - constructActionStockId , - getActionStockId , - setActionStockId , - - --- ** Tooltip - ActionTooltipPropertyInfo , - constructActionTooltip , - getActionTooltip , - setActionTooltip , - - --- ** Visible - ActionVisiblePropertyInfo , - constructActionVisible , - getActionVisible , - setActionVisible , - - --- ** VisibleHorizontal - ActionVisibleHorizontalPropertyInfo , - constructActionVisibleHorizontal , - getActionVisibleHorizontal , - setActionVisibleHorizontal , - - --- ** VisibleOverflown - ActionVisibleOverflownPropertyInfo , - constructActionVisibleOverflown , - getActionVisibleOverflown , - setActionVisibleOverflown , - - --- ** VisibleVertical - ActionVisibleVerticalPropertyInfo , - constructActionVisibleVertical , - getActionVisibleVertical , - setActionVisibleVertical , - - - - - -- * Signals --- ** Activate - ActionActivateCallback , - ActionActivateCallbackC , - ActionActivateSignalInfo , - actionActivateCallbackWrapper , - actionActivateClosure , - afterActionActivate , - mkActionActivateCallback , - noActionActivateCallback , - onActionActivate , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getActionActionGroup :: (MonadIO m, ActionK o) => o -> m 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" val - -constructActionActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue) -constructActionActionGroup val = constructObjectPropertyObject "action-group" val - -data ActionActionGroupPropertyInfo -instance AttrInfo ActionActionGroupPropertyInfo where - type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionActionGroupPropertyInfo = ActionGroupK - type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = ActionK - type AttrGetType ActionActionGroupPropertyInfo = ActionGroup - type AttrLabel ActionActionGroupPropertyInfo = "Action::action-group" - attrGet _ = getActionActionGroup - attrSet _ = setActionActionGroup - attrConstruct _ = constructActionActionGroup - --- VVV Prop "always-show-image" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Action::always-show-image" - attrGet _ = getActionAlwaysShowImage - attrSet _ = setActionAlwaysShowImage - attrConstruct _ = constructActionAlwaysShowImage - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getActionGicon :: (MonadIO m, ActionK o) => o -> m Gio.Icon -getActionGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon - -setActionGicon :: (MonadIO m, ActionK o, Gio.IconK a) => o -> a -> m () -setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val - -constructActionGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructActionGicon val = constructObjectPropertyObject "gicon" 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 = "Action::gicon" - attrGet _ = getActionGicon - attrSet _ = setActionGicon - attrConstruct _ = constructActionGicon - --- VVV Prop "hide-if-empty" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Action::hide-if-empty" - attrGet _ = getActionHideIfEmpty - attrSet _ = setActionHideIfEmpty - attrConstruct _ = constructActionHideIfEmpty - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getActionIconName :: (MonadIO m, ActionK o) => o -> m T.Text -getActionIconName obj = liftIO $ getObjectPropertyString obj "icon-name" - -setActionIconName :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val - -constructActionIconName :: T.Text -> IO ([Char], GValue) -constructActionIconName val = constructObjectPropertyString "icon-name" 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 = "Action::icon-name" - attrGet _ = getActionIconName - attrSet _ = setActionIconName - attrConstruct _ = constructActionIconName - --- VVV Prop "is-important" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Action::is-important" - attrGet _ = getActionIsImportant - attrSet _ = setActionIsImportant - attrConstruct _ = constructActionIsImportant - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getActionLabel :: (MonadIO m, ActionK o) => o -> m T.Text -getActionLabel obj = liftIO $ getObjectPropertyString obj "label" - -setActionLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructActionLabel :: T.Text -> IO ([Char], GValue) -constructActionLabel val = constructObjectPropertyString "label" 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 = "Action::label" - attrGet _ = getActionLabel - attrSet _ = setActionLabel - attrConstruct _ = constructActionLabel - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getActionName :: (MonadIO m, ActionK o) => o -> m T.Text -getActionName obj = liftIO $ getObjectPropertyString obj "name" - -constructActionName :: T.Text -> IO ([Char], GValue) -constructActionName val = constructObjectPropertyString "name" val - -data ActionNamePropertyInfo -instance AttrInfo ActionNamePropertyInfo where - type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK - type AttrGetType ActionNamePropertyInfo = T.Text - type AttrLabel ActionNamePropertyInfo = "Action::name" - attrGet _ = getActionName - attrSet _ = undefined - attrConstruct _ = constructActionName - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Action::sensitive" - attrGet _ = getActionSensitive - attrSet _ = setActionSensitive - attrConstruct _ = constructActionSensitive - --- VVV Prop "short-label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getActionShortLabel :: (MonadIO m, ActionK o) => o -> m T.Text -getActionShortLabel obj = liftIO $ getObjectPropertyString obj "short-label" - -setActionShortLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" val - -constructActionShortLabel :: T.Text -> IO ([Char], GValue) -constructActionShortLabel val = constructObjectPropertyString "short-label" 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 = "Action::short-label" - attrGet _ = getActionShortLabel - attrSet _ = setActionShortLabel - attrConstruct _ = constructActionShortLabel - --- VVV Prop "stock-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getActionStockId :: (MonadIO m, ActionK o) => o -> m T.Text -getActionStockId obj = liftIO $ getObjectPropertyString obj "stock-id" - -setActionStockId :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val - -constructActionStockId :: T.Text -> IO ([Char], GValue) -constructActionStockId val = constructObjectPropertyString "stock-id" 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 = "Action::stock-id" - attrGet _ = getActionStockId - attrSet _ = setActionStockId - attrConstruct _ = constructActionStockId - --- VVV Prop "tooltip" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getActionTooltip :: (MonadIO m, ActionK o) => o -> m T.Text -getActionTooltip obj = liftIO $ getObjectPropertyString obj "tooltip" - -setActionTooltip :: (MonadIO m, ActionK o) => o -> T.Text -> m () -setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" val - -constructActionTooltip :: T.Text -> IO ([Char], GValue) -constructActionTooltip val = constructObjectPropertyString "tooltip" 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 = "Action::tooltip" - attrGet _ = getActionTooltip - attrSet _ = setActionTooltip - attrConstruct _ = constructActionTooltip - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Action::visible" - attrGet _ = getActionVisible - attrSet _ = setActionVisible - attrConstruct _ = constructActionVisible - --- VVV Prop "visible-horizontal" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Action::visible-horizontal" - attrGet _ = getActionVisibleHorizontal - attrSet _ = setActionVisibleHorizontal - attrConstruct _ = constructActionVisibleHorizontal - --- VVV Prop "visible-overflown" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Action::visible-overflown" - attrGet _ = getActionVisibleOverflown - attrSet _ = setActionVisibleOverflown - attrConstruct _ = constructActionVisibleOverflown - --- VVV Prop "visible-vertical" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Action::visible-vertical" - attrGet _ = getActionVisibleVertical - attrSet _ = setActionVisibleVertical - attrConstruct _ = constructActionVisibleVertical - -type instance AttributeList Action = ActionAttributeList -type ActionAttributeList = ('[ '("action-group", ActionActionGroupPropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) - -data ActionActivateSignalInfo -instance SignalInfo ActionActivateSignalInfo where - type HaskellCallbackType ActionActivateSignalInfo = ActionActivateCallback - connectSignal _ = connectActionActivate - -type instance SignalList Action = ActionSignalList -type ActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Action::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- stock_id - m Action -actionNew name label tooltip stock_id = 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' - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - result <- gtk_action_new name' maybeLabel maybeTooltip maybeStock_id - checkUnexpectedReturnNULL "gtk_action_new" result - result' <- (wrapObject Action) result - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStock_id - return result' - --- method Action::activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_activate _obj' - touchManagedPtr _obj - return () - --- method Action::block_activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionBlockActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_block_activate _obj' - touchManagedPtr _obj - return () - --- method Action::connect_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionConnectAccelerator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_connect_accelerator _obj' - touchManagedPtr _obj - return () - --- method Action::create_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -> -- icon_size - m Widget -actionCreateIcon _obj icon_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_create_icon _obj' icon_size - checkUnexpectedReturnNULL "gtk_action_create_icon" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Action::create_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::create_menu_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::create_tool_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::disconnect_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionDisconnectAccelerator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_disconnect_accelerator _obj' - touchManagedPtr _obj - return () - --- method Action::get_accel_closure --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionGetAlwaysShowImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_always_show_image _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::get_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_is_important --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionGetIsImportant _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_is_important _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_proxies --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -actionGetProxies _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_proxies _obj' - checkUnexpectedReturnNULL "gtk_action_get_proxies" result - result' <- unpackGSList result - result'' <- mapM (newObject Widget) result' - touchManagedPtr _obj - return result'' - --- method Action::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::get_short_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_stock_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Action::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::get_visible_horizontal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionGetVisibleHorizontal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_visible_horizontal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::get_visible_vertical --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionGetVisibleVertical _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_get_visible_vertical _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::is_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionIsSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_is_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::is_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Action::set_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- accel_group - m () -actionSetAccelGroup _obj accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_group <- case accel_group of - Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - gtk_action_set_accel_group _obj' maybeAccel_group - touchManagedPtr _obj - whenJust accel_group touchManagedPtr - return () - --- method Action::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- accel_path - m () -actionSetAccelPath _obj accel_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accel_path' <- textToCString accel_path - gtk_action_set_accel_path _obj' accel_path' - touchManagedPtr _obj - freeMem accel_path' - return () - --- method Action::set_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- always_show - m () -actionSetAlwaysShowImage _obj always_show = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let always_show' = (fromIntegral . fromEnum) always_show - gtk_action_set_always_show_image _obj' always_show' - touchManagedPtr _obj - return () - --- method Action::set_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionSetGicon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - gtk_action_set_gicon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - --- method Action::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- icon_name - m () -actionSetIconName _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - gtk_action_set_icon_name _obj' icon_name' - touchManagedPtr _obj - freeMem icon_name' - return () - --- method Action::set_is_important --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_important - m () -actionSetIsImportant _obj is_important = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_important' = (fromIntegral . fromEnum) is_important - gtk_action_set_is_important _obj' is_important' - touchManagedPtr _obj - return () - --- method Action::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -actionSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - gtk_action_set_label _obj' label' - touchManagedPtr _obj - freeMem label' - return () - --- method Action::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_action_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - --- method Action::set_short_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "short_label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- short_label - m () -actionSetShortLabel _obj short_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - short_label' <- textToCString short_label - gtk_action_set_short_label _obj' short_label' - touchManagedPtr _obj - freeMem short_label' - return () - --- method Action::set_stock_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- stock_id - m () -actionSetStockId _obj stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - gtk_action_set_stock_id _obj' stock_id' - touchManagedPtr _obj - freeMem stock_id' - return () - --- method Action::set_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -actionSetTooltip _obj tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - tooltip' <- textToCString tooltip - gtk_action_set_tooltip _obj' tooltip' - touchManagedPtr _obj - freeMem tooltip' - return () - --- method Action::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_action_set_visible _obj' visible' - touchManagedPtr _obj - return () - --- method Action::set_visible_horizontal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- visible_horizontal - m () -actionSetVisibleHorizontal _obj visible_horizontal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible_horizontal' = (fromIntegral . fromEnum) visible_horizontal - gtk_action_set_visible_horizontal _obj' visible_horizontal' - touchManagedPtr _obj - return () - --- method Action::set_visible_vertical --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- visible_vertical - m () -actionSetVisibleVertical _obj visible_vertical = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible_vertical' = (fromIntegral . fromEnum) visible_vertical - gtk_action_set_visible_vertical _obj' visible_vertical' - touchManagedPtr _obj - return () - --- method Action::unblock_activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionUnblockActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_action_unblock_activate _obj' - touchManagedPtr _obj - return () - - 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,30 +0,0 @@ -module GI.Gtk.Objects.Action where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,218 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - actionBarGetCenterWidget , - - --- ** actionBarNew - actionBarNew , - - --- ** actionBarPackEnd - actionBarPackEnd , - - --- ** actionBarPackStart - actionBarPackStart , - - --- ** actionBarSetCenterWidget - actionBarSetCenterWidget , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ActionBar = ActionBarAttributeList -type ActionBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ActionBar = ActionBarSignalList -type ActionBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ActionBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ActionBar::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ActionBar::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ActionBar::set_center_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "center_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- center_widget - m () -actionBarSetCenterWidget _obj center_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCenter_widget <- case center_widget of - Nothing -> return nullPtr - Just jCenter_widget -> do - let jCenter_widget' = unsafeManagedPtrCastPtr jCenter_widget - return jCenter_widget' - gtk_action_bar_set_center_widget _obj' maybeCenter_widget - touchManagedPtr _obj - whenJust center_widget touchManagedPtr - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.ActionBar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionBar = ActionBar (ForeignPtr ActionBar) -instance GObject ActionBar where -class GObject o => ActionBarK o -instance (GObject o, IsDescendantOf ActionBar o) => ActionBarK o 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,953 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - actionGroupAddAction , - - --- ** actionGroupAddActionWithAccel - actionGroupAddActionWithAccel , - - --- ** actionGroupGetAccelGroup - actionGroupGetAccelGroup , - - --- ** actionGroupGetAction - actionGroupGetAction , - - --- ** actionGroupGetName - actionGroupGetName , - - --- ** actionGroupGetSensitive - actionGroupGetSensitive , - - --- ** actionGroupGetVisible - actionGroupGetVisible , - - --- ** actionGroupListActions - actionGroupListActions , - - --- ** actionGroupNew - actionGroupNew , - - --- ** actionGroupRemoveAction - actionGroupRemoveAction , - - --- ** actionGroupSetAccelGroup - actionGroupSetAccelGroup , - - --- ** actionGroupSetSensitive - actionGroupSetSensitive , - - --- ** actionGroupSetTranslateFunc - actionGroupSetTranslateFunc , - - --- ** actionGroupSetTranslationDomain - actionGroupSetTranslationDomain , - - --- ** actionGroupSetVisible - actionGroupSetVisible , - - --- ** actionGroupTranslateString - actionGroupTranslateString , - - - - - -- * Properties --- ** AccelGroup - ActionGroupAccelGroupPropertyInfo , - constructActionGroupAccelGroup , - getActionGroupAccelGroup , - setActionGroupAccelGroup , - - --- ** Name - ActionGroupNamePropertyInfo , - constructActionGroupName , - getActionGroupName , - - --- ** Sensitive - ActionGroupSensitivePropertyInfo , - constructActionGroupSensitive , - getActionGroupSensitive , - setActionGroupSensitive , - - --- ** Visible - ActionGroupVisiblePropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getActionGroupAccelGroup :: (MonadIO m, ActionGroupK o) => o -> m AccelGroup -getActionGroupAccelGroup obj = liftIO $ getObjectPropertyObject obj "accel-group" AccelGroup - -setActionGroupAccelGroup :: (MonadIO m, ActionGroupK o, AccelGroupK a) => o -> a -> m () -setActionGroupAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val - -constructActionGroupAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructActionGroupAccelGroup val = constructObjectPropertyObject "accel-group" val - -data ActionGroupAccelGroupPropertyInfo -instance AttrInfo ActionGroupAccelGroupPropertyInfo where - type AttrAllowedOps ActionGroupAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionGroupAccelGroupPropertyInfo = AccelGroupK - type AttrBaseTypeConstraint ActionGroupAccelGroupPropertyInfo = ActionGroupK - type AttrGetType ActionGroupAccelGroupPropertyInfo = AccelGroup - type AttrLabel ActionGroupAccelGroupPropertyInfo = "ActionGroup::accel-group" - attrGet _ = getActionGroupAccelGroup - attrSet _ = setActionGroupAccelGroup - attrConstruct _ = constructActionGroupAccelGroup - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getActionGroupName :: (MonadIO m, ActionGroupK o) => o -> m T.Text -getActionGroupName obj = liftIO $ getObjectPropertyString obj "name" - -constructActionGroupName :: T.Text -> IO ([Char], GValue) -constructActionGroupName val = constructObjectPropertyString "name" val - -data ActionGroupNamePropertyInfo -instance AttrInfo ActionGroupNamePropertyInfo where - type AttrAllowedOps ActionGroupNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ActionGroupNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ActionGroupNamePropertyInfo = ActionGroupK - type AttrGetType ActionGroupNamePropertyInfo = T.Text - type AttrLabel ActionGroupNamePropertyInfo = "ActionGroup::name" - attrGet _ = getActionGroupName - attrSet _ = undefined - attrConstruct _ = constructActionGroupName - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ActionGroup::sensitive" - attrGet _ = getActionGroupSensitive - attrSet _ = setActionGroupSensitive - attrConstruct _ = constructActionGroupSensitive - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ActionGroup::visible" - attrGet _ = getActionGroupVisible - attrSet _ = setActionGroupVisible - attrConstruct _ = constructActionGroupVisible - -type instance AttributeList ActionGroup = ActionGroupAttributeList -type ActionGroupAttributeList = ('[ '("accel-group", ActionGroupAccelGroupPropertyInfo), '("name", ActionGroupNamePropertyInfo), '("sensitive", ActionGroupSensitivePropertyInfo), '("visible", ActionGroupVisiblePropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("connect-proxy", ActionGroupConnectProxySignalInfo), '("disconnect-proxy", ActionGroupDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("post-activate", ActionGroupPostActivateSignalInfo), '("pre-activate", ActionGroupPreActivateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ActionGroup::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "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 -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 {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ActionGroup::add_action_with_accel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ActionGroup::get_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ActionGroup::get_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- action_name - m Action -actionGroupGetAction _obj action_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - result <- gtk_action_group_get_action _obj' action_name' - checkUnexpectedReturnNULL "gtk_action_group_get_action" result - result' <- (newObject Action) result - touchManagedPtr _obj - freeMem action_name' - return result' - --- method ActionGroup::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ActionGroup::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionGroupGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_group_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ActionGroup::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -actionGroupGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_group_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ActionGroup::list_actions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -actionGroupListActions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_action_group_list_actions _obj' - checkUnexpectedReturnNULL "gtk_action_group_list_actions" result - result' <- unpackGList result - result'' <- mapM (newObject Action) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method ActionGroup::remove_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ActionGroup::set_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- accel_group - m () -actionGroupSetAccelGroup _obj accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_group <- case accel_group of - Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - gtk_action_group_set_accel_group _obj' maybeAccel_group - touchManagedPtr _obj - whenJust accel_group touchManagedPtr - return () - --- method ActionGroup::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionGroupSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_action_group_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - --- method ActionGroup::set_translate_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TranslateFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - -{-# DEPRECATED actionGroupSetTranslateFunc ["(Since version 3.10)"]#-} -actionGroupSetTranslateFunc :: - (MonadIO m, ActionGroupK a) => - a -> -- _obj - TranslateFunc -> -- func - m () -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 () - --- method ActionGroup::set_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ActionGroup::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -actionGroupSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_action_group_set_visible _obj' visible' - touchManagedPtr _obj - return () - --- method ActionGroup::translate_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType 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 -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' - - 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,21 +0,0 @@ -module GI.Gtk.Objects.ActionGroup where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,932 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - adjustmentChanged , - - --- ** adjustmentClampPage - adjustmentClampPage , - - --- ** adjustmentConfigure - adjustmentConfigure , - - --- ** adjustmentGetLower - adjustmentGetLower , - - --- ** adjustmentGetMinimumIncrement - adjustmentGetMinimumIncrement , - - --- ** adjustmentGetPageIncrement - adjustmentGetPageIncrement , - - --- ** adjustmentGetPageSize - adjustmentGetPageSize , - - --- ** adjustmentGetStepIncrement - adjustmentGetStepIncrement , - - --- ** adjustmentGetUpper - adjustmentGetUpper , - - --- ** adjustmentGetValue - adjustmentGetValue , - - --- ** adjustmentNew - adjustmentNew , - - --- ** adjustmentSetLower - adjustmentSetLower , - - --- ** adjustmentSetPageIncrement - adjustmentSetPageIncrement , - - --- ** adjustmentSetPageSize - adjustmentSetPageSize , - - --- ** adjustmentSetStepIncrement - adjustmentSetStepIncrement , - - --- ** adjustmentSetUpper - adjustmentSetUpper , - - --- ** adjustmentSetValue - adjustmentSetValue , - - --- ** adjustmentValueChanged - adjustmentValueChanged , - - - - - -- * Properties --- ** Lower - AdjustmentLowerPropertyInfo , - constructAdjustmentLower , - getAdjustmentLower , - setAdjustmentLower , - - --- ** PageIncrement - AdjustmentPageIncrementPropertyInfo , - constructAdjustmentPageIncrement , - getAdjustmentPageIncrement , - setAdjustmentPageIncrement , - - --- ** PageSize - AdjustmentPageSizePropertyInfo , - constructAdjustmentPageSize , - getAdjustmentPageSize , - setAdjustmentPageSize , - - --- ** StepIncrement - AdjustmentStepIncrementPropertyInfo , - constructAdjustmentStepIncrement , - getAdjustmentStepIncrement , - setAdjustmentStepIncrement , - - --- ** Upper - AdjustmentUpperPropertyInfo , - constructAdjustmentUpper , - getAdjustmentUpper , - setAdjustmentUpper , - - --- ** Value - AdjustmentValuePropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "Adjustment::lower" - attrGet _ = getAdjustmentLower - attrSet _ = setAdjustmentLower - attrConstruct _ = constructAdjustmentLower - --- VVV Prop "page-increment" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Adjustment::page-increment" - attrGet _ = getAdjustmentPageIncrement - attrSet _ = setAdjustmentPageIncrement - attrConstruct _ = constructAdjustmentPageIncrement - --- VVV Prop "page-size" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Adjustment::page-size" - attrGet _ = getAdjustmentPageSize - attrSet _ = setAdjustmentPageSize - attrConstruct _ = constructAdjustmentPageSize - --- VVV Prop "step-increment" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Adjustment::step-increment" - attrGet _ = getAdjustmentStepIncrement - attrSet _ = setAdjustmentStepIncrement - attrConstruct _ = constructAdjustmentStepIncrement - --- VVV Prop "upper" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Adjustment::upper" - attrGet _ = getAdjustmentUpper - attrSet _ = setAdjustmentUpper - attrConstruct _ = constructAdjustmentUpper - --- VVV Prop "value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Adjustment::value" - attrGet _ = getAdjustmentValue - attrSet _ = setAdjustmentValue - attrConstruct _ = constructAdjustmentValue - -type instance AttributeList Adjustment = AdjustmentAttributeList -type AdjustmentAttributeList = ('[ '("lower", AdjustmentLowerPropertyInfo), '("page-increment", AdjustmentPageIncrementPropertyInfo), '("page-size", AdjustmentPageSizePropertyInfo), '("step-increment", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] :: [(Symbol, *)]) - -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), '("value-changed", AdjustmentValueChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Adjustment::new --- method type : Constructor --- Args : [Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- step_increment - Double -> -- page_increment - Double -> -- page_size - m Adjustment -adjustmentNew value lower upper step_increment page_increment page_size = liftIO $ do - let value' = realToFrac value - let lower' = realToFrac lower - let upper' = realToFrac upper - let step_increment' = realToFrac step_increment - let page_increment' = realToFrac page_increment - let page_size' = realToFrac page_size - result <- gtk_adjustment_new value' lower' upper' step_increment' page_increment' page_size' - checkUnexpectedReturnNULL "gtk_adjustment_new" result - result' <- (newObject Adjustment) result - return result' - --- method Adjustment::changed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_adjustment_changed" gtk_adjustment_changed :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO () - - -adjustmentChanged :: - (MonadIO m, AdjustmentK a) => - a -> -- _obj - m () -adjustmentChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_adjustment_changed _obj' - touchManagedPtr _obj - return () - --- method Adjustment::clamp_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Adjustment::configure --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- step_increment - Double -> -- page_increment - Double -> -- page_size - m () -adjustmentConfigure _obj value lower upper step_increment page_increment page_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - let lower' = realToFrac lower - let upper' = realToFrac upper - let step_increment' = realToFrac step_increment - let page_increment' = realToFrac page_increment - let page_size' = realToFrac page_size - gtk_adjustment_configure _obj' value' lower' upper' step_increment' page_increment' page_size' - touchManagedPtr _obj - return () - --- method Adjustment::get_lower --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -adjustmentGetLower _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_lower _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Adjustment::get_minimum_increment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -adjustmentGetMinimumIncrement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_minimum_increment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Adjustment::get_page_increment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -adjustmentGetPageIncrement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_page_increment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Adjustment::get_page_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -adjustmentGetPageSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_page_size _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Adjustment::get_step_increment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -adjustmentGetStepIncrement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_step_increment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Adjustment::get_upper --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -adjustmentGetUpper _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_upper _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Adjustment::get_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -adjustmentGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_adjustment_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Adjustment::set_lower --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -adjustmentSetLower _obj lower = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let lower' = realToFrac lower - gtk_adjustment_set_lower _obj' lower' - touchManagedPtr _obj - return () - --- method Adjustment::set_page_increment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- page_increment - m () -adjustmentSetPageIncrement _obj page_increment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page_increment' = realToFrac page_increment - gtk_adjustment_set_page_increment _obj' page_increment' - touchManagedPtr _obj - return () - --- method Adjustment::set_page_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- page_size - m () -adjustmentSetPageSize _obj page_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page_size' = realToFrac page_size - gtk_adjustment_set_page_size _obj' page_size' - touchManagedPtr _obj - return () - --- method Adjustment::set_step_increment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step_increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- step_increment - m () -adjustmentSetStepIncrement _obj step_increment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let step_increment' = realToFrac step_increment - gtk_adjustment_set_step_increment _obj' step_increment' - touchManagedPtr _obj - return () - --- method Adjustment::set_upper --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "upper", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -adjustmentSetUpper _obj upper = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let upper' = realToFrac upper - gtk_adjustment_set_upper _obj' upper' - touchManagedPtr _obj - return () - --- method Adjustment::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -adjustmentSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_adjustment_set_value _obj' value' - touchManagedPtr _obj - return () - --- method Adjustment::value_changed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_adjustment_value_changed" gtk_adjustment_value_changed :: - Ptr Adjustment -> -- _obj : TInterface "Gtk" "Adjustment" - IO () - - -adjustmentValueChanged :: - (MonadIO m, AdjustmentK a) => - a -> -- _obj - m () -adjustmentValueChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_adjustment_value_changed _obj' - touchManagedPtr _obj - return () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.Adjustment where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,471 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - alignmentGetPadding , - - --- ** alignmentNew - alignmentNew , - - --- ** alignmentSet - alignmentSet , - - --- ** alignmentSetPadding - alignmentSetPadding , - - - - - -- * Properties --- ** BottomPadding - AlignmentBottomPaddingPropertyInfo , - constructAlignmentBottomPadding , - getAlignmentBottomPadding , - setAlignmentBottomPadding , - - --- ** LeftPadding - AlignmentLeftPaddingPropertyInfo , - constructAlignmentLeftPadding , - getAlignmentLeftPadding , - setAlignmentLeftPadding , - - --- ** RightPadding - AlignmentRightPaddingPropertyInfo , - constructAlignmentRightPadding , - getAlignmentRightPadding , - setAlignmentRightPadding , - - --- ** TopPadding - AlignmentTopPaddingPropertyInfo , - constructAlignmentTopPadding , - getAlignmentTopPadding , - setAlignmentTopPadding , - - --- ** Xalign - AlignmentXalignPropertyInfo , - constructAlignmentXalign , - getAlignmentXalign , - setAlignmentXalign , - - --- ** Xscale - AlignmentXscalePropertyInfo , - constructAlignmentXscale , - getAlignmentXscale , - setAlignmentXscale , - - --- ** Yalign - AlignmentYalignPropertyInfo , - constructAlignmentYalign , - getAlignmentYalign , - setAlignmentYalign , - - --- ** Yscale - AlignmentYscalePropertyInfo , - constructAlignmentYscale , - getAlignmentYscale , - setAlignmentYscale , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "bottom-padding" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentBottomPadding obj = liftIO $ getObjectPropertyCUInt obj "bottom-padding" - -setAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentBottomPadding obj val = liftIO $ setObjectPropertyCUInt obj "bottom-padding" val - -constructAlignmentBottomPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentBottomPadding val = constructObjectPropertyCUInt "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 = "Alignment::bottom-padding" - attrGet _ = getAlignmentBottomPadding - attrSet _ = setAlignmentBottomPadding - attrConstruct _ = constructAlignmentBottomPadding - --- VVV Prop "left-padding" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentLeftPadding obj = liftIO $ getObjectPropertyCUInt obj "left-padding" - -setAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentLeftPadding obj val = liftIO $ setObjectPropertyCUInt obj "left-padding" val - -constructAlignmentLeftPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentLeftPadding val = constructObjectPropertyCUInt "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 = "Alignment::left-padding" - attrGet _ = getAlignmentLeftPadding - attrSet _ = setAlignmentLeftPadding - attrConstruct _ = constructAlignmentLeftPadding - --- VVV Prop "right-padding" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentRightPadding obj = liftIO $ getObjectPropertyCUInt obj "right-padding" - -setAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentRightPadding obj val = liftIO $ setObjectPropertyCUInt obj "right-padding" val - -constructAlignmentRightPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentRightPadding val = constructObjectPropertyCUInt "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 = "Alignment::right-padding" - attrGet _ = getAlignmentRightPadding - attrSet _ = setAlignmentRightPadding - attrConstruct _ = constructAlignmentRightPadding - --- VVV Prop "top-padding" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 -getAlignmentTopPadding obj = liftIO $ getObjectPropertyCUInt obj "top-padding" - -setAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () -setAlignmentTopPadding obj val = liftIO $ setObjectPropertyCUInt obj "top-padding" val - -constructAlignmentTopPadding :: Word32 -> IO ([Char], GValue) -constructAlignmentTopPadding val = constructObjectPropertyCUInt "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 = "Alignment::top-padding" - attrGet _ = getAlignmentTopPadding - attrSet _ = setAlignmentTopPadding - attrConstruct _ = constructAlignmentTopPadding - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Alignment::xalign" - attrGet _ = getAlignmentXalign - attrSet _ = setAlignmentXalign - attrConstruct _ = constructAlignmentXalign - --- VVV Prop "xscale" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Alignment::xscale" - attrGet _ = getAlignmentXscale - attrSet _ = setAlignmentXscale - attrConstruct _ = constructAlignmentXscale - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Alignment::yalign" - attrGet _ = getAlignmentYalign - attrSet _ = setAlignmentYalign - attrConstruct _ = constructAlignmentYalign - --- VVV Prop "yscale" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Alignment::yscale" - attrGet _ = getAlignmentYscale - attrSet _ = setAlignmentYscale - attrConstruct _ = constructAlignmentYscale - -type instance AttributeList Alignment = AlignmentAttributeList -type AlignmentAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("bottom-padding", AlignmentBottomPaddingPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("left-padding", AlignmentLeftPaddingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-padding", AlignmentRightPaddingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("top-padding", AlignmentTopPaddingPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AlignmentXalignPropertyInfo), '("xscale", AlignmentXscalePropertyInfo), '("yalign", AlignmentYalignPropertyInfo), '("yscale", AlignmentYscalePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Alignment = AlignmentSignalList -type AlignmentSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Alignment::new --- method type : Constructor --- Args : [Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr Word32 -> -- padding_bottom : TBasicType TUInt32 - Ptr Word32 -> -- padding_left : TBasicType TUInt32 - Ptr Word32 -> -- padding_right : TBasicType TUInt32 - 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) -alignmentGetPadding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - padding_top <- allocMem :: IO (Ptr Word32) - padding_bottom <- allocMem :: IO (Ptr Word32) - padding_left <- allocMem :: IO (Ptr Word32) - padding_right <- allocMem :: IO (Ptr Word32) - gtk_alignment_get_padding _obj' padding_top padding_bottom padding_left padding_right - padding_top' <- peek padding_top - padding_bottom' <- peek padding_bottom - padding_left' <- peek padding_left - padding_right' <- peek padding_right - touchManagedPtr _obj - freeMem padding_top - freeMem padding_bottom - freeMem padding_left - freeMem padding_right - return (padding_top', padding_bottom', padding_left', padding_right') - --- method Alignment::set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yscale", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Alignment::set_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_top", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_bottom", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_left", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding_right", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- padding_bottom : TBasicType TUInt32 - Word32 -> -- padding_left : TBasicType TUInt32 - Word32 -> -- padding_right : TBasicType TUInt32 - IO () - -{-# DEPRECATED alignmentSetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties"]#-} -alignmentSetPadding :: - (MonadIO m, AlignmentK a) => - a -> -- _obj - Word32 -> -- padding_top - Word32 -> -- padding_bottom - Word32 -> -- padding_left - Word32 -> -- padding_right - m () -alignmentSetPadding _obj padding_top padding_bottom padding_left padding_right = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_alignment_set_padding _obj' padding_top padding_bottom padding_left padding_right - touchManagedPtr _obj - return () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.Alignment where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,533 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - appChooserButtonAppendCustomItem , - - --- ** appChooserButtonAppendSeparator - appChooserButtonAppendSeparator , - - --- ** appChooserButtonGetHeading - appChooserButtonGetHeading , - - --- ** appChooserButtonGetShowDefaultItem - appChooserButtonGetShowDefaultItem , - - --- ** appChooserButtonGetShowDialogItem - appChooserButtonGetShowDialogItem , - - --- ** appChooserButtonNew - appChooserButtonNew , - - --- ** appChooserButtonSetActiveCustomItem - appChooserButtonSetActiveCustomItem , - - --- ** appChooserButtonSetHeading - appChooserButtonSetHeading , - - --- ** appChooserButtonSetShowDefaultItem - appChooserButtonSetShowDefaultItem , - - --- ** appChooserButtonSetShowDialogItem - appChooserButtonSetShowDialogItem , - - - - - -- * Properties --- ** Heading - AppChooserButtonHeadingPropertyInfo , - constructAppChooserButtonHeading , - getAppChooserButtonHeading , - setAppChooserButtonHeading , - - --- ** ShowDefaultItem - AppChooserButtonShowDefaultItemPropertyInfo, - constructAppChooserButtonShowDefaultItem, - getAppChooserButtonShowDefaultItem , - setAppChooserButtonShowDefaultItem , - - --- ** ShowDialogItem - AppChooserButtonShowDialogItemPropertyInfo, - constructAppChooserButtonShowDialogItem , - getAppChooserButtonShowDialogItem , - setAppChooserButtonShowDialogItem , - - - - - -- * Signals --- ** CustomItemActivated - AppChooserButtonCustomItemActivatedCallback, - AppChooserButtonCustomItemActivatedCallbackC, - AppChooserButtonCustomItemActivatedSignalInfo, - afterAppChooserButtonCustomItemActivated, - appChooserButtonCustomItemActivatedCallbackWrapper, - appChooserButtonCustomItemActivatedClosure, - mkAppChooserButtonCustomItemActivatedCallback, - noAppChooserButtonCustomItemActivatedCallback, - onAppChooserButtonCustomItemActivated , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ item_name _ = do - item_name' <- cstringToText item_name - _cb item_name' - -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] - -getAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> m T.Text -getAppChooserButtonHeading obj = liftIO $ getObjectPropertyString obj "heading" - -setAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> T.Text -> m () -setAppChooserButtonHeading obj val = liftIO $ setObjectPropertyString obj "heading" val - -constructAppChooserButtonHeading :: T.Text -> IO ([Char], GValue) -constructAppChooserButtonHeading val = constructObjectPropertyString "heading" 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 = "AppChooserButton::heading" - attrGet _ = getAppChooserButtonHeading - attrSet _ = setAppChooserButtonHeading - attrConstruct _ = constructAppChooserButtonHeading - --- VVV Prop "show-default-item" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "AppChooserButton::show-default-item" - attrGet _ = getAppChooserButtonShowDefaultItem - attrSet _ = setAppChooserButtonShowDefaultItem - attrConstruct _ = constructAppChooserButtonShowDefaultItem - --- VVV Prop "show-dialog-item" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "AppChooserButton::show-dialog-item" - attrGet _ = getAppChooserButtonShowDialogItem - attrSet _ = setAppChooserButtonShowDialogItem - attrConstruct _ = constructAppChooserButtonShowDialogItem - -type instance AttributeList AppChooserButton = AppChooserButtonAttributeList -type AppChooserButtonAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("heading", AppChooserButtonHeadingPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-default-item", AppChooserButtonShowDefaultItemPropertyInfo), '("show-dialog-item", AppChooserButtonShowDialogItemPropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) - -data AppChooserButtonCustomItemActivatedSignalInfo -instance SignalInfo AppChooserButtonCustomItemActivatedSignalInfo where - type HaskellCallbackType AppChooserButtonCustomItemActivatedSignalInfo = AppChooserButtonCustomItemActivatedCallback - connectSignal _ = connectAppChooserButtonCustomItemActivated - -type instance SignalList AppChooserButton = AppChooserButtonSignalList -type AppChooserButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("custom-item-activated", AppChooserButtonCustomItemActivatedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AppChooserButton::new --- method type : Constructor --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_type - m AppChooserButton -appChooserButtonNew content_type = liftIO $ do - content_type' <- textToCString content_type - result <- gtk_app_chooser_button_new content_type' - checkUnexpectedReturnNULL "gtk_app_chooser_button_new" result - result' <- (newObject AppChooserButton) result - freeMem content_type' - return result' - --- method AppChooserButton::append_custom_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AppChooserButton::append_separator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -appChooserButtonAppendSeparator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_app_chooser_button_append_separator _obj' - touchManagedPtr _obj - return () - --- method AppChooserButton::get_heading --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserButton::get_show_default_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserButton::get_show_dialog_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserButton::set_active_custom_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method AppChooserButton::set_heading --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method AppChooserButton::set_show_default_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AppChooserButton::set_show_dialog_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.AppChooserButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,298 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - appChooserDialogGetHeading , - - --- ** appChooserDialogGetWidget - appChooserDialogGetWidget , - - --- ** appChooserDialogNew - appChooserDialogNew , - - --- ** appChooserDialogNewForContentType - appChooserDialogNewForContentType , - - --- ** appChooserDialogSetHeading - appChooserDialogSetHeading , - - - - - -- * Properties --- ** Gfile - AppChooserDialogGfilePropertyInfo , - constructAppChooserDialogGfile , - getAppChooserDialogGfile , - - --- ** Heading - AppChooserDialogHeadingPropertyInfo , - constructAppChooserDialogHeading , - getAppChooserDialogHeading , - setAppChooserDialogHeading , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "gfile" - -- Type: TInterface "Gio" "File" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAppChooserDialogGfile :: (MonadIO m, AppChooserDialogK o) => o -> m Gio.File -getAppChooserDialogGfile obj = liftIO $ getObjectPropertyObject obj "gfile" Gio.File - -constructAppChooserDialogGfile :: (Gio.FileK a) => a -> IO ([Char], GValue) -constructAppChooserDialogGfile val = constructObjectPropertyObject "gfile" val - -data AppChooserDialogGfilePropertyInfo -instance AttrInfo AppChooserDialogGfilePropertyInfo where - type AttrAllowedOps AppChooserDialogGfilePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppChooserDialogGfilePropertyInfo = Gio.FileK - type AttrBaseTypeConstraint AppChooserDialogGfilePropertyInfo = AppChooserDialogK - type AttrGetType AppChooserDialogGfilePropertyInfo = Gio.File - type AttrLabel AppChooserDialogGfilePropertyInfo = "AppChooserDialog::gfile" - attrGet _ = getAppChooserDialogGfile - attrSet _ = undefined - attrConstruct _ = constructAppChooserDialogGfile - --- VVV Prop "heading" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> m T.Text -getAppChooserDialogHeading obj = liftIO $ getObjectPropertyString obj "heading" - -setAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> T.Text -> m () -setAppChooserDialogHeading obj val = liftIO $ setObjectPropertyString obj "heading" val - -constructAppChooserDialogHeading :: T.Text -> IO ([Char], GValue) -constructAppChooserDialogHeading val = constructObjectPropertyString "heading" 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 = "AppChooserDialog::heading" - attrGet _ = getAppChooserDialogHeading - attrSet _ = setAppChooserDialogHeading - attrConstruct _ = constructAppChooserDialogHeading - -type instance AttributeList AppChooserDialog = AppChooserDialogAttributeList -type AppChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gfile", AppChooserDialogGfilePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("heading", AppChooserDialogHeadingPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AppChooserDialog = AppChooserDialogSignalList -type AppChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AppChooserDialog::new --- method type : Constructor --- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DialogFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_type - m AppChooserDialog -appChooserDialogNewForContentType parent flags content_type = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - let flags' = gflagsToWord flags - content_type' <- textToCString content_type - result <- gtk_app_chooser_dialog_new_for_content_type maybeParent flags' content_type' - checkUnexpectedReturnNULL "gtk_app_chooser_dialog_new_for_content_type" result - result' <- (newObject AppChooserDialog) result - whenJust parent touchManagedPtr - freeMem content_type' - return result' - --- method AppChooserDialog::get_heading --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserDialog::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserDialog::set_heading --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "heading", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.AppChooserDialog where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,828 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - appChooserWidgetGetDefaultText , - - --- ** appChooserWidgetGetShowAll - appChooserWidgetGetShowAll , - - --- ** appChooserWidgetGetShowDefault - appChooserWidgetGetShowDefault , - - --- ** appChooserWidgetGetShowFallback - appChooserWidgetGetShowFallback , - - --- ** appChooserWidgetGetShowOther - appChooserWidgetGetShowOther , - - --- ** appChooserWidgetGetShowRecommended - appChooserWidgetGetShowRecommended , - - --- ** appChooserWidgetNew - appChooserWidgetNew , - - --- ** appChooserWidgetSetDefaultText - appChooserWidgetSetDefaultText , - - --- ** appChooserWidgetSetShowAll - appChooserWidgetSetShowAll , - - --- ** appChooserWidgetSetShowDefault - appChooserWidgetSetShowDefault , - - --- ** appChooserWidgetSetShowFallback - appChooserWidgetSetShowFallback , - - --- ** appChooserWidgetSetShowOther - appChooserWidgetSetShowOther , - - --- ** appChooserWidgetSetShowRecommended - appChooserWidgetSetShowRecommended , - - - - - -- * Properties --- ** DefaultText - AppChooserWidgetDefaultTextPropertyInfo , - constructAppChooserWidgetDefaultText , - getAppChooserWidgetDefaultText , - setAppChooserWidgetDefaultText , - - --- ** ShowAll - AppChooserWidgetShowAllPropertyInfo , - constructAppChooserWidgetShowAll , - getAppChooserWidgetShowAll , - setAppChooserWidgetShowAll , - - --- ** ShowDefault - AppChooserWidgetShowDefaultPropertyInfo , - constructAppChooserWidgetShowDefault , - getAppChooserWidgetShowDefault , - setAppChooserWidgetShowDefault , - - --- ** ShowFallback - AppChooserWidgetShowFallbackPropertyInfo, - constructAppChooserWidgetShowFallback , - getAppChooserWidgetShowFallback , - setAppChooserWidgetShowFallback , - - --- ** ShowOther - AppChooserWidgetShowOtherPropertyInfo , - constructAppChooserWidgetShowOther , - getAppChooserWidgetShowOther , - setAppChooserWidgetShowOther , - - --- ** ShowRecommended - AppChooserWidgetShowRecommendedPropertyInfo, - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> m T.Text -getAppChooserWidgetDefaultText obj = liftIO $ getObjectPropertyString obj "default-text" - -setAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> T.Text -> m () -setAppChooserWidgetDefaultText obj val = liftIO $ setObjectPropertyString obj "default-text" val - -constructAppChooserWidgetDefaultText :: T.Text -> IO ([Char], GValue) -constructAppChooserWidgetDefaultText val = constructObjectPropertyString "default-text" 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 = "AppChooserWidget::default-text" - attrGet _ = getAppChooserWidgetDefaultText - attrSet _ = setAppChooserWidgetDefaultText - attrConstruct _ = constructAppChooserWidgetDefaultText - --- VVV Prop "show-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "AppChooserWidget::show-all" - attrGet _ = getAppChooserWidgetShowAll - attrSet _ = setAppChooserWidgetShowAll - attrConstruct _ = constructAppChooserWidgetShowAll - --- VVV Prop "show-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "AppChooserWidget::show-default" - attrGet _ = getAppChooserWidgetShowDefault - attrSet _ = setAppChooserWidgetShowDefault - attrConstruct _ = constructAppChooserWidgetShowDefault - --- VVV Prop "show-fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "AppChooserWidget::show-fallback" - attrGet _ = getAppChooserWidgetShowFallback - attrSet _ = setAppChooserWidgetShowFallback - attrConstruct _ = constructAppChooserWidgetShowFallback - --- VVV Prop "show-other" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "AppChooserWidget::show-other" - attrGet _ = getAppChooserWidgetShowOther - attrSet _ = setAppChooserWidgetShowOther - attrConstruct _ = constructAppChooserWidgetShowOther - --- VVV Prop "show-recommended" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "AppChooserWidget::show-recommended" - attrGet _ = getAppChooserWidgetShowRecommended - attrSet _ = setAppChooserWidgetShowRecommended - attrConstruct _ = constructAppChooserWidgetShowRecommended - -type instance AttributeList AppChooserWidget = AppChooserWidgetAttributeList -type AppChooserWidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("default-text", AppChooserWidgetDefaultTextPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-all", AppChooserWidgetShowAllPropertyInfo), '("show-default", AppChooserWidgetShowDefaultPropertyInfo), '("show-fallback", AppChooserWidgetShowFallbackPropertyInfo), '("show-other", AppChooserWidgetShowOtherPropertyInfo), '("show-recommended", AppChooserWidgetShowRecommendedPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("application-activated", AppChooserWidgetApplicationActivatedSignalInfo), '("application-selected", AppChooserWidgetApplicationSelectedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", AppChooserWidgetPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AppChooserWidget::new --- method type : Constructor --- Args : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_type - m AppChooserWidget -appChooserWidgetNew content_type = liftIO $ do - content_type' <- textToCString content_type - result <- gtk_app_chooser_widget_new content_type' - checkUnexpectedReturnNULL "gtk_app_chooser_widget_new" result - result' <- (newObject AppChooserWidget) result - freeMem content_type' - return result' - --- method AppChooserWidget::get_default_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserWidget::get_show_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserWidget::get_show_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserWidget::get_show_fallback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserWidget::get_show_other --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserWidget::get_show_recommended --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method AppChooserWidget::set_default_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method AppChooserWidget::set_show_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AppChooserWidget::set_show_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AppChooserWidget::set_show_fallback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AppChooserWidget::set_show_other --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method AppChooserWidget::set_show_recommended --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AppChooserWidget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,22 +0,0 @@ -module GI.Gtk.Objects.AppChooserWidget where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1023 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - applicationAddAccelerator , - - --- ** applicationAddWindow - applicationAddWindow , - - --- ** applicationGetAccelsForAction - applicationGetAccelsForAction , - - --- ** applicationGetActionsForAccel - applicationGetActionsForAccel , - - --- ** applicationGetActiveWindow - applicationGetActiveWindow , - - --- ** applicationGetAppMenu - applicationGetAppMenu , - - --- ** applicationGetMenuById - applicationGetMenuById , - - --- ** applicationGetMenubar - applicationGetMenubar , - - --- ** applicationGetWindowById - applicationGetWindowById , - - --- ** applicationGetWindows - applicationGetWindows , - - --- ** applicationInhibit - applicationInhibit , - - --- ** applicationIsInhibited - applicationIsInhibited , - - --- ** applicationListActionDescriptions - applicationListActionDescriptions , - - --- ** applicationNew - applicationNew , - - --- ** applicationPrefersAppMenu - applicationPrefersAppMenu , - - --- ** applicationRemoveAccelerator - applicationRemoveAccelerator , - - --- ** applicationRemoveWindow - applicationRemoveWindow , - - --- ** applicationSetAccelsForAction - applicationSetAccelsForAction , - - --- ** applicationSetAppMenu - applicationSetAppMenu , - - --- ** applicationSetMenubar - applicationSetMenubar , - - --- ** applicationUninhibit - applicationUninhibit , - - - - - -- * Properties --- ** ActiveWindow - ApplicationActiveWindowPropertyInfo , - getApplicationActiveWindow , - - --- ** AppMenu - ApplicationAppMenuPropertyInfo , - constructApplicationAppMenu , - getApplicationAppMenu , - setApplicationAppMenu , - - --- ** Menubar - ApplicationMenubarPropertyInfo , - constructApplicationMenubar , - getApplicationMenubar , - setApplicationMenubar , - - --- ** RegisterSession - ApplicationRegisterSessionPropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getApplicationActiveWindow :: (MonadIO m, ApplicationK o) => o -> m Window -getApplicationActiveWindow obj = liftIO $ getObjectPropertyObject obj "active-window" Window - -data ApplicationActiveWindowPropertyInfo -instance AttrInfo ApplicationActiveWindowPropertyInfo where - type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = ApplicationK - type AttrGetType ApplicationActiveWindowPropertyInfo = Window - type AttrLabel ApplicationActiveWindowPropertyInfo = "Application::active-window" - attrGet _ = getApplicationActiveWindow - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "app-menu" - -- Type: TInterface "Gio" "MenuModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getApplicationAppMenu :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel -getApplicationAppMenu obj = liftIO $ 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" val - -constructApplicationAppMenu :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructApplicationAppMenu val = constructObjectPropertyObject "app-menu" val - -data ApplicationAppMenuPropertyInfo -instance AttrInfo ApplicationAppMenuPropertyInfo where - type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModelK - type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = ApplicationK - type AttrGetType ApplicationAppMenuPropertyInfo = Gio.MenuModel - type AttrLabel ApplicationAppMenuPropertyInfo = "Application::app-menu" - attrGet _ = getApplicationAppMenu - attrSet _ = setApplicationAppMenu - attrConstruct _ = constructApplicationAppMenu - --- VVV Prop "menubar" - -- Type: TInterface "Gio" "MenuModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getApplicationMenubar :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel -getApplicationMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" Gio.MenuModel - -setApplicationMenubar :: (MonadIO m, ApplicationK o, Gio.MenuModelK a) => o -> a -> m () -setApplicationMenubar obj val = liftIO $ setObjectPropertyObject obj "menubar" val - -constructApplicationMenubar :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructApplicationMenubar val = constructObjectPropertyObject "menubar" val - -data ApplicationMenubarPropertyInfo -instance AttrInfo ApplicationMenubarPropertyInfo where - type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModelK - type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = ApplicationK - type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel - type AttrLabel ApplicationMenubarPropertyInfo = "Application::menubar" - attrGet _ = getApplicationMenubar - attrSet _ = setApplicationMenubar - attrConstruct _ = constructApplicationMenubar - --- VVV Prop "register-session" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Application::register-session" - attrGet _ = getApplicationRegisterSession - attrSet _ = setApplicationRegisterSession - attrConstruct _ = constructApplicationRegisterSession - -type instance AttributeList Application = ApplicationAttributeList -type ApplicationAttributeList = ('[ '("action-group", Gio.ApplicationActionGroupPropertyInfo), '("active-window", ApplicationActiveWindowPropertyInfo), '("app-menu", ApplicationAppMenuPropertyInfo), '("application-id", Gio.ApplicationApplicationIdPropertyInfo), '("flags", Gio.ApplicationFlagsPropertyInfo), '("inactivity-timeout", Gio.ApplicationInactivityTimeoutPropertyInfo), '("is-busy", Gio.ApplicationIsBusyPropertyInfo), '("is-registered", Gio.ApplicationIsRegisteredPropertyInfo), '("is-remote", Gio.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("register-session", ApplicationRegisterSessionPropertyInfo), '("resource-base-path", Gio.ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("action-added", Gio.ActionGroupActionAddedSignalInfo), '("action-enabled-changed", Gio.ActionGroupActionEnabledChangedSignalInfo), '("action-removed", Gio.ActionGroupActionRemovedSignalInfo), '("action-state-changed", Gio.ActionGroupActionStateChangedSignalInfo), '("activate", Gio.ApplicationActivateSignalInfo), '("command-line", Gio.ApplicationCommandLineSignalInfo), '("handle-local-options", Gio.ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", Gio.ApplicationOpenSignalInfo), '("shutdown", Gio.ApplicationShutdownSignalInfo), '("startup", Gio.ApplicationStartupSignalInfo), '("window-added", ApplicationWindowAddedSignalInfo), '("window-removed", ApplicationWindowRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Application::new --- method type : Constructor --- Args : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- application_id - [Gio.ApplicationFlags] -> -- flags - m Application -applicationNew application_id flags = liftIO $ do - maybeApplication_id <- case application_id of - Nothing -> return nullPtr - Just jApplication_id -> do - jApplication_id' <- textToCString jApplication_id - return jApplication_id' - let flags' = gflagsToWord flags - result <- gtk_application_new maybeApplication_id flags' - checkUnexpectedReturnNULL "gtk_application_new" result - result' <- (wrapObject Application) result - freeMem maybeApplication_id - return result' - --- method Application::add_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accelerator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- action_name - Maybe (GVariant) -> -- parameter - m () -applicationAddAccelerator _obj accelerator action_name parameter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accelerator' <- textToCString accelerator - action_name' <- textToCString action_name - maybeParameter <- case parameter of - Nothing -> return nullPtr - Just jParameter -> do - let jParameter' = unsafeManagedPtrGetPtr jParameter - return jParameter' - gtk_application_add_accelerator _obj' accelerator' action_name' maybeParameter - touchManagedPtr _obj - freeMem accelerator' - freeMem action_name' - return () - --- method Application::add_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -applicationAddWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_application_add_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method Application::get_accels_for_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- detailed_action_name - m [T.Text] -applicationGetAccelsForAction _obj detailed_action_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - detailed_action_name' <- textToCString detailed_action_name - result <- gtk_application_get_accels_for_action _obj' detailed_action_name' - checkUnexpectedReturnNULL "gtk_application_get_accels_for_action" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem detailed_action_name' - return result' - --- method Application::get_actions_for_accel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method Application::get_active_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Application::get_app_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Application::get_menu_by_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Application::get_menubar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Application::get_window_by_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - IO (Ptr Window) - - -applicationGetWindowById :: - (MonadIO m, ApplicationK a) => - a -> -- _obj - Word32 -> -- id - m Window -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' - --- method Application::get_windows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -applicationGetWindows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_get_windows _obj' - checkUnexpectedReturnNULL "gtk_application_get_windows" result - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - touchManagedPtr _obj - return result'' - --- method Application::inhibit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -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 - --- method Application::is_inhibited --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "ApplicationInhibitFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Application::list_action_descriptions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method Application::prefers_app_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -applicationPrefersAppMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_prefers_app_menu _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Application::remove_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- action_name - Maybe (GVariant) -> -- parameter - m () -applicationRemoveAccelerator _obj action_name parameter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - action_name' <- textToCString action_name - maybeParameter <- case parameter of - Nothing -> return nullPtr - Just jParameter -> do - let jParameter' = unsafeManagedPtrGetPtr jParameter - return jParameter' - gtk_application_remove_accelerator _obj' action_name' maybeParameter - touchManagedPtr _obj - freeMem action_name' - return () - --- method Application::remove_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -applicationRemoveWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_application_remove_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method Application::set_accels_for_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detailed_action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accels", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- detailed_action_name - [T.Text] -> -- accels - m () -applicationSetAccelsForAction _obj detailed_action_name accels = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - detailed_action_name' <- textToCString detailed_action_name - accels' <- packZeroTerminatedUTF8CArray accels - gtk_application_set_accels_for_action _obj' detailed_action_name' accels' - touchManagedPtr _obj - freeMem detailed_action_name' - mapZeroTerminatedCArray freeMem accels' - freeMem accels' - return () - --- method Application::set_app_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- app_menu - m () -applicationSetAppMenu _obj app_menu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeApp_menu <- case app_menu of - Nothing -> return nullPtr - Just jApp_menu -> do - let jApp_menu' = unsafeManagedPtrCastPtr jApp_menu - return jApp_menu' - gtk_application_set_app_menu _obj' maybeApp_menu - touchManagedPtr _obj - whenJust app_menu touchManagedPtr - return () - --- method Application::set_menubar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menubar", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Application::uninhibit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_application_uninhibit" gtk_application_uninhibit :: - Ptr Application -> -- _obj : TInterface "Gtk" "Application" - Word32 -> -- cookie : TBasicType TUInt32 - IO () - - -applicationUninhibit :: - (MonadIO m, ApplicationK a) => - a -> -- _obj - Word32 -> -- cookie - m () -applicationUninhibit _obj cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_application_uninhibit _obj' cookie - touchManagedPtr _obj - return () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.Application where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,215 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - applicationWindowGetId , - - --- ** applicationWindowGetShowMenubar - applicationWindowGetShowMenubar , - - --- ** applicationWindowNew - applicationWindowNew , - - --- ** applicationWindowSetShowMenubar - applicationWindowSetShowMenubar , - - - - - -- * Properties --- ** ShowMenubar - ApplicationWindowShowMenubarPropertyInfo, - constructApplicationWindowShowMenubar , - getApplicationWindowShowMenubar , - setApplicationWindowShowMenubar , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "show-menubar" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "ApplicationWindow::show-menubar" - attrGet _ = getApplicationWindowShowMenubar - attrSet _ = setApplicationWindowShowMenubar - attrConstruct _ = constructApplicationWindowShowMenubar - -type instance AttributeList ApplicationWindow = ApplicationWindowAttributeList -type ApplicationWindowAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-menubar", ApplicationWindowShowMenubarPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ApplicationWindow = ApplicationWindowSignalList -type ApplicationWindowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("action-added", Gio.ActionGroupActionAddedSignalInfo), '("action-enabled-changed", Gio.ActionGroupActionEnabledChangedSignalInfo), '("action-removed", Gio.ActionGroupActionRemovedSignalInfo), '("action-state-changed", Gio.ActionGroupActionStateChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ApplicationWindow::new --- method type : Constructor --- Args : [Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -applicationWindowGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_window_get_id _obj' - touchManagedPtr _obj - return result - --- method ApplicationWindow::get_show_menubar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -applicationWindowGetShowMenubar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_application_window_get_show_menubar _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ApplicationWindow::set_show_menubar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ApplicationWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_menubar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_menubar - m () -applicationWindowSetShowMenubar _obj show_menubar = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_menubar' = (fromIntegral . fromEnum) show_menubar - gtk_application_window_set_show_menubar _obj' show_menubar' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.ApplicationWindow where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ApplicationWindow = ApplicationWindow (ForeignPtr ApplicationWindow) -instance GObject ApplicationWindow where -class GObject o => ApplicationWindowK o -instance (GObject o, IsDescendantOf ApplicationWindow o) => ApplicationWindowK o -data ApplicationWindowShowMenubarPropertyInfo 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,193 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - arrowSet , - - - - - -- * Properties --- ** ArrowType - ArrowArrowTypePropertyInfo , - constructArrowArrowType , - getArrowArrowType , - setArrowArrowType , - - --- ** ShadowType - ArrowShadowTypePropertyInfo , - constructArrowShadowType , - getArrowShadowType , - setArrowShadowType , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "arrow-type" - -- Type: TInterface "Gtk" "ArrowType" - -- Flags: [PropertyReadable,PropertyWritable] - -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::arrow-type" - attrGet _ = getArrowArrowType - attrSet _ = setArrowArrowType - attrConstruct _ = constructArrowArrowType - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Arrow::shadow-type" - attrGet _ = getArrowShadowType - attrSet _ = setArrowShadowType - attrConstruct _ = constructArrowShadowType - -type instance AttributeList Arrow = ArrowAttributeList -type ArrowAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("arrow-type", ArrowArrowTypePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ArrowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Arrow = ArrowSignalList -type ArrowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Arrow::new --- method type : Constructor --- Args : [Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- arrow_type - ShadowType -> -- shadow_type - m Arrow -arrowNew arrow_type shadow_type = liftIO $ do - let arrow_type' = (fromIntegral . fromEnum) arrow_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - result <- gtk_arrow_new arrow_type' shadow_type' - checkUnexpectedReturnNULL "gtk_arrow_new" result - result' <- (newObject Arrow) result - return result' - --- method Arrow::set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Arrow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arrow_type", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shadow_type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- arrow_type - ShadowType -> -- shadow_type - m () -arrowSet _obj arrow_type shadow_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let arrow_type' = (fromIntegral . fromEnum) arrow_type - let shadow_type' = (fromIntegral . fromEnum) shadow_type - gtk_arrow_set _obj' arrow_type' shadow_type' - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.Arrow where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ArrowAccessible = ArrowAccessibleAttributeList -type ArrowAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ArrowAccessible = ArrowAccessibleSignalList -type ArrowAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,275 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - aspectFrameSet , - - - - - -- * Properties --- ** ObeyChild - AspectFrameObeyChildPropertyInfo , - constructAspectFrameObeyChild , - getAspectFrameObeyChild , - setAspectFrameObeyChild , - - --- ** Ratio - AspectFrameRatioPropertyInfo , - constructAspectFrameRatio , - getAspectFrameRatio , - setAspectFrameRatio , - - --- ** Xalign - AspectFrameXalignPropertyInfo , - constructAspectFrameXalign , - getAspectFrameXalign , - setAspectFrameXalign , - - --- ** Yalign - AspectFrameYalignPropertyInfo , - constructAspectFrameYalign , - getAspectFrameYalign , - setAspectFrameYalign , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "obey-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "AspectFrame::obey-child" - attrGet _ = getAspectFrameObeyChild - attrSet _ = setAspectFrameObeyChild - attrConstruct _ = constructAspectFrameObeyChild - --- VVV Prop "ratio" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "AspectFrame::ratio" - attrGet _ = getAspectFrameRatio - attrSet _ = setAspectFrameRatio - attrConstruct _ = constructAspectFrameRatio - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "AspectFrame::xalign" - attrGet _ = getAspectFrameXalign - attrSet _ = setAspectFrameXalign - attrConstruct _ = constructAspectFrameXalign - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "AspectFrame::yalign" - attrGet _ = getAspectFrameYalign - attrSet _ = setAspectFrameYalign - attrConstruct _ = constructAspectFrameYalign - -type instance AttributeList AspectFrame = AspectFrameAttributeList -type AspectFrameAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("label-widget", FrameLabelWidgetPropertyInfo), '("label-xalign", FrameLabelXalignPropertyInfo), '("label-yalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("obey-child", AspectFrameObeyChildPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AspectFrame = AspectFrameSignalList -type AspectFrameSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AspectFrame::new --- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- obey_child - m AspectFrame -aspectFrameNew label xalign yalign ratio obey_child = 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 obey_child' = (fromIntegral . fromEnum) obey_child - result <- gtk_aspect_frame_new maybeLabel xalign' yalign' ratio' obey_child' - checkUnexpectedReturnNULL "gtk_aspect_frame_new" result - result' <- (newObject AspectFrame) result - freeMem maybeLabel - return result' - --- method AspectFrame::set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "AspectFrame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ratio", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "obey_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- obey_child - m () -aspectFrameSet _obj xalign yalign ratio obey_child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - let ratio' = realToFrac ratio - let obey_child' = (fromIntegral . fromEnum) obey_child - gtk_aspect_frame_set _obj' xalign' yalign' ratio' obey_child' - touchManagedPtr _obj - return () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.AspectFrame where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1217 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - assistantAddActionWidget , - - --- ** assistantAppendPage - assistantAppendPage , - - --- ** assistantCommit - assistantCommit , - - --- ** assistantGetCurrentPage - assistantGetCurrentPage , - - --- ** assistantGetNPages - assistantGetNPages , - - --- ** assistantGetNthPage - assistantGetNthPage , - - --- ** assistantGetPageComplete - assistantGetPageComplete , - - --- ** assistantGetPageHeaderImage - assistantGetPageHeaderImage , - - --- ** assistantGetPageSideImage - assistantGetPageSideImage , - - --- ** assistantGetPageTitle - assistantGetPageTitle , - - --- ** assistantGetPageType - assistantGetPageType , - - --- ** assistantInsertPage - assistantInsertPage , - - --- ** assistantNew - assistantNew , - - --- ** assistantNextPage - assistantNextPage , - - --- ** assistantPrependPage - assistantPrependPage , - - --- ** assistantPreviousPage - assistantPreviousPage , - - --- ** assistantRemoveActionWidget - assistantRemoveActionWidget , - - --- ** assistantRemovePage - assistantRemovePage , - - --- ** assistantSetCurrentPage - assistantSetCurrentPage , - - --- ** assistantSetForwardPageFunc - assistantSetForwardPageFunc , - - --- ** assistantSetPageComplete - assistantSetPageComplete , - - --- ** assistantSetPageHeaderImage - assistantSetPageHeaderImage , - - --- ** assistantSetPageSideImage - assistantSetPageSideImage , - - --- ** assistantSetPageTitle - assistantSetPageTitle , - - --- ** assistantSetPageType - assistantSetPageType , - - --- ** assistantUpdateButtonsState - assistantUpdateButtonsState , - - - - - -- * Properties --- ** UseHeaderBar - AssistantUseHeaderBarPropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAssistantUseHeaderBar :: (MonadIO m, AssistantK o) => o -> m Int32 -getAssistantUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar" - -constructAssistantUseHeaderBar :: Int32 -> IO ([Char], GValue) -constructAssistantUseHeaderBar val = constructObjectPropertyCInt "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 = "Assistant::use-header-bar" - attrGet _ = getAssistantUseHeaderBar - attrSet _ = undefined - attrConstruct _ = constructAssistantUseHeaderBar - -type instance AttributeList Assistant = AssistantAttributeList -type AssistantAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", AssistantUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("apply", AssistantApplySignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", AssistantCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", AssistantCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("escape", AssistantEscapeSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("prepare", AssistantPrepareSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Assistant::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Assistant::append_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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 - --- method Assistant::commit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -assistantCommit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_commit _obj' - touchManagedPtr _obj - return () - --- method Assistant::get_current_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -assistantGetCurrentPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_assistant_get_current_page _obj' - touchManagedPtr _obj - return result - --- method Assistant::get_n_pages --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -assistantGetNPages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_assistant_get_n_pages _obj' - touchManagedPtr _obj - return result - --- method Assistant::get_nth_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Widget) - - -assistantGetNthPage :: - (MonadIO m, AssistantK a) => - a -> -- _obj - Int32 -> -- page_num - m Widget -assistantGetNthPage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_assistant_get_nth_page _obj' page_num - checkUnexpectedReturnNULL "gtk_assistant_get_nth_page" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Assistant::get_page_complete --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Assistant::get_page_header_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Assistant::get_page_side_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Assistant::get_page_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Assistant::get_page_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Assistant::insert_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - IO Int32 - - -assistantInsertPage :: - (MonadIO m, AssistantK a, WidgetK b) => - a -> -- _obj - b -> -- page - Int32 -> -- position - m Int32 -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 - --- method Assistant::next_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -assistantNextPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_next_page _obj' - touchManagedPtr _obj - return () - --- method Assistant::prepend_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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 - --- method Assistant::previous_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -assistantPreviousPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_previous_page _obj' - touchManagedPtr _obj - return () - --- method Assistant::remove_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Assistant::remove_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_remove_page" gtk_assistant_remove_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Int32 -> -- page_num : TBasicType TInt32 - IO () - - -assistantRemovePage :: - (MonadIO m, AssistantK a) => - a -> -- _obj - Int32 -> -- page_num - m () -assistantRemovePage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_remove_page _obj' page_num - touchManagedPtr _obj - return () - --- method Assistant::set_current_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_assistant_set_current_page" gtk_assistant_set_current_page :: - Ptr Assistant -> -- _obj : TInterface "Gtk" "Assistant" - Int32 -> -- page_num : TBasicType TInt32 - IO () - - -assistantSetCurrentPage :: - (MonadIO m, AssistantK a) => - a -> -- _obj - Int32 -> -- page_num - m () -assistantSetCurrentPage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_set_current_page _obj' page_num - touchManagedPtr _obj - return () - --- method Assistant::set_forward_page_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_func", argType = TInterface "Gtk" "AssistantPageFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -assistantSetForwardPageFunc :: - (MonadIO m, AssistantK a) => - a -> -- _obj - Maybe (AssistantPageFunc) -> -- page_func - m () -assistantSetForwardPageFunc _obj page_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePage_func <- case page_func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jPage_func -> do - jPage_func' <- mkAssistantPageFunc (assistantPageFuncWrapper Nothing jPage_func) - return jPage_func' - let data_ = castFunPtrToPtr maybePage_func - let destroy = safeFreeFunPtrPtr - gtk_assistant_set_forward_page_func _obj' maybePage_func data_ destroy - touchManagedPtr _obj - return () - --- method Assistant::set_page_complete --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "complete", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Assistant::set_page_header_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Assistant::set_page_side_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Assistant::set_page_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method Assistant::set_page_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "AssistantPageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Assistant::update_buttons_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Assistant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -assistantUpdateButtonsState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_assistant_update_buttons_state _obj' - touchManagedPtr _obj - return () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.Assistant where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,92 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Objects.Bin - ( - --- * Exported types - Bin(..) , - BinK , - toBin , - noBin , - - - -- * Methods --- ** binGetChild - binGetChild , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList Bin = BinAttributeList -type BinAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Bin = BinSignalList -type BinSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Bin::get_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Bin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,13 +0,0 @@ -module GI.Gtk.Objects.Bin where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Bin = Bin (ForeignPtr Bin) -instance GObject Bin where -class GObject o => BinK o -instance (GObject o, IsDescendantOf Bin o) => BinK o 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList BooleanCellAccessible = BooleanCellAccessibleAttributeList -type BooleanCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList BooleanCellAccessible = BooleanCellAccessibleSignalList -type BooleanCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,641 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - boxGetBaselinePosition , - - --- ** boxGetCenterWidget - boxGetCenterWidget , - - --- ** boxGetHomogeneous - boxGetHomogeneous , - - --- ** boxGetSpacing - boxGetSpacing , - - --- ** boxNew - boxNew , - - --- ** boxPackEnd - boxPackEnd , - - --- ** boxPackStart - boxPackStart , - - --- ** boxQueryChildPacking - boxQueryChildPacking , - - --- ** boxReorderChild - boxReorderChild , - - --- ** boxSetBaselinePosition - boxSetBaselinePosition , - - --- ** boxSetCenterWidget - boxSetCenterWidget , - - --- ** boxSetChildPacking - boxSetChildPacking , - - --- ** boxSetHomogeneous - boxSetHomogeneous , - - --- ** boxSetSpacing - boxSetSpacing , - - - - - -- * Properties --- ** BaselinePosition - BoxBaselinePositionPropertyInfo , - constructBoxBaselinePosition , - getBoxBaselinePosition , - setBoxBaselinePosition , - - --- ** Homogeneous - BoxHomogeneousPropertyInfo , - constructBoxHomogeneous , - getBoxHomogeneous , - setBoxHomogeneous , - - --- ** Spacing - BoxSpacingPropertyInfo , - constructBoxSpacing , - getBoxSpacing , - setBoxSpacing , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "baseline-position" - -- Type: TInterface "Gtk" "BaselinePosition" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Box::baseline-position" - attrGet _ = getBoxBaselinePosition - attrSet _ = setBoxBaselinePosition - attrConstruct _ = constructBoxBaselinePosition - --- VVV Prop "homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Box::homogeneous" - attrGet _ = getBoxHomogeneous - attrSet _ = setBoxHomogeneous - attrConstruct _ = constructBoxHomogeneous - --- VVV Prop "spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getBoxSpacing :: (MonadIO m, BoxK o) => o -> m Int32 -getBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" - -setBoxSpacing :: (MonadIO m, BoxK o) => o -> Int32 -> m () -setBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val - -constructBoxSpacing :: Int32 -> IO ([Char], GValue) -constructBoxSpacing val = constructObjectPropertyCInt "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 = "Box::spacing" - attrGet _ = getBoxSpacing - attrSet _ = setBoxSpacing - attrConstruct _ = constructBoxSpacing - -type instance AttributeList Box = BoxAttributeList -type BoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Box = BoxSignalList -type BoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Box::new --- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Box) - - -boxNew :: - (MonadIO m) => - Orientation -> -- orientation - Int32 -> -- spacing - m Box -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 {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -boxGetBaselinePosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_box_get_baseline_position _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Box::get_center_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Box::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -boxGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_box_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Box::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -boxGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_box_get_spacing _obj' - touchManagedPtr _obj - return result - --- method Box::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -boxPackEnd :: - (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- expand - Bool -> -- fill - Word32 -> -- padding - m () -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 () - --- method Box::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -boxPackStart :: - (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Bool -> -- expand - Bool -> -- fill - Word32 -> -- padding - m () -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 () - --- method Box::query_child_packing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr CUInt -> -- pack_type : TInterface "Gtk" "PackType" - IO () - - -boxQueryChildPacking :: - (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - m (Bool,Bool,Word32,PackType) -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) - pack_type <- allocMem :: IO (Ptr CUInt) - gtk_box_query_child_packing _obj' child' expand fill padding pack_type - expand' <- peek expand - let expand'' = (/= 0) expand' - fill' <- peek fill - let fill'' = (/= 0) fill' - padding' <- peek padding - pack_type' <- peek pack_type - let pack_type'' = (toEnum . fromIntegral) pack_type' - touchManagedPtr _obj - touchManagedPtr child - freeMem expand - freeMem fill - freeMem padding - freeMem pack_type - return (expand'', fill'', padding', pack_type'') - --- method Box::reorder_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -boxReorderChild :: - (MonadIO m, BoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () -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 () - --- method Box::set_baseline_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -boxSetBaselinePosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_box_set_baseline_position _obj' position' - touchManagedPtr _obj - return () - --- method Box::set_center_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Box::set_child_packing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - 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 -> -- pack_type - m () -boxSetChildPacking _obj child expand fill padding pack_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let expand' = (fromIntegral . fromEnum) expand - let fill' = (fromIntegral . fromEnum) fill - let pack_type' = (fromIntegral . fromEnum) pack_type - gtk_box_set_child_packing _obj' child' expand' fill' padding pack_type' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Box::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -boxSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_box_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - --- method Box::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Box", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_box_set_spacing" gtk_box_set_spacing :: - Ptr Box -> -- _obj : TInterface "Gtk" "Box" - Int32 -> -- spacing : TBasicType TInt32 - IO () - - -boxSetSpacing :: - (MonadIO m, BoxK a) => - a -> -- _obj - Int32 -> -- spacing - m () -boxSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_box_set_spacing _obj' spacing - touchManagedPtr _obj - return () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.Box where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,912 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - builderAddCallbackSymbol , - - --- ** builderAddFromFile - builderAddFromFile , - - --- ** builderAddFromResource - builderAddFromResource , - - --- ** builderAddFromString - builderAddFromString , - - --- ** builderAddObjectsFromFile - builderAddObjectsFromFile , - - --- ** builderAddObjectsFromResource - builderAddObjectsFromResource , - - --- ** builderAddObjectsFromString - builderAddObjectsFromString , - - --- ** builderConnectSignals - builderConnectSignals , - - --- ** builderConnectSignalsFull - builderConnectSignalsFull , - - --- ** builderExposeObject - builderExposeObject , - - --- ** builderGetApplication - builderGetApplication , - - --- ** builderGetObject - builderGetObject , - - --- ** builderGetObjects - builderGetObjects , - - --- ** builderGetTranslationDomain - builderGetTranslationDomain , - - --- ** builderGetTypeFromName - builderGetTypeFromName , - - --- ** builderNew - builderNew , - - --- ** builderNewFromFile - builderNewFromFile , - - --- ** builderNewFromResource - builderNewFromResource , - - --- ** builderNewFromString - builderNewFromString , - - --- ** builderSetApplication - builderSetApplication , - - --- ** builderSetTranslationDomain - builderSetTranslationDomain , - - --- ** builderValueFromString - builderValueFromString , - - --- ** builderValueFromStringType - builderValueFromStringType , - - - - - -- * Properties --- ** TranslationDomain - BuilderTranslationDomainPropertyInfo , - constructBuilderTranslationDomain , - getBuilderTranslationDomain , - setBuilderTranslationDomain , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "translation-domain" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> m T.Text -getBuilderTranslationDomain obj = liftIO $ getObjectPropertyString obj "translation-domain" - -setBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> T.Text -> m () -setBuilderTranslationDomain obj val = liftIO $ setObjectPropertyString obj "translation-domain" val - -constructBuilderTranslationDomain :: T.Text -> IO ([Char], GValue) -constructBuilderTranslationDomain val = constructObjectPropertyString "translation-domain" val - -data BuilderTranslationDomainPropertyInfo -instance AttrInfo BuilderTranslationDomainPropertyInfo where - type AttrAllowedOps BuilderTranslationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BuilderTranslationDomainPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint BuilderTranslationDomainPropertyInfo = BuilderK - type AttrGetType BuilderTranslationDomainPropertyInfo = T.Text - type AttrLabel BuilderTranslationDomainPropertyInfo = "Builder::translation-domain" - attrGet _ = getBuilderTranslationDomain - attrSet _ = setBuilderTranslationDomain - attrConstruct _ = constructBuilderTranslationDomain - -type instance AttributeList Builder = BuilderAttributeList -type BuilderAttributeList = ('[ '("translation-domain", BuilderTranslationDomainPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Builder = BuilderSignalList -type BuilderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Builder::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- resource_path - m Builder -builderNewFromResource resource_path = liftIO $ do - resource_path' <- textToCString resource_path - result <- gtk_builder_new_from_resource resource_path' - checkUnexpectedReturnNULL "gtk_builder_new_from_resource" result - result' <- (wrapObject Builder) result - freeMem resource_path' - return result' - --- method Builder::new_from_string --- method type : Constructor --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_symbol", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- callback_name - GObject.Callback -> -- callback_symbol - m () -builderAddCallbackSymbol _obj callback_name callback_symbol = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback_name' <- textToCString callback_name - ptrcallback_symbol <- callocMem :: IO (Ptr (FunPtr GObject.CallbackC)) - callback_symbol' <- GObject.mkCallback (GObject.callbackWrapper (Just ptrcallback_symbol) callback_symbol) - poke ptrcallback_symbol callback_symbol' - gtk_builder_add_callback_symbol _obj' callback_name' callback_symbol' - touchManagedPtr _obj - freeMem callback_name' - return () - --- method Builder::add_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -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' - ) - --- method Builder::add_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -> -- resource_path - m Word32 -builderAddFromResource _obj resource_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resource_path' <- textToCString resource_path - onException (do - result <- propagateGError $ gtk_builder_add_from_resource _obj' resource_path' - touchManagedPtr _obj - freeMem resource_path' - return result - ) (do - freeMem resource_path' - ) - --- method Builder::add_from_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -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' - ) - --- method Builder::add_objects_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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] -> -- object_ids - m Word32 -builderAddObjectsFromFile _obj filename object_ids = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- textToCString filename - object_ids' <- packZeroTerminatedUTF8CArray object_ids - onException (do - result <- propagateGError $ gtk_builder_add_objects_from_file _obj' filename' object_ids' - touchManagedPtr _obj - freeMem filename' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' - return result - ) (do - freeMem filename' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' - ) - --- method Builder::add_objects_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -> -- resource_path - [T.Text] -> -- object_ids - m Word32 -builderAddObjectsFromResource _obj resource_path object_ids = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resource_path' <- textToCString resource_path - object_ids' <- packZeroTerminatedUTF8CArray object_ids - onException (do - result <- propagateGError $ gtk_builder_add_objects_from_resource _obj' resource_path' object_ids' - touchManagedPtr _obj - freeMem resource_path' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' - return result - ) (do - freeMem resource_path' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' - ) - --- method Builder::add_objects_from_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object_ids", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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] -> -- object_ids - m Word32 -builderAddObjectsFromString _obj buffer length_ object_ids = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- textToCString buffer - object_ids' <- packZeroTerminatedUTF8CArray object_ids - onException (do - result <- propagateGError $ gtk_builder_add_objects_from_string _obj' buffer' length_ object_ids' - touchManagedPtr _obj - freeMem buffer' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' - return result - ) (do - freeMem buffer' - mapZeroTerminatedCArray freeMem object_ids' - freeMem object_ids' - ) - --- method Builder::connect_signals --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_builder_connect_signals" gtk_builder_connect_signals :: - Ptr Builder -> -- _obj : TInterface "Gtk" "Builder" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -builderConnectSignals :: - (MonadIO m, BuilderK a) => - a -> -- _obj - Ptr () -> -- user_data - m () -builderConnectSignals _obj user_data = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_builder_connect_signals _obj' user_data - touchManagedPtr _obj - return () - --- method Builder::connect_signals_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "BuilderConnectFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -builderConnectSignalsFull :: - (MonadIO m, BuilderK a) => - a -> -- _obj - BuilderConnectFunc -> -- func - m () -builderConnectSignalsFull _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkBuilderConnectFunc (builderConnectFuncWrapper Nothing func) - let user_data = nullPtr - gtk_builder_connect_signals_full _obj' func' user_data - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - --- method Builder::expose_object --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Builder::get_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Builder::get_object --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Builder::get_objects --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -builderGetObjects _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_builder_get_objects _obj' - checkUnexpectedReturnNULL "gtk_builder_get_objects" result - result' <- unpackGSList result - result'' <- mapM (newObject GObject.Object) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method Builder::get_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Builder::get_type_from_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- type_name - m GType -builderGetTypeFromName _obj type_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - type_name' <- textToCString type_name - result <- gtk_builder_get_type_from_name _obj' type_name' - let result' = GType result - touchManagedPtr _obj - freeMem type_name' - return result' - --- method Builder::set_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -builderSetApplication _obj application = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let application' = unsafeManagedPtrCastPtr application - gtk_builder_set_application _obj' application' - touchManagedPtr _obj - touchManagedPtr application - return () - --- method Builder::set_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Builder::value_from_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType 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) -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 - ) - --- method Builder::value_from_string_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Builder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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 - ) - - 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,14 +0,0 @@ -module GI.Gtk.Objects.Builder where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Builder = Builder (ForeignPtr Builder) -instance GObject Builder where -class GObject o => BuilderK o -instance (GObject o, IsDescendantOf Builder o) => BuilderK o -data BuilderTranslationDomainPropertyInfo 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,1583 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - buttonClicked , - - --- ** buttonEnter - buttonEnter , - - --- ** buttonGetAlignment - buttonGetAlignment , - - --- ** buttonGetAlwaysShowImage - buttonGetAlwaysShowImage , - - --- ** buttonGetEventWindow - buttonGetEventWindow , - - --- ** buttonGetFocusOnClick - buttonGetFocusOnClick , - - --- ** buttonGetImage - buttonGetImage , - - --- ** buttonGetImagePosition - buttonGetImagePosition , - - --- ** buttonGetLabel - buttonGetLabel , - - --- ** buttonGetRelief - buttonGetRelief , - - --- ** buttonGetUseStock - buttonGetUseStock , - - --- ** buttonGetUseUnderline - buttonGetUseUnderline , - - --- ** buttonLeave - buttonLeave , - - --- ** buttonNew - buttonNew , - - --- ** buttonNewFromIconName - buttonNewFromIconName , - - --- ** buttonNewFromStock - buttonNewFromStock , - - --- ** buttonNewWithLabel - buttonNewWithLabel , - - --- ** buttonNewWithMnemonic - buttonNewWithMnemonic , - - --- ** buttonPressed - buttonPressed , - - --- ** buttonReleased - buttonReleased , - - --- ** buttonSetAlignment - buttonSetAlignment , - - --- ** buttonSetAlwaysShowImage - buttonSetAlwaysShowImage , - - --- ** buttonSetFocusOnClick - buttonSetFocusOnClick , - - --- ** buttonSetImage - buttonSetImage , - - --- ** buttonSetImagePosition - buttonSetImagePosition , - - --- ** buttonSetLabel - buttonSetLabel , - - --- ** buttonSetRelief - buttonSetRelief , - - --- ** buttonSetUseStock - buttonSetUseStock , - - --- ** buttonSetUseUnderline - buttonSetUseUnderline , - - - - - -- * Properties --- ** AlwaysShowImage - ButtonAlwaysShowImagePropertyInfo , - constructButtonAlwaysShowImage , - getButtonAlwaysShowImage , - setButtonAlwaysShowImage , - - --- ** FocusOnClick - ButtonFocusOnClickPropertyInfo , - constructButtonFocusOnClick , - getButtonFocusOnClick , - setButtonFocusOnClick , - - --- ** Image - ButtonImagePropertyInfo , - constructButtonImage , - getButtonImage , - setButtonImage , - - --- ** ImagePosition - ButtonImagePositionPropertyInfo , - constructButtonImagePosition , - getButtonImagePosition , - setButtonImagePosition , - - --- ** Label - ButtonLabelPropertyInfo , - constructButtonLabel , - getButtonLabel , - setButtonLabel , - - --- ** Relief - ButtonReliefPropertyInfo , - constructButtonRelief , - getButtonRelief , - setButtonRelief , - - --- ** UseStock - ButtonUseStockPropertyInfo , - constructButtonUseStock , - getButtonUseStock , - setButtonUseStock , - - --- ** UseUnderline - ButtonUseUnderlinePropertyInfo , - constructButtonUseUnderline , - getButtonUseUnderline , - setButtonUseUnderline , - - --- ** Xalign - ButtonXalignPropertyInfo , - constructButtonXalign , - getButtonXalign , - setButtonXalign , - - --- ** Yalign - ButtonYalignPropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "Button::always-show-image" - attrGet _ = getButtonAlwaysShowImage - attrSet _ = setButtonAlwaysShowImage - attrConstruct _ = constructButtonAlwaysShowImage - --- VVV Prop "focus-on-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Button::focus-on-click" - attrGet _ = getButtonFocusOnClick - attrSet _ = setButtonFocusOnClick - attrConstruct _ = constructButtonFocusOnClick - --- VVV Prop "image" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getButtonImage :: (MonadIO m, ButtonK o) => o -> m Widget -getButtonImage obj = liftIO $ getObjectPropertyObject obj "image" Widget - -setButtonImage :: (MonadIO m, ButtonK o, WidgetK a) => o -> a -> m () -setButtonImage obj val = liftIO $ setObjectPropertyObject obj "image" val - -constructButtonImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructButtonImage val = constructObjectPropertyObject "image" 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 = "Button::image" - attrGet _ = getButtonImage - attrSet _ = setButtonImage - attrConstruct _ = constructButtonImage - --- VVV Prop "image-position" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Button::image-position" - attrGet _ = getButtonImagePosition - attrSet _ = setButtonImagePosition - attrConstruct _ = constructButtonImagePosition - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getButtonLabel :: (MonadIO m, ButtonK o) => o -> m T.Text -getButtonLabel obj = liftIO $ getObjectPropertyString obj "label" - -setButtonLabel :: (MonadIO m, ButtonK o) => o -> T.Text -> m () -setButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructButtonLabel :: T.Text -> IO ([Char], GValue) -constructButtonLabel val = constructObjectPropertyString "label" 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 = "Button::label" - attrGet _ = getButtonLabel - attrSet _ = setButtonLabel - attrConstruct _ = constructButtonLabel - --- VVV Prop "relief" - -- Type: TInterface "Gtk" "ReliefStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Button::relief" - attrGet _ = getButtonRelief - attrSet _ = setButtonRelief - attrConstruct _ = constructButtonRelief - --- VVV Prop "use-stock" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Button::use-stock" - attrGet _ = getButtonUseStock - attrSet _ = setButtonUseStock - attrConstruct _ = constructButtonUseStock - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Button::use-underline" - attrGet _ = getButtonUseUnderline - attrSet _ = setButtonUseUnderline - attrConstruct _ = constructButtonUseUnderline - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Button::xalign" - attrGet _ = getButtonXalign - attrSet _ = setButtonXalign - attrConstruct _ = constructButtonXalign - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Button::yalign" - attrGet _ = getButtonYalign - attrSet _ = setButtonYalign - attrConstruct _ = constructButtonYalign - -type instance AttributeList Button = ButtonAttributeList -type ButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Button::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Button) - - -buttonNewFromIconName :: - (MonadIO m) => - T.Text -> -- icon_name - Int32 -> -- size - m Button -buttonNewFromIconName icon_name size = liftIO $ do - icon_name' <- textToCString icon_name - result <- gtk_button_new_from_icon_name icon_name' size - checkUnexpectedReturnNULL "gtk_button_new_from_icon_name" result - result' <- (newObject Button) result - freeMem icon_name' - return result' - --- method Button::new_from_stock --- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m Button -buttonNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_button_new_from_stock stock_id' - checkUnexpectedReturnNULL "gtk_button_new_from_stock" result - result' <- (newObject Button) result - freeMem stock_id' - return result' - --- method Button::new_with_label --- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buttonClicked _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_clicked _obj' - touchManagedPtr _obj - return () - --- method Button::enter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buttonEnter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_enter _obj' - touchManagedPtr _obj - return () - --- method Button::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method Button::get_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -buttonGetAlwaysShowImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_always_show_image _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Button::get_event_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Button::get_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -buttonGetFocusOnClick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_focus_on_click _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Button::get_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Button::get_image_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -buttonGetImagePosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_image_position _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Button::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Button::get_relief --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -buttonGetRelief _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_relief _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Button::get_use_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -buttonGetUseStock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_use_stock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Button::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -buttonGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Button::leave --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buttonLeave _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_leave _obj' - touchManagedPtr _obj - return () - --- method Button::pressed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buttonPressed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_pressed _obj' - touchManagedPtr _obj - return () - --- method Button::released --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buttonReleased _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_button_released _obj' - touchManagedPtr _obj - return () - --- method Button::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Button::set_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- always_show - m () -buttonSetAlwaysShowImage _obj always_show = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let always_show' = (fromIntegral . fromEnum) always_show - gtk_button_set_always_show_image _obj' always_show' - touchManagedPtr _obj - return () - --- method Button::set_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- focus_on_click - m () -buttonSetFocusOnClick _obj focus_on_click = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focus_on_click' = (fromIntegral . fromEnum) focus_on_click - gtk_button_set_focus_on_click _obj' focus_on_click' - touchManagedPtr _obj - return () - --- method Button::set_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buttonSetImage _obj image = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let image' = unsafeManagedPtrCastPtr image - gtk_button_set_image _obj' image' - touchManagedPtr _obj - touchManagedPtr image - return () - --- method Button::set_image_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buttonSetImagePosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_button_set_image_position _obj' position' - touchManagedPtr _obj - return () - --- method Button::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -buttonSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - gtk_button_set_label _obj' label' - touchManagedPtr _obj - freeMem label' - return () - --- method Button::set_relief --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relief", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -buttonSetRelief _obj relief = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let relief' = (fromIntegral . fromEnum) relief - gtk_button_set_relief _obj' relief' - touchManagedPtr _obj - return () - --- method Button::set_use_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_stock - m () -buttonSetUseStock _obj use_stock = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_stock' = (fromIntegral . fromEnum) use_stock - gtk_button_set_use_stock _obj' use_stock' - touchManagedPtr _obj - return () - --- method Button::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Button", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_underline - m () -buttonSetUseUnderline _obj use_underline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_underline' = (fromIntegral . fromEnum) use_underline - gtk_button_set_use_underline _obj' use_underline' - touchManagedPtr _obj - return () - - 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,29 +0,0 @@ -module GI.Gtk.Objects.Button where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ButtonAccessible = ButtonAccessibleAttributeList -type ButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ButtonAccessible = ButtonAccessibleSignalList -type ButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,321 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - buttonBoxGetChildNonHomogeneous , - - --- ** buttonBoxGetChildSecondary - buttonBoxGetChildSecondary , - - --- ** buttonBoxGetLayout - buttonBoxGetLayout , - - --- ** buttonBoxNew - buttonBoxNew , - - --- ** buttonBoxSetChildNonHomogeneous - buttonBoxSetChildNonHomogeneous , - - --- ** buttonBoxSetChildSecondary - buttonBoxSetChildSecondary , - - --- ** buttonBoxSetLayout - buttonBoxSetLayout , - - - - - -- * Properties --- ** LayoutStyle - ButtonBoxLayoutStylePropertyInfo , - constructButtonBoxLayoutStyle , - getButtonBoxLayoutStyle , - setButtonBoxLayoutStyle , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "layout-style" - -- Type: TInterface "Gtk" "ButtonBoxStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ButtonBox::layout-style" - attrGet _ = getButtonBoxLayoutStyle - attrSet _ = setButtonBoxLayoutStyle - attrConstruct _ = constructButtonBoxLayoutStyle - -type instance AttributeList ButtonBox = ButtonBoxAttributeList -type ButtonBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ButtonBox = ButtonBoxSignalList -type ButtonBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ButtonBox::new --- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ButtonBox::get_child_secondary --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ButtonBox::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -buttonBoxGetLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_button_box_get_layout _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method ButtonBox::set_child_non_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "non_homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- non_homogeneous - m () -buttonBoxSetChildNonHomogeneous _obj child non_homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let non_homogeneous' = (fromIntegral . fromEnum) non_homogeneous - gtk_button_box_set_child_non_homogeneous _obj' child' non_homogeneous' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method ButtonBox::set_child_secondary --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_secondary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_secondary - m () -buttonBoxSetChildSecondary _obj child is_secondary = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let is_secondary' = (fromIntegral . fromEnum) is_secondary - gtk_button_box_set_child_secondary _obj' child' is_secondary' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method ButtonBox::set_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ButtonBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_style", argType = TInterface "Gtk" "ButtonBoxStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- layout_style - m () -buttonBoxSetLayout _obj layout_style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let layout_style' = (fromIntegral . fromEnum) layout_style - gtk_button_box_set_layout _obj' layout_style' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.ButtonBox where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ButtonBox = ButtonBox (ForeignPtr ButtonBox) -instance GObject ButtonBox where -class GObject o => ButtonBoxK o -instance (GObject o, IsDescendantOf ButtonBox o) => ButtonBoxK o -data ButtonBoxLayoutStylePropertyInfo 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,1222 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - calendarClearMarks , - - --- ** calendarGetDate - calendarGetDate , - - --- ** calendarGetDayIsMarked - calendarGetDayIsMarked , - - --- ** calendarGetDetailHeightRows - calendarGetDetailHeightRows , - - --- ** calendarGetDetailWidthChars - calendarGetDetailWidthChars , - - --- ** calendarGetDisplayOptions - calendarGetDisplayOptions , - - --- ** calendarMarkDay - calendarMarkDay , - - --- ** calendarNew - calendarNew , - - --- ** calendarSelectDay - calendarSelectDay , - - --- ** calendarSelectMonth - calendarSelectMonth , - - --- ** calendarSetDetailFunc - calendarSetDetailFunc , - - --- ** calendarSetDetailHeightRows - calendarSetDetailHeightRows , - - --- ** calendarSetDetailWidthChars - calendarSetDetailWidthChars , - - --- ** calendarSetDisplayOptions - calendarSetDisplayOptions , - - --- ** calendarUnmarkDay - calendarUnmarkDay , - - - - - -- * Properties --- ** Day - CalendarDayPropertyInfo , - constructCalendarDay , - getCalendarDay , - setCalendarDay , - - --- ** DetailHeightRows - CalendarDetailHeightRowsPropertyInfo , - constructCalendarDetailHeightRows , - getCalendarDetailHeightRows , - setCalendarDetailHeightRows , - - --- ** DetailWidthChars - CalendarDetailWidthCharsPropertyInfo , - constructCalendarDetailWidthChars , - getCalendarDetailWidthChars , - setCalendarDetailWidthChars , - - --- ** Month - CalendarMonthPropertyInfo , - constructCalendarMonth , - getCalendarMonth , - setCalendarMonth , - - --- ** NoMonthChange - CalendarNoMonthChangePropertyInfo , - constructCalendarNoMonthChange , - getCalendarNoMonthChange , - setCalendarNoMonthChange , - - --- ** ShowDayNames - CalendarShowDayNamesPropertyInfo , - constructCalendarShowDayNames , - getCalendarShowDayNames , - setCalendarShowDayNames , - - --- ** ShowDetails - CalendarShowDetailsPropertyInfo , - constructCalendarShowDetails , - getCalendarShowDetails , - setCalendarShowDetails , - - --- ** ShowHeading - CalendarShowHeadingPropertyInfo , - constructCalendarShowHeading , - getCalendarShowHeading , - setCalendarShowHeading , - - --- ** ShowWeekNumbers - CalendarShowWeekNumbersPropertyInfo , - constructCalendarShowWeekNumbers , - getCalendarShowWeekNumbers , - setCalendarShowWeekNumbers , - - --- ** Year - CalendarYearPropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCalendarDay :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDay obj = liftIO $ getObjectPropertyCInt obj "day" - -setCalendarDay :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDay obj val = liftIO $ setObjectPropertyCInt obj "day" val - -constructCalendarDay :: Int32 -> IO ([Char], GValue) -constructCalendarDay val = constructObjectPropertyCInt "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 = "Calendar::day" - attrGet _ = getCalendarDay - attrSet _ = setCalendarDay - attrConstruct _ = constructCalendarDay - --- VVV Prop "detail-height-rows" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDetailHeightRows obj = liftIO $ getObjectPropertyCInt obj "detail-height-rows" - -setCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDetailHeightRows obj val = liftIO $ setObjectPropertyCInt obj "detail-height-rows" val - -constructCalendarDetailHeightRows :: Int32 -> IO ([Char], GValue) -constructCalendarDetailHeightRows val = constructObjectPropertyCInt "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 = "Calendar::detail-height-rows" - attrGet _ = getCalendarDetailHeightRows - attrSet _ = setCalendarDetailHeightRows - attrConstruct _ = constructCalendarDetailHeightRows - --- VVV Prop "detail-width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarDetailWidthChars obj = liftIO $ getObjectPropertyCInt obj "detail-width-chars" - -setCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarDetailWidthChars obj val = liftIO $ setObjectPropertyCInt obj "detail-width-chars" val - -constructCalendarDetailWidthChars :: Int32 -> IO ([Char], GValue) -constructCalendarDetailWidthChars val = constructObjectPropertyCInt "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 = "Calendar::detail-width-chars" - attrGet _ = getCalendarDetailWidthChars - attrSet _ = setCalendarDetailWidthChars - attrConstruct _ = constructCalendarDetailWidthChars - --- VVV Prop "month" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCalendarMonth :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarMonth obj = liftIO $ getObjectPropertyCInt obj "month" - -setCalendarMonth :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarMonth obj val = liftIO $ setObjectPropertyCInt obj "month" val - -constructCalendarMonth :: Int32 -> IO ([Char], GValue) -constructCalendarMonth val = constructObjectPropertyCInt "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 = "Calendar::month" - attrGet _ = getCalendarMonth - attrSet _ = setCalendarMonth - attrConstruct _ = constructCalendarMonth - --- VVV Prop "no-month-change" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Calendar::no-month-change" - attrGet _ = getCalendarNoMonthChange - attrSet _ = setCalendarNoMonthChange - attrConstruct _ = constructCalendarNoMonthChange - --- VVV Prop "show-day-names" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Calendar::show-day-names" - attrGet _ = getCalendarShowDayNames - attrSet _ = setCalendarShowDayNames - attrConstruct _ = constructCalendarShowDayNames - --- VVV Prop "show-details" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Calendar::show-details" - attrGet _ = getCalendarShowDetails - attrSet _ = setCalendarShowDetails - attrConstruct _ = constructCalendarShowDetails - --- VVV Prop "show-heading" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Calendar::show-heading" - attrGet _ = getCalendarShowHeading - attrSet _ = setCalendarShowHeading - attrConstruct _ = constructCalendarShowHeading - --- VVV Prop "show-week-numbers" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Calendar::show-week-numbers" - attrGet _ = getCalendarShowWeekNumbers - attrSet _ = setCalendarShowWeekNumbers - attrConstruct _ = constructCalendarShowWeekNumbers - --- VVV Prop "year" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCalendarYear :: (MonadIO m, CalendarK o) => o -> m Int32 -getCalendarYear obj = liftIO $ getObjectPropertyCInt obj "year" - -setCalendarYear :: (MonadIO m, CalendarK o) => o -> Int32 -> m () -setCalendarYear obj val = liftIO $ setObjectPropertyCInt obj "year" val - -constructCalendarYear :: Int32 -> IO ([Char], GValue) -constructCalendarYear val = constructObjectPropertyCInt "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 = "Calendar::year" - attrGet _ = getCalendarYear - attrSet _ = setCalendarYear - attrConstruct _ = constructCalendarYear - -type instance AttributeList Calendar = CalendarAttributeList -type CalendarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detail-height-rows", CalendarDetailHeightRowsPropertyInfo), '("detail-width-chars", CalendarDetailWidthCharsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-month-change", CalendarNoMonthChangePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-day-names", CalendarShowDayNamesPropertyInfo), '("show-details", CalendarShowDetailsPropertyInfo), '("show-heading", CalendarShowHeadingPropertyInfo), '("show-week-numbers", CalendarShowWeekNumbersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("day-selected", CalendarDaySelectedSignalInfo), '("day-selected-double-click", CalendarDaySelectedDoubleClickSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("month-changed", CalendarMonthChangedSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("next-month", CalendarNextMonthSignalInfo), '("next-year", CalendarNextYearSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("prev-month", CalendarPrevMonthSignalInfo), '("prev-year", CalendarPrevYearSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Calendar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -calendarClearMarks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_clear_marks _obj' - touchManagedPtr _obj - return () - --- method Calendar::get_date --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr Word32 -> -- month : TBasicType TUInt32 - Ptr Word32 -> -- day : TBasicType TUInt32 - IO () - - -calendarGetDate :: - (MonadIO m, CalendarK a) => - a -> -- _obj - m (Word32,Word32,Word32) -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') - --- method Calendar::get_day_is_marked --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_calendar_get_day_is_marked" gtk_calendar_get_day_is_marked :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Word32 -> -- day : TBasicType TUInt32 - IO CInt - - -calendarGetDayIsMarked :: - (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- day - m Bool -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' - --- method Calendar::get_detail_height_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -calendarGetDetailHeightRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_calendar_get_detail_height_rows _obj' - touchManagedPtr _obj - return result - --- method Calendar::get_detail_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -calendarGetDetailWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_calendar_get_detail_width_chars _obj' - touchManagedPtr _obj - return result - --- method Calendar::get_display_options --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -calendarGetDisplayOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_calendar_get_display_options _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Calendar::mark_day --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -calendarMarkDay :: - (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- day - m () -calendarMarkDay _obj day = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_mark_day _obj' day - touchManagedPtr _obj - return () - --- method Calendar::select_day --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -calendarSelectDay :: - (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- day - m () -calendarSelectDay _obj day = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_select_day _obj' day - touchManagedPtr _obj - return () - --- method Calendar::select_month --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- year : TBasicType TUInt32 - IO () - - -calendarSelectMonth :: - (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- month - Word32 -> -- year - m () -calendarSelectMonth _obj month year = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_select_month _obj' month year - touchManagedPtr _obj - return () - --- method Calendar::set_detail_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "CalendarDetailFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -calendarSetDetailFunc :: - (MonadIO m, CalendarK a) => - a -> -- _obj - CalendarDetailFunc -> -- func - m () -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 () - --- method Calendar::set_detail_height_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_calendar_set_detail_height_rows" gtk_calendar_set_detail_height_rows :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Int32 -> -- rows : TBasicType TInt32 - IO () - - -calendarSetDetailHeightRows :: - (MonadIO m, CalendarK a) => - a -> -- _obj - Int32 -> -- rows - m () -calendarSetDetailHeightRows _obj rows = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_set_detail_height_rows _obj' rows - touchManagedPtr _obj - return () - --- method Calendar::set_detail_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_calendar_set_detail_width_chars" gtk_calendar_set_detail_width_chars :: - Ptr Calendar -> -- _obj : TInterface "Gtk" "Calendar" - Int32 -> -- chars : TBasicType TInt32 - IO () - - -calendarSetDetailWidthChars :: - (MonadIO m, CalendarK a) => - a -> -- _obj - Int32 -> -- chars - m () -calendarSetDetailWidthChars _obj chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_set_detail_width_chars _obj' chars - touchManagedPtr _obj - return () - --- method Calendar::set_display_options --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CalendarDisplayOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -calendarSetDisplayOptions _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_calendar_set_display_options _obj' flags' - touchManagedPtr _obj - return () - --- method Calendar::unmark_day --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Calendar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -calendarUnmarkDay :: - (MonadIO m, CalendarK a) => - a -> -- _obj - Word32 -> -- day - m () -calendarUnmarkDay _obj day = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_calendar_unmark_day _obj' day - touchManagedPtr _obj - return () - - 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,30 +0,0 @@ -module GI.Gtk.Objects.Calendar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList CellAccessible = CellAccessibleAttributeList -type CellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellAccessible = CellAccessibleSignalList -type CellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1902 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellAreaActivate , - - --- ** cellAreaActivateCell - cellAreaActivateCell , - - --- ** cellAreaAdd - cellAreaAdd , - - --- ** cellAreaAddFocusSibling - cellAreaAddFocusSibling , - - --- ** cellAreaApplyAttributes - cellAreaApplyAttributes , - - --- ** cellAreaAttributeConnect - cellAreaAttributeConnect , - - --- ** cellAreaAttributeDisconnect - cellAreaAttributeDisconnect , - - --- ** cellAreaAttributeGetColumn - cellAreaAttributeGetColumn , - - --- ** cellAreaCellGetProperty - cellAreaCellGetProperty , - - --- ** cellAreaCellSetProperty - cellAreaCellSetProperty , - - --- ** cellAreaCopyContext - cellAreaCopyContext , - - --- ** cellAreaCreateContext - cellAreaCreateContext , - - --- ** cellAreaEvent - cellAreaEvent , - - --- ** cellAreaFocus - cellAreaFocus , - - --- ** cellAreaForeach - cellAreaForeach , - - --- ** cellAreaForeachAlloc - cellAreaForeachAlloc , - - --- ** cellAreaGetCellAllocation - cellAreaGetCellAllocation , - - --- ** cellAreaGetCellAtPosition - cellAreaGetCellAtPosition , - - --- ** cellAreaGetCurrentPathString - cellAreaGetCurrentPathString , - - --- ** cellAreaGetEditWidget - cellAreaGetEditWidget , - - --- ** cellAreaGetEditedCell - cellAreaGetEditedCell , - - --- ** cellAreaGetFocusCell - cellAreaGetFocusCell , - - --- ** cellAreaGetFocusFromSibling - cellAreaGetFocusFromSibling , - - --- ** cellAreaGetFocusSiblings - cellAreaGetFocusSiblings , - - --- ** cellAreaGetPreferredHeight - cellAreaGetPreferredHeight , - - --- ** cellAreaGetPreferredHeightForWidth - cellAreaGetPreferredHeightForWidth , - - --- ** cellAreaGetPreferredWidth - cellAreaGetPreferredWidth , - - --- ** cellAreaGetPreferredWidthForHeight - cellAreaGetPreferredWidthForHeight , - - --- ** cellAreaGetRequestMode - cellAreaGetRequestMode , - - --- ** cellAreaHasRenderer - cellAreaHasRenderer , - - --- ** cellAreaInnerCellArea - cellAreaInnerCellArea , - - --- ** cellAreaIsActivatable - cellAreaIsActivatable , - - --- ** cellAreaIsFocusSibling - cellAreaIsFocusSibling , - - --- ** cellAreaRemove - cellAreaRemove , - - --- ** cellAreaRemoveFocusSibling - cellAreaRemoveFocusSibling , - - --- ** cellAreaRender - cellAreaRender , - - --- ** cellAreaRequestRenderer - cellAreaRequestRenderer , - - --- ** cellAreaSetFocusCell - cellAreaSetFocusCell , - - --- ** cellAreaStopEditing - cellAreaStopEditing , - - - - - -- * Properties --- ** EditWidget - CellAreaEditWidgetPropertyInfo , - getCellAreaEditWidget , - - --- ** EditedCell - CellAreaEditedCellPropertyInfo , - getCellAreaEditedCell , - - --- ** FocusCell - CellAreaFocusCellPropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- signal CellArea::add-editable -type CellAreaAddEditableCallback = - CellRenderer -> - CellEditable -> - Cairo.RectangleInt -> - T.Text -> - IO () - -noCellAreaAddEditableCallback :: Maybe CellAreaAddEditableCallback -noCellAreaAddEditableCallback = Nothing - -type CellAreaAddEditableCallbackC = - Ptr () -> -- object - Ptr CellRenderer -> - Ptr CellEditable -> - Ptr Cairo.RectangleInt -> - 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 Cairo.RectangleInt -> - CString -> - Ptr () -> - IO () -cellAreaAddEditableCallbackWrapper _cb _ renderer editable cell_area path _ = do - renderer' <- (newObject CellRenderer) renderer - editable' <- (newObject CellEditable) editable - cell_area' <- (newBoxed Cairo.RectangleInt) cell_area - path' <- cstringToText path - _cb renderer' editable' cell_area' 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 is_expander is_expanded _ = do - model' <- (newObject TreeModel) model - iter' <- (newBoxed TreeIter) iter - let is_expander' = (/= 0) is_expander - let is_expanded' = (/= 0) is_expanded - _cb model' iter' is_expander' is_expanded' - -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] - -getCellAreaEditWidget :: (MonadIO m, CellAreaK o) => o -> m CellEditable -getCellAreaEditWidget obj = liftIO $ getObjectPropertyObject obj "edit-widget" CellEditable - -data CellAreaEditWidgetPropertyInfo -instance AttrInfo CellAreaEditWidgetPropertyInfo where - type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint CellAreaEditWidgetPropertyInfo = (~) () - type AttrBaseTypeConstraint CellAreaEditWidgetPropertyInfo = CellAreaK - type AttrGetType CellAreaEditWidgetPropertyInfo = CellEditable - type AttrLabel CellAreaEditWidgetPropertyInfo = "CellArea::edit-widget" - attrGet _ = getCellAreaEditWidget - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "edited-cell" - -- Type: TInterface "Gtk" "CellRenderer" - -- Flags: [PropertyReadable] - -getCellAreaEditedCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer -getCellAreaEditedCell obj = liftIO $ getObjectPropertyObject obj "edited-cell" CellRenderer - -data CellAreaEditedCellPropertyInfo -instance AttrInfo CellAreaEditedCellPropertyInfo where - type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint CellAreaEditedCellPropertyInfo = (~) () - type AttrBaseTypeConstraint CellAreaEditedCellPropertyInfo = CellAreaK - type AttrGetType CellAreaEditedCellPropertyInfo = CellRenderer - type AttrLabel CellAreaEditedCellPropertyInfo = "CellArea::edited-cell" - attrGet _ = getCellAreaEditedCell - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "focus-cell" - -- Type: TInterface "Gtk" "CellRenderer" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellAreaFocusCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer -getCellAreaFocusCell obj = liftIO $ getObjectPropertyObject obj "focus-cell" CellRenderer - -setCellAreaFocusCell :: (MonadIO m, CellAreaK o, CellRendererK a) => o -> a -> m () -setCellAreaFocusCell obj val = liftIO $ setObjectPropertyObject obj "focus-cell" val - -constructCellAreaFocusCell :: (CellRendererK a) => a -> IO ([Char], GValue) -constructCellAreaFocusCell val = constructObjectPropertyObject "focus-cell" 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 = "CellArea::focus-cell" - attrGet _ = getCellAreaFocusCell - attrSet _ = setCellAreaFocusCell - attrConstruct _ = constructCellAreaFocusCell - -type instance AttributeList CellArea = CellAreaAttributeList -type CellAreaAttributeList = ('[ '("edit-widget", CellAreaEditWidgetPropertyInfo), '("edited-cell", CellAreaEditedCellPropertyInfo), '("focus-cell", CellAreaFocusCellPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("add-editable", CellAreaAddEditableSignalInfo), '("apply-attributes", CellAreaApplyAttributesSignalInfo), '("focus-changed", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("remove-editable", CellAreaRemoveEditableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellArea::activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - 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 - Cairo.RectangleInt -> -- cell_area - [CellRendererState] -> -- flags - Bool -> -- edit_only - m Bool -cellAreaActivate _obj context widget cell_area flags edit_only = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let cell_area' = unsafeManagedPtrGetPtr cell_area - let flags' = gflagsToWord flags - let edit_only' = (fromIntegral . fromEnum) edit_only - result <- gtk_cell_area_activate _obj' context' widget' cell_area' flags' edit_only' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr cell_area - return result' - --- method CellArea::activate_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - 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 - Cairo.RectangleInt -> -- cell_area - [CellRendererState] -> -- flags - m Bool -cellAreaActivateCell _obj widget renderer event cell_area flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let renderer' = unsafeManagedPtrCastPtr renderer - let event' = unsafeManagedPtrGetPtr event - let cell_area' = unsafeManagedPtrGetPtr cell_area - let flags' = gflagsToWord flags - result <- gtk_cell_area_activate_cell _obj' widget' renderer' event' cell_area' flags' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr widget - touchManagedPtr renderer - touchManagedPtr event - touchManagedPtr cell_area - return result' - --- method CellArea::add --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellAreaAdd _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - gtk_cell_area_add _obj' renderer' - touchManagedPtr _obj - touchManagedPtr renderer - return () - --- method CellArea::add_focus_sibling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellArea::apply_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- tree_model - TreeIter -> -- iter - Bool -> -- is_expander - Bool -> -- is_expanded - m () -cellAreaApplyAttributes _obj tree_model iter is_expander is_expanded = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tree_model' = unsafeManagedPtrCastPtr tree_model - let iter' = unsafeManagedPtrGetPtr iter - let is_expander' = (fromIntegral . fromEnum) is_expander - let is_expanded' = (fromIntegral . fromEnum) is_expanded - gtk_cell_area_apply_attributes _obj' tree_model' iter' is_expander' is_expanded' - touchManagedPtr _obj - touchManagedPtr tree_model - touchManagedPtr iter - return () - --- method CellArea::attribute_connect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -cellAreaAttributeConnect :: - (MonadIO m, CellAreaK a, CellRendererK b) => - a -> -- _obj - b -> -- renderer - T.Text -> -- attribute - Int32 -> -- column - m () -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 () - --- method CellArea::attribute_disconnect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method CellArea::attribute_get_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method CellArea::cell_get_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 -> -- property_name - GValue -> -- value - m () -cellAreaCellGetProperty _obj renderer property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - gtk_cell_area_cell_get_property _obj' renderer' property_name' value' - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr value - freeMem property_name' - return () - --- method CellArea::cell_set_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 -> -- property_name - GValue -> -- value - m () -cellAreaCellSetProperty _obj renderer property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - gtk_cell_area_cell_set_property _obj' renderer' property_name' value' - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr value - freeMem property_name' - return () - --- method CellArea::copy_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::create_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::event --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - 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 - Cairo.RectangleInt -> -- cell_area - [CellRendererState] -> -- flags - m Int32 -cellAreaEvent _obj context widget event cell_area flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let event' = unsafeManagedPtrGetPtr event - let cell_area' = unsafeManagedPtrGetPtr cell_area - let flags' = gflagsToWord flags - result <- gtk_cell_area_event _obj' context' widget' event' cell_area' flags' - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr event - touchManagedPtr cell_area - return result - --- method CellArea::focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -cellAreaForeach :: - (MonadIO m, CellAreaK a) => - a -> -- _obj - CellCallback -> -- callback - m () -cellAreaForeach _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkCellCallback (cellCallbackWrapper Nothing callback) - let callback_data = nullPtr - gtk_cell_area_foreach _obj' callback' callback_data - safeFreeFunPtr $ castFunPtrToPtr callback' - touchManagedPtr _obj - return () - --- method CellArea::foreach_alloc --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "CellAllocCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- background_area : TInterface "cairo" "RectangleInt" - FunPtr CellAllocCallbackC -> -- callback : TInterface "Gtk" "CellAllocCallback" - Ptr () -> -- callback_data : TBasicType TVoid - IO () - - -cellAreaForeachAlloc :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Cairo.RectangleInt -> -- cell_area - Cairo.RectangleInt -> -- background_area - CellAllocCallback -> -- callback - m () -cellAreaForeachAlloc _obj context widget cell_area background_area callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let cell_area' = unsafeManagedPtrGetPtr cell_area - let background_area' = unsafeManagedPtrGetPtr background_area - callback' <- mkCellAllocCallback (cellAllocCallbackWrapper Nothing callback) - let callback_data = nullPtr - gtk_cell_area_foreach_alloc _obj' context' widget' cell_area' background_area' callback' callback_data - safeFreeFunPtr $ castFunPtrToPtr callback' - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr cell_area - touchManagedPtr background_area - return () - --- method CellArea::get_cell_allocation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- allocation : TInterface "cairo" "RectangleInt" - IO () - - -cellAreaGetCellAllocation :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c, CellRendererK d) => - a -> -- _obj - b -> -- context - c -> -- widget - d -> -- renderer - Cairo.RectangleInt -> -- cell_area - m (Cairo.RectangleInt) -cellAreaGetCellAllocation _obj context widget renderer cell_area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let renderer' = unsafeManagedPtrCastPtr renderer - let cell_area' = unsafeManagedPtrGetPtr cell_area - allocation <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_cell_area_get_cell_allocation _obj' context' widget' renderer' cell_area' allocation - allocation' <- (wrapBoxed Cairo.RectangleInt) allocation - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr renderer - touchManagedPtr cell_area - return allocation' - --- method CellArea::get_cell_at_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alloc_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - Ptr Cairo.RectangleInt -> -- alloc_area : TInterface "cairo" "RectangleInt" - IO (Ptr CellRenderer) - - -cellAreaGetCellAtPosition :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Cairo.RectangleInt -> -- cell_area - Int32 -> -- x - Int32 -> -- y - m (CellRenderer,Cairo.RectangleInt) -cellAreaGetCellAtPosition _obj context widget cell_area x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let cell_area' = unsafeManagedPtrGetPtr cell_area - alloc_area <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - result <- gtk_cell_area_get_cell_at_position _obj' context' widget' cell_area' x y alloc_area - checkUnexpectedReturnNULL "gtk_cell_area_get_cell_at_position" result - result' <- (newObject CellRenderer) result - alloc_area' <- (wrapBoxed Cairo.RectangleInt) alloc_area - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr cell_area - return (result', alloc_area') - --- method CellArea::get_current_path_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::get_edit_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::get_edited_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::get_focus_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::get_focus_from_sibling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::get_focus_siblings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -cellAreaGetFocusSiblings _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - result <- gtk_cell_area_get_focus_siblings _obj' renderer' - checkUnexpectedReturnNULL "gtk_cell_area_get_focus_siblings" result - result' <- unpackGList result - result'' <- mapM (newObject CellRenderer) result' - touchManagedPtr _obj - touchManagedPtr renderer - return result'' - --- method CellArea::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -cellAreaGetPreferredHeight :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - m (Int32,Int32) -cellAreaGetPreferredHeight _obj context widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_height _obj' context' widget' minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method CellArea::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -cellAreaGetPreferredHeightForWidth :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Int32 -> -- width - m (Int32,Int32) -cellAreaGetPreferredHeightForWidth _obj context widget width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_height_for_width _obj' context' widget' width minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method CellArea::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -cellAreaGetPreferredWidth :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - m (Int32,Int32) -cellAreaGetPreferredWidth _obj context widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_width _obj' context' widget' minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method CellArea::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -cellAreaGetPreferredWidthForHeight :: - (MonadIO m, CellAreaK a, CellAreaContextK b, WidgetK c) => - a -> -- _obj - b -> -- context - c -> -- widget - Int32 -> -- height - m (Int32,Int32) -cellAreaGetPreferredWidthForHeight _obj context widget height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_area_get_preferred_width_for_height _obj' context' widget' height minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method CellArea::get_request_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::has_renderer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::inner_cell_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inner_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- inner_area : TInterface "cairo" "RectangleInt" - IO () - - -cellAreaInnerCellArea :: - (MonadIO m, CellAreaK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Cairo.RectangleInt -> -- cell_area - m (Cairo.RectangleInt) -cellAreaInnerCellArea _obj widget cell_area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let cell_area' = unsafeManagedPtrGetPtr cell_area - inner_area <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_cell_area_inner_cell_area _obj' widget' cell_area' inner_area - inner_area' <- (wrapBoxed Cairo.RectangleInt) inner_area - touchManagedPtr _obj - touchManagedPtr widget - touchManagedPtr cell_area - return inner_area' - --- method CellArea::is_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellAreaIsActivatable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_is_activatable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellArea::is_focus_sibling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellArea::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellAreaRemove _obj renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - gtk_cell_area_remove _obj' renderer' - touchManagedPtr _obj - touchManagedPtr renderer - return () - --- method CellArea::remove_focus_sibling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellArea::render --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paint_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- background_area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - 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 - Cairo.RectangleInt -> -- background_area - Cairo.RectangleInt -> -- cell_area - [CellRendererState] -> -- flags - Bool -> -- paint_focus - m () -cellAreaRender _obj context widget cr background_area cell_area flags paint_focus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - let widget' = unsafeManagedPtrCastPtr widget - let cr' = unsafeManagedPtrGetPtr cr - let background_area' = unsafeManagedPtrGetPtr background_area - let cell_area' = unsafeManagedPtrGetPtr cell_area - let flags' = gflagsToWord flags - let paint_focus' = (fromIntegral . fromEnum) paint_focus - gtk_cell_area_render _obj' context' widget' cr' background_area' cell_area' flags' paint_focus' - touchManagedPtr _obj - touchManagedPtr context - touchManagedPtr widget - touchManagedPtr cr - touchManagedPtr background_area - touchManagedPtr cell_area - return () - --- method CellArea::request_renderer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Ptr Int32 -> -- minimum_size : TBasicType TInt32 - Ptr Int32 -> -- natural_size : TBasicType TInt32 - IO () - - -cellAreaRequestRenderer :: - (MonadIO m, CellAreaK a, CellRendererK b, WidgetK c) => - a -> -- _obj - b -> -- renderer - Orientation -> -- orientation - c -> -- widget - Int32 -> -- for_size - m (Int32,Int32) -cellAreaRequestRenderer _obj renderer orientation widget for_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let renderer' = unsafeManagedPtrCastPtr renderer - let orientation' = (fromIntegral . fromEnum) orientation - let widget' = unsafeManagedPtrCastPtr widget - minimum_size <- allocMem :: IO (Ptr Int32) - natural_size <- allocMem :: IO (Ptr Int32) - gtk_cell_area_request_renderer _obj' renderer' orientation' widget' for_size minimum_size natural_size - minimum_size' <- peek minimum_size - natural_size' <- peek natural_size - touchManagedPtr _obj - touchManagedPtr renderer - touchManagedPtr widget - freeMem minimum_size - freeMem natural_size - return (minimum_size', natural_size') - --- method CellArea::set_focus_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellArea::stop_editing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellAreaStopEditing _obj canceled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let canceled' = (fromIntegral . fromEnum) canceled - gtk_cell_area_stop_editing _obj' canceled' - touchManagedPtr _obj - return () - - 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,20 +0,0 @@ -module GI.Gtk.Objects.CellArea where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,261 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellAreaBoxGetSpacing , - - --- ** cellAreaBoxNew - cellAreaBoxNew , - - --- ** cellAreaBoxPackEnd - cellAreaBoxPackEnd , - - --- ** cellAreaBoxPackStart - cellAreaBoxPackStart , - - --- ** cellAreaBoxSetSpacing - cellAreaBoxSetSpacing , - - - - - -- * Properties --- ** Spacing - CellAreaBoxSpacingPropertyInfo , - constructCellAreaBoxSpacing , - getCellAreaBoxSpacing , - setCellAreaBoxSpacing , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> m Int32 -getCellAreaBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" - -setCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> Int32 -> m () -setCellAreaBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val - -constructCellAreaBoxSpacing :: Int32 -> IO ([Char], GValue) -constructCellAreaBoxSpacing val = constructObjectPropertyCInt "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 = "CellAreaBox::spacing" - attrGet _ = getCellAreaBoxSpacing - attrSet _ = setCellAreaBoxSpacing - attrConstruct _ = constructCellAreaBoxSpacing - -type instance AttributeList CellAreaBox = CellAreaBoxAttributeList -type CellAreaBoxAttributeList = ('[ '("edit-widget", CellAreaEditWidgetPropertyInfo), '("edited-cell", CellAreaEditedCellPropertyInfo), '("focus-cell", CellAreaFocusCellPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("spacing", CellAreaBoxSpacingPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellAreaBox = CellAreaBoxSignalList -type CellAreaBoxSignalList = ('[ '("add-editable", CellAreaAddEditableSignalInfo), '("apply-attributes", CellAreaApplyAttributesSignalInfo), '("focus-changed", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("remove-editable", CellAreaRemoveEditableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellAreaBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -cellAreaBoxGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_area_box_get_spacing _obj' - touchManagedPtr _obj - return result - --- method CellAreaBox::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellAreaBox::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellAreaBox::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_box_set_spacing" gtk_cell_area_box_set_spacing :: - Ptr CellAreaBox -> -- _obj : TInterface "Gtk" "CellAreaBox" - Int32 -> -- spacing : TBasicType TInt32 - IO () - - -cellAreaBoxSetSpacing :: - (MonadIO m, CellAreaBoxK a) => - a -> -- _obj - Int32 -> -- spacing - m () -cellAreaBoxSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_box_set_spacing _obj' spacing - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.CellAreaBox where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype CellAreaBox = CellAreaBox (ForeignPtr CellAreaBox) -instance GObject CellAreaBox where -class GObject o => CellAreaBoxK o -instance (GObject o, IsDescendantOf CellAreaBox o) => CellAreaBoxK o -data CellAreaBoxSpacingPropertyInfo 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,521 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellAreaContextAllocate , - - --- ** cellAreaContextGetAllocation - cellAreaContextGetAllocation , - - --- ** cellAreaContextGetArea - cellAreaContextGetArea , - - --- ** cellAreaContextGetPreferredHeight - cellAreaContextGetPreferredHeight , - - --- ** cellAreaContextGetPreferredHeightForWidth - cellAreaContextGetPreferredHeightForWidth, - - --- ** cellAreaContextGetPreferredWidth - cellAreaContextGetPreferredWidth , - - --- ** cellAreaContextGetPreferredWidthForHeight - cellAreaContextGetPreferredWidthForHeight, - - --- ** cellAreaContextPushPreferredHeight - cellAreaContextPushPreferredHeight , - - --- ** cellAreaContextPushPreferredWidth - cellAreaContextPushPreferredWidth , - - --- ** cellAreaContextReset - cellAreaContextReset , - - - - - -- * Properties --- ** Area - CellAreaContextAreaPropertyInfo , - constructCellAreaContextArea , - getCellAreaContextArea , - - --- ** MinimumHeight - CellAreaContextMinimumHeightPropertyInfo, - getCellAreaContextMinimumHeight , - - --- ** MinimumWidth - CellAreaContextMinimumWidthPropertyInfo , - getCellAreaContextMinimumWidth , - - --- ** NaturalHeight - CellAreaContextNaturalHeightPropertyInfo, - getCellAreaContextNaturalHeight , - - --- ** NaturalWidth - CellAreaContextNaturalWidthPropertyInfo , - getCellAreaContextNaturalWidth , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCellAreaContextArea :: (MonadIO m, CellAreaContextK o) => o -> m CellArea -getCellAreaContextArea obj = liftIO $ getObjectPropertyObject obj "area" CellArea - -constructCellAreaContextArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructCellAreaContextArea val = constructObjectPropertyObject "area" val - -data CellAreaContextAreaPropertyInfo -instance AttrInfo CellAreaContextAreaPropertyInfo where - type AttrAllowedOps CellAreaContextAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaContextK - type AttrGetType CellAreaContextAreaPropertyInfo = CellArea - type AttrLabel CellAreaContextAreaPropertyInfo = "CellAreaContext::area" - attrGet _ = getCellAreaContextArea - attrSet _ = undefined - attrConstruct _ = constructCellAreaContextArea - --- VVV Prop "minimum-height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getCellAreaContextMinimumHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextMinimumHeight obj = liftIO $ getObjectPropertyCInt 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 = "CellAreaContext::minimum-height" - attrGet _ = getCellAreaContextMinimumHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "minimum-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getCellAreaContextMinimumWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextMinimumWidth obj = liftIO $ getObjectPropertyCInt 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 = "CellAreaContext::minimum-width" - attrGet _ = getCellAreaContextMinimumWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "natural-height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getCellAreaContextNaturalHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextNaturalHeight obj = liftIO $ getObjectPropertyCInt 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 = "CellAreaContext::natural-height" - attrGet _ = getCellAreaContextNaturalHeight - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "natural-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getCellAreaContextNaturalWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32 -getCellAreaContextNaturalWidth obj = liftIO $ getObjectPropertyCInt 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 = "CellAreaContext::natural-width" - attrGet _ = getCellAreaContextNaturalWidth - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList CellAreaContext = CellAreaContextAttributeList -type CellAreaContextAttributeList = ('[ '("area", CellAreaContextAreaPropertyInfo), '("minimum-height", CellAreaContextMinimumHeightPropertyInfo), '("minimum-width", CellAreaContextMinimumWidthPropertyInfo), '("natural-height", CellAreaContextNaturalHeightPropertyInfo), '("natural-width", CellAreaContextNaturalWidthPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellAreaContext = CellAreaContextSignalList -type CellAreaContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellAreaContext::allocate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_context_allocate" gtk_cell_area_context_allocate :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -cellAreaContextAllocate :: - (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -cellAreaContextAllocate _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_allocate _obj' width height - touchManagedPtr _obj - return () - --- method CellAreaContext::get_allocation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -cellAreaContextGetAllocation :: - (MonadIO m, CellAreaContextK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method CellAreaContext::get_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellAreaContext::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -cellAreaContextGetPreferredHeight :: - (MonadIO m, CellAreaContextK a) => - a -> -- _obj - m (Int32,Int32) -cellAreaContextGetPreferredHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_height _obj' minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method CellAreaContext::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -cellAreaContextGetPreferredHeightForWidth :: - (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- width - m (Int32,Int32) -cellAreaContextGetPreferredHeightForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_height_for_width _obj' width minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method CellAreaContext::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -cellAreaContextGetPreferredWidth :: - (MonadIO m, CellAreaContextK a) => - a -> -- _obj - m (Int32,Int32) -cellAreaContextGetPreferredWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_width _obj' minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method CellAreaContext::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -cellAreaContextGetPreferredWidthForHeight :: - (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- height - m (Int32,Int32) -cellAreaContextGetPreferredWidthForHeight _obj height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_area_context_get_preferred_width_for_height _obj' height minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method CellAreaContext::push_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_context_push_preferred_height" gtk_cell_area_context_push_preferred_height :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- minimum_height : TBasicType TInt32 - Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -cellAreaContextPushPreferredHeight :: - (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- minimum_height - Int32 -> -- natural_height - m () -cellAreaContextPushPreferredHeight _obj minimum_height natural_height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_push_preferred_height _obj' minimum_height natural_height - touchManagedPtr _obj - return () - --- method CellAreaContext::push_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_area_context_push_preferred_width" gtk_cell_area_context_push_preferred_width :: - Ptr CellAreaContext -> -- _obj : TInterface "Gtk" "CellAreaContext" - Int32 -> -- minimum_width : TBasicType TInt32 - Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -cellAreaContextPushPreferredWidth :: - (MonadIO m, CellAreaContextK a) => - a -> -- _obj - Int32 -> -- minimum_width - Int32 -> -- natural_width - m () -cellAreaContextPushPreferredWidth _obj minimum_width natural_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_push_preferred_width _obj' minimum_width natural_width - touchManagedPtr _obj - return () - --- method CellAreaContext::reset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellAreaContextReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_area_context_reset _obj' - touchManagedPtr _obj - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.CellAreaContext where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1576 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellRendererActivate , - - --- ** cellRendererGetAlignedArea - cellRendererGetAlignedArea , - - --- ** cellRendererGetAlignment - cellRendererGetAlignment , - - --- ** cellRendererGetFixedSize - cellRendererGetFixedSize , - - --- ** cellRendererGetPadding - cellRendererGetPadding , - - --- ** cellRendererGetPreferredHeight - cellRendererGetPreferredHeight , - - --- ** cellRendererGetPreferredHeightForWidth - cellRendererGetPreferredHeightForWidth , - - --- ** cellRendererGetPreferredSize - cellRendererGetPreferredSize , - - --- ** cellRendererGetPreferredWidth - cellRendererGetPreferredWidth , - - --- ** cellRendererGetPreferredWidthForHeight - cellRendererGetPreferredWidthForHeight , - - --- ** cellRendererGetRequestMode - cellRendererGetRequestMode , - - --- ** cellRendererGetSensitive - cellRendererGetSensitive , - - --- ** cellRendererGetSize - cellRendererGetSize , - - --- ** cellRendererGetState - cellRendererGetState , - - --- ** cellRendererGetVisible - cellRendererGetVisible , - - --- ** cellRendererIsActivatable - cellRendererIsActivatable , - - --- ** cellRendererRender - cellRendererRender , - - --- ** cellRendererSetAlignment - cellRendererSetAlignment , - - --- ** cellRendererSetFixedSize - cellRendererSetFixedSize , - - --- ** cellRendererSetPadding - cellRendererSetPadding , - - --- ** cellRendererSetSensitive - cellRendererSetSensitive , - - --- ** cellRendererSetVisible - cellRendererSetVisible , - - --- ** cellRendererStartEditing - cellRendererStartEditing , - - --- ** cellRendererStopEditing - cellRendererStopEditing , - - - - - -- * Properties --- ** CellBackground - CellRendererCellBackgroundPropertyInfo , - constructCellRendererCellBackground , - setCellRendererCellBackground , - - --- ** CellBackgroundGdk - CellRendererCellBackgroundGdkPropertyInfo, - constructCellRendererCellBackgroundGdk , - getCellRendererCellBackgroundGdk , - setCellRendererCellBackgroundGdk , - - --- ** CellBackgroundRgba - CellRendererCellBackgroundRgbaPropertyInfo, - constructCellRendererCellBackgroundRgba , - getCellRendererCellBackgroundRgba , - setCellRendererCellBackgroundRgba , - - --- ** CellBackgroundSet - CellRendererCellBackgroundSetPropertyInfo, - constructCellRendererCellBackgroundSet , - getCellRendererCellBackgroundSet , - setCellRendererCellBackgroundSet , - - --- ** Editing - CellRendererEditingPropertyInfo , - getCellRendererEditing , - - --- ** Height - CellRendererHeightPropertyInfo , - constructCellRendererHeight , - getCellRendererHeight , - setCellRendererHeight , - - --- ** IsExpanded - CellRendererIsExpandedPropertyInfo , - constructCellRendererIsExpanded , - getCellRendererIsExpanded , - setCellRendererIsExpanded , - - --- ** IsExpander - CellRendererIsExpanderPropertyInfo , - constructCellRendererIsExpander , - getCellRendererIsExpander , - setCellRendererIsExpander , - - --- ** Mode - CellRendererModePropertyInfo , - constructCellRendererMode , - getCellRendererMode , - setCellRendererMode , - - --- ** Sensitive - CellRendererSensitivePropertyInfo , - constructCellRendererSensitive , - getCellRendererSensitive , - setCellRendererSensitive , - - --- ** Visible - CellRendererVisiblePropertyInfo , - constructCellRendererVisible , - getCellRendererVisible , - setCellRendererVisible , - - --- ** Width - CellRendererWidthPropertyInfo , - constructCellRendererWidth , - getCellRendererWidth , - setCellRendererWidth , - - --- ** Xalign - CellRendererXalignPropertyInfo , - constructCellRendererXalign , - getCellRendererXalign , - setCellRendererXalign , - - --- ** Xpad - CellRendererXpadPropertyInfo , - constructCellRendererXpad , - getCellRendererXpad , - setCellRendererXpad , - - --- ** Yalign - CellRendererYalignPropertyInfo , - constructCellRendererYalign , - getCellRendererYalign , - setCellRendererYalign , - - --- ** Ypad - CellRendererYpadPropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -setCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> T.Text -> m () -setCellRendererCellBackground obj val = liftIO $ setObjectPropertyString obj "cell-background" val - -constructCellRendererCellBackground :: T.Text -> IO ([Char], GValue) -constructCellRendererCellBackground val = constructObjectPropertyString "cell-background" val - -data CellRendererCellBackgroundPropertyInfo -instance AttrInfo CellRendererCellBackgroundPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererCellBackgroundPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundPropertyInfo = () - type AttrLabel CellRendererCellBackgroundPropertyInfo = "CellRenderer::cell-background" - attrGet _ = undefined - attrSet _ = setCellRendererCellBackground - attrConstruct _ = constructCellRendererCellBackground - --- VVV Prop "cell-background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m 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" val - -constructCellRendererCellBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererCellBackgroundGdk val = constructObjectPropertyBoxed "cell-background-gdk" val - -data CellRendererCellBackgroundGdkPropertyInfo -instance AttrInfo CellRendererCellBackgroundGdkPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "CellRenderer::cell-background-gdk" - attrGet _ = getCellRendererCellBackgroundGdk - attrSet _ = setCellRendererCellBackgroundGdk - attrConstruct _ = constructCellRendererCellBackgroundGdk - --- VVV Prop "cell-background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m 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" val - -constructCellRendererCellBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererCellBackgroundRgba val = constructObjectPropertyBoxed "cell-background-rgba" val - -data CellRendererCellBackgroundRgbaPropertyInfo -instance AttrInfo CellRendererCellBackgroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = CellRendererK - type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "CellRenderer::cell-background-rgba" - attrGet _ = getCellRendererCellBackgroundRgba - attrSet _ = setCellRendererCellBackgroundRgba - attrConstruct _ = constructCellRendererCellBackgroundRgba - --- VVV Prop "cell-background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRenderer::cell-background-set" - attrGet _ = getCellRendererCellBackgroundSet - attrSet _ = setCellRendererCellBackgroundSet - attrConstruct _ = constructCellRendererCellBackgroundSet - --- VVV Prop "editing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "CellRenderer::editing" - attrGet _ = getCellRendererEditing - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> m Int32 -getCellRendererHeight obj = liftIO $ getObjectPropertyCInt obj "height" - -setCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> Int32 -> m () -setCellRendererHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val - -constructCellRendererHeight :: Int32 -> IO ([Char], GValue) -constructCellRendererHeight val = constructObjectPropertyCInt "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 = "CellRenderer::height" - attrGet _ = getCellRendererHeight - attrSet _ = setCellRendererHeight - attrConstruct _ = constructCellRendererHeight - --- VVV Prop "is-expanded" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRenderer::is-expanded" - attrGet _ = getCellRendererIsExpanded - attrSet _ = setCellRendererIsExpanded - attrConstruct _ = constructCellRendererIsExpanded - --- VVV Prop "is-expander" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRenderer::is-expander" - attrGet _ = getCellRendererIsExpander - attrSet _ = setCellRendererIsExpander - attrConstruct _ = constructCellRendererIsExpander - --- VVV Prop "mode" - -- Type: TInterface "Gtk" "CellRendererMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRenderer::mode" - attrGet _ = getCellRendererMode - attrSet _ = setCellRendererMode - attrConstruct _ = constructCellRendererMode - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRenderer::sensitive" - attrGet _ = getCellRendererSensitive - attrSet _ = setCellRendererSensitive - attrConstruct _ = constructCellRendererSensitive - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRenderer::visible" - attrGet _ = getCellRendererVisible - attrSet _ = setCellRendererVisible - attrConstruct _ = constructCellRendererVisible - --- VVV Prop "width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> m Int32 -getCellRendererWidth obj = liftIO $ getObjectPropertyCInt obj "width" - -setCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> Int32 -> m () -setCellRendererWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val - -constructCellRendererWidth :: Int32 -> IO ([Char], GValue) -constructCellRendererWidth val = constructObjectPropertyCInt "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 = "CellRenderer::width" - attrGet _ = getCellRendererWidth - attrSet _ = setCellRendererWidth - attrConstruct _ = constructCellRendererWidth - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRenderer::xalign" - attrGet _ = getCellRendererXalign - attrSet _ = setCellRendererXalign - attrConstruct _ = constructCellRendererXalign - --- VVV Prop "xpad" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> m Word32 -getCellRendererXpad obj = liftIO $ getObjectPropertyCUInt obj "xpad" - -setCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m () -setCellRendererXpad obj val = liftIO $ setObjectPropertyCUInt obj "xpad" val - -constructCellRendererXpad :: Word32 -> IO ([Char], GValue) -constructCellRendererXpad val = constructObjectPropertyCUInt "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 = "CellRenderer::xpad" - attrGet _ = getCellRendererXpad - attrSet _ = setCellRendererXpad - attrConstruct _ = constructCellRendererXpad - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRenderer::yalign" - attrGet _ = getCellRendererYalign - attrSet _ = setCellRendererYalign - attrConstruct _ = constructCellRendererYalign - --- VVV Prop "ypad" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> m Word32 -getCellRendererYpad obj = liftIO $ getObjectPropertyCUInt obj "ypad" - -setCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m () -setCellRendererYpad obj val = liftIO $ setObjectPropertyCUInt obj "ypad" val - -constructCellRendererYpad :: Word32 -> IO ([Char], GValue) -constructCellRendererYpad val = constructObjectPropertyCUInt "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 = "CellRenderer::ypad" - attrGet _ = getCellRendererYpad - attrSet _ = setCellRendererYpad - attrConstruct _ = constructCellRendererYpad - -type instance AttributeList CellRenderer = CellRendererAttributeList -type CellRendererAttributeList = ('[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRenderer::activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- background_area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - IO CInt - - -cellRendererActivate :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - Gdk.Event -> -- event - b -> -- widget - T.Text -> -- path - Cairo.RectangleInt -> -- background_area - Cairo.RectangleInt -> -- cell_area - [CellRendererState] -> -- flags - m Bool -cellRendererActivate _obj event widget path background_area cell_area flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - let widget' = unsafeManagedPtrCastPtr widget - path' <- textToCString path - let background_area' = unsafeManagedPtrGetPtr background_area - let cell_area' = unsafeManagedPtrGetPtr cell_area - let flags' = gflagsToWord flags - result <- gtk_cell_renderer_activate _obj' event' widget' path' background_area' cell_area' flags' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - touchManagedPtr widget - touchManagedPtr background_area - touchManagedPtr cell_area - freeMem path' - return result' - --- method CellRenderer::get_aligned_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "aligned_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- aligned_area : TInterface "cairo" "RectangleInt" - IO () - - -cellRendererGetAlignedArea :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - [CellRendererState] -> -- flags - Cairo.RectangleInt -> -- cell_area - m (Cairo.RectangleInt) -cellRendererGetAlignedArea _obj widget flags cell_area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let flags' = gflagsToWord flags - let cell_area' = unsafeManagedPtrGetPtr cell_area - aligned_area <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_cell_renderer_get_aligned_area _obj' widget' flags' cell_area' aligned_area - aligned_area' <- (wrapBoxed Cairo.RectangleInt) aligned_area - touchManagedPtr _obj - touchManagedPtr widget - touchManagedPtr cell_area - return aligned_area' - --- method CellRenderer::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method CellRenderer::get_fixed_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -cellRendererGetFixedSize :: - (MonadIO m, CellRendererK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method CellRenderer::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- ypad : TBasicType TInt32 - IO () - - -cellRendererGetPadding :: - (MonadIO m, CellRendererK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method CellRenderer::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- natural_size : TBasicType TInt32 - IO () - - -cellRendererGetPreferredHeight :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m (Int32,Int32) -cellRendererGetPreferredHeight _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimum_size <- allocMem :: IO (Ptr Int32) - natural_size <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_height _obj' widget' minimum_size natural_size - minimum_size' <- peek minimum_size - natural_size' <- peek natural_size - touchManagedPtr _obj - touchManagedPtr widget - freeMem minimum_size - freeMem natural_size - return (minimum_size', natural_size') - --- method CellRenderer::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -cellRendererGetPreferredHeightForWidth :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- width - m (Int32,Int32) -cellRendererGetPreferredHeightForWidth _obj widget width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_height_for_width _obj' widget' width minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - touchManagedPtr widget - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method CellRenderer::get_preferred_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -cellRendererGetPreferredSize _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimum_size <- callocBoxedBytes 8 :: IO (Ptr Requisition) - natural_size <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_cell_renderer_get_preferred_size _obj' widget' minimum_size natural_size - minimum_size' <- (wrapBoxed Requisition) minimum_size - natural_size' <- (wrapBoxed Requisition) natural_size - touchManagedPtr _obj - touchManagedPtr widget - return (minimum_size', natural_size') - --- method CellRenderer::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- natural_size : TBasicType TInt32 - IO () - - -cellRendererGetPreferredWidth :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - m (Int32,Int32) -cellRendererGetPreferredWidth _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimum_size <- allocMem :: IO (Ptr Int32) - natural_size <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_width _obj' widget' minimum_size natural_size - minimum_size' <- peek minimum_size - natural_size' <- peek natural_size - touchManagedPtr _obj - touchManagedPtr widget - freeMem minimum_size - freeMem natural_size - return (minimum_size', natural_size') - --- method CellRenderer::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -cellRendererGetPreferredWidthForHeight :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- height - m (Int32,Int32) -cellRendererGetPreferredWidthForHeight _obj widget height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_preferred_width_for_height _obj' widget' height minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - touchManagedPtr widget - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method CellRenderer::get_request_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellRenderer::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellRendererGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellRenderer::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - Ptr Int32 -> -- x_offset : TBasicType TInt32 - Ptr Int32 -> -- y_offset : TBasicType TInt32 - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - 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 (Cairo.RectangleInt) -> -- cell_area - m (Int32,Int32,Int32,Int32) -cellRendererGetSize _obj widget cell_area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - maybeCell_area <- case cell_area of - Nothing -> return nullPtr - Just jCell_area -> do - let jCell_area' = unsafeManagedPtrGetPtr jCell_area - return jCell_area' - x_offset <- allocMem :: IO (Ptr Int32) - y_offset <- allocMem :: IO (Ptr Int32) - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_cell_renderer_get_size _obj' widget' maybeCell_area x_offset y_offset width height - x_offset' <- peek x_offset - y_offset' <- peek y_offset - width' <- peek width - height' <- peek height - touchManagedPtr _obj - touchManagedPtr widget - whenJust cell_area touchManagedPtr - freeMem x_offset - freeMem y_offset - freeMem width - freeMem height - return (x_offset', y_offset', width', height') - --- method CellRenderer::get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_state", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "StateFlags" --- throws : False --- Skip return : False - -foreign import ccall "gtk_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] -> -- cell_state - m [StateFlags] -cellRendererGetState _obj widget cell_state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let cell_state' = gflagsToWord cell_state - result <- gtk_cell_renderer_get_state _obj' widget' cell_state' - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr widget - return result' - --- method CellRenderer::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellRendererGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellRenderer::is_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellRendererIsActivatable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_is_activatable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellRenderer::render --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- background_area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - CUInt -> -- flags : TInterface "Gtk" "CellRendererState" - IO () - - -cellRendererRender :: - (MonadIO m, CellRendererK a, WidgetK b) => - a -> -- _obj - Cairo.Context -> -- cr - b -> -- widget - Cairo.RectangleInt -> -- background_area - Cairo.RectangleInt -> -- cell_area - [CellRendererState] -> -- flags - m () -cellRendererRender _obj cr widget background_area cell_area flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - let widget' = unsafeManagedPtrCastPtr widget - let background_area' = unsafeManagedPtrGetPtr background_area - let cell_area' = unsafeManagedPtrGetPtr cell_area - let flags' = gflagsToWord flags - gtk_cell_renderer_render _obj' cr' widget' background_area' cell_area' flags' - touchManagedPtr _obj - touchManagedPtr cr - touchManagedPtr widget - touchManagedPtr background_area - touchManagedPtr cell_area - return () - --- method CellRenderer::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellRenderer::set_fixed_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_set_fixed_size" gtk_cell_renderer_set_fixed_size :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -cellRendererSetFixedSize :: - (MonadIO m, CellRendererK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -cellRendererSetFixedSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_renderer_set_fixed_size _obj' width height - touchManagedPtr _obj - return () - --- method CellRenderer::set_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_cell_renderer_set_padding" gtk_cell_renderer_set_padding :: - Ptr CellRenderer -> -- _obj : TInterface "Gtk" "CellRenderer" - Int32 -> -- xpad : TBasicType TInt32 - Int32 -> -- ypad : TBasicType TInt32 - IO () - - -cellRendererSetPadding :: - (MonadIO m, CellRendererK a) => - a -> -- _obj - Int32 -> -- xpad - Int32 -> -- ypad - m () -cellRendererSetPadding _obj xpad ypad = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_renderer_set_padding _obj' xpad ypad - touchManagedPtr _obj - return () - --- method CellRenderer::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellRendererSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_cell_renderer_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - --- method CellRenderer::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellRendererSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_cell_renderer_set_visible _obj' visible' - touchManagedPtr _obj - return () - --- method CellRenderer::start_editing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "CellRendererState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- background_area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - 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 - Cairo.RectangleInt -> -- background_area - Cairo.RectangleInt -> -- cell_area - [CellRendererState] -> -- flags - m CellEditable -cellRendererStartEditing _obj event widget path background_area cell_area flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - let widget' = unsafeManagedPtrCastPtr widget - path' <- textToCString path - let background_area' = unsafeManagedPtrGetPtr background_area - let cell_area' = unsafeManagedPtrGetPtr cell_area - let flags' = gflagsToWord flags - result <- gtk_cell_renderer_start_editing _obj' event' widget' path' background_area' cell_area' flags' - checkUnexpectedReturnNULL "gtk_cell_renderer_start_editing" result - result' <- (newObject CellEditable) result - touchManagedPtr _obj - touchManagedPtr event - touchManagedPtr widget - touchManagedPtr background_area - touchManagedPtr cell_area - freeMem path' - return result' - --- method CellRenderer::stop_editing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "canceled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cellRendererStopEditing _obj canceled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let canceled' = (fromIntegral . fromEnum) canceled - gtk_cell_renderer_stop_editing _obj' canceled' - touchManagedPtr _obj - return () - - 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,31 +0,0 @@ -module GI.Gtk.Objects.CellRenderer where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,346 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - constructCellRendererAccelAccelKey , - getCellRendererAccelAccelKey , - setCellRendererAccelAccelKey , - - --- ** AccelMode - CellRendererAccelAccelModePropertyInfo , - constructCellRendererAccelAccelMode , - getCellRendererAccelAccelMode , - setCellRendererAccelAccelMode , - - --- ** AccelMods - CellRendererAccelAccelModsPropertyInfo , - constructCellRendererAccelAccelMods , - getCellRendererAccelAccelMods , - setCellRendererAccelAccelMods , - - --- ** Keycode - CellRendererAccelKeycodePropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ path_string _ = do - path_string' <- cstringToText path_string - _cb path_string' - -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 _ path_string accel_key accel_mods hardware_keycode _ = do - path_string' <- cstringToText path_string - let accel_mods' = wordToGFlags accel_mods - _cb path_string' accel_key accel_mods' hardware_keycode - -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 TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> m Word32 -getCellRendererAccelAccelKey obj = liftIO $ getObjectPropertyCUInt obj "accel-key" - -setCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m () -setCellRendererAccelAccelKey obj val = liftIO $ setObjectPropertyCUInt obj "accel-key" val - -constructCellRendererAccelAccelKey :: Word32 -> IO ([Char], GValue) -constructCellRendererAccelAccelKey val = constructObjectPropertyCUInt "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 = "CellRendererAccel::accel-key" - attrGet _ = getCellRendererAccelAccelKey - attrSet _ = setCellRendererAccelAccelKey - attrConstruct _ = constructCellRendererAccelAccelKey - --- VVV Prop "accel-mode" - -- Type: TInterface "Gtk" "CellRendererAccelMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererAccel::accel-mode" - attrGet _ = getCellRendererAccelAccelMode - attrSet _ = setCellRendererAccelAccelMode - attrConstruct _ = constructCellRendererAccelAccelMode - --- VVV Prop "accel-mods" - -- Type: TInterface "Gdk" "ModifierType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererAccel::accel-mods" - attrGet _ = getCellRendererAccelAccelMods - attrSet _ = setCellRendererAccelAccelMods - attrConstruct _ = constructCellRendererAccelAccelMods - --- VVV Prop "keycode" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> m Word32 -getCellRendererAccelKeycode obj = liftIO $ getObjectPropertyCUInt obj "keycode" - -setCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m () -setCellRendererAccelKeycode obj val = liftIO $ setObjectPropertyCUInt obj "keycode" val - -constructCellRendererAccelKeycode :: Word32 -> IO ([Char], GValue) -constructCellRendererAccelKeycode val = constructObjectPropertyCUInt "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 = "CellRendererAccel::keycode" - attrGet _ = getCellRendererAccelKeycode - attrSet _ = setCellRendererAccelKeycode - attrConstruct _ = constructCellRendererAccelKeycode - -type instance AttributeList CellRendererAccel = CellRendererAccelAttributeList -type CellRendererAccelAttributeList = ('[ '("accel-key", CellRendererAccelAccelKeyPropertyInfo), '("accel-mode", CellRendererAccelAccelModePropertyInfo), '("accel-mods", CellRendererAccelAccelModsPropertyInfo), '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("keycode", CellRendererAccelKeycodePropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-cleared", CellRendererAccelAccelClearedSignalInfo), '("accel-edited", CellRendererAccelAccelEditedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererAccel::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,249 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - constructCellRendererComboHasEntry , - getCellRendererComboHasEntry , - setCellRendererComboHasEntry , - - --- ** Model - CellRendererComboModelPropertyInfo , - constructCellRendererComboModel , - getCellRendererComboModel , - setCellRendererComboModel , - - --- ** TextColumn - CellRendererComboTextColumnPropertyInfo , - constructCellRendererComboTextColumn , - getCellRendererComboTextColumn , - setCellRendererComboTextColumn , - - - - - -- * Signals --- ** Changed - CellRendererComboChangedCallback , - CellRendererComboChangedCallbackC , - CellRendererComboChangedSignalInfo , - afterCellRendererComboChanged , - cellRendererComboChangedCallbackWrapper , - cellRendererComboChangedClosure , - mkCellRendererComboChangedCallback , - noCellRendererComboChangedCallback , - onCellRendererComboChanged , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ path_string new_iter _ = do - path_string' <- cstringToText path_string - new_iter' <- (newBoxed TreeIter) new_iter - _cb path_string' new_iter' - -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] - -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 = "CellRendererCombo::has-entry" - attrGet _ = getCellRendererComboHasEntry - attrSet _ = setCellRendererComboHasEntry - attrConstruct _ = constructCellRendererComboHasEntry - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m 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" val - -constructCellRendererComboModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructCellRendererComboModel val = constructObjectPropertyObject "model" val - -data CellRendererComboModelPropertyInfo -instance AttrInfo CellRendererComboModelPropertyInfo where - type AttrAllowedOps CellRendererComboModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererComboModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint CellRendererComboModelPropertyInfo = CellRendererComboK - type AttrGetType CellRendererComboModelPropertyInfo = TreeModel - type AttrLabel CellRendererComboModelPropertyInfo = "CellRendererCombo::model" - attrGet _ = getCellRendererComboModel - attrSet _ = setCellRendererComboModel - attrConstruct _ = constructCellRendererComboModel - --- VVV Prop "text-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> m Int32 -getCellRendererComboTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" - -setCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> Int32 -> m () -setCellRendererComboTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val - -constructCellRendererComboTextColumn :: Int32 -> IO ([Char], GValue) -constructCellRendererComboTextColumn val = constructObjectPropertyCInt "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 = "CellRendererCombo::text-column" - attrGet _ = getCellRendererComboTextColumn - attrSet _ = setCellRendererComboTextColumn - attrConstruct _ = constructCellRendererComboTextColumn - -type instance AttributeList CellRendererCombo = CellRendererComboAttributeList -type CellRendererComboAttributeList = ('[ '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("has-entry", CellRendererComboHasEntryPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("model", CellRendererComboModelPropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("text-column", CellRendererComboTextColumnPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -data CellRendererComboChangedSignalInfo -instance SignalInfo CellRendererComboChangedSignalInfo where - type HaskellCallbackType CellRendererComboChangedSignalInfo = CellRendererComboChangedCallback - connectSignal _ = connectCellRendererComboChanged - -type instance SignalList CellRendererCombo = CellRendererComboSignalList -type CellRendererComboSignalList = ('[ '("changed", CellRendererComboChangedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererCombo::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,403 +0,0 @@ - -{- | -Copyright : Will Thompson, 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, - constructCellRendererPixbufFollowState , - getCellRendererPixbufFollowState , - setCellRendererPixbufFollowState , - - --- ** Gicon - CellRendererPixbufGiconPropertyInfo , - constructCellRendererPixbufGicon , - getCellRendererPixbufGicon , - setCellRendererPixbufGicon , - - --- ** IconName - CellRendererPixbufIconNamePropertyInfo , - constructCellRendererPixbufIconName , - getCellRendererPixbufIconName , - setCellRendererPixbufIconName , - - --- ** Pixbuf - CellRendererPixbufPixbufPropertyInfo , - constructCellRendererPixbufPixbuf , - getCellRendererPixbufPixbuf , - setCellRendererPixbufPixbuf , - - --- ** PixbufExpanderClosed - CellRendererPixbufPixbufExpanderClosedPropertyInfo, - constructCellRendererPixbufPixbufExpanderClosed, - getCellRendererPixbufPixbufExpanderClosed, - setCellRendererPixbufPixbufExpanderClosed, - - --- ** PixbufExpanderOpen - CellRendererPixbufPixbufExpanderOpenPropertyInfo, - constructCellRendererPixbufPixbufExpanderOpen, - getCellRendererPixbufPixbufExpanderOpen , - setCellRendererPixbufPixbufExpanderOpen , - - --- ** StockDetail - CellRendererPixbufStockDetailPropertyInfo, - constructCellRendererPixbufStockDetail , - getCellRendererPixbufStockDetail , - setCellRendererPixbufStockDetail , - - --- ** StockId - CellRendererPixbufStockIdPropertyInfo , - constructCellRendererPixbufStockId , - getCellRendererPixbufStockId , - setCellRendererPixbufStockId , - - --- ** StockSize - CellRendererPixbufStockSizePropertyInfo , - constructCellRendererPixbufStockSize , - getCellRendererPixbufStockSize , - setCellRendererPixbufStockSize , - - --- ** Surface - CellRendererPixbufSurfacePropertyInfo , - constructCellRendererPixbufSurface , - getCellRendererPixbufSurface , - setCellRendererPixbufSurface , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "follow-state" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererPixbuf::follow-state" - attrGet _ = getCellRendererPixbufFollowState - attrSet _ = setCellRendererPixbufFollowState - attrConstruct _ = constructCellRendererPixbufFollowState - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val - -constructCellRendererPixbufGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufGicon val = constructObjectPropertyObject "gicon" val - -data CellRendererPixbufGiconPropertyInfo -instance AttrInfo CellRendererPixbufGiconPropertyInfo where - type AttrAllowedOps CellRendererPixbufGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint CellRendererPixbufGiconPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufGiconPropertyInfo = Gio.Icon - type AttrLabel CellRendererPixbufGiconPropertyInfo = "CellRendererPixbuf::gicon" - attrGet _ = getCellRendererPixbufGicon - attrSet _ = setCellRendererPixbufGicon - attrConstruct _ = constructCellRendererPixbufGicon - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val - -constructCellRendererPixbufIconName :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufIconName val = constructObjectPropertyString "icon-name" val - -data CellRendererPixbufIconNamePropertyInfo -instance AttrInfo CellRendererPixbufIconNamePropertyInfo where - type AttrAllowedOps CellRendererPixbufIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererPixbufIconNamePropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufIconNamePropertyInfo = T.Text - type AttrLabel CellRendererPixbufIconNamePropertyInfo = "CellRendererPixbuf::icon-name" - attrGet _ = getCellRendererPixbufIconName - attrSet _ = setCellRendererPixbufIconName - attrConstruct _ = constructCellRendererPixbufIconName - --- VVV Prop "pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val - -constructCellRendererPixbufPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbuf val = constructObjectPropertyObject "pixbuf" val - -data CellRendererPixbufPixbufPropertyInfo -instance AttrInfo CellRendererPixbufPixbufPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint CellRendererPixbufPixbufPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel CellRendererPixbufPixbufPropertyInfo = "CellRendererPixbuf::pixbuf" - attrGet _ = getCellRendererPixbufPixbuf - attrSet _ = setCellRendererPixbufPixbuf - attrConstruct _ = constructCellRendererPixbufPixbuf - --- VVV Prop "pixbuf-expander-closed" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val - -constructCellRendererPixbufPixbufExpanderClosed :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbufExpanderClosed val = constructObjectPropertyObject "pixbuf-expander-closed" val - -data CellRendererPixbufPixbufExpanderClosedPropertyInfo -instance AttrInfo CellRendererPixbufPixbufExpanderClosedPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufExpanderClosedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel CellRendererPixbufPixbufExpanderClosedPropertyInfo = "CellRendererPixbuf::pixbuf-expander-closed" - attrGet _ = getCellRendererPixbufPixbufExpanderClosed - attrSet _ = setCellRendererPixbufPixbufExpanderClosed - attrConstruct _ = constructCellRendererPixbufPixbufExpanderClosed - --- VVV Prop "pixbuf-expander-open" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val - -constructCellRendererPixbufPixbufExpanderOpen :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructCellRendererPixbufPixbufExpanderOpen val = constructObjectPropertyObject "pixbuf-expander-open" val - -data CellRendererPixbufPixbufExpanderOpenPropertyInfo -instance AttrInfo CellRendererPixbufPixbufExpanderOpenPropertyInfo where - type AttrAllowedOps CellRendererPixbufPixbufExpanderOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel CellRendererPixbufPixbufExpanderOpenPropertyInfo = "CellRendererPixbuf::pixbuf-expander-open" - attrGet _ = getCellRendererPixbufPixbufExpanderOpen - attrSet _ = setCellRendererPixbufPixbufExpanderOpen - attrConstruct _ = constructCellRendererPixbufPixbufExpanderOpen - --- VVV Prop "stock-detail" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val - -constructCellRendererPixbufStockDetail :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufStockDetail val = constructObjectPropertyString "stock-detail" val - -data CellRendererPixbufStockDetailPropertyInfo -instance AttrInfo CellRendererPixbufStockDetailPropertyInfo where - type AttrAllowedOps CellRendererPixbufStockDetailPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufStockDetailPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererPixbufStockDetailPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufStockDetailPropertyInfo = T.Text - type AttrLabel CellRendererPixbufStockDetailPropertyInfo = "CellRendererPixbuf::stock-detail" - attrGet _ = getCellRendererPixbufStockDetail - attrSet _ = setCellRendererPixbufStockDetail - attrConstruct _ = constructCellRendererPixbufStockDetail - --- VVV Prop "stock-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val - -constructCellRendererPixbufStockId :: T.Text -> IO ([Char], GValue) -constructCellRendererPixbufStockId val = constructObjectPropertyString "stock-id" val - -data CellRendererPixbufStockIdPropertyInfo -instance AttrInfo CellRendererPixbufStockIdPropertyInfo where - type AttrAllowedOps CellRendererPixbufStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufStockIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererPixbufStockIdPropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufStockIdPropertyInfo = T.Text - type AttrLabel CellRendererPixbufStockIdPropertyInfo = "CellRendererPixbuf::stock-id" - attrGet _ = getCellRendererPixbufStockId - attrSet _ = setCellRendererPixbufStockId - attrConstruct _ = constructCellRendererPixbufStockId - --- VVV Prop "stock-size" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> m Word32 -getCellRendererPixbufStockSize obj = liftIO $ getObjectPropertyCUInt obj "stock-size" - -setCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> Word32 -> m () -setCellRendererPixbufStockSize obj val = liftIO $ setObjectPropertyCUInt obj "stock-size" val - -constructCellRendererPixbufStockSize :: Word32 -> IO ([Char], GValue) -constructCellRendererPixbufStockSize val = constructObjectPropertyCUInt "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 = "CellRendererPixbuf::stock-size" - attrGet _ = getCellRendererPixbufStockSize - attrSet _ = setCellRendererPixbufStockSize - attrConstruct _ = constructCellRendererPixbufStockSize - --- VVV Prop "surface" - -- Type: TInterface "cairo" "Surface" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val - -constructCellRendererPixbufSurface :: Cairo.Surface -> IO ([Char], GValue) -constructCellRendererPixbufSurface val = constructObjectPropertyBoxed "surface" val - -data CellRendererPixbufSurfacePropertyInfo -instance AttrInfo CellRendererPixbufSurfacePropertyInfo where - type AttrAllowedOps CellRendererPixbufSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererPixbufSurfacePropertyInfo = (~) Cairo.Surface - type AttrBaseTypeConstraint CellRendererPixbufSurfacePropertyInfo = CellRendererPixbufK - type AttrGetType CellRendererPixbufSurfacePropertyInfo = Cairo.Surface - type AttrLabel CellRendererPixbufSurfacePropertyInfo = "CellRendererPixbuf::surface" - attrGet _ = getCellRendererPixbufSurface - attrSet _ = setCellRendererPixbufSurface - attrConstruct _ = constructCellRendererPixbufSurface - -type instance AttributeList CellRendererPixbuf = CellRendererPixbufAttributeList -type CellRendererPixbufAttributeList = ('[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("follow-state", CellRendererPixbufFollowStatePropertyInfo), '("gicon", CellRendererPixbufGiconPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("icon-name", CellRendererPixbufIconNamePropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pixbuf", CellRendererPixbufPixbufPropertyInfo), '("pixbuf-expander-closed", CellRendererPixbufPixbufExpanderClosedPropertyInfo), '("pixbuf-expander-open", CellRendererPixbufPixbufExpanderOpenPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("stock-detail", CellRendererPixbufStockDetailPropertyInfo), '("stock-id", CellRendererPixbufStockIdPropertyInfo), '("stock-size", CellRendererPixbufStockSizePropertyInfo), '("surface", CellRendererPixbufSurfacePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellRendererPixbuf = CellRendererPixbufSignalList -type CellRendererPixbufSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererPixbuf::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,276 +0,0 @@ - -{- | -Copyright : Will Thompson, 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, - constructCellRendererProgressInverted , - getCellRendererProgressInverted , - setCellRendererProgressInverted , - - --- ** Pulse - CellRendererProgressPulsePropertyInfo , - constructCellRendererProgressPulse , - getCellRendererProgressPulse , - setCellRendererProgressPulse , - - --- ** Text - CellRendererProgressTextPropertyInfo , - constructCellRendererProgressText , - getCellRendererProgressText , - setCellRendererProgressText , - - --- ** TextXalign - CellRendererProgressTextXalignPropertyInfo, - constructCellRendererProgressTextXalign , - getCellRendererProgressTextXalign , - setCellRendererProgressTextXalign , - - --- ** TextYalign - CellRendererProgressTextYalignPropertyInfo, - constructCellRendererProgressTextYalign , - getCellRendererProgressTextYalign , - setCellRendererProgressTextYalign , - - --- ** Value - CellRendererProgressValuePropertyInfo , - constructCellRendererProgressValue , - getCellRendererProgressValue , - setCellRendererProgressValue , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererProgress::inverted" - attrGet _ = getCellRendererProgressInverted - attrSet _ = setCellRendererProgressInverted - attrConstruct _ = constructCellRendererProgressInverted - --- VVV Prop "pulse" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> m Int32 -getCellRendererProgressPulse obj = liftIO $ getObjectPropertyCInt obj "pulse" - -setCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m () -setCellRendererProgressPulse obj val = liftIO $ setObjectPropertyCInt obj "pulse" val - -constructCellRendererProgressPulse :: Int32 -> IO ([Char], GValue) -constructCellRendererProgressPulse val = constructObjectPropertyCInt "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 = "CellRendererProgress::pulse" - attrGet _ = getCellRendererProgressPulse - attrSet _ = setCellRendererProgressPulse - attrConstruct _ = constructCellRendererProgressPulse - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m T.Text -getCellRendererProgressText obj = liftIO $ getObjectPropertyString obj "text" - -setCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> T.Text -> m () -setCellRendererProgressText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructCellRendererProgressText :: T.Text -> IO ([Char], GValue) -constructCellRendererProgressText val = constructObjectPropertyString "text" val - -data CellRendererProgressTextPropertyInfo -instance AttrInfo CellRendererProgressTextPropertyInfo where - type AttrAllowedOps CellRendererProgressTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererProgressTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererProgressTextPropertyInfo = CellRendererProgressK - type AttrGetType CellRendererProgressTextPropertyInfo = T.Text - type AttrLabel CellRendererProgressTextPropertyInfo = "CellRendererProgress::text" - attrGet _ = getCellRendererProgressText - attrSet _ = setCellRendererProgressText - attrConstruct _ = constructCellRendererProgressText - --- VVV Prop "text-xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererProgress::text-xalign" - attrGet _ = getCellRendererProgressTextXalign - attrSet _ = setCellRendererProgressTextXalign - attrConstruct _ = constructCellRendererProgressTextXalign - --- VVV Prop "text-yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererProgress::text-yalign" - attrGet _ = getCellRendererProgressTextYalign - attrSet _ = setCellRendererProgressTextYalign - attrConstruct _ = constructCellRendererProgressTextYalign - --- VVV Prop "value" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> m Int32 -getCellRendererProgressValue obj = liftIO $ getObjectPropertyCInt obj "value" - -setCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m () -setCellRendererProgressValue obj val = liftIO $ setObjectPropertyCInt obj "value" val - -constructCellRendererProgressValue :: Int32 -> IO ([Char], GValue) -constructCellRendererProgressValue val = constructObjectPropertyCInt "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 = "CellRendererProgress::value" - attrGet _ = getCellRendererProgressValue - attrSet _ = setCellRendererProgressValue - attrConstruct _ = constructCellRendererProgressValue - -type instance AttributeList CellRendererProgress = CellRendererProgressAttributeList -type CellRendererProgressAttributeList = ('[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inverted", CellRendererProgressInvertedPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("pulse", CellRendererProgressPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("text", CellRendererProgressTextPropertyInfo), '("text-xalign", CellRendererProgressTextXalignPropertyInfo), '("text-yalign", CellRendererProgressTextYalignPropertyInfo), '("value", CellRendererProgressValuePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellRendererProgress = CellRendererProgressSignalList -type CellRendererProgressSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererProgress::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,183 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - constructCellRendererSpinAdjustment , - getCellRendererSpinAdjustment , - setCellRendererSpinAdjustment , - - --- ** ClimbRate - CellRendererSpinClimbRatePropertyInfo , - constructCellRendererSpinClimbRate , - getCellRendererSpinClimbRate , - setCellRendererSpinClimbRate , - - --- ** Digits - CellRendererSpinDigitsPropertyInfo , - constructCellRendererSpinDigits , - getCellRendererSpinDigits , - setCellRendererSpinDigits , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "adjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m 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" val - -constructCellRendererSpinAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructCellRendererSpinAdjustment val = constructObjectPropertyObject "adjustment" val - -data CellRendererSpinAdjustmentPropertyInfo -instance AttrInfo CellRendererSpinAdjustmentPropertyInfo where - type AttrAllowedOps CellRendererSpinAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererSpinAdjustmentPropertyInfo = AdjustmentK - type AttrBaseTypeConstraint CellRendererSpinAdjustmentPropertyInfo = CellRendererSpinK - type AttrGetType CellRendererSpinAdjustmentPropertyInfo = Adjustment - type AttrLabel CellRendererSpinAdjustmentPropertyInfo = "CellRendererSpin::adjustment" - attrGet _ = getCellRendererSpinAdjustment - attrSet _ = setCellRendererSpinAdjustment - attrConstruct _ = constructCellRendererSpinAdjustment - --- VVV Prop "climb-rate" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererSpin::climb-rate" - attrGet _ = getCellRendererSpinClimbRate - attrSet _ = setCellRendererSpinClimbRate - attrConstruct _ = constructCellRendererSpinClimbRate - --- VVV Prop "digits" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> m Word32 -getCellRendererSpinDigits obj = liftIO $ getObjectPropertyCUInt obj "digits" - -setCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> Word32 -> m () -setCellRendererSpinDigits obj val = liftIO $ setObjectPropertyCUInt obj "digits" val - -constructCellRendererSpinDigits :: Word32 -> IO ([Char], GValue) -constructCellRendererSpinDigits val = constructObjectPropertyCUInt "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 = "CellRendererSpin::digits" - attrGet _ = getCellRendererSpinDigits - attrSet _ = setCellRendererSpinDigits - attrConstruct _ = constructCellRendererSpinDigits - -type instance AttributeList CellRendererSpin = CellRendererSpinAttributeList -type CellRendererSpinAttributeList = ('[ '("adjustment", CellRendererSpinAdjustmentPropertyInfo), '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("climb-rate", CellRendererSpinClimbRatePropertyInfo), '("digits", CellRendererSpinDigitsPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellRendererSpin = CellRendererSpinSignalList -type CellRendererSpinSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererSpin::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,183 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - constructCellRendererSpinnerActive , - getCellRendererSpinnerActive , - setCellRendererSpinnerActive , - - --- ** Pulse - CellRendererSpinnerPulsePropertyInfo , - constructCellRendererSpinnerPulse , - getCellRendererSpinnerPulse , - setCellRendererSpinnerPulse , - - --- ** Size - CellRendererSpinnerSizePropertyInfo , - constructCellRendererSpinnerSize , - getCellRendererSpinnerSize , - setCellRendererSpinnerSize , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererSpinner::active" - attrGet _ = getCellRendererSpinnerActive - attrSet _ = setCellRendererSpinnerActive - attrConstruct _ = constructCellRendererSpinnerActive - --- VVV Prop "pulse" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> m Word32 -getCellRendererSpinnerPulse obj = liftIO $ getObjectPropertyCUInt obj "pulse" - -setCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> Word32 -> m () -setCellRendererSpinnerPulse obj val = liftIO $ setObjectPropertyCUInt obj "pulse" val - -constructCellRendererSpinnerPulse :: Word32 -> IO ([Char], GValue) -constructCellRendererSpinnerPulse val = constructObjectPropertyCUInt "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 = "CellRendererSpinner::pulse" - attrGet _ = getCellRendererSpinnerPulse - attrSet _ = setCellRendererSpinnerPulse - attrConstruct _ = constructCellRendererSpinnerPulse - --- VVV Prop "size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererSpinner::size" - attrGet _ = getCellRendererSpinnerSize - attrSet _ = setCellRendererSpinnerSize - attrConstruct _ = constructCellRendererSpinnerSize - -type instance AttributeList CellRendererSpinner = CellRendererSpinnerAttributeList -type CellRendererSpinnerAttributeList = ('[ '("active", CellRendererSpinnerActivePropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pulse", CellRendererSpinnerPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("size", CellRendererSpinnerSizePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellRendererSpinner = CellRendererSpinnerSignalList -type CellRendererSpinnerSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererSpinner::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1664 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellRendererTextSetFixedHeightFromFont , - - - - - -- * Properties --- ** AlignSet - CellRendererTextAlignSetPropertyInfo , - constructCellRendererTextAlignSet , - getCellRendererTextAlignSet , - setCellRendererTextAlignSet , - - --- ** Alignment - CellRendererTextAlignmentPropertyInfo , - constructCellRendererTextAlignment , - getCellRendererTextAlignment , - setCellRendererTextAlignment , - - --- ** Attributes - CellRendererTextAttributesPropertyInfo , - constructCellRendererTextAttributes , - getCellRendererTextAttributes , - setCellRendererTextAttributes , - - --- ** Background - CellRendererTextBackgroundPropertyInfo , - constructCellRendererTextBackground , - setCellRendererTextBackground , - - --- ** BackgroundGdk - CellRendererTextBackgroundGdkPropertyInfo, - constructCellRendererTextBackgroundGdk , - getCellRendererTextBackgroundGdk , - setCellRendererTextBackgroundGdk , - - --- ** BackgroundRgba - CellRendererTextBackgroundRgbaPropertyInfo, - constructCellRendererTextBackgroundRgba , - getCellRendererTextBackgroundRgba , - setCellRendererTextBackgroundRgba , - - --- ** BackgroundSet - CellRendererTextBackgroundSetPropertyInfo, - constructCellRendererTextBackgroundSet , - getCellRendererTextBackgroundSet , - setCellRendererTextBackgroundSet , - - --- ** Editable - CellRendererTextEditablePropertyInfo , - constructCellRendererTextEditable , - getCellRendererTextEditable , - setCellRendererTextEditable , - - --- ** EditableSet - CellRendererTextEditableSetPropertyInfo , - constructCellRendererTextEditableSet , - getCellRendererTextEditableSet , - setCellRendererTextEditableSet , - - --- ** Ellipsize - CellRendererTextEllipsizePropertyInfo , - constructCellRendererTextEllipsize , - getCellRendererTextEllipsize , - setCellRendererTextEllipsize , - - --- ** EllipsizeSet - CellRendererTextEllipsizeSetPropertyInfo, - constructCellRendererTextEllipsizeSet , - getCellRendererTextEllipsizeSet , - setCellRendererTextEllipsizeSet , - - --- ** Family - CellRendererTextFamilyPropertyInfo , - constructCellRendererTextFamily , - getCellRendererTextFamily , - setCellRendererTextFamily , - - --- ** FamilySet - CellRendererTextFamilySetPropertyInfo , - constructCellRendererTextFamilySet , - getCellRendererTextFamilySet , - setCellRendererTextFamilySet , - - --- ** Font - CellRendererTextFontPropertyInfo , - constructCellRendererTextFont , - getCellRendererTextFont , - setCellRendererTextFont , - - --- ** FontDesc - CellRendererTextFontDescPropertyInfo , - constructCellRendererTextFontDesc , - getCellRendererTextFontDesc , - setCellRendererTextFontDesc , - - --- ** Foreground - CellRendererTextForegroundPropertyInfo , - constructCellRendererTextForeground , - setCellRendererTextForeground , - - --- ** ForegroundGdk - CellRendererTextForegroundGdkPropertyInfo, - constructCellRendererTextForegroundGdk , - getCellRendererTextForegroundGdk , - setCellRendererTextForegroundGdk , - - --- ** ForegroundRgba - CellRendererTextForegroundRgbaPropertyInfo, - constructCellRendererTextForegroundRgba , - getCellRendererTextForegroundRgba , - setCellRendererTextForegroundRgba , - - --- ** ForegroundSet - CellRendererTextForegroundSetPropertyInfo, - constructCellRendererTextForegroundSet , - getCellRendererTextForegroundSet , - setCellRendererTextForegroundSet , - - --- ** Language - CellRendererTextLanguagePropertyInfo , - constructCellRendererTextLanguage , - getCellRendererTextLanguage , - setCellRendererTextLanguage , - - --- ** LanguageSet - CellRendererTextLanguageSetPropertyInfo , - constructCellRendererTextLanguageSet , - getCellRendererTextLanguageSet , - setCellRendererTextLanguageSet , - - --- ** Markup - CellRendererTextMarkupPropertyInfo , - constructCellRendererTextMarkup , - setCellRendererTextMarkup , - - --- ** MaxWidthChars - CellRendererTextMaxWidthCharsPropertyInfo, - constructCellRendererTextMaxWidthChars , - getCellRendererTextMaxWidthChars , - setCellRendererTextMaxWidthChars , - - --- ** PlaceholderText - CellRendererTextPlaceholderTextPropertyInfo, - constructCellRendererTextPlaceholderText, - getCellRendererTextPlaceholderText , - setCellRendererTextPlaceholderText , - - --- ** Rise - CellRendererTextRisePropertyInfo , - constructCellRendererTextRise , - getCellRendererTextRise , - setCellRendererTextRise , - - --- ** RiseSet - CellRendererTextRiseSetPropertyInfo , - constructCellRendererTextRiseSet , - getCellRendererTextRiseSet , - setCellRendererTextRiseSet , - - --- ** Scale - CellRendererTextScalePropertyInfo , - constructCellRendererTextScale , - getCellRendererTextScale , - setCellRendererTextScale , - - --- ** ScaleSet - CellRendererTextScaleSetPropertyInfo , - constructCellRendererTextScaleSet , - getCellRendererTextScaleSet , - setCellRendererTextScaleSet , - - --- ** SingleParagraphMode - CellRendererTextSingleParagraphModePropertyInfo, - constructCellRendererTextSingleParagraphMode, - getCellRendererTextSingleParagraphMode , - setCellRendererTextSingleParagraphMode , - - --- ** Size - CellRendererTextSizePropertyInfo , - constructCellRendererTextSize , - getCellRendererTextSize , - setCellRendererTextSize , - - --- ** SizePoints - CellRendererTextSizePointsPropertyInfo , - constructCellRendererTextSizePoints , - getCellRendererTextSizePoints , - setCellRendererTextSizePoints , - - --- ** SizeSet - CellRendererTextSizeSetPropertyInfo , - constructCellRendererTextSizeSet , - getCellRendererTextSizeSet , - setCellRendererTextSizeSet , - - --- ** Stretch - CellRendererTextStretchPropertyInfo , - constructCellRendererTextStretch , - getCellRendererTextStretch , - setCellRendererTextStretch , - - --- ** StretchSet - CellRendererTextStretchSetPropertyInfo , - constructCellRendererTextStretchSet , - getCellRendererTextStretchSet , - setCellRendererTextStretchSet , - - --- ** Strikethrough - CellRendererTextStrikethroughPropertyInfo, - constructCellRendererTextStrikethrough , - getCellRendererTextStrikethrough , - setCellRendererTextStrikethrough , - - --- ** StrikethroughSet - CellRendererTextStrikethroughSetPropertyInfo, - constructCellRendererTextStrikethroughSet, - getCellRendererTextStrikethroughSet , - setCellRendererTextStrikethroughSet , - - --- ** Style - CellRendererTextStylePropertyInfo , - constructCellRendererTextStyle , - getCellRendererTextStyle , - setCellRendererTextStyle , - - --- ** StyleSet - CellRendererTextStyleSetPropertyInfo , - constructCellRendererTextStyleSet , - getCellRendererTextStyleSet , - setCellRendererTextStyleSet , - - --- ** Text - CellRendererTextTextPropertyInfo , - constructCellRendererTextText , - getCellRendererTextText , - setCellRendererTextText , - - --- ** Underline - CellRendererTextUnderlinePropertyInfo , - constructCellRendererTextUnderline , - getCellRendererTextUnderline , - setCellRendererTextUnderline , - - --- ** UnderlineSet - CellRendererTextUnderlineSetPropertyInfo, - constructCellRendererTextUnderlineSet , - getCellRendererTextUnderlineSet , - setCellRendererTextUnderlineSet , - - --- ** Variant - CellRendererTextVariantPropertyInfo , - constructCellRendererTextVariant , - getCellRendererTextVariant , - setCellRendererTextVariant , - - --- ** VariantSet - CellRendererTextVariantSetPropertyInfo , - constructCellRendererTextVariantSet , - getCellRendererTextVariantSet , - setCellRendererTextVariantSet , - - --- ** Weight - CellRendererTextWeightPropertyInfo , - constructCellRendererTextWeight , - getCellRendererTextWeight , - setCellRendererTextWeight , - - --- ** WeightSet - CellRendererTextWeightSetPropertyInfo , - constructCellRendererTextWeightSet , - getCellRendererTextWeightSet , - setCellRendererTextWeightSet , - - --- ** WidthChars - CellRendererTextWidthCharsPropertyInfo , - constructCellRendererTextWidthChars , - getCellRendererTextWidthChars , - setCellRendererTextWidthChars , - - --- ** WrapMode - CellRendererTextWrapModePropertyInfo , - constructCellRendererTextWrapMode , - getCellRendererTextWrapMode , - setCellRendererTextWrapMode , - - --- ** WrapWidth - CellRendererTextWrapWidthPropertyInfo , - constructCellRendererTextWrapWidth , - getCellRendererTextWrapWidth , - setCellRendererTextWrapWidth , - - - - - -- * Signals --- ** Edited - CellRendererTextEditedCallback , - CellRendererTextEditedCallbackC , - CellRendererTextEditedSignalInfo , - afterCellRendererTextEdited , - cellRendererTextEditedCallbackWrapper , - cellRendererTextEditedClosure , - mkCellRendererTextEditedCallback , - noCellRendererTextEditedCallback , - onCellRendererTextEdited , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 new_text _ = do - path' <- cstringToText path - new_text' <- cstringToText new_text - _cb path' new_text' - -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] - -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 = "CellRendererText::align-set" - attrGet _ = getCellRendererTextAlignSet - attrSet _ = setCellRendererTextAlignSet - attrConstruct _ = constructCellRendererTextAlignSet - --- VVV Prop "alignment" - -- Type: TInterface "Pango" "Alignment" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::alignment" - attrGet _ = getCellRendererTextAlignment - attrSet _ = setCellRendererTextAlignment - attrConstruct _ = constructCellRendererTextAlignment - --- VVV Prop "attributes" - -- Type: TInterface "Pango" "AttrList" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m 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" val - -constructCellRendererTextAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructCellRendererTextAttributes val = constructObjectPropertyBoxed "attributes" val - -data CellRendererTextAttributesPropertyInfo -instance AttrInfo CellRendererTextAttributesPropertyInfo where - type AttrAllowedOps CellRendererTextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextAttributesPropertyInfo = (~) Pango.AttrList - type AttrBaseTypeConstraint CellRendererTextAttributesPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextAttributesPropertyInfo = Pango.AttrList - type AttrLabel CellRendererTextAttributesPropertyInfo = "CellRendererText::attributes" - attrGet _ = getCellRendererTextAttributes - attrSet _ = setCellRendererTextAttributes - attrConstruct _ = constructCellRendererTextAttributes - --- VVV Prop "background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setCellRendererTextBackground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextBackground obj val = liftIO $ setObjectPropertyString obj "background" val - -constructCellRendererTextBackground :: T.Text -> IO ([Char], GValue) -constructCellRendererTextBackground val = constructObjectPropertyString "background" val - -data CellRendererTextBackgroundPropertyInfo -instance AttrInfo CellRendererTextBackgroundPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint CellRendererTextBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextBackgroundPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundPropertyInfo = () - type AttrLabel CellRendererTextBackgroundPropertyInfo = "CellRendererText::background" - attrGet _ = undefined - attrSet _ = setCellRendererTextBackground - attrConstruct _ = constructCellRendererTextBackground - --- VVV Prop "background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m 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" val - -constructCellRendererTextBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererTextBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val - -data CellRendererTextBackgroundGdkPropertyInfo -instance AttrInfo CellRendererTextBackgroundGdkPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel CellRendererTextBackgroundGdkPropertyInfo = "CellRendererText::background-gdk" - attrGet _ = getCellRendererTextBackgroundGdk - attrSet _ = setCellRendererTextBackgroundGdk - attrConstruct _ = constructCellRendererTextBackgroundGdk - --- VVV Prop "background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m 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" val - -constructCellRendererTextBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererTextBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val - -data CellRendererTextBackgroundRgbaPropertyInfo -instance AttrInfo CellRendererTextBackgroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererTextBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel CellRendererTextBackgroundRgbaPropertyInfo = "CellRendererText::background-rgba" - attrGet _ = getCellRendererTextBackgroundRgba - attrSet _ = setCellRendererTextBackgroundRgba - attrConstruct _ = constructCellRendererTextBackgroundRgba - --- VVV Prop "background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::background-set" - attrGet _ = getCellRendererTextBackgroundSet - attrSet _ = setCellRendererTextBackgroundSet - attrConstruct _ = constructCellRendererTextBackgroundSet - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::editable" - attrGet _ = getCellRendererTextEditable - attrSet _ = setCellRendererTextEditable - attrConstruct _ = constructCellRendererTextEditable - --- VVV Prop "editable-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::editable-set" - attrGet _ = getCellRendererTextEditableSet - attrSet _ = setCellRendererTextEditableSet - attrConstruct _ = constructCellRendererTextEditableSet - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::ellipsize" - attrGet _ = getCellRendererTextEllipsize - attrSet _ = setCellRendererTextEllipsize - attrConstruct _ = constructCellRendererTextEllipsize - --- VVV Prop "ellipsize-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::ellipsize-set" - attrGet _ = getCellRendererTextEllipsizeSet - attrSet _ = setCellRendererTextEllipsizeSet - attrConstruct _ = constructCellRendererTextEllipsizeSet - --- VVV Prop "family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m T.Text -getCellRendererTextFamily obj = liftIO $ getObjectPropertyString obj "family" - -setCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextFamily obj val = liftIO $ setObjectPropertyString obj "family" val - -constructCellRendererTextFamily :: T.Text -> IO ([Char], GValue) -constructCellRendererTextFamily val = constructObjectPropertyString "family" val - -data CellRendererTextFamilyPropertyInfo -instance AttrInfo CellRendererTextFamilyPropertyInfo where - type AttrAllowedOps CellRendererTextFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextFamilyPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFamilyPropertyInfo = T.Text - type AttrLabel CellRendererTextFamilyPropertyInfo = "CellRendererText::family" - attrGet _ = getCellRendererTextFamily - attrSet _ = setCellRendererTextFamily - attrConstruct _ = constructCellRendererTextFamily - --- VVV Prop "family-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::family-set" - attrGet _ = getCellRendererTextFamilySet - attrSet _ = setCellRendererTextFamilySet - attrConstruct _ = constructCellRendererTextFamilySet - --- VVV Prop "font" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m T.Text -getCellRendererTextFont obj = liftIO $ getObjectPropertyString obj "font" - -setCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextFont obj val = liftIO $ setObjectPropertyString obj "font" val - -constructCellRendererTextFont :: T.Text -> IO ([Char], GValue) -constructCellRendererTextFont val = constructObjectPropertyString "font" val - -data CellRendererTextFontPropertyInfo -instance AttrInfo CellRendererTextFontPropertyInfo where - type AttrAllowedOps CellRendererTextFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextFontPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextFontPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFontPropertyInfo = T.Text - type AttrLabel CellRendererTextFontPropertyInfo = "CellRendererText::font" - attrGet _ = getCellRendererTextFont - attrSet _ = setCellRendererTextFont - attrConstruct _ = constructCellRendererTextFont - --- VVV Prop "font-desc" - -- Type: TInterface "Pango" "FontDescription" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m 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" val - -constructCellRendererTextFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructCellRendererTextFontDesc val = constructObjectPropertyBoxed "font-desc" val - -data CellRendererTextFontDescPropertyInfo -instance AttrInfo CellRendererTextFontDescPropertyInfo where - type AttrAllowedOps CellRendererTextFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextFontDescPropertyInfo = (~) Pango.FontDescription - type AttrBaseTypeConstraint CellRendererTextFontDescPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextFontDescPropertyInfo = Pango.FontDescription - type AttrLabel CellRendererTextFontDescPropertyInfo = "CellRendererText::font-desc" - attrGet _ = getCellRendererTextFontDesc - attrSet _ = setCellRendererTextFontDesc - attrConstruct _ = constructCellRendererTextFontDesc - --- VVV Prop "foreground" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setCellRendererTextForeground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextForeground obj val = liftIO $ setObjectPropertyString obj "foreground" val - -constructCellRendererTextForeground :: T.Text -> IO ([Char], GValue) -constructCellRendererTextForeground val = constructObjectPropertyString "foreground" val - -data CellRendererTextForegroundPropertyInfo -instance AttrInfo CellRendererTextForegroundPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint CellRendererTextForegroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextForegroundPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundPropertyInfo = () - type AttrLabel CellRendererTextForegroundPropertyInfo = "CellRendererText::foreground" - attrGet _ = undefined - attrSet _ = setCellRendererTextForeground - attrConstruct _ = constructCellRendererTextForeground - --- VVV Prop "foreground-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m 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" val - -constructCellRendererTextForegroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellRendererTextForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" val - -data CellRendererTextForegroundGdkPropertyInfo -instance AttrInfo CellRendererTextForegroundGdkPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextForegroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint CellRendererTextForegroundGdkPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundGdkPropertyInfo = Gdk.Color - type AttrLabel CellRendererTextForegroundGdkPropertyInfo = "CellRendererText::foreground-gdk" - attrGet _ = getCellRendererTextForegroundGdk - attrSet _ = setCellRendererTextForegroundGdk - attrConstruct _ = constructCellRendererTextForegroundGdk - --- VVV Prop "foreground-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m 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" val - -constructCellRendererTextForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellRendererTextForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" val - -data CellRendererTextForegroundRgbaPropertyInfo -instance AttrInfo CellRendererTextForegroundRgbaPropertyInfo where - type AttrAllowedOps CellRendererTextForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel CellRendererTextForegroundRgbaPropertyInfo = "CellRendererText::foreground-rgba" - attrGet _ = getCellRendererTextForegroundRgba - attrSet _ = setCellRendererTextForegroundRgba - attrConstruct _ = constructCellRendererTextForegroundRgba - --- VVV Prop "foreground-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::foreground-set" - attrGet _ = getCellRendererTextForegroundSet - attrSet _ = setCellRendererTextForegroundSet - attrConstruct _ = constructCellRendererTextForegroundSet - --- VVV Prop "language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m T.Text -getCellRendererTextLanguage obj = liftIO $ getObjectPropertyString obj "language" - -setCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextLanguage obj val = liftIO $ setObjectPropertyString obj "language" val - -constructCellRendererTextLanguage :: T.Text -> IO ([Char], GValue) -constructCellRendererTextLanguage val = constructObjectPropertyString "language" val - -data CellRendererTextLanguagePropertyInfo -instance AttrInfo CellRendererTextLanguagePropertyInfo where - type AttrAllowedOps CellRendererTextLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextLanguagePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextLanguagePropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextLanguagePropertyInfo = T.Text - type AttrLabel CellRendererTextLanguagePropertyInfo = "CellRendererText::language" - attrGet _ = getCellRendererTextLanguage - attrSet _ = setCellRendererTextLanguage - attrConstruct _ = constructCellRendererTextLanguage - --- VVV Prop "language-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::language-set" - attrGet _ = getCellRendererTextLanguageSet - attrSet _ = setCellRendererTextLanguageSet - attrConstruct _ = constructCellRendererTextLanguageSet - --- VVV Prop "markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setCellRendererTextMarkup :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextMarkup obj val = liftIO $ setObjectPropertyString obj "markup" val - -constructCellRendererTextMarkup :: T.Text -> IO ([Char], GValue) -constructCellRendererTextMarkup val = constructObjectPropertyString "markup" val - -data CellRendererTextMarkupPropertyInfo -instance AttrInfo CellRendererTextMarkupPropertyInfo where - type AttrAllowedOps CellRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint CellRendererTextMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextMarkupPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextMarkupPropertyInfo = () - type AttrLabel CellRendererTextMarkupPropertyInfo = "CellRendererText::markup" - attrGet _ = undefined - attrSet _ = setCellRendererTextMarkup - attrConstruct _ = constructCellRendererTextMarkup - --- VVV Prop "max-width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" - -setCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val - -constructCellRendererTextMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructCellRendererTextMaxWidthChars val = constructObjectPropertyCInt "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 = "CellRendererText::max-width-chars" - attrGet _ = getCellRendererTextMaxWidthChars - attrSet _ = setCellRendererTextMaxWidthChars - attrConstruct _ = constructCellRendererTextMaxWidthChars - --- VVV Prop "placeholder-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m 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" val - -constructCellRendererTextPlaceholderText :: T.Text -> IO ([Char], GValue) -constructCellRendererTextPlaceholderText val = constructObjectPropertyString "placeholder-text" val - -data CellRendererTextPlaceholderTextPropertyInfo -instance AttrInfo CellRendererTextPlaceholderTextPropertyInfo where - type AttrAllowedOps CellRendererTextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = T.Text - type AttrLabel CellRendererTextPlaceholderTextPropertyInfo = "CellRendererText::placeholder-text" - attrGet _ = getCellRendererTextPlaceholderText - attrSet _ = setCellRendererTextPlaceholderText - attrConstruct _ = constructCellRendererTextPlaceholderText - --- VVV Prop "rise" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextRise obj = liftIO $ getObjectPropertyCInt obj "rise" - -setCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextRise obj val = liftIO $ setObjectPropertyCInt obj "rise" val - -constructCellRendererTextRise :: Int32 -> IO ([Char], GValue) -constructCellRendererTextRise val = constructObjectPropertyCInt "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 = "CellRendererText::rise" - attrGet _ = getCellRendererTextRise - attrSet _ = setCellRendererTextRise - attrConstruct _ = constructCellRendererTextRise - --- VVV Prop "rise-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::rise-set" - attrGet _ = getCellRendererTextRiseSet - attrSet _ = setCellRendererTextRiseSet - attrConstruct _ = constructCellRendererTextRiseSet - --- VVV Prop "scale" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::scale" - attrGet _ = getCellRendererTextScale - attrSet _ = setCellRendererTextScale - attrConstruct _ = constructCellRendererTextScale - --- VVV Prop "scale-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::scale-set" - attrGet _ = getCellRendererTextScaleSet - attrSet _ = setCellRendererTextScaleSet - attrConstruct _ = constructCellRendererTextScaleSet - --- VVV Prop "single-paragraph-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::single-paragraph-mode" - attrGet _ = getCellRendererTextSingleParagraphMode - attrSet _ = setCellRendererTextSingleParagraphMode - attrConstruct _ = constructCellRendererTextSingleParagraphMode - --- VVV Prop "size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextSize obj = liftIO $ getObjectPropertyCInt obj "size" - -setCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextSize obj val = liftIO $ setObjectPropertyCInt obj "size" val - -constructCellRendererTextSize :: Int32 -> IO ([Char], GValue) -constructCellRendererTextSize val = constructObjectPropertyCInt "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 = "CellRendererText::size" - attrGet _ = getCellRendererTextSize - attrSet _ = setCellRendererTextSize - attrConstruct _ = constructCellRendererTextSize - --- VVV Prop "size-points" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::size-points" - attrGet _ = getCellRendererTextSizePoints - attrSet _ = setCellRendererTextSizePoints - attrConstruct _ = constructCellRendererTextSizePoints - --- VVV Prop "size-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::size-set" - attrGet _ = getCellRendererTextSizeSet - attrSet _ = setCellRendererTextSizeSet - attrConstruct _ = constructCellRendererTextSizeSet - --- VVV Prop "stretch" - -- Type: TInterface "Pango" "Stretch" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::stretch" - attrGet _ = getCellRendererTextStretch - attrSet _ = setCellRendererTextStretch - attrConstruct _ = constructCellRendererTextStretch - --- VVV Prop "stretch-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::stretch-set" - attrGet _ = getCellRendererTextStretchSet - attrSet _ = setCellRendererTextStretchSet - attrConstruct _ = constructCellRendererTextStretchSet - --- VVV Prop "strikethrough" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::strikethrough" - attrGet _ = getCellRendererTextStrikethrough - attrSet _ = setCellRendererTextStrikethrough - attrConstruct _ = constructCellRendererTextStrikethrough - --- VVV Prop "strikethrough-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::strikethrough-set" - attrGet _ = getCellRendererTextStrikethroughSet - attrSet _ = setCellRendererTextStrikethroughSet - attrConstruct _ = constructCellRendererTextStrikethroughSet - --- VVV Prop "style" - -- Type: TInterface "Pango" "Style" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::style" - attrGet _ = getCellRendererTextStyle - attrSet _ = setCellRendererTextStyle - attrConstruct _ = constructCellRendererTextStyle - --- VVV Prop "style-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::style-set" - attrGet _ = getCellRendererTextStyleSet - attrSet _ = setCellRendererTextStyleSet - attrConstruct _ = constructCellRendererTextStyleSet - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m T.Text -getCellRendererTextText obj = liftIO $ getObjectPropertyString obj "text" - -setCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () -setCellRendererTextText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructCellRendererTextText :: T.Text -> IO ([Char], GValue) -constructCellRendererTextText val = constructObjectPropertyString "text" val - -data CellRendererTextTextPropertyInfo -instance AttrInfo CellRendererTextTextPropertyInfo where - type AttrAllowedOps CellRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellRendererTextTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellRendererTextTextPropertyInfo = CellRendererTextK - type AttrGetType CellRendererTextTextPropertyInfo = T.Text - type AttrLabel CellRendererTextTextPropertyInfo = "CellRendererText::text" - attrGet _ = getCellRendererTextText - attrSet _ = setCellRendererTextText - attrConstruct _ = constructCellRendererTextText - --- VVV Prop "underline" - -- Type: TInterface "Pango" "Underline" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::underline" - attrGet _ = getCellRendererTextUnderline - attrSet _ = setCellRendererTextUnderline - attrConstruct _ = constructCellRendererTextUnderline - --- VVV Prop "underline-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::underline-set" - attrGet _ = getCellRendererTextUnderlineSet - attrSet _ = setCellRendererTextUnderlineSet - attrConstruct _ = constructCellRendererTextUnderlineSet - --- VVV Prop "variant" - -- Type: TInterface "Pango" "Variant" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::variant" - attrGet _ = getCellRendererTextVariant - attrSet _ = setCellRendererTextVariant - attrConstruct _ = constructCellRendererTextVariant - --- VVV Prop "variant-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::variant-set" - attrGet _ = getCellRendererTextVariantSet - attrSet _ = setCellRendererTextVariantSet - attrConstruct _ = constructCellRendererTextVariantSet - --- VVV Prop "weight" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWeight obj = liftIO $ getObjectPropertyCInt obj "weight" - -setCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWeight obj val = liftIO $ setObjectPropertyCInt obj "weight" val - -constructCellRendererTextWeight :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWeight val = constructObjectPropertyCInt "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 = "CellRendererText::weight" - attrGet _ = getCellRendererTextWeight - attrSet _ = setCellRendererTextWeight - attrConstruct _ = constructCellRendererTextWeight - --- VVV Prop "weight-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::weight-set" - attrGet _ = getCellRendererTextWeightSet - attrSet _ = setCellRendererTextWeightSet - attrConstruct _ = constructCellRendererTextWeightSet - --- VVV Prop "width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" - -setCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val - -constructCellRendererTextWidthChars :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWidthChars val = constructObjectPropertyCInt "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 = "CellRendererText::width-chars" - attrGet _ = getCellRendererTextWidthChars - attrSet _ = setCellRendererTextWidthChars - attrConstruct _ = constructCellRendererTextWidthChars - --- VVV Prop "wrap-mode" - -- Type: TInterface "Pango" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererText::wrap-mode" - attrGet _ = getCellRendererTextWrapMode - attrSet _ = setCellRendererTextWrapMode - attrConstruct _ = constructCellRendererTextWrapMode - --- VVV Prop "wrap-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> m Int32 -getCellRendererTextWrapWidth obj = liftIO $ getObjectPropertyCInt obj "wrap-width" - -setCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () -setCellRendererTextWrapWidth obj val = liftIO $ setObjectPropertyCInt obj "wrap-width" val - -constructCellRendererTextWrapWidth :: Int32 -> IO ([Char], GValue) -constructCellRendererTextWrapWidth val = constructObjectPropertyCInt "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 = "CellRendererText::wrap-width" - attrGet _ = getCellRendererTextWrapWidth - attrSet _ = setCellRendererTextWrapWidth - attrConstruct _ = constructCellRendererTextWrapWidth - -type instance AttributeList CellRendererText = CellRendererTextAttributeList -type CellRendererTextAttributeList = ('[ '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -data CellRendererTextEditedSignalInfo -instance SignalInfo CellRendererTextEditedSignalInfo where - type HaskellCallbackType CellRendererTextEditedSignalInfo = CellRendererTextEditedCallback - connectSignal _ = connectCellRendererTextEdited - -type instance SignalList CellRendererText = CellRendererTextSignalList -type CellRendererTextSignalList = ('[ '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererText::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_of_rows", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -cellRendererTextSetFixedHeightFromFont :: - (MonadIO m, CellRendererTextK a) => - a -> -- _obj - Int32 -> -- number_of_rows - m () -cellRendererTextSetFixedHeightFromFont _obj number_of_rows = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_cell_renderer_text_set_fixed_height_from_font _obj' number_of_rows - touchManagedPtr _obj - return () - - 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,62 +0,0 @@ -module GI.Gtk.Objects.CellRendererText where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,487 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellRendererToggleGetActivatable , - - --- ** cellRendererToggleGetActive - cellRendererToggleGetActive , - - --- ** cellRendererToggleGetRadio - cellRendererToggleGetRadio , - - --- ** cellRendererToggleNew - cellRendererToggleNew , - - --- ** cellRendererToggleSetActivatable - cellRendererToggleSetActivatable , - - --- ** cellRendererToggleSetActive - cellRendererToggleSetActive , - - --- ** cellRendererToggleSetRadio - cellRendererToggleSetRadio , - - - - - -- * Properties --- ** Activatable - CellRendererToggleActivatablePropertyInfo, - constructCellRendererToggleActivatable , - getCellRendererToggleActivatable , - setCellRendererToggleActivatable , - - --- ** Active - CellRendererToggleActivePropertyInfo , - constructCellRendererToggleActive , - getCellRendererToggleActive , - setCellRendererToggleActive , - - --- ** Inconsistent - CellRendererToggleInconsistentPropertyInfo, - constructCellRendererToggleInconsistent , - getCellRendererToggleInconsistent , - setCellRendererToggleInconsistent , - - --- ** IndicatorSize - CellRendererToggleIndicatorSizePropertyInfo, - constructCellRendererToggleIndicatorSize, - getCellRendererToggleIndicatorSize , - setCellRendererToggleIndicatorSize , - - --- ** Radio - CellRendererToggleRadioPropertyInfo , - constructCellRendererToggleRadio , - getCellRendererToggleRadio , - setCellRendererToggleRadio , - - - - - -- * Signals --- ** Toggled - CellRendererToggleToggledCallback , - CellRendererToggleToggledCallbackC , - CellRendererToggleToggledSignalInfo , - afterCellRendererToggleToggled , - cellRendererToggleToggledCallbackWrapper, - cellRendererToggleToggledClosure , - mkCellRendererToggleToggledCallback , - noCellRendererToggleToggledCallback , - onCellRendererToggleToggled , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "CellRendererToggle::activatable" - attrGet _ = getCellRendererToggleActivatable - attrSet _ = setCellRendererToggleActivatable - attrConstruct _ = constructCellRendererToggleActivatable - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererToggle::active" - attrGet _ = getCellRendererToggleActive - attrSet _ = setCellRendererToggleActive - attrConstruct _ = constructCellRendererToggleActive - --- VVV Prop "inconsistent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererToggle::inconsistent" - attrGet _ = getCellRendererToggleInconsistent - attrSet _ = setCellRendererToggleInconsistent - attrConstruct _ = constructCellRendererToggleInconsistent - --- VVV Prop "indicator-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> m Int32 -getCellRendererToggleIndicatorSize obj = liftIO $ getObjectPropertyCInt obj "indicator-size" - -setCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> Int32 -> m () -setCellRendererToggleIndicatorSize obj val = liftIO $ setObjectPropertyCInt obj "indicator-size" val - -constructCellRendererToggleIndicatorSize :: Int32 -> IO ([Char], GValue) -constructCellRendererToggleIndicatorSize val = constructObjectPropertyCInt "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 = "CellRendererToggle::indicator-size" - attrGet _ = getCellRendererToggleIndicatorSize - attrSet _ = setCellRendererToggleIndicatorSize - attrConstruct _ = constructCellRendererToggleIndicatorSize - --- VVV Prop "radio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellRendererToggle::radio" - attrGet _ = getCellRendererToggleRadio - attrSet _ = setCellRendererToggleRadio - attrConstruct _ = constructCellRendererToggleRadio - -type instance AttributeList CellRendererToggle = CellRendererToggleAttributeList -type CellRendererToggleAttributeList = ('[ '("activatable", CellRendererToggleActivatablePropertyInfo), '("active", CellRendererToggleActivePropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("indicator-size", CellRendererToggleIndicatorSizePropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("radio", CellRendererToggleRadioPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] :: [(Symbol, *)]) - -data CellRendererToggleToggledSignalInfo -instance SignalInfo CellRendererToggleToggledSignalInfo where - type HaskellCallbackType CellRendererToggleToggledSignalInfo = CellRendererToggleToggledCallback - connectSignal _ = connectCellRendererToggleToggled - -type instance SignalList CellRendererToggle = CellRendererToggleSignalList -type CellRendererToggleSignalList = ('[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", CellRendererToggleToggledSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellRendererToggle::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellRendererToggleGetActivatable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_toggle_get_activatable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellRendererToggle::get_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellRendererToggleGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_toggle_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellRendererToggle::get_radio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellRendererToggleGetRadio _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_renderer_toggle_get_radio _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellRendererToggle::set_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellRendererToggle::set_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellRendererToggle::set_radio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellRendererToggle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.CellRendererToggle where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,836 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - cellViewGetDisplayedRow , - - --- ** cellViewGetDrawSensitive - cellViewGetDrawSensitive , - - --- ** cellViewGetFitModel - cellViewGetFitModel , - - --- ** cellViewGetModel - cellViewGetModel , - - --- ** cellViewGetSizeOfRow - cellViewGetSizeOfRow , - - --- ** cellViewNew - cellViewNew , - - --- ** cellViewNewWithContext - cellViewNewWithContext , - - --- ** cellViewNewWithMarkup - cellViewNewWithMarkup , - - --- ** cellViewNewWithPixbuf - cellViewNewWithPixbuf , - - --- ** cellViewNewWithText - cellViewNewWithText , - - --- ** cellViewSetBackgroundColor - cellViewSetBackgroundColor , - - --- ** cellViewSetBackgroundRgba - cellViewSetBackgroundRgba , - - --- ** cellViewSetDisplayedRow - cellViewSetDisplayedRow , - - --- ** cellViewSetDrawSensitive - cellViewSetDrawSensitive , - - --- ** cellViewSetFitModel - cellViewSetFitModel , - - --- ** cellViewSetModel - cellViewSetModel , - - - - - -- * Properties --- ** Background - CellViewBackgroundPropertyInfo , - constructCellViewBackground , - setCellViewBackground , - - --- ** BackgroundGdk - CellViewBackgroundGdkPropertyInfo , - constructCellViewBackgroundGdk , - getCellViewBackgroundGdk , - setCellViewBackgroundGdk , - - --- ** BackgroundRgba - CellViewBackgroundRgbaPropertyInfo , - constructCellViewBackgroundRgba , - getCellViewBackgroundRgba , - setCellViewBackgroundRgba , - - --- ** BackgroundSet - CellViewBackgroundSetPropertyInfo , - constructCellViewBackgroundSet , - getCellViewBackgroundSet , - setCellViewBackgroundSet , - - --- ** CellArea - CellViewCellAreaPropertyInfo , - constructCellViewCellArea , - getCellViewCellArea , - - --- ** CellAreaContext - CellViewCellAreaContextPropertyInfo , - constructCellViewCellAreaContext , - getCellViewCellAreaContext , - - --- ** DrawSensitive - CellViewDrawSensitivePropertyInfo , - constructCellViewDrawSensitive , - getCellViewDrawSensitive , - setCellViewDrawSensitive , - - --- ** FitModel - CellViewFitModelPropertyInfo , - constructCellViewFitModel , - getCellViewFitModel , - setCellViewFitModel , - - --- ** Model - CellViewModelPropertyInfo , - constructCellViewModel , - getCellViewModel , - setCellViewModel , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setCellViewBackground :: (MonadIO m, CellViewK o) => o -> T.Text -> m () -setCellViewBackground obj val = liftIO $ setObjectPropertyString obj "background" val - -constructCellViewBackground :: T.Text -> IO ([Char], GValue) -constructCellViewBackground val = constructObjectPropertyString "background" val - -data CellViewBackgroundPropertyInfo -instance AttrInfo CellViewBackgroundPropertyInfo where - type AttrAllowedOps CellViewBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint CellViewBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CellViewBackgroundPropertyInfo = CellViewK - type AttrGetType CellViewBackgroundPropertyInfo = () - type AttrLabel CellViewBackgroundPropertyInfo = "CellView::background" - attrGet _ = undefined - attrSet _ = setCellViewBackground - attrConstruct _ = constructCellViewBackground - --- VVV Prop "background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m 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" val - -constructCellViewBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructCellViewBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val - -data CellViewBackgroundGdkPropertyInfo -instance AttrInfo CellViewBackgroundGdkPropertyInfo where - type AttrAllowedOps CellViewBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellViewBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint CellViewBackgroundGdkPropertyInfo = CellViewK - type AttrGetType CellViewBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel CellViewBackgroundGdkPropertyInfo = "CellView::background-gdk" - attrGet _ = getCellViewBackgroundGdk - attrSet _ = setCellViewBackgroundGdk - attrConstruct _ = constructCellViewBackgroundGdk - --- VVV Prop "background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> m 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" val - -constructCellViewBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructCellViewBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" 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 = Gdk.RGBA - type AttrLabel CellViewBackgroundRgbaPropertyInfo = "CellView::background-rgba" - attrGet _ = getCellViewBackgroundRgba - attrSet _ = setCellViewBackgroundRgba - attrConstruct _ = constructCellViewBackgroundRgba - --- VVV Prop "background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellView::background-set" - attrGet _ = getCellViewBackgroundSet - attrSet _ = setCellViewBackgroundSet - attrConstruct _ = constructCellViewBackgroundSet - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCellViewCellArea :: (MonadIO m, CellViewK o) => o -> m CellArea -getCellViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructCellViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructCellViewCellArea val = constructObjectPropertyObject "cell-area" val - -data CellViewCellAreaPropertyInfo -instance AttrInfo CellViewCellAreaPropertyInfo where - type AttrAllowedOps CellViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellViewCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint CellViewCellAreaPropertyInfo = CellViewK - type AttrGetType CellViewCellAreaPropertyInfo = CellArea - type AttrLabel CellViewCellAreaPropertyInfo = "CellView::cell-area" - attrGet _ = getCellViewCellArea - attrSet _ = undefined - attrConstruct _ = constructCellViewCellArea - --- VVV Prop "cell-area-context" - -- Type: TInterface "Gtk" "CellAreaContext" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCellViewCellAreaContext :: (MonadIO m, CellViewK o) => o -> m CellAreaContext -getCellViewCellAreaContext obj = liftIO $ getObjectPropertyObject obj "cell-area-context" CellAreaContext - -constructCellViewCellAreaContext :: (CellAreaContextK a) => a -> IO ([Char], GValue) -constructCellViewCellAreaContext val = constructObjectPropertyObject "cell-area-context" val - -data CellViewCellAreaContextPropertyInfo -instance AttrInfo CellViewCellAreaContextPropertyInfo where - type AttrAllowedOps CellViewCellAreaContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellViewCellAreaContextPropertyInfo = CellAreaContextK - type AttrBaseTypeConstraint CellViewCellAreaContextPropertyInfo = CellViewK - type AttrGetType CellViewCellAreaContextPropertyInfo = CellAreaContext - type AttrLabel CellViewCellAreaContextPropertyInfo = "CellView::cell-area-context" - attrGet _ = getCellViewCellAreaContext - attrSet _ = undefined - attrConstruct _ = constructCellViewCellAreaContext - --- VVV Prop "draw-sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellView::draw-sensitive" - attrGet _ = getCellViewDrawSensitive - attrSet _ = setCellViewDrawSensitive - attrConstruct _ = constructCellViewDrawSensitive - --- VVV Prop "fit-model" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CellView::fit-model" - attrGet _ = getCellViewFitModel - attrSet _ = setCellViewFitModel - attrConstruct _ = constructCellViewFitModel - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getCellViewModel :: (MonadIO m, CellViewK o) => o -> m TreeModel -getCellViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -setCellViewModel :: (MonadIO m, CellViewK o, TreeModelK a) => o -> a -> m () -setCellViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val - -constructCellViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructCellViewModel val = constructObjectPropertyObject "model" val - -data CellViewModelPropertyInfo -instance AttrInfo CellViewModelPropertyInfo where - type AttrAllowedOps CellViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CellViewModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint CellViewModelPropertyInfo = CellViewK - type AttrGetType CellViewModelPropertyInfo = TreeModel - type AttrLabel CellViewModelPropertyInfo = "CellView::model" - attrGet _ = getCellViewModel - attrSet _ = setCellViewModel - attrConstruct _ = constructCellViewModel - -type instance AttributeList CellView = CellViewAttributeList -type CellViewAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("background", CellViewBackgroundPropertyInfo), '("background-gdk", CellViewBackgroundGdkPropertyInfo), '("background-rgba", CellViewBackgroundRgbaPropertyInfo), '("background-set", CellViewBackgroundSetPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", CellViewCellAreaPropertyInfo), '("cell-area-context", CellViewCellAreaContextPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-sensitive", CellViewDrawSensitivePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fit-model", CellViewFitModelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", CellViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CellView = CellViewSignalList -type CellViewSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CellView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "CellAreaContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellView::get_draw_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellViewGetDrawSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_view_get_draw_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellView::get_fit_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -cellViewGetFitModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_cell_view_get_fit_model _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CellView::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CellView::get_size_of_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - --- method CellView::set_background_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellView::set_background_rgba --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellView::set_displayed_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CellView::set_draw_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- draw_sensitive - m () -cellViewSetDrawSensitive _obj draw_sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let draw_sensitive' = (fromIntegral . fromEnum) draw_sensitive - gtk_cell_view_set_draw_sensitive _obj' draw_sensitive' - touchManagedPtr _obj - return () - --- method CellView::set_fit_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fit_model", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- fit_model - m () -cellViewSetFitModel _obj fit_model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fit_model' = (fromIntegral . fromEnum) fit_model - gtk_cell_view_set_fit_model _obj' fit_model' - touchManagedPtr _obj - return () - --- method CellView::set_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CellView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,22 +0,0 @@ -module GI.Gtk.Objects.CellView where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,148 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList CheckButton = CheckButtonAttributeList -type CheckButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CheckButton = CheckButtonSignalList -type CheckButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CheckButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.CheckMenuItem - ( - --- * Exported types - CheckMenuItem(..) , - CheckMenuItemK , - toCheckMenuItem , - noCheckMenuItem , - - - -- * Methods --- ** checkMenuItemGetActive - checkMenuItemGetActive , - - --- ** checkMenuItemGetDrawAsRadio - checkMenuItemGetDrawAsRadio , - - --- ** checkMenuItemGetInconsistent - checkMenuItemGetInconsistent , - - --- ** checkMenuItemNew - checkMenuItemNew , - - --- ** checkMenuItemNewWithLabel - checkMenuItemNewWithLabel , - - --- ** checkMenuItemNewWithMnemonic - checkMenuItemNewWithMnemonic , - - --- ** checkMenuItemSetActive - checkMenuItemSetActive , - - --- ** checkMenuItemSetDrawAsRadio - checkMenuItemSetDrawAsRadio , - - --- ** checkMenuItemSetInconsistent - checkMenuItemSetInconsistent , - - --- ** checkMenuItemToggled - checkMenuItemToggled , - - - - - -- * Properties --- ** Active - CheckMenuItemActivePropertyInfo , - constructCheckMenuItemActive , - getCheckMenuItemActive , - setCheckMenuItemActive , - - --- ** DrawAsRadio - CheckMenuItemDrawAsRadioPropertyInfo , - constructCheckMenuItemDrawAsRadio , - getCheckMenuItemDrawAsRadio , - setCheckMenuItemDrawAsRadio , - - --- ** Inconsistent - CheckMenuItemInconsistentPropertyInfo , - constructCheckMenuItemInconsistent , - getCheckMenuItemInconsistent , - setCheckMenuItemInconsistent , - - - - - -- * Signals --- ** Toggled - CheckMenuItemToggledCallback , - CheckMenuItemToggledCallbackC , - CheckMenuItemToggledSignalInfo , - afterCheckMenuItemToggled , - checkMenuItemToggledCallbackWrapper , - checkMenuItemToggledClosure , - mkCheckMenuItemToggledCallback , - noCheckMenuItemToggledCallback , - onCheckMenuItemToggled , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "CheckMenuItem::active" - attrGet _ = getCheckMenuItemActive - attrSet _ = setCheckMenuItemActive - attrConstruct _ = constructCheckMenuItemActive - --- VVV Prop "draw-as-radio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CheckMenuItem::draw-as-radio" - attrGet _ = getCheckMenuItemDrawAsRadio - attrSet _ = setCheckMenuItemDrawAsRadio - attrConstruct _ = constructCheckMenuItemDrawAsRadio - --- VVV Prop "inconsistent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "CheckMenuItem::inconsistent" - attrGet _ = getCheckMenuItemInconsistent - attrSet _ = setCheckMenuItemInconsistent - attrConstruct _ = constructCheckMenuItemInconsistent - -type instance AttributeList CheckMenuItem = CheckMenuItemAttributeList -type CheckMenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-as-radio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data CheckMenuItemToggledSignalInfo -instance SignalInfo CheckMenuItemToggledSignalInfo where - type HaskellCallbackType CheckMenuItemToggledSignalInfo = CheckMenuItemToggledCallback - connectSignal _ = connectCheckMenuItemToggled - -type instance SignalList CheckMenuItem = CheckMenuItemSignalList -type CheckMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CheckMenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -checkMenuItemGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_check_menu_item_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CheckMenuItem::get_draw_as_radio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CheckMenuItem::get_inconsistent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -checkMenuItemGetInconsistent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_check_menu_item_get_inconsistent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CheckMenuItem::set_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_active - m () -checkMenuItemSetActive _obj is_active = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_check_menu_item_set_active _obj' is_active' - touchManagedPtr _obj - return () - --- method CheckMenuItem::set_draw_as_radio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- draw_as_radio - m () -checkMenuItemSetDrawAsRadio _obj draw_as_radio = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let draw_as_radio' = (fromIntegral . fromEnum) draw_as_radio - gtk_check_menu_item_set_draw_as_radio _obj' draw_as_radio' - touchManagedPtr _obj - return () - --- method CheckMenuItem::set_inconsistent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method CheckMenuItem::toggled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CheckMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -checkMenuItemToggled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_check_menu_item_toggled _obj' - touchManagedPtr _obj - return () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.CheckMenuItem where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList CheckMenuItemAccessible = CheckMenuItemAccessibleAttributeList -type CheckMenuItemAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CheckMenuItemAccessible = CheckMenuItemAccessibleSignalList -type CheckMenuItemAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1027 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - clipboardClear , - - --- ** clipboardGet - clipboardGet , - - --- ** clipboardGetDefault - clipboardGetDefault , - - --- ** clipboardGetDisplay - clipboardGetDisplay , - - --- ** clipboardGetForDisplay - clipboardGetForDisplay , - - --- ** clipboardGetOwner - clipboardGetOwner , - - --- ** clipboardRequestContents - clipboardRequestContents , - - --- ** clipboardRequestImage - clipboardRequestImage , - - --- ** clipboardRequestRichText - clipboardRequestRichText , - - --- ** clipboardRequestTargets - clipboardRequestTargets , - - --- ** clipboardRequestText - clipboardRequestText , - - --- ** clipboardRequestUris - clipboardRequestUris , - - --- ** clipboardSetCanStore - clipboardSetCanStore , - - --- ** clipboardSetImage - clipboardSetImage , - - --- ** clipboardSetText - clipboardSetText , - - --- ** clipboardStore - clipboardStore , - - --- ** clipboardWaitForContents - clipboardWaitForContents , - - --- ** clipboardWaitForImage - clipboardWaitForImage , - - --- ** clipboardWaitForRichText - clipboardWaitForRichText , - - --- ** clipboardWaitForTargets - clipboardWaitForTargets , - - --- ** clipboardWaitForText - clipboardWaitForText , - - --- ** clipboardWaitForUris - clipboardWaitForUris , - - --- ** clipboardWaitIsImageAvailable - clipboardWaitIsImageAvailable , - - --- ** clipboardWaitIsRichTextAvailable - clipboardWaitIsRichTextAvailable , - - --- ** clipboardWaitIsTargetAvailable - clipboardWaitIsTargetAvailable , - - --- ** clipboardWaitIsTextAvailable - clipboardWaitIsTextAvailable , - - --- ** clipboardWaitIsUrisAvailable - clipboardWaitIsUrisAvailable , - - - - - -- * Signals --- ** OwnerChange - ClipboardOwnerChangeCallback , - ClipboardOwnerChangeCallbackC , - ClipboardOwnerChangeSignalInfo , - afterClipboardOwnerChange , - clipboardOwnerChangeCallbackWrapper , - clipboardOwnerChangeClosure , - mkClipboardOwnerChangeCallback , - noClipboardOwnerChangeCallback , - onClipboardOwnerChange , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 56 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), '("owner-change", ClipboardOwnerChangeSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Clipboard::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -clipboardClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_clipboard_clear _obj' - touchManagedPtr _obj - return () - --- method Clipboard::get_display --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Clipboard::get_owner --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Clipboard::request_contents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -clipboardRequestContents :: - (MonadIO m, ClipboardK a) => - a -> -- _obj - Gdk.Atom -> -- target - ClipboardReceivedFunc -> -- callback - m () -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 user_data = nullPtr - gtk_clipboard_request_contents _obj' target' callback' user_data - touchManagedPtr _obj - touchManagedPtr target - return () - --- method Clipboard::request_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardImageReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -clipboardRequestImage :: - (MonadIO m, ClipboardK a) => - a -> -- _obj - ClipboardImageReceivedFunc -> -- callback - m () -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 user_data = nullPtr - gtk_clipboard_request_image _obj' callback' user_data - touchManagedPtr _obj - return () - --- method Clipboard::request_rich_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardRichTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -clipboardRequestRichText :: - (MonadIO m, ClipboardK a, TextBufferK b) => - a -> -- _obj - b -> -- buffer - ClipboardRichTextReceivedFunc -> -- callback - m () -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 user_data = nullPtr - gtk_clipboard_request_rich_text _obj' buffer' callback' user_data - touchManagedPtr _obj - touchManagedPtr buffer - return () - --- method Clipboard::request_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTargetsReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -clipboardRequestTargets :: - (MonadIO m, ClipboardK a) => - a -> -- _obj - ClipboardTargetsReceivedFunc -> -- callback - m () -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 user_data = nullPtr - gtk_clipboard_request_targets _obj' callback' user_data - touchManagedPtr _obj - return () - --- method Clipboard::request_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardTextReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -clipboardRequestText :: - (MonadIO m, ClipboardK a) => - a -> -- _obj - ClipboardTextReceivedFunc -> -- callback - m () -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 user_data = nullPtr - gtk_clipboard_request_text _obj' callback' user_data - touchManagedPtr _obj - return () - --- method Clipboard::request_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "ClipboardURIReceivedFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -clipboardRequestUris :: - (MonadIO m, ClipboardK a) => - a -> -- _obj - ClipboardURIReceivedFunc -> -- callback - m () -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 user_data = nullPtr - gtk_clipboard_request_uris _obj' callback' user_data - touchManagedPtr _obj - return () - --- method Clipboard::set_can_store --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -clipboardSetCanStore :: - (MonadIO m, ClipboardK a) => - a -> -- _obj - Maybe ([TargetEntry]) -> -- targets - m () -clipboardSetCanStore _obj targets = liftIO $ do - let n_targets = 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 n_targets - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - --- method Clipboard::set_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -clipboardSetImage _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_clipboard_set_image _obj' pixbuf' - touchManagedPtr _obj - touchManagedPtr pixbuf - return () - --- method Clipboard::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_clipboard_set_text" gtk_clipboard_set_text :: - Ptr Clipboard -> -- _obj : TInterface "Gtk" "Clipboard" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - IO () - - -clipboardSetText :: - (MonadIO m, ClipboardK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - m () -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 () - --- method Clipboard::store --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -clipboardStore _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_clipboard_store _obj' - touchManagedPtr _obj - return () - --- method Clipboard::wait_for_contents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 SelectionData -clipboardWaitForContents _obj target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let target' = unsafeManagedPtrGetPtr target - result <- gtk_clipboard_wait_for_contents _obj' target' - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_contents" result - result' <- (wrapBoxed SelectionData) result - touchManagedPtr _obj - touchManagedPtr target - return result' - --- method Clipboard::wait_for_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 GdkPixbuf.Pixbuf -clipboardWaitForImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_for_image _obj' - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_image" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - --- method Clipboard::wait_for_rich_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 (ByteString,Gdk.Atom) -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_ - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_rich_text" result - result' <- (unpackByteStringWithLength length_') result - freeMem result - format' <- peek format - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - format'' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) format' - touchManagedPtr _obj - touchManagedPtr buffer - freeMem format - freeMem length_ - return (result', format'') - --- method Clipboard::wait_for_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -clipboardWaitForTargets :: - (MonadIO m, ClipboardK a) => - a -> -- _obj - m (Bool,[Gdk.Atom]) -clipboardWaitForTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - targets <- allocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom))) - n_targets <- allocMem :: IO (Ptr Int32) - result <- gtk_clipboard_wait_for_targets _obj' targets n_targets - n_targets' <- peek n_targets - let result' = (/= 0) result - targets' <- peek targets - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - targets'' <- (unpackPtrArrayWithLength n_targets') targets' - targets''' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) targets'' - freeMem targets' - touchManagedPtr _obj - freeMem targets - freeMem n_targets - return (result', targets''') - --- method Clipboard::wait_for_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 T.Text -clipboardWaitForText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_for_text _obj' - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Clipboard::wait_for_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 [T.Text] -clipboardWaitForUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_for_uris _obj' - checkUnexpectedReturnNULL "gtk_clipboard_wait_for_uris" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - --- method Clipboard::wait_is_image_available --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -clipboardWaitIsImageAvailable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_is_image_available _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Clipboard::wait_is_rich_text_available --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Clipboard::wait_is_target_available --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Clipboard::wait_is_text_available --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -clipboardWaitIsTextAvailable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_is_text_available _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Clipboard::wait_is_uris_available --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -clipboardWaitIsUrisAvailable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_clipboard_wait_is_uris_available _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Clipboard::get --- method type : MemberFunction --- Args : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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,14 +0,0 @@ -module GI.Gtk.Objects.Clipboard where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Clipboard = Clipboard (ForeignPtr Clipboard) -instance GObject Clipboard where -class GObject o => ClipboardK o -instance (GObject o, IsDescendantOf Clipboard o) => ClipboardK o -data ClipboardOwnerChangeSignalInfo 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,608 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - colorButtonGetAlpha , - - --- ** colorButtonGetColor - colorButtonGetColor , - - --- ** colorButtonGetTitle - colorButtonGetTitle , - - --- ** colorButtonGetUseAlpha - colorButtonGetUseAlpha , - - --- ** colorButtonNew - colorButtonNew , - - --- ** colorButtonNewWithColor - colorButtonNewWithColor , - - --- ** colorButtonNewWithRgba - colorButtonNewWithRgba , - - --- ** colorButtonSetAlpha - colorButtonSetAlpha , - - --- ** colorButtonSetColor - colorButtonSetColor , - - --- ** colorButtonSetTitle - colorButtonSetTitle , - - --- ** colorButtonSetUseAlpha - colorButtonSetUseAlpha , - - - - - -- * Properties --- ** Alpha - ColorButtonAlphaPropertyInfo , - constructColorButtonAlpha , - getColorButtonAlpha , - setColorButtonAlpha , - - --- ** Color - ColorButtonColorPropertyInfo , - constructColorButtonColor , - getColorButtonColor , - setColorButtonColor , - - --- ** Rgba - ColorButtonRgbaPropertyInfo , - constructColorButtonRgba , - getColorButtonRgba , - setColorButtonRgba , - - --- ** Title - ColorButtonTitlePropertyInfo , - constructColorButtonTitle , - getColorButtonTitle , - setColorButtonTitle , - - --- ** UseAlpha - ColorButtonUseAlphaPropertyInfo , - constructColorButtonUseAlpha , - getColorButtonUseAlpha , - setColorButtonUseAlpha , - - - - - -- * Signals --- ** ColorSet - ColorButtonColorSetCallback , - ColorButtonColorSetCallbackC , - ColorButtonColorSetSignalInfo , - afterColorButtonColorSet , - colorButtonColorSetCallbackWrapper , - colorButtonColorSetClosure , - mkColorButtonColorSetCallback , - noColorButtonColorSetCallback , - onColorButtonColorSet , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> m Word32 -getColorButtonAlpha obj = liftIO $ getObjectPropertyCUInt obj "alpha" - -setColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> Word32 -> m () -setColorButtonAlpha obj val = liftIO $ setObjectPropertyCUInt obj "alpha" val - -constructColorButtonAlpha :: Word32 -> IO ([Char], GValue) -constructColorButtonAlpha val = constructObjectPropertyCUInt "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 = "ColorButton::alpha" - attrGet _ = getColorButtonAlpha - attrSet _ = setColorButtonAlpha - attrConstruct _ = constructColorButtonAlpha - --- VVV Prop "color" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> m 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" val - -constructColorButtonColor :: Gdk.Color -> IO ([Char], GValue) -constructColorButtonColor val = constructObjectPropertyBoxed "color" 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 = Gdk.Color - type AttrLabel ColorButtonColorPropertyInfo = "ColorButton::color" - attrGet _ = getColorButtonColor - attrSet _ = setColorButtonColor - attrConstruct _ = constructColorButtonColor - --- VVV Prop "rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m 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" val - -constructColorButtonRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorButtonRgba val = constructObjectPropertyBoxed "rgba" val - -data ColorButtonRgbaPropertyInfo -instance AttrInfo ColorButtonRgbaPropertyInfo where - type AttrAllowedOps ColorButtonRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ColorButtonRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint ColorButtonRgbaPropertyInfo = ColorButtonK - type AttrGetType ColorButtonRgbaPropertyInfo = Gdk.RGBA - type AttrLabel ColorButtonRgbaPropertyInfo = "ColorButton::rgba" - attrGet _ = getColorButtonRgba - attrSet _ = setColorButtonRgba - attrConstruct _ = constructColorButtonRgba - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> m T.Text -getColorButtonTitle obj = liftIO $ getObjectPropertyString obj "title" - -setColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> T.Text -> m () -setColorButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructColorButtonTitle :: T.Text -> IO ([Char], GValue) -constructColorButtonTitle val = constructObjectPropertyString "title" 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 = "ColorButton::title" - attrGet _ = getColorButtonTitle - attrSet _ = setColorButtonTitle - attrConstruct _ = constructColorButtonTitle - --- VVV Prop "use-alpha" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ColorButton::use-alpha" - attrGet _ = getColorButtonUseAlpha - attrSet _ = setColorButtonUseAlpha - attrConstruct _ = constructColorButtonUseAlpha - -type instance AttributeList ColorButton = ColorButtonAttributeList -type ColorButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("alpha", ColorButtonAlphaPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("color", ColorButtonColorPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorButtonRgbaPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", ColorButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-alpha", ColorButtonUseAlphaPropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -data ColorButtonColorSetSignalInfo -instance SignalInfo ColorButtonColorSetSignalInfo where - type HaskellCallbackType ColorButtonColorSetSignalInfo = ColorButtonColorSetCallback - connectSignal _ = connectColorButtonColorSet - -type instance SignalList ColorButton = ColorButtonSignalList -type ColorButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("color-set", ColorButtonColorSetSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ColorButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -colorButtonGetAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_button_get_alpha _obj' - touchManagedPtr _obj - return result - --- method ColorButton::get_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ColorButton::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ColorButton::get_use_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -colorButtonGetUseAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_button_get_use_alpha _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ColorButton::set_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -colorButtonSetAlpha _obj alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_color_button_set_alpha _obj' alpha - touchManagedPtr _obj - return () - --- method ColorButton::set_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ColorButton::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -colorButtonSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_color_button_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - --- method ColorButton::set_use_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_alpha - m () -colorButtonSetUseAlpha _obj use_alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_alpha' = (fromIntegral . fromEnum) use_alpha - gtk_color_button_set_use_alpha _obj' use_alpha' - touchManagedPtr _obj - return () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.ColorButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.ColorChooserDialog - ( - --- * Exported types - ColorChooserDialog(..) , - ColorChooserDialogK , - toColorChooserDialog , - noColorChooserDialog , - - - -- * Methods --- ** colorChooserDialogNew - colorChooserDialogNew , - - - - - -- * Properties --- ** ShowEditor - ColorChooserDialogShowEditorPropertyInfo, - constructColorChooserDialogShowEditor , - getColorChooserDialogShowEditor , - setColorChooserDialogShowEditor , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "show-editor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ColorChooserDialog::show-editor" - attrGet _ = getColorChooserDialogShowEditor - attrSet _ = setColorChooserDialogShowEditor - attrConstruct _ = constructColorChooserDialogShowEditor - -type instance AttributeList ColorChooserDialog = ColorChooserDialogAttributeList -type ColorChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-editor", ColorChooserDialogShowEditorPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ColorChooserDialog = ColorChooserDialogSignalList -type ColorChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ColorChooserDialog::new --- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,122 +0,0 @@ - -{- | -Copyright : Will Thompson, 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, - constructColorChooserWidgetShowEditor , - getColorChooserWidgetShowEditor , - setColorChooserWidgetShowEditor , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "show-editor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ColorChooserWidget::show-editor" - attrGet _ = getColorChooserWidgetShowEditor - attrSet _ = setColorChooserWidgetShowEditor - attrConstruct _ = constructColorChooserWidgetShowEditor - -type instance AttributeList ColorChooserWidget = ColorChooserWidgetAttributeList -type ColorChooserWidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-editor", ColorChooserWidgetShowEditorPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ColorChooserWidget = ColorChooserWidgetSignalList -type ColorChooserWidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ColorChooserWidget::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,897 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - colorSelectionGetCurrentAlpha , - - --- ** colorSelectionGetCurrentColor - colorSelectionGetCurrentColor , - - --- ** colorSelectionGetCurrentRgba - colorSelectionGetCurrentRgba , - - --- ** colorSelectionGetHasOpacityControl - colorSelectionGetHasOpacityControl , - - --- ** colorSelectionGetHasPalette - colorSelectionGetHasPalette , - - --- ** colorSelectionGetPreviousAlpha - colorSelectionGetPreviousAlpha , - - --- ** colorSelectionGetPreviousColor - colorSelectionGetPreviousColor , - - --- ** colorSelectionGetPreviousRgba - colorSelectionGetPreviousRgba , - - --- ** colorSelectionIsAdjusting - colorSelectionIsAdjusting , - - --- ** colorSelectionNew - colorSelectionNew , - - --- ** colorSelectionPaletteFromString - colorSelectionPaletteFromString , - - --- ** colorSelectionPaletteToString - colorSelectionPaletteToString , - - --- ** colorSelectionSetCurrentAlpha - colorSelectionSetCurrentAlpha , - - --- ** colorSelectionSetCurrentColor - colorSelectionSetCurrentColor , - - --- ** colorSelectionSetCurrentRgba - colorSelectionSetCurrentRgba , - - --- ** colorSelectionSetHasOpacityControl - colorSelectionSetHasOpacityControl , - - --- ** colorSelectionSetHasPalette - colorSelectionSetHasPalette , - - --- ** colorSelectionSetPreviousAlpha - colorSelectionSetPreviousAlpha , - - --- ** colorSelectionSetPreviousColor - colorSelectionSetPreviousColor , - - --- ** colorSelectionSetPreviousRgba - colorSelectionSetPreviousRgba , - - - - - -- * Properties --- ** CurrentAlpha - ColorSelectionCurrentAlphaPropertyInfo , - constructColorSelectionCurrentAlpha , - getColorSelectionCurrentAlpha , - setColorSelectionCurrentAlpha , - - --- ** CurrentColor - ColorSelectionCurrentColorPropertyInfo , - constructColorSelectionCurrentColor , - getColorSelectionCurrentColor , - setColorSelectionCurrentColor , - - --- ** CurrentRgba - ColorSelectionCurrentRgbaPropertyInfo , - constructColorSelectionCurrentRgba , - getColorSelectionCurrentRgba , - setColorSelectionCurrentRgba , - - --- ** HasOpacityControl - ColorSelectionHasOpacityControlPropertyInfo, - constructColorSelectionHasOpacityControl, - getColorSelectionHasOpacityControl , - setColorSelectionHasOpacityControl , - - --- ** HasPalette - ColorSelectionHasPalettePropertyInfo , - constructColorSelectionHasPalette , - getColorSelectionHasPalette , - setColorSelectionHasPalette , - - - - - -- * Signals --- ** ColorChanged - ColorSelectionColorChangedCallback , - ColorSelectionColorChangedCallbackC , - ColorSelectionColorChangedSignalInfo , - afterColorSelectionColorChanged , - colorSelectionColorChangedCallbackWrapper, - colorSelectionColorChangedClosure , - mkColorSelectionColorChangedCallback , - noColorSelectionColorChangedCallback , - onColorSelectionColorChanged , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> m Word32 -getColorSelectionCurrentAlpha obj = liftIO $ getObjectPropertyCUInt obj "current-alpha" - -setColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> Word32 -> m () -setColorSelectionCurrentAlpha obj val = liftIO $ setObjectPropertyCUInt obj "current-alpha" val - -constructColorSelectionCurrentAlpha :: Word32 -> IO ([Char], GValue) -constructColorSelectionCurrentAlpha val = constructObjectPropertyCUInt "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 = "ColorSelection::current-alpha" - attrGet _ = getColorSelectionCurrentAlpha - attrSet _ = setColorSelectionCurrentAlpha - attrConstruct _ = constructColorSelectionCurrentAlpha - --- VVV Prop "current-color" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> m 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" val - -constructColorSelectionCurrentColor :: Gdk.Color -> IO ([Char], GValue) -constructColorSelectionCurrentColor val = constructObjectPropertyBoxed "current-color" 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 = Gdk.Color - type AttrLabel ColorSelectionCurrentColorPropertyInfo = "ColorSelection::current-color" - attrGet _ = getColorSelectionCurrentColor - attrSet _ = setColorSelectionCurrentColor - attrConstruct _ = constructColorSelectionCurrentColor - --- VVV Prop "current-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> m 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" val - -constructColorSelectionCurrentRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructColorSelectionCurrentRgba val = constructObjectPropertyBoxed "current-rgba" 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 = Gdk.RGBA - type AttrLabel ColorSelectionCurrentRgbaPropertyInfo = "ColorSelection::current-rgba" - attrGet _ = getColorSelectionCurrentRgba - attrSet _ = setColorSelectionCurrentRgba - attrConstruct _ = constructColorSelectionCurrentRgba - --- VVV Prop "has-opacity-control" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ColorSelection::has-opacity-control" - attrGet _ = getColorSelectionHasOpacityControl - attrSet _ = setColorSelectionHasOpacityControl - attrConstruct _ = constructColorSelectionHasOpacityControl - --- VVV Prop "has-palette" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ColorSelection::has-palette" - attrGet _ = getColorSelectionHasPalette - attrSet _ = setColorSelectionHasPalette - attrConstruct _ = constructColorSelectionHasPalette - -type instance AttributeList ColorSelection = ColorSelectionAttributeList -type ColorSelectionAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("current-alpha", ColorSelectionCurrentAlphaPropertyInfo), '("current-color", ColorSelectionCurrentColorPropertyInfo), '("current-rgba", ColorSelectionCurrentRgbaPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-opacity-control", ColorSelectionHasOpacityControlPropertyInfo), '("has-palette", ColorSelectionHasPalettePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data ColorSelectionColorChangedSignalInfo -instance SignalInfo ColorSelectionColorChangedSignalInfo where - type HaskellCallbackType ColorSelectionColorChangedSignalInfo = ColorSelectionColorChangedCallback - connectSignal _ = connectColorSelectionColorChanged - -type instance SignalList ColorSelection = ColorSelectionSignalList -type ColorSelectionSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("color-changed", ColorSelectionColorChangedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ColorSelection::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -colorSelectionGetCurrentAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_get_current_alpha _obj' - touchManagedPtr _obj - return result - --- method ColorSelection::get_current_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ColorSelection::get_current_rgba --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ColorSelection::get_has_opacity_control --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ColorSelection::get_has_palette --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -colorSelectionGetHasPalette _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_get_has_palette _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ColorSelection::get_previous_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -colorSelectionGetPreviousAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_get_previous_alpha _obj' - touchManagedPtr _obj - return result - --- method ColorSelection::get_previous_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ColorSelection::get_previous_rgba --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ColorSelection::is_adjusting --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -colorSelectionIsAdjusting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_color_selection_is_adjusting _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ColorSelection::set_current_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -colorSelectionSetCurrentAlpha _obj alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_color_selection_set_current_alpha _obj' alpha - touchManagedPtr _obj - return () - --- method ColorSelection::set_current_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ColorSelection::set_current_rgba --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ColorSelection::set_has_opacity_control --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_opacity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- has_opacity - m () -colorSelectionSetHasOpacityControl _obj has_opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_opacity' = (fromIntegral . fromEnum) has_opacity - gtk_color_selection_set_has_opacity_control _obj' has_opacity' - touchManagedPtr _obj - return () - --- method ColorSelection::set_has_palette --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_palette", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- has_palette - m () -colorSelectionSetHasPalette _obj has_palette = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_palette' = (fromIntegral . fromEnum) has_palette - gtk_color_selection_set_has_palette _obj' has_palette' - touchManagedPtr _obj - return () - --- method ColorSelection::set_previous_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -colorSelectionSetPreviousAlpha _obj alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_color_selection_set_previous_alpha _obj' alpha - touchManagedPtr _obj - return () - --- method ColorSelection::set_previous_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ColorSelection::set_previous_rgba --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ColorSelection::palette_from_string --- method type : MemberFunction --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colors", argType = TCArray False (-1) 2 (TInterface "Gdk" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO CInt - - -colorSelectionPaletteFromString :: - (MonadIO m) => - T.Text -> -- str - m (Bool,[Gdk.Color]) -colorSelectionPaletteFromString str = liftIO $ do - str' <- textToCString str - colors <- allocMem :: IO (Ptr (Ptr Gdk.Color)) - n_colors <- allocMem :: IO (Ptr Int32) - result <- gtk_color_selection_palette_from_string str' colors n_colors - n_colors' <- peek n_colors - let result' = (/= 0) result - colors' <- peek colors - colors'' <- (unpackBoxedArrayWithLength 12 n_colors') colors' - colors''' <- mapM (wrapBoxed Gdk.Color) colors'' - freeMem colors' - freeMem str' - freeMem colors - freeMem n_colors - return (result', colors''') - --- method ColorSelection::palette_to_string --- method type : MemberFunction --- Args : [Arg {argName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_colors", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "colors", argType = TCArray False (-1) 1 (TInterface "Gdk" "Color"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CString - - -colorSelectionPaletteToString :: - (MonadIO m) => - [Gdk.Color] -> -- colors - m T.Text -colorSelectionPaletteToString colors = liftIO $ do - let n_colors = fromIntegral $ length colors - let colors' = map unsafeManagedPtrGetPtr colors - colors'' <- packBlockArray 12 colors' - result <- gtk_color_selection_palette_to_string colors'' n_colors - 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,19 +0,0 @@ -module GI.Gtk.Objects.ColorSelection where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,217 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - colorSelectionDialogGetColorSelection , - - --- ** colorSelectionDialogNew - colorSelectionDialogNew , - - - - - -- * Properties --- ** CancelButton - ColorSelectionDialogCancelButtonPropertyInfo, - getColorSelectionDialogCancelButton , - - --- ** ColorSelection - ColorSelectionDialogColorSelectionPropertyInfo, - getColorSelectionDialogColorSelection , - - --- ** HelpButton - ColorSelectionDialogHelpButtonPropertyInfo, - getColorSelectionDialogHelpButton , - - --- ** OkButton - ColorSelectionDialogOkButtonPropertyInfo, - getColorSelectionDialogOkButton , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "cancel-button" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -getColorSelectionDialogCancelButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget -getColorSelectionDialogCancelButton obj = liftIO $ getObjectPropertyObject obj "cancel-button" Widget - -data ColorSelectionDialogCancelButtonPropertyInfo -instance AttrInfo ColorSelectionDialogCancelButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogCancelButtonPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = (~) () - type AttrBaseTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogCancelButtonPropertyInfo = Widget - type AttrLabel ColorSelectionDialogCancelButtonPropertyInfo = "ColorSelectionDialog::cancel-button" - attrGet _ = getColorSelectionDialogCancelButton - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "color-selection" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -getColorSelectionDialogColorSelection :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget -getColorSelectionDialogColorSelection obj = liftIO $ getObjectPropertyObject obj "color-selection" Widget - -data ColorSelectionDialogColorSelectionPropertyInfo -instance AttrInfo ColorSelectionDialogColorSelectionPropertyInfo where - type AttrAllowedOps ColorSelectionDialogColorSelectionPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = (~) () - type AttrBaseTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogColorSelectionPropertyInfo = Widget - type AttrLabel ColorSelectionDialogColorSelectionPropertyInfo = "ColorSelectionDialog::color-selection" - attrGet _ = getColorSelectionDialogColorSelection - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "help-button" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -getColorSelectionDialogHelpButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget -getColorSelectionDialogHelpButton obj = liftIO $ getObjectPropertyObject obj "help-button" Widget - -data ColorSelectionDialogHelpButtonPropertyInfo -instance AttrInfo ColorSelectionDialogHelpButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogHelpButtonPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = (~) () - type AttrBaseTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogHelpButtonPropertyInfo = Widget - type AttrLabel ColorSelectionDialogHelpButtonPropertyInfo = "ColorSelectionDialog::help-button" - attrGet _ = getColorSelectionDialogHelpButton - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ok-button" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -getColorSelectionDialogOkButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget -getColorSelectionDialogOkButton obj = liftIO $ getObjectPropertyObject obj "ok-button" Widget - -data ColorSelectionDialogOkButtonPropertyInfo -instance AttrInfo ColorSelectionDialogOkButtonPropertyInfo where - type AttrAllowedOps ColorSelectionDialogOkButtonPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = (~) () - type AttrBaseTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = ColorSelectionDialogK - type AttrGetType ColorSelectionDialogOkButtonPropertyInfo = Widget - type AttrLabel ColorSelectionDialogOkButtonPropertyInfo = "ColorSelectionDialog::ok-button" - attrGet _ = getColorSelectionDialogOkButton - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList ColorSelectionDialog = ColorSelectionDialogAttributeList -type ColorSelectionDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cancel-button", ColorSelectionDialogCancelButtonPropertyInfo), '("child", ContainerChildPropertyInfo), '("color-selection", ColorSelectionDialogColorSelectionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("help-button", ColorSelectionDialogHelpButtonPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("ok-button", ColorSelectionDialogOkButtonPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ColorSelectionDialog = ColorSelectionDialogSignalList -type ColorSelectionDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ColorSelectionDialog::new --- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ColorSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,17 +0,0 @@ -module GI.Gtk.Objects.ColorSelectionDialog where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,2073 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - comboBoxGetActive , - - --- ** comboBoxGetActiveId - comboBoxGetActiveId , - - --- ** comboBoxGetActiveIter - comboBoxGetActiveIter , - - --- ** comboBoxGetAddTearoffs - comboBoxGetAddTearoffs , - - --- ** comboBoxGetButtonSensitivity - comboBoxGetButtonSensitivity , - - --- ** comboBoxGetColumnSpanColumn - comboBoxGetColumnSpanColumn , - - --- ** comboBoxGetEntryTextColumn - comboBoxGetEntryTextColumn , - - --- ** comboBoxGetFocusOnClick - comboBoxGetFocusOnClick , - - --- ** comboBoxGetHasEntry - comboBoxGetHasEntry , - - --- ** comboBoxGetIdColumn - comboBoxGetIdColumn , - - --- ** comboBoxGetModel - comboBoxGetModel , - - --- ** comboBoxGetPopupAccessible - comboBoxGetPopupAccessible , - - --- ** comboBoxGetPopupFixedWidth - comboBoxGetPopupFixedWidth , - - --- ** comboBoxGetRowSpanColumn - comboBoxGetRowSpanColumn , - - --- ** comboBoxGetTitle - comboBoxGetTitle , - - --- ** comboBoxGetWrapWidth - comboBoxGetWrapWidth , - - --- ** comboBoxNew - comboBoxNew , - - --- ** comboBoxNewWithArea - comboBoxNewWithArea , - - --- ** comboBoxNewWithAreaAndEntry - comboBoxNewWithAreaAndEntry , - - --- ** comboBoxNewWithEntry - comboBoxNewWithEntry , - - --- ** comboBoxNewWithModel - comboBoxNewWithModel , - - --- ** comboBoxNewWithModelAndEntry - comboBoxNewWithModelAndEntry , - - --- ** comboBoxPopdown - comboBoxPopdown , - - --- ** comboBoxPopup - comboBoxPopup , - - --- ** comboBoxPopupForDevice - comboBoxPopupForDevice , - - --- ** comboBoxSetActive - comboBoxSetActive , - - --- ** comboBoxSetActiveId - comboBoxSetActiveId , - - --- ** comboBoxSetActiveIter - comboBoxSetActiveIter , - - --- ** comboBoxSetAddTearoffs - comboBoxSetAddTearoffs , - - --- ** comboBoxSetButtonSensitivity - comboBoxSetButtonSensitivity , - - --- ** comboBoxSetColumnSpanColumn - comboBoxSetColumnSpanColumn , - - --- ** comboBoxSetEntryTextColumn - comboBoxSetEntryTextColumn , - - --- ** comboBoxSetFocusOnClick - comboBoxSetFocusOnClick , - - --- ** comboBoxSetIdColumn - comboBoxSetIdColumn , - - --- ** comboBoxSetModel - comboBoxSetModel , - - --- ** comboBoxSetPopupFixedWidth - comboBoxSetPopupFixedWidth , - - --- ** comboBoxSetRowSeparatorFunc - comboBoxSetRowSeparatorFunc , - - --- ** comboBoxSetRowSpanColumn - comboBoxSetRowSpanColumn , - - --- ** comboBoxSetTitle - comboBoxSetTitle , - - --- ** comboBoxSetWrapWidth - comboBoxSetWrapWidth , - - - - - -- * Properties --- ** Active - ComboBoxActivePropertyInfo , - constructComboBoxActive , - getComboBoxActive , - setComboBoxActive , - - --- ** ActiveId - ComboBoxActiveIdPropertyInfo , - constructComboBoxActiveId , - getComboBoxActiveId , - setComboBoxActiveId , - - --- ** AddTearoffs - ComboBoxAddTearoffsPropertyInfo , - constructComboBoxAddTearoffs , - getComboBoxAddTearoffs , - setComboBoxAddTearoffs , - - --- ** ButtonSensitivity - ComboBoxButtonSensitivityPropertyInfo , - constructComboBoxButtonSensitivity , - getComboBoxButtonSensitivity , - setComboBoxButtonSensitivity , - - --- ** CellArea - ComboBoxCellAreaPropertyInfo , - constructComboBoxCellArea , - getComboBoxCellArea , - - --- ** ColumnSpanColumn - ComboBoxColumnSpanColumnPropertyInfo , - constructComboBoxColumnSpanColumn , - getComboBoxColumnSpanColumn , - setComboBoxColumnSpanColumn , - - --- ** EntryTextColumn - ComboBoxEntryTextColumnPropertyInfo , - constructComboBoxEntryTextColumn , - getComboBoxEntryTextColumn , - setComboBoxEntryTextColumn , - - --- ** FocusOnClick - ComboBoxFocusOnClickPropertyInfo , - constructComboBoxFocusOnClick , - getComboBoxFocusOnClick , - setComboBoxFocusOnClick , - - --- ** HasEntry - ComboBoxHasEntryPropertyInfo , - constructComboBoxHasEntry , - getComboBoxHasEntry , - - --- ** HasFrame - ComboBoxHasFramePropertyInfo , - constructComboBoxHasFrame , - getComboBoxHasFrame , - setComboBoxHasFrame , - - --- ** IdColumn - ComboBoxIdColumnPropertyInfo , - constructComboBoxIdColumn , - getComboBoxIdColumn , - setComboBoxIdColumn , - - --- ** Model - ComboBoxModelPropertyInfo , - constructComboBoxModel , - getComboBoxModel , - setComboBoxModel , - - --- ** PopupFixedWidth - ComboBoxPopupFixedWidthPropertyInfo , - constructComboBoxPopupFixedWidth , - getComboBoxPopupFixedWidth , - setComboBoxPopupFixedWidth , - - --- ** PopupShown - ComboBoxPopupShownPropertyInfo , - getComboBoxPopupShown , - - --- ** RowSpanColumn - ComboBoxRowSpanColumnPropertyInfo , - constructComboBoxRowSpanColumn , - getComboBoxRowSpanColumn , - setComboBoxRowSpanColumn , - - --- ** TearoffTitle - ComboBoxTearoffTitlePropertyInfo , - constructComboBoxTearoffTitle , - getComboBoxTearoffTitle , - setComboBoxTearoffTitle , - - --- ** WrapWidth - ComboBoxWrapWidthPropertyInfo , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ scroll_type _ = do - let scroll_type' = (toEnum . fromIntegral) scroll_type - _cb scroll_type' - -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 TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxActive obj = liftIO $ getObjectPropertyCInt obj "active" - -setComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxActive obj val = liftIO $ setObjectPropertyCInt obj "active" val - -constructComboBoxActive :: Int32 -> IO ([Char], GValue) -constructComboBoxActive val = constructObjectPropertyCInt "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 = "ComboBox::active" - attrGet _ = getComboBoxActive - attrSet _ = setComboBoxActive - attrConstruct _ = constructComboBoxActive - --- VVV Prop "active-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m 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" val - -constructComboBoxActiveId :: T.Text -> IO ([Char], GValue) -constructComboBoxActiveId val = constructObjectPropertyString "active-id" val - -data ComboBoxActiveIdPropertyInfo -instance AttrInfo ComboBoxActiveIdPropertyInfo where - type AttrAllowedOps ComboBoxActiveIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxActiveIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ComboBoxActiveIdPropertyInfo = ComboBoxK - type AttrGetType ComboBoxActiveIdPropertyInfo = T.Text - type AttrLabel ComboBoxActiveIdPropertyInfo = "ComboBox::active-id" - attrGet _ = getComboBoxActiveId - attrSet _ = setComboBoxActiveId - attrConstruct _ = constructComboBoxActiveId - --- VVV Prop "add-tearoffs" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ComboBox::add-tearoffs" - attrGet _ = getComboBoxAddTearoffs - attrSet _ = setComboBoxAddTearoffs - attrConstruct _ = constructComboBoxAddTearoffs - --- VVV Prop "button-sensitivity" - -- Type: TInterface "Gtk" "SensitivityType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ComboBox::button-sensitivity" - attrGet _ = getComboBoxButtonSensitivity - attrSet _ = setComboBoxButtonSensitivity - attrConstruct _ = constructComboBoxButtonSensitivity - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getComboBoxCellArea :: (MonadIO m, ComboBoxK o) => o -> m CellArea -getComboBoxCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructComboBoxCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructComboBoxCellArea val = constructObjectPropertyObject "cell-area" val - -data ComboBoxCellAreaPropertyInfo -instance AttrInfo ComboBoxCellAreaPropertyInfo where - type AttrAllowedOps ComboBoxCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint ComboBoxCellAreaPropertyInfo = ComboBoxK - type AttrGetType ComboBoxCellAreaPropertyInfo = CellArea - type AttrLabel ComboBoxCellAreaPropertyInfo = "ComboBox::cell-area" - attrGet _ = getComboBoxCellArea - attrSet _ = undefined - attrConstruct _ = constructComboBoxCellArea - --- VVV Prop "column-span-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxColumnSpanColumn obj = liftIO $ getObjectPropertyCInt obj "column-span-column" - -setComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxColumnSpanColumn obj val = liftIO $ setObjectPropertyCInt obj "column-span-column" val - -constructComboBoxColumnSpanColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxColumnSpanColumn val = constructObjectPropertyCInt "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 = "ComboBox::column-span-column" - attrGet _ = getComboBoxColumnSpanColumn - attrSet _ = setComboBoxColumnSpanColumn - attrConstruct _ = constructComboBoxColumnSpanColumn - --- VVV Prop "entry-text-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxEntryTextColumn obj = liftIO $ getObjectPropertyCInt obj "entry-text-column" - -setComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxEntryTextColumn obj val = liftIO $ setObjectPropertyCInt obj "entry-text-column" val - -constructComboBoxEntryTextColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxEntryTextColumn val = constructObjectPropertyCInt "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 = "ComboBox::entry-text-column" - attrGet _ = getComboBoxEntryTextColumn - attrSet _ = setComboBoxEntryTextColumn - attrConstruct _ = constructComboBoxEntryTextColumn - --- VVV Prop "focus-on-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ComboBox::focus-on-click" - attrGet _ = getComboBoxFocusOnClick - attrSet _ = setComboBoxFocusOnClick - attrConstruct _ = constructComboBoxFocusOnClick - --- VVV Prop "has-entry" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -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 = "ComboBox::has-entry" - attrGet _ = getComboBoxHasEntry - attrSet _ = undefined - attrConstruct _ = constructComboBoxHasEntry - --- VVV Prop "has-frame" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ComboBox::has-frame" - attrGet _ = getComboBoxHasFrame - attrSet _ = setComboBoxHasFrame - attrConstruct _ = constructComboBoxHasFrame - --- VVV Prop "id-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxIdColumn obj = liftIO $ getObjectPropertyCInt obj "id-column" - -setComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxIdColumn obj val = liftIO $ setObjectPropertyCInt obj "id-column" val - -constructComboBoxIdColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxIdColumn val = constructObjectPropertyCInt "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 = "ComboBox::id-column" - attrGet _ = getComboBoxIdColumn - attrSet _ = setComboBoxIdColumn - attrConstruct _ = constructComboBoxIdColumn - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxModel :: (MonadIO m, ComboBoxK o) => o -> m TreeModel -getComboBoxModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -setComboBoxModel :: (MonadIO m, ComboBoxK o, TreeModelK a) => o -> a -> m () -setComboBoxModel obj val = liftIO $ setObjectPropertyObject obj "model" val - -constructComboBoxModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructComboBoxModel val = constructObjectPropertyObject "model" val - -data ComboBoxModelPropertyInfo -instance AttrInfo ComboBoxModelPropertyInfo where - type AttrAllowedOps ComboBoxModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint ComboBoxModelPropertyInfo = ComboBoxK - type AttrGetType ComboBoxModelPropertyInfo = TreeModel - type AttrLabel ComboBoxModelPropertyInfo = "ComboBox::model" - attrGet _ = getComboBoxModel - attrSet _ = setComboBoxModel - attrConstruct _ = constructComboBoxModel - --- VVV Prop "popup-fixed-width" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ComboBox::popup-fixed-width" - attrGet _ = getComboBoxPopupFixedWidth - attrSet _ = setComboBoxPopupFixedWidth - attrConstruct _ = constructComboBoxPopupFixedWidth - --- VVV Prop "popup-shown" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "ComboBox::popup-shown" - attrGet _ = getComboBoxPopupShown - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "row-span-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxRowSpanColumn obj = liftIO $ getObjectPropertyCInt obj "row-span-column" - -setComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxRowSpanColumn obj val = liftIO $ setObjectPropertyCInt obj "row-span-column" val - -constructComboBoxRowSpanColumn :: Int32 -> IO ([Char], GValue) -constructComboBoxRowSpanColumn val = constructObjectPropertyCInt "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 = "ComboBox::row-span-column" - attrGet _ = getComboBoxRowSpanColumn - attrSet _ = setComboBoxRowSpanColumn - attrConstruct _ = constructComboBoxRowSpanColumn - --- VVV Prop "tearoff-title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m 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" val - -constructComboBoxTearoffTitle :: T.Text -> IO ([Char], GValue) -constructComboBoxTearoffTitle val = constructObjectPropertyString "tearoff-title" val - -data ComboBoxTearoffTitlePropertyInfo -instance AttrInfo ComboBoxTearoffTitlePropertyInfo where - type AttrAllowedOps ComboBoxTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ComboBoxTearoffTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ComboBoxTearoffTitlePropertyInfo = ComboBoxK - type AttrGetType ComboBoxTearoffTitlePropertyInfo = T.Text - type AttrLabel ComboBoxTearoffTitlePropertyInfo = "ComboBox::tearoff-title" - attrGet _ = getComboBoxTearoffTitle - attrSet _ = setComboBoxTearoffTitle - attrConstruct _ = constructComboBoxTearoffTitle - --- VVV Prop "wrap-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> m Int32 -getComboBoxWrapWidth obj = liftIO $ getObjectPropertyCInt obj "wrap-width" - -setComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () -setComboBoxWrapWidth obj val = liftIO $ setObjectPropertyCInt obj "wrap-width" val - -constructComboBoxWrapWidth :: Int32 -> IO ([Char], GValue) -constructComboBoxWrapWidth val = constructObjectPropertyCInt "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 = "ComboBox::wrap-width" - attrGet _ = getComboBoxWrapWidth - attrSet _ = setComboBoxWrapWidth - attrConstruct _ = constructComboBoxWrapWidth - -type instance AttributeList ComboBox = ComboBoxAttributeList -type ComboBoxAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ComboBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -comboBoxGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_active _obj' - touchManagedPtr _obj - return result - --- method ComboBox::get_active_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 T.Text -comboBoxGetActiveId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_active_id _obj' - checkUnexpectedReturnNULL "gtk_combo_box_get_active_id" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method ComboBox::get_active_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - --- method ComboBox::get_add_tearoffs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -comboBoxGetAddTearoffs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_add_tearoffs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ComboBox::get_button_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ComboBox::get_column_span_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -comboBoxGetColumnSpanColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_column_span_column _obj' - touchManagedPtr _obj - return result - --- method ComboBox::get_entry_text_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -comboBoxGetEntryTextColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_entry_text_column _obj' - touchManagedPtr _obj - return result - --- method ComboBox::get_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ComboBox::get_has_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -comboBoxGetHasEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_has_entry _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ComboBox::get_id_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -comboBoxGetIdColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_id_column _obj' - touchManagedPtr _obj - return result - --- method ComboBox::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ComboBox::get_popup_accessible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ComboBox::get_popup_fixed_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ComboBox::get_row_span_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -comboBoxGetRowSpanColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_row_span_column _obj' - touchManagedPtr _obj - return result - --- method ComboBox::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ComboBox::get_wrap_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -comboBoxGetWrapWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_combo_box_get_wrap_width _obj' - touchManagedPtr _obj - return result - --- method ComboBox::popdown --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -comboBoxPopdown _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_popdown _obj' - touchManagedPtr _obj - return () - --- method ComboBox::popup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -comboBoxPopup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_popup _obj' - touchManagedPtr _obj - return () - --- method ComboBox::popup_for_device --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ComboBox::set_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -comboBoxSetActive :: - (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- index_ - m () -comboBoxSetActive _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_active _obj' index_ - touchManagedPtr _obj - return () - --- method ComboBox::set_active_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "active_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- active_id - m Bool -comboBoxSetActiveId _obj active_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeActive_id <- case active_id of - Nothing -> return nullPtr - Just jActive_id -> do - jActive_id' <- textToCString jActive_id - return jActive_id' - result <- gtk_combo_box_set_active_id _obj' maybeActive_id - let result' = (/= 0) result - touchManagedPtr _obj - freeMem maybeActive_id - return result' - --- method ComboBox::set_active_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ComboBox::set_add_tearoffs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- add_tearoffs - m () -comboBoxSetAddTearoffs _obj add_tearoffs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let add_tearoffs' = (fromIntegral . fromEnum) add_tearoffs - gtk_combo_box_set_add_tearoffs _obj' add_tearoffs' - touchManagedPtr _obj - return () - --- method ComboBox::set_button_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ComboBox::set_column_span_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_column_span_column" gtk_combo_box_set_column_span_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- column_span : TBasicType TInt32 - IO () - - -comboBoxSetColumnSpanColumn :: - (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- column_span - m () -comboBoxSetColumnSpanColumn _obj column_span = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_column_span_column _obj' column_span - touchManagedPtr _obj - return () - --- method ComboBox::set_entry_text_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_entry_text_column" gtk_combo_box_set_entry_text_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- text_column : TBasicType TInt32 - IO () - - -comboBoxSetEntryTextColumn :: - (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- text_column - m () -comboBoxSetEntryTextColumn _obj text_column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_entry_text_column _obj' text_column - touchManagedPtr _obj - return () - --- method ComboBox::set_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- focus_on_click - m () -comboBoxSetFocusOnClick _obj focus_on_click = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focus_on_click' = (fromIntegral . fromEnum) focus_on_click - gtk_combo_box_set_focus_on_click _obj' focus_on_click' - touchManagedPtr _obj - return () - --- method ComboBox::set_id_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id_column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_id_column" gtk_combo_box_set_id_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- id_column : TBasicType TInt32 - IO () - - -comboBoxSetIdColumn :: - (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- id_column - m () -comboBoxSetIdColumn _obj id_column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_id_column _obj' id_column - touchManagedPtr _obj - return () - --- method ComboBox::set_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ComboBox::set_popup_fixed_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ComboBox::set_row_separator_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -comboBoxSetRowSeparatorFunc :: - (MonadIO m, ComboBoxK a) => - a -> -- _obj - TreeViewRowSeparatorFunc -> -- func - m () -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 () - --- method ComboBox::set_row_span_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_span", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_set_row_span_column" gtk_combo_box_set_row_span_column :: - Ptr ComboBox -> -- _obj : TInterface "Gtk" "ComboBox" - Int32 -> -- row_span : TBasicType TInt32 - IO () - - -comboBoxSetRowSpanColumn :: - (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- row_span - m () -comboBoxSetRowSpanColumn _obj row_span = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_row_span_column _obj' row_span - touchManagedPtr _obj - return () - --- method ComboBox::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -comboBoxSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_combo_box_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - --- method ComboBox::set_wrap_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -comboBoxSetWrapWidth :: - (MonadIO m, ComboBoxK a) => - a -> -- _obj - Int32 -> -- width - m () -comboBoxSetWrapWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_set_wrap_width _obj' width - touchManagedPtr _obj - return () - - 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,35 +0,0 @@ -module GI.Gtk.Objects.ComboBox where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ComboBoxAccessible = ComboBoxAccessibleAttributeList -type ComboBoxAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ComboBoxAccessible = ComboBoxAccessibleSignalList -type ComboBoxAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.ComboBoxText - ( - --- * Exported types - ComboBoxText(..) , - ComboBoxTextK , - toComboBoxText , - noComboBoxText , - - - -- * Methods --- ** comboBoxTextAppend - comboBoxTextAppend , - - --- ** comboBoxTextAppendText - comboBoxTextAppendText , - - --- ** comboBoxTextGetActiveText - comboBoxTextGetActiveText , - - --- ** comboBoxTextInsert - comboBoxTextInsert , - - --- ** comboBoxTextInsertText - comboBoxTextInsertText , - - --- ** comboBoxTextNew - comboBoxTextNew , - - --- ** comboBoxTextNewWithEntry - comboBoxTextNewWithEntry , - - --- ** comboBoxTextPrepend - comboBoxTextPrepend , - - --- ** comboBoxTextPrependText - comboBoxTextPrependText , - - --- ** comboBoxTextRemove - comboBoxTextRemove , - - --- ** comboBoxTextRemoveAll - comboBoxTextRemoveAll , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ComboBoxText = ComboBoxTextAttributeList -type ComboBoxTextAttributeList = ('[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ComboBoxText = ComboBoxTextSignalList -type ComboBoxTextSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ComboBoxText::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method ComboBoxText::append_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method ComboBoxText::get_active_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ComboBoxText::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_text_insert" gtk_combo_box_text_insert :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt32 - 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 () -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 () - --- method ComboBoxText::insert_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_text_insert_text" gtk_combo_box_text_insert_text :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt32 - CString -> -- text : TBasicType TUTF8 - IO () - - -comboBoxTextInsertText :: - (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - Int32 -> -- position - T.Text -> -- text - m () -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 () - --- method ComboBoxText::prepend --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method ComboBoxText::prepend_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method ComboBoxText::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_combo_box_text_remove" gtk_combo_box_text_remove :: - Ptr ComboBoxText -> -- _obj : TInterface "Gtk" "ComboBoxText" - Int32 -> -- position : TBasicType TInt32 - IO () - - -comboBoxTextRemove :: - (MonadIO m, ComboBoxTextK a) => - a -> -- _obj - Int32 -> -- position - m () -comboBoxTextRemove _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_text_remove _obj' position - touchManagedPtr _obj - return () - --- method ComboBoxText::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ComboBoxText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -comboBoxTextRemoveAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_combo_box_text_remove_all _obj' - touchManagedPtr _obj - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.ComboBoxText where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ComboBoxText = ComboBoxText (ForeignPtr ComboBoxText) -instance GObject ComboBoxText where -class GObject o => ComboBoxTextK o -instance (GObject o, IsDescendantOf ComboBoxText o) => ComboBoxTextK o 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,1262 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - containerAdd , - - --- ** containerCheckResize - containerCheckResize , - - --- ** containerChildGetProperty - containerChildGetProperty , - - --- ** containerChildNotify - containerChildNotify , - - --- ** containerChildSetProperty - containerChildSetProperty , - - --- ** containerChildType - containerChildType , - - --- ** containerForall - containerForall , - - --- ** containerForeach - containerForeach , - - --- ** containerGetBorderWidth - containerGetBorderWidth , - - --- ** containerGetChildren - containerGetChildren , - - --- ** containerGetFocusChain - containerGetFocusChain , - - --- ** containerGetFocusChild - containerGetFocusChild , - - --- ** containerGetFocusHadjustment - containerGetFocusHadjustment , - - --- ** containerGetFocusVadjustment - containerGetFocusVadjustment , - - --- ** containerGetPathForChild - containerGetPathForChild , - - --- ** containerGetResizeMode - containerGetResizeMode , - - --- ** containerPropagateDraw - containerPropagateDraw , - - --- ** containerRemove - containerRemove , - - --- ** containerResizeChildren - containerResizeChildren , - - --- ** containerSetBorderWidth - containerSetBorderWidth , - - --- ** containerSetFocusChain - containerSetFocusChain , - - --- ** containerSetFocusChild - containerSetFocusChild , - - --- ** containerSetFocusHadjustment - containerSetFocusHadjustment , - - --- ** containerSetFocusVadjustment - containerSetFocusVadjustment , - - --- ** containerSetReallocateRedraws - containerSetReallocateRedraws , - - --- ** containerSetResizeMode - containerSetResizeMode , - - --- ** containerUnsetFocusChain - containerUnsetFocusChain , - - - - - -- * Properties --- ** BorderWidth - ContainerBorderWidthPropertyInfo , - constructContainerBorderWidth , - getContainerBorderWidth , - setContainerBorderWidth , - - --- ** Child - ContainerChildPropertyInfo , - constructContainerChild , - setContainerChild , - - --- ** ResizeMode - ContainerResizeModePropertyInfo , - constructContainerResizeMode , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> m Word32 -getContainerBorderWidth obj = liftIO $ getObjectPropertyCUInt obj "border-width" - -setContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> Word32 -> m () -setContainerBorderWidth obj val = liftIO $ setObjectPropertyCUInt obj "border-width" val - -constructContainerBorderWidth :: Word32 -> IO ([Char], GValue) -constructContainerBorderWidth val = constructObjectPropertyCUInt "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 = "Container::border-width" - attrGet _ = getContainerBorderWidth - attrSet _ = setContainerBorderWidth - attrConstruct _ = constructContainerBorderWidth - --- VVV Prop "child" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyWritable] - -setContainerChild :: (MonadIO m, ContainerK o, WidgetK a) => o -> a -> m () -setContainerChild obj val = liftIO $ setObjectPropertyObject obj "child" val - -constructContainerChild :: (WidgetK a) => a -> IO ([Char], GValue) -constructContainerChild val = constructObjectPropertyObject "child" val - -data ContainerChildPropertyInfo -instance AttrInfo ContainerChildPropertyInfo where - type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint ContainerChildPropertyInfo = WidgetK - type AttrBaseTypeConstraint ContainerChildPropertyInfo = ContainerK - type AttrGetType ContainerChildPropertyInfo = () - type AttrLabel ContainerChildPropertyInfo = "Container::child" - attrGet _ = undefined - attrSet _ = setContainerChild - attrConstruct _ = constructContainerChild - --- VVV Prop "resize-mode" - -- Type: TInterface "Gtk" "ResizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Container::resize-mode" - attrGet _ = getContainerResizeMode - attrSet _ = setContainerResizeMode - attrConstruct _ = constructContainerResizeMode - -type instance AttributeList Container = ContainerAttributeList -type ContainerAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Container::add --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -containerAdd _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_container_add _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return () - --- method Container::check_resize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -containerCheckResize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_check_resize _obj' - touchManagedPtr _obj - return () - --- method Container::child_get_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 -> -- property_name - GValue -> -- value - m () -containerChildGetProperty _obj child property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - gtk_container_child_get_property _obj' child' property_name' value' - touchManagedPtr _obj - touchManagedPtr child - touchManagedPtr value - freeMem property_name' - return () - --- method Container::child_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- child_property - m () -containerChildNotify _obj child child_property = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - child_property' <- textToCString child_property - gtk_container_child_notify _obj' child' child_property' - touchManagedPtr _obj - touchManagedPtr child - freeMem child_property' - return () - --- method Container::child_set_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 -> -- property_name - GValue -> -- value - m () -containerChildSetProperty _obj child property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - gtk_container_child_set_property _obj' child' property_name' value' - touchManagedPtr _obj - touchManagedPtr child - touchManagedPtr value - freeMem property_name' - return () - --- method Container::child_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -containerChildType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_child_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - --- method Container::forall --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -containerForall :: - (MonadIO m, ContainerK a) => - a -> -- _obj - Callback -> -- callback - m () -containerForall _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkCallback (callbackWrapper Nothing callback) - let callback_data = nullPtr - gtk_container_forall _obj' callback' callback_data - safeFreeFunPtr $ castFunPtrToPtr callback' - touchManagedPtr _obj - return () - --- method Container::foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -containerForeach :: - (MonadIO m, ContainerK a) => - a -> -- _obj - Callback -> -- callback - m () -containerForeach _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkCallback (callbackWrapper Nothing callback) - let callback_data = nullPtr - gtk_container_foreach _obj' callback' callback_data - safeFreeFunPtr $ castFunPtrToPtr callback' - touchManagedPtr _obj - return () - --- method Container::get_border_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -containerGetBorderWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_border_width _obj' - touchManagedPtr _obj - return result - --- method Container::get_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -containerGetChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_children _obj' - checkUnexpectedReturnNULL "gtk_container_get_children" result - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Container::get_focus_chain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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]) -containerGetFocusChain _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - focusable_widgets <- allocMem :: IO (Ptr (Ptr (GList (Ptr Widget)))) - result <- gtk_container_get_focus_chain _obj' focusable_widgets - let result' = (/= 0) result - focusable_widgets' <- peek focusable_widgets - focusable_widgets'' <- unpackGList focusable_widgets' - focusable_widgets''' <- mapM (newObject Widget) focusable_widgets'' - g_list_free focusable_widgets' - touchManagedPtr _obj - freeMem focusable_widgets - return (result', focusable_widgets''') - --- method Container::get_focus_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Container::get_focus_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Container::get_focus_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Container::get_path_for_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method Container::get_resize_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -containerGetResizeMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_get_resize_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Container::propagate_draw --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Container::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -containerRemove _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_container_remove _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return () - --- method Container::resize_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -containerResizeChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_resize_children _obj' - touchManagedPtr _obj - return () - --- method Container::set_border_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border_width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -containerSetBorderWidth :: - (MonadIO m, ContainerK a) => - a -> -- _obj - Word32 -> -- border_width - m () -containerSetBorderWidth _obj border_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_set_border_width _obj' border_width - touchManagedPtr _obj - return () - --- method Container::set_focus_chain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focusable_widgets", argType = TGList (TInterface "Gtk" "Widget"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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] -> -- focusable_widgets - m () -containerSetFocusChain _obj focusable_widgets = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focusable_widgets' = map unsafeManagedPtrCastPtr focusable_widgets - focusable_widgets'' <- packGList focusable_widgets' - gtk_container_set_focus_chain _obj' focusable_widgets'' - touchManagedPtr _obj - mapM_ touchManagedPtr focusable_widgets - g_list_free focusable_widgets'' - return () - --- method Container::set_focus_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Container::set_focus_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Container::set_focus_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Container::set_reallocate_redraws --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needs_redraws", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- needs_redraws - m () -containerSetReallocateRedraws _obj needs_redraws = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let needs_redraws' = (fromIntegral . fromEnum) needs_redraws - gtk_container_set_reallocate_redraws _obj' needs_redraws' - touchManagedPtr _obj - return () - --- method Container::set_resize_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_mode", argType = TInterface "Gtk" "ResizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- resize_mode - m () -containerSetResizeMode _obj resize_mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let resize_mode' = (fromIntegral . fromEnum) resize_mode - gtk_container_set_resize_mode _obj' resize_mode' - touchManagedPtr _obj - return () - --- method Container::unset_focus_chain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Container", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -containerUnsetFocusChain _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_container_unset_focus_chain _obj' - touchManagedPtr _obj - return () - - 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,20 +0,0 @@ -module GI.Gtk.Objects.Container where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ContainerAccessible = ContainerAccessibleAttributeList -type ContainerAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ContainerAccessible = ContainerAccessibleSignalList -type ContainerAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,183 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - containerCellAccessibleAddChild , - - --- ** containerCellAccessibleGetChildren - containerCellAccessibleGetChildren , - - --- ** containerCellAccessibleNew - containerCellAccessibleNew , - - --- ** containerCellAccessibleRemoveChild - containerCellAccessibleRemoveChild , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ContainerCellAccessible = ContainerCellAccessibleAttributeList -type ContainerCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ContainerCellAccessible = ContainerCellAccessibleSignalList -type ContainerCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ContainerCellAccessible::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ContainerCellAccessible::get_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -containerCellAccessibleGetChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_container_cell_accessible_get_children _obj' - checkUnexpectedReturnNULL "gtk_container_cell_accessible_get_children" result - result' <- unpackGList result - result'' <- mapM (newObject CellAccessible) result' - touchManagedPtr _obj - return result'' - --- method ContainerCellAccessible::remove_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ContainerCellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "CellAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.ContainerCellAccessible where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ContainerCellAccessible = ContainerCellAccessible (ForeignPtr ContainerCellAccessible) -instance GObject ContainerCellAccessible where -class GObject o => ContainerCellAccessibleK o -instance (GObject o, IsDescendantOf ContainerCellAccessible o) => ContainerCellAccessibleK o 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,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.Objects.CssProvider - ( - --- * Exported types - CssProvider(..) , - CssProviderK , - toCssProvider , - noCssProvider , - - - -- * Methods --- ** cssProviderGetDefault - cssProviderGetDefault , - - --- ** cssProviderGetNamed - cssProviderGetNamed , - - --- ** cssProviderLoadFromData - cssProviderLoadFromData , - - --- ** cssProviderLoadFromFile - cssProviderLoadFromFile , - - --- ** cssProviderLoadFromPath - cssProviderLoadFromPath , - - --- ** cssProviderLoadFromResource - cssProviderLoadFromResource , - - --- ** cssProviderNew - cssProviderNew , - - --- ** cssProviderToString - cssProviderToString , - - - - - -- * Signals --- ** ParsingError - CssProviderParsingErrorCallback , - CssProviderParsingErrorCallbackC , - CssProviderParsingErrorSignalInfo , - afterCssProviderParsingError , - cssProviderParsingErrorCallbackWrapper , - cssProviderParsingErrorClosure , - mkCssProviderParsingErrorCallback , - noCssProviderParsingErrorCallback , - onCssProviderParsingError , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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), '("parsing-error", CssProviderParsingErrorSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CssProvider::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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_' - ) - --- method CssProvider::load_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 () - ) - --- method CssProvider::load_from_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method CssProvider::load_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- resource_path - m () -cssProviderLoadFromResource _obj resource_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resource_path' <- textToCString resource_path - gtk_css_provider_load_from_resource _obj' resource_path' - touchManagedPtr _obj - freeMem resource_path' - return () - --- method CssProvider::to_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CssProvider::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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,14 +0,0 @@ -module GI.Gtk.Objects.CssProvider where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype CssProvider = CssProvider (ForeignPtr CssProvider) -instance GObject CssProvider where -class GObject o => CssProviderK o -instance (GObject o, IsDescendantOf CssProvider o) => CssProviderK o -data CssProviderParsingErrorSignalInfo 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,613 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - dialogAddActionWidget , - - --- ** dialogAddButton - dialogAddButton , - - --- ** dialogGetActionArea - dialogGetActionArea , - - --- ** dialogGetContentArea - dialogGetContentArea , - - --- ** dialogGetHeaderBar - dialogGetHeaderBar , - - --- ** dialogGetResponseForWidget - dialogGetResponseForWidget , - - --- ** dialogGetWidgetForResponse - dialogGetWidgetForResponse , - - --- ** dialogNew - dialogNew , - - --- ** dialogResponse - dialogResponse , - - --- ** dialogRun - dialogRun , - - --- ** dialogSetAlternativeButtonOrderFromArray - dialogSetAlternativeButtonOrderFromArray, - - --- ** dialogSetDefaultResponse - dialogSetDefaultResponse , - - --- ** dialogSetResponseSensitive - dialogSetResponseSensitive , - - - - - -- * Properties --- ** UseHeaderBar - DialogUseHeaderBarPropertyInfo , - constructDialogUseHeaderBar , - getDialogUseHeaderBar , - - - - - -- * Signals --- ** Close - DialogCloseCallback , - DialogCloseCallbackC , - DialogCloseSignalInfo , - afterDialogClose , - dialogCloseCallbackWrapper , - dialogCloseClosure , - mkDialogCloseCallback , - noDialogCloseCallback , - onDialogClose , - - --- ** Response - DialogResponseCallback , - DialogResponseCallbackC , - DialogResponseSignalInfo , - afterDialogResponse , - dialogResponseCallbackWrapper , - dialogResponseClosure , - mkDialogResponseCallback , - noDialogResponseCallback , - onDialogResponse , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ response_id _ = do - _cb response_id - -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 TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getDialogUseHeaderBar :: (MonadIO m, DialogK o) => o -> m Int32 -getDialogUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar" - -constructDialogUseHeaderBar :: Int32 -> IO ([Char], GValue) -constructDialogUseHeaderBar val = constructObjectPropertyCInt "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 = "Dialog::use-header-bar" - attrGet _ = getDialogUseHeaderBar - attrSet _ = undefined - attrConstruct _ = constructDialogUseHeaderBar - -type instance AttributeList Dialog = DialogAttributeList -type DialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Dialog::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -dialogAddActionWidget :: - (MonadIO m, DialogK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- response_id - m () -dialogAddActionWidget _obj child response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_dialog_add_action_widget _obj' child' response_id - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Dialog::add_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Widget) - - -dialogAddButton :: - (MonadIO m, DialogK a) => - a -> -- _obj - T.Text -> -- button_text - Int32 -> -- response_id - m Widget -dialogAddButton _obj button_text response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - button_text' <- textToCString button_text - result <- gtk_dialog_add_button _obj' button_text' response_id - checkUnexpectedReturnNULL "gtk_dialog_add_button" result - result' <- (newObject Widget) result - touchManagedPtr _obj - freeMem button_text' - return result' - --- method Dialog::get_action_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Dialog::get_content_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Dialog::get_header_bar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Dialog::get_response_for_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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 - --- method Dialog::get_widget_for_response --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Widget) - - -dialogGetWidgetForResponse :: - (MonadIO m, DialogK a) => - a -> -- _obj - Int32 -> -- response_id - m Widget -dialogGetWidgetForResponse _obj response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_dialog_get_widget_for_response _obj' response_id - checkUnexpectedReturnNULL "gtk_dialog_get_widget_for_response" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Dialog::response --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_dialog_response" gtk_dialog_response :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt32 - IO () - - -dialogResponse :: - (MonadIO m, DialogK a) => - a -> -- _obj - Int32 -> -- response_id - m () -dialogResponse _obj response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_dialog_response _obj' response_id - touchManagedPtr _obj - return () - --- method Dialog::run --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -dialogRun _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_dialog_run _obj' - touchManagedPtr _obj - return result - --- method Dialog::set_alternative_button_order_from_array --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Ptr Int32 -> -- new_order : TCArray False (-1) 1 (TBasicType TInt32) - IO () - -{-# DEPRECATED dialogSetAlternativeButtonOrderFromArray ["(Since version 3.10)","Deprecated"]#-} -dialogSetAlternativeButtonOrderFromArray :: - (MonadIO m, DialogK a) => - a -> -- _obj - [Int32] -> -- new_order - m () -dialogSetAlternativeButtonOrderFromArray _obj new_order = liftIO $ do - let n_params = fromIntegral $ length new_order - let _obj' = unsafeManagedPtrCastPtr _obj - new_order' <- packStorableArray new_order - gtk_dialog_set_alternative_button_order_from_array _obj' n_params new_order' - touchManagedPtr _obj - freeMem new_order' - return () - --- method Dialog::set_default_response --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_dialog_set_default_response" gtk_dialog_set_default_response :: - Ptr Dialog -> -- _obj : TInterface "Gtk" "Dialog" - Int32 -> -- response_id : TBasicType TInt32 - IO () - - -dialogSetDefaultResponse :: - (MonadIO m, DialogK a) => - a -> -- _obj - Int32 -> -- response_id - m () -dialogSetDefaultResponse _obj response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_dialog_set_default_response _obj' response_id - touchManagedPtr _obj - return () - --- method Dialog::set_response_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CInt -> -- setting : TBasicType TBoolean - IO () - - -dialogSetResponseSensitive :: - (MonadIO m, DialogK a) => - a -> -- _obj - Int32 -> -- response_id - Bool -> -- setting - m () -dialogSetResponseSensitive _obj response_id setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_dialog_set_response_sensitive _obj' response_id setting' - touchManagedPtr _obj - return () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.Dialog where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList DrawingArea = DrawingAreaAttributeList -type DrawingAreaAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList DrawingArea = DrawingAreaSignalList -type DrawingAreaSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DrawingArea::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,4699 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - entryGetActivatesDefault , - - --- ** entryGetAlignment - entryGetAlignment , - - --- ** entryGetAttributes - entryGetAttributes , - - --- ** entryGetBuffer - entryGetBuffer , - - --- ** entryGetCompletion - entryGetCompletion , - - --- ** entryGetCurrentIconDragSource - entryGetCurrentIconDragSource , - - --- ** entryGetCursorHadjustment - entryGetCursorHadjustment , - - --- ** entryGetHasFrame - entryGetHasFrame , - - --- ** entryGetIconActivatable - entryGetIconActivatable , - - --- ** entryGetIconArea - entryGetIconArea , - - --- ** entryGetIconAtPos - entryGetIconAtPos , - - --- ** entryGetIconGicon - entryGetIconGicon , - - --- ** entryGetIconName - entryGetIconName , - - --- ** entryGetIconPixbuf - entryGetIconPixbuf , - - --- ** entryGetIconSensitive - entryGetIconSensitive , - - --- ** entryGetIconStock - entryGetIconStock , - - --- ** entryGetIconStorageType - entryGetIconStorageType , - - --- ** entryGetIconTooltipMarkup - entryGetIconTooltipMarkup , - - --- ** entryGetIconTooltipText - entryGetIconTooltipText , - - --- ** entryGetInnerBorder - entryGetInnerBorder , - - --- ** entryGetInputHints - entryGetInputHints , - - --- ** entryGetInputPurpose - entryGetInputPurpose , - - --- ** entryGetInvisibleChar - entryGetInvisibleChar , - - --- ** entryGetLayout - entryGetLayout , - - --- ** entryGetLayoutOffsets - entryGetLayoutOffsets , - - --- ** entryGetMaxLength - entryGetMaxLength , - - --- ** entryGetMaxWidthChars - entryGetMaxWidthChars , - - --- ** entryGetOverwriteMode - entryGetOverwriteMode , - - --- ** entryGetPlaceholderText - entryGetPlaceholderText , - - --- ** entryGetProgressFraction - entryGetProgressFraction , - - --- ** entryGetProgressPulseStep - entryGetProgressPulseStep , - - --- ** entryGetTabs - entryGetTabs , - - --- ** entryGetText - entryGetText , - - --- ** entryGetTextArea - entryGetTextArea , - - --- ** entryGetTextLength - entryGetTextLength , - - --- ** entryGetVisibility - entryGetVisibility , - - --- ** entryGetWidthChars - entryGetWidthChars , - - --- ** entryGrabFocusWithoutSelecting - entryGrabFocusWithoutSelecting , - - --- ** entryImContextFilterKeypress - entryImContextFilterKeypress , - - --- ** entryLayoutIndexToTextIndex - entryLayoutIndexToTextIndex , - - --- ** entryNew - entryNew , - - --- ** entryNewWithBuffer - entryNewWithBuffer , - - --- ** entryProgressPulse - entryProgressPulse , - - --- ** entryResetImContext - entryResetImContext , - - --- ** entrySetActivatesDefault - entrySetActivatesDefault , - - --- ** entrySetAlignment - entrySetAlignment , - - --- ** entrySetAttributes - entrySetAttributes , - - --- ** entrySetBuffer - entrySetBuffer , - - --- ** entrySetCompletion - entrySetCompletion , - - --- ** entrySetCursorHadjustment - entrySetCursorHadjustment , - - --- ** entrySetHasFrame - entrySetHasFrame , - - --- ** entrySetIconActivatable - entrySetIconActivatable , - - --- ** entrySetIconDragSource - entrySetIconDragSource , - - --- ** entrySetIconFromGicon - entrySetIconFromGicon , - - --- ** entrySetIconFromIconName - entrySetIconFromIconName , - - --- ** entrySetIconFromPixbuf - entrySetIconFromPixbuf , - - --- ** entrySetIconFromStock - entrySetIconFromStock , - - --- ** entrySetIconSensitive - entrySetIconSensitive , - - --- ** entrySetIconTooltipMarkup - entrySetIconTooltipMarkup , - - --- ** entrySetIconTooltipText - entrySetIconTooltipText , - - --- ** entrySetInnerBorder - entrySetInnerBorder , - - --- ** entrySetInputHints - entrySetInputHints , - - --- ** entrySetInputPurpose - entrySetInputPurpose , - - --- ** entrySetInvisibleChar - entrySetInvisibleChar , - - --- ** entrySetMaxLength - entrySetMaxLength , - - --- ** entrySetMaxWidthChars - entrySetMaxWidthChars , - - --- ** entrySetOverwriteMode - entrySetOverwriteMode , - - --- ** entrySetPlaceholderText - entrySetPlaceholderText , - - --- ** entrySetProgressFraction - entrySetProgressFraction , - - --- ** entrySetProgressPulseStep - entrySetProgressPulseStep , - - --- ** entrySetTabs - entrySetTabs , - - --- ** entrySetText - entrySetText , - - --- ** entrySetVisibility - entrySetVisibility , - - --- ** entrySetWidthChars - entrySetWidthChars , - - --- ** entryTextIndexToLayoutIndex - entryTextIndexToLayoutIndex , - - --- ** entryUnsetInvisibleChar - entryUnsetInvisibleChar , - - - - - -- * Properties --- ** ActivatesDefault - EntryActivatesDefaultPropertyInfo , - constructEntryActivatesDefault , - getEntryActivatesDefault , - setEntryActivatesDefault , - - --- ** Attributes - EntryAttributesPropertyInfo , - constructEntryAttributes , - getEntryAttributes , - setEntryAttributes , - - --- ** Buffer - EntryBufferPropertyInfo , - constructEntryBuffer , - getEntryBuffer , - setEntryBuffer , - - --- ** CapsLockWarning - EntryCapsLockWarningPropertyInfo , - constructEntryCapsLockWarning , - getEntryCapsLockWarning , - setEntryCapsLockWarning , - - --- ** Completion - EntryCompletionPropertyInfo , - constructEntryCompletion , - getEntryCompletion , - setEntryCompletion , - - --- ** CursorPosition - EntryCursorPositionPropertyInfo , - getEntryCursorPosition , - - --- ** Editable - EntryEditablePropertyInfo , - constructEntryEditable , - getEntryEditable , - setEntryEditable , - - --- ** HasFrame - EntryHasFramePropertyInfo , - constructEntryHasFrame , - getEntryHasFrame , - setEntryHasFrame , - - --- ** ImModule - EntryImModulePropertyInfo , - constructEntryImModule , - getEntryImModule , - setEntryImModule , - - --- ** InnerBorder - EntryInnerBorderPropertyInfo , - constructEntryInnerBorder , - getEntryInnerBorder , - setEntryInnerBorder , - - --- ** InputHints - EntryInputHintsPropertyInfo , - constructEntryInputHints , - getEntryInputHints , - setEntryInputHints , - - --- ** InputPurpose - EntryInputPurposePropertyInfo , - constructEntryInputPurpose , - getEntryInputPurpose , - setEntryInputPurpose , - - --- ** InvisibleChar - EntryInvisibleCharPropertyInfo , - constructEntryInvisibleChar , - getEntryInvisibleChar , - setEntryInvisibleChar , - - --- ** InvisibleCharSet - EntryInvisibleCharSetPropertyInfo , - constructEntryInvisibleCharSet , - getEntryInvisibleCharSet , - setEntryInvisibleCharSet , - - --- ** MaxLength - EntryMaxLengthPropertyInfo , - constructEntryMaxLength , - getEntryMaxLength , - setEntryMaxLength , - - --- ** MaxWidthChars - EntryMaxWidthCharsPropertyInfo , - constructEntryMaxWidthChars , - getEntryMaxWidthChars , - setEntryMaxWidthChars , - - --- ** OverwriteMode - EntryOverwriteModePropertyInfo , - constructEntryOverwriteMode , - getEntryOverwriteMode , - setEntryOverwriteMode , - - --- ** PlaceholderText - EntryPlaceholderTextPropertyInfo , - constructEntryPlaceholderText , - getEntryPlaceholderText , - setEntryPlaceholderText , - - --- ** PopulateAll - EntryPopulateAllPropertyInfo , - constructEntryPopulateAll , - getEntryPopulateAll , - setEntryPopulateAll , - - --- ** PrimaryIconActivatable - EntryPrimaryIconActivatablePropertyInfo , - constructEntryPrimaryIconActivatable , - getEntryPrimaryIconActivatable , - setEntryPrimaryIconActivatable , - - --- ** PrimaryIconGicon - EntryPrimaryIconGiconPropertyInfo , - constructEntryPrimaryIconGicon , - getEntryPrimaryIconGicon , - setEntryPrimaryIconGicon , - - --- ** PrimaryIconName - EntryPrimaryIconNamePropertyInfo , - constructEntryPrimaryIconName , - getEntryPrimaryIconName , - setEntryPrimaryIconName , - - --- ** PrimaryIconPixbuf - EntryPrimaryIconPixbufPropertyInfo , - constructEntryPrimaryIconPixbuf , - getEntryPrimaryIconPixbuf , - setEntryPrimaryIconPixbuf , - - --- ** PrimaryIconSensitive - EntryPrimaryIconSensitivePropertyInfo , - constructEntryPrimaryIconSensitive , - getEntryPrimaryIconSensitive , - setEntryPrimaryIconSensitive , - - --- ** PrimaryIconStock - EntryPrimaryIconStockPropertyInfo , - constructEntryPrimaryIconStock , - getEntryPrimaryIconStock , - setEntryPrimaryIconStock , - - --- ** PrimaryIconStorageType - EntryPrimaryIconStorageTypePropertyInfo , - getEntryPrimaryIconStorageType , - - --- ** PrimaryIconTooltipMarkup - EntryPrimaryIconTooltipMarkupPropertyInfo, - constructEntryPrimaryIconTooltipMarkup , - getEntryPrimaryIconTooltipMarkup , - setEntryPrimaryIconTooltipMarkup , - - --- ** PrimaryIconTooltipText - EntryPrimaryIconTooltipTextPropertyInfo , - constructEntryPrimaryIconTooltipText , - getEntryPrimaryIconTooltipText , - setEntryPrimaryIconTooltipText , - - --- ** ProgressFraction - EntryProgressFractionPropertyInfo , - constructEntryProgressFraction , - getEntryProgressFraction , - setEntryProgressFraction , - - --- ** ProgressPulseStep - EntryProgressPulseStepPropertyInfo , - constructEntryProgressPulseStep , - getEntryProgressPulseStep , - setEntryProgressPulseStep , - - --- ** ScrollOffset - EntryScrollOffsetPropertyInfo , - getEntryScrollOffset , - - --- ** SecondaryIconActivatable - EntrySecondaryIconActivatablePropertyInfo, - constructEntrySecondaryIconActivatable , - getEntrySecondaryIconActivatable , - setEntrySecondaryIconActivatable , - - --- ** SecondaryIconGicon - EntrySecondaryIconGiconPropertyInfo , - constructEntrySecondaryIconGicon , - getEntrySecondaryIconGicon , - setEntrySecondaryIconGicon , - - --- ** SecondaryIconName - EntrySecondaryIconNamePropertyInfo , - constructEntrySecondaryIconName , - getEntrySecondaryIconName , - setEntrySecondaryIconName , - - --- ** SecondaryIconPixbuf - EntrySecondaryIconPixbufPropertyInfo , - constructEntrySecondaryIconPixbuf , - getEntrySecondaryIconPixbuf , - setEntrySecondaryIconPixbuf , - - --- ** SecondaryIconSensitive - EntrySecondaryIconSensitivePropertyInfo , - constructEntrySecondaryIconSensitive , - getEntrySecondaryIconSensitive , - setEntrySecondaryIconSensitive , - - --- ** SecondaryIconStock - EntrySecondaryIconStockPropertyInfo , - constructEntrySecondaryIconStock , - getEntrySecondaryIconStock , - setEntrySecondaryIconStock , - - --- ** SecondaryIconStorageType - EntrySecondaryIconStorageTypePropertyInfo, - getEntrySecondaryIconStorageType , - - --- ** SecondaryIconTooltipMarkup - EntrySecondaryIconTooltipMarkupPropertyInfo, - constructEntrySecondaryIconTooltipMarkup, - getEntrySecondaryIconTooltipMarkup , - setEntrySecondaryIconTooltipMarkup , - - --- ** SecondaryIconTooltipText - EntrySecondaryIconTooltipTextPropertyInfo, - constructEntrySecondaryIconTooltipText , - getEntrySecondaryIconTooltipText , - setEntrySecondaryIconTooltipText , - - --- ** SelectionBound - EntrySelectionBoundPropertyInfo , - getEntrySelectionBound , - - --- ** ShadowType - EntryShadowTypePropertyInfo , - constructEntryShadowType , - getEntryShadowType , - setEntryShadowType , - - --- ** Tabs - EntryTabsPropertyInfo , - constructEntryTabs , - getEntryTabs , - setEntryTabs , - - --- ** Text - EntryTextPropertyInfo , - constructEntryText , - getEntryText , - setEntryText , - - --- ** TextLength - EntryTextLengthPropertyInfo , - getEntryTextLength , - - --- ** TruncateMultiline - EntryTruncateMultilinePropertyInfo , - constructEntryTruncateMultiline , - getEntryTruncateMultiline , - setEntryTruncateMultiline , - - --- ** Visibility - EntryVisibilityPropertyInfo , - constructEntryVisibility , - getEntryVisibility , - setEntryVisibility , - - --- ** WidthChars - EntryWidthCharsPropertyInfo , - constructEntryWidthChars , - getEntryWidthChars , - setEntryWidthChars , - - --- ** Xalign - EntryXalignPropertyInfo , - constructEntryXalign , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 -import qualified GI.Cairo as Cairo - -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 - --- 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 _ icon_pos event _ = do - let icon_pos' = (toEnum . fromIntegral) icon_pos - event' <- (newPtr 80 Gdk.EventButton) event - _cb icon_pos' 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 _ icon_pos event _ = do - let icon_pos' = (toEnum . fromIntegral) icon_pos - event' <- (newPtr 80 Gdk.EventButton) event - _cb icon_pos' 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 extend_selection _ = do - let step' = (toEnum . fromIntegral) step - let extend_selection' = (/= 0) extend_selection - _cb step' count extend_selection' - -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] - -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 = "Entry::activates-default" - attrGet _ = getEntryActivatesDefault - attrSet _ = setEntryActivatesDefault - attrConstruct _ = constructEntryActivatesDefault - --- VVV Prop "attributes" - -- Type: TInterface "Pango" "AttrList" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryAttributes :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructEntryAttributes val = constructObjectPropertyBoxed "attributes" 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 = Pango.AttrList - type AttrLabel EntryAttributesPropertyInfo = "Entry::attributes" - attrGet _ = getEntryAttributes - attrSet _ = setEntryAttributes - attrConstruct _ = constructEntryAttributes - --- VVV Prop "buffer" - -- Type: TInterface "Gtk" "EntryBuffer" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getEntryBuffer :: (MonadIO m, EntryK o) => o -> m EntryBuffer -getEntryBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" EntryBuffer - -setEntryBuffer :: (MonadIO m, EntryK o, EntryBufferK a) => o -> a -> m () -setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val - -constructEntryBuffer :: (EntryBufferK a) => a -> IO ([Char], GValue) -constructEntryBuffer val = constructObjectPropertyObject "buffer" 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 = "Entry::buffer" - attrGet _ = getEntryBuffer - attrSet _ = setEntryBuffer - attrConstruct _ = constructEntryBuffer - --- VVV Prop "caps-lock-warning" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::caps-lock-warning" - attrGet _ = getEntryCapsLockWarning - attrSet _ = setEntryCapsLockWarning - attrConstruct _ = constructEntryCapsLockWarning - --- VVV Prop "completion" - -- Type: TInterface "Gtk" "EntryCompletion" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryCompletion :: (MonadIO m, EntryK o) => o -> m EntryCompletion -getEntryCompletion obj = liftIO $ getObjectPropertyObject obj "completion" EntryCompletion - -setEntryCompletion :: (MonadIO m, EntryK o, EntryCompletionK a) => o -> a -> m () -setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" val - -constructEntryCompletion :: (EntryCompletionK a) => a -> IO ([Char], GValue) -constructEntryCompletion val = constructObjectPropertyObject "completion" val - -data EntryCompletionPropertyInfo -instance AttrInfo EntryCompletionPropertyInfo where - type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionPropertyInfo = EntryCompletionK - type AttrBaseTypeConstraint EntryCompletionPropertyInfo = EntryK - type AttrGetType EntryCompletionPropertyInfo = EntryCompletion - type AttrLabel EntryCompletionPropertyInfo = "Entry::completion" - attrGet _ = getEntryCompletion - attrSet _ = setEntryCompletion - attrConstruct _ = constructEntryCompletion - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getEntryCursorPosition :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryCursorPosition obj = liftIO $ getObjectPropertyCInt 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 = "Entry::cursor-position" - attrGet _ = getEntryCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::editable" - attrGet _ = getEntryEditable - attrSet _ = setEntryEditable - attrConstruct _ = constructEntryEditable - --- VVV Prop "has-frame" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::has-frame" - attrGet _ = getEntryHasFrame - attrSet _ = setEntryHasFrame - attrConstruct _ = constructEntryHasFrame - --- VVV Prop "im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryImModule :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryImModule :: T.Text -> IO ([Char], GValue) -constructEntryImModule val = constructObjectPropertyString "im-module" val - -data EntryImModulePropertyInfo -instance AttrInfo EntryImModulePropertyInfo where - type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryImModulePropertyInfo = EntryK - type AttrGetType EntryImModulePropertyInfo = T.Text - type AttrLabel EntryImModulePropertyInfo = "Entry::im-module" - attrGet _ = getEntryImModule - attrSet _ = setEntryImModule - attrConstruct _ = constructEntryImModule - --- VVV Prop "inner-border" - -- Type: TInterface "Gtk" "Border" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryInnerBorder :: Border -> IO ([Char], GValue) -constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" val - -data EntryInnerBorderPropertyInfo -instance AttrInfo EntryInnerBorderPropertyInfo where - type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Border - type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = EntryK - type AttrGetType EntryInnerBorderPropertyInfo = Border - type AttrLabel EntryInnerBorderPropertyInfo = "Entry::inner-border" - attrGet _ = getEntryInnerBorder - attrSet _ = setEntryInnerBorder - attrConstruct _ = constructEntryInnerBorder - --- VVV Prop "input-hints" - -- Type: TInterface "Gtk" "InputHints" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::input-hints" - attrGet _ = getEntryInputHints - attrSet _ = setEntryInputHints - attrConstruct _ = constructEntryInputHints - --- VVV Prop "input-purpose" - -- Type: TInterface "Gtk" "InputPurpose" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::input-purpose" - attrGet _ = getEntryInputPurpose - attrSet _ = setEntryInputPurpose - attrConstruct _ = constructEntryInputPurpose - --- VVV Prop "invisible-char" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> m Word32 -getEntryInvisibleChar obj = liftIO $ getObjectPropertyCUInt obj "invisible-char" - -setEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> Word32 -> m () -setEntryInvisibleChar obj val = liftIO $ setObjectPropertyCUInt obj "invisible-char" val - -constructEntryInvisibleChar :: Word32 -> IO ([Char], GValue) -constructEntryInvisibleChar val = constructObjectPropertyCUInt "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 = "Entry::invisible-char" - attrGet _ = getEntryInvisibleChar - attrSet _ = setEntryInvisibleChar - attrConstruct _ = constructEntryInvisibleChar - --- VVV Prop "invisible-char-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::invisible-char-set" - attrGet _ = getEntryInvisibleCharSet - attrSet _ = setEntryInvisibleCharSet - attrConstruct _ = constructEntryInvisibleCharSet - --- VVV Prop "max-length" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryMaxLength :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length" - -setEntryMaxLength :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val - -constructEntryMaxLength :: Int32 -> IO ([Char], GValue) -constructEntryMaxLength val = constructObjectPropertyCInt "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 = "Entry::max-length" - attrGet _ = getEntryMaxLength - attrSet _ = setEntryMaxLength - attrConstruct _ = constructEntryMaxLength - --- VVV Prop "max-width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" - -setEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val - -constructEntryMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructEntryMaxWidthChars val = constructObjectPropertyCInt "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 = "Entry::max-width-chars" - attrGet _ = getEntryMaxWidthChars - attrSet _ = setEntryMaxWidthChars - attrConstruct _ = constructEntryMaxWidthChars - --- VVV Prop "overwrite-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::overwrite-mode" - attrGet _ = getEntryOverwriteMode - attrSet _ = setEntryOverwriteMode - attrConstruct _ = constructEntryOverwriteMode - --- VVV Prop "placeholder-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text" - -setEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val - -constructEntryPlaceholderText :: T.Text -> IO ([Char], GValue) -constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" val - -data EntryPlaceholderTextPropertyInfo -instance AttrInfo EntryPlaceholderTextPropertyInfo where - type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPlaceholderTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPlaceholderTextPropertyInfo = EntryK - type AttrGetType EntryPlaceholderTextPropertyInfo = T.Text - type AttrLabel EntryPlaceholderTextPropertyInfo = "Entry::placeholder-text" - attrGet _ = getEntryPlaceholderText - attrSet _ = setEntryPlaceholderText - attrConstruct _ = constructEntryPlaceholderText - --- VVV Prop "populate-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::populate-all" - attrGet _ = getEntryPopulateAll - attrSet _ = setEntryPopulateAll - attrConstruct _ = constructEntryPopulateAll - --- VVV Prop "primary-icon-activatable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::primary-icon-activatable" - attrGet _ = getEntryPrimaryIconActivatable - attrSet _ = setEntryPrimaryIconActivatable - attrConstruct _ = constructEntryPrimaryIconActivatable - --- VVV Prop "primary-icon-gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryPrimaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" val - -data EntryPrimaryIconGiconPropertyInfo -instance AttrInfo EntryPrimaryIconGiconPropertyInfo where - type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint EntryPrimaryIconGiconPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconGiconPropertyInfo = Gio.Icon - type AttrLabel EntryPrimaryIconGiconPropertyInfo = "Entry::primary-icon-gicon" - attrGet _ = getEntryPrimaryIconGicon - attrSet _ = setEntryPrimaryIconGicon - attrConstruct _ = constructEntryPrimaryIconGicon - --- VVV Prop "primary-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryPrimaryIconName :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" val - -data EntryPrimaryIconNamePropertyInfo -instance AttrInfo EntryPrimaryIconNamePropertyInfo where - type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconNamePropertyInfo = EntryK - type AttrGetType EntryPrimaryIconNamePropertyInfo = T.Text - type AttrLabel EntryPrimaryIconNamePropertyInfo = "Entry::primary-icon-name" - attrGet _ = getEntryPrimaryIconName - attrSet _ = setEntryPrimaryIconName - attrConstruct _ = constructEntryPrimaryIconName - --- VVV Prop "primary-icon-pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryPrimaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" val - -data EntryPrimaryIconPixbufPropertyInfo -instance AttrInfo EntryPrimaryIconPixbufPropertyInfo where - type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint EntryPrimaryIconPixbufPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel EntryPrimaryIconPixbufPropertyInfo = "Entry::primary-icon-pixbuf" - attrGet _ = getEntryPrimaryIconPixbuf - attrSet _ = setEntryPrimaryIconPixbuf - attrConstruct _ = constructEntryPrimaryIconPixbuf - --- VVV Prop "primary-icon-sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::primary-icon-sensitive" - attrGet _ = getEntryPrimaryIconSensitive - attrSet _ = setEntryPrimaryIconSensitive - attrConstruct _ = constructEntryPrimaryIconSensitive - --- VVV Prop "primary-icon-stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryPrimaryIconStock :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" val - -data EntryPrimaryIconStockPropertyInfo -instance AttrInfo EntryPrimaryIconStockPropertyInfo where - type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconStockPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconStockPropertyInfo = T.Text - type AttrLabel EntryPrimaryIconStockPropertyInfo = "Entry::primary-icon-stock" - attrGet _ = getEntryPrimaryIconStock - attrSet _ = setEntryPrimaryIconStock - attrConstruct _ = constructEntryPrimaryIconStock - --- VVV Prop "primary-icon-storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -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 = "Entry::primary-icon-storage-type" - attrGet _ = getEntryPrimaryIconStorageType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "primary-icon-tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryPrimaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" val - -data EntryPrimaryIconTooltipMarkupPropertyInfo -instance AttrInfo EntryPrimaryIconTooltipMarkupPropertyInfo where - type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = T.Text - type AttrLabel EntryPrimaryIconTooltipMarkupPropertyInfo = "Entry::primary-icon-tooltip-markup" - attrGet _ = getEntryPrimaryIconTooltipMarkup - attrSet _ = setEntryPrimaryIconTooltipMarkup - attrConstruct _ = constructEntryPrimaryIconTooltipMarkup - --- VVV Prop "primary-icon-tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryPrimaryIconTooltipText :: T.Text -> IO ([Char], GValue) -constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" val - -data EntryPrimaryIconTooltipTextPropertyInfo -instance AttrInfo EntryPrimaryIconTooltipTextPropertyInfo where - type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = EntryK - type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = T.Text - type AttrLabel EntryPrimaryIconTooltipTextPropertyInfo = "Entry::primary-icon-tooltip-text" - attrGet _ = getEntryPrimaryIconTooltipText - attrSet _ = setEntryPrimaryIconTooltipText - attrConstruct _ = constructEntryPrimaryIconTooltipText - --- VVV Prop "progress-fraction" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::progress-fraction" - attrGet _ = getEntryProgressFraction - attrSet _ = setEntryProgressFraction - attrConstruct _ = constructEntryProgressFraction - --- VVV Prop "progress-pulse-step" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::progress-pulse-step" - attrGet _ = getEntryProgressPulseStep - attrSet _ = setEntryProgressPulseStep - attrConstruct _ = constructEntryProgressPulseStep - --- VVV Prop "scroll-offset" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getEntryScrollOffset :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryScrollOffset obj = liftIO $ getObjectPropertyCInt 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 = "Entry::scroll-offset" - attrGet _ = getEntryScrollOffset - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "secondary-icon-activatable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::secondary-icon-activatable" - attrGet _ = getEntrySecondaryIconActivatable - attrSet _ = setEntrySecondaryIconActivatable - attrConstruct _ = constructEntrySecondaryIconActivatable - --- VVV Prop "secondary-icon-gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntrySecondaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" val - -data EntrySecondaryIconGiconPropertyInfo -instance AttrInfo EntrySecondaryIconGiconPropertyInfo where - type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint EntrySecondaryIconGiconPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconGiconPropertyInfo = Gio.Icon - type AttrLabel EntrySecondaryIconGiconPropertyInfo = "Entry::secondary-icon-gicon" - attrGet _ = getEntrySecondaryIconGicon - attrSet _ = setEntrySecondaryIconGicon - attrConstruct _ = constructEntrySecondaryIconGicon - --- VVV Prop "secondary-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntrySecondaryIconName :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" val - -data EntrySecondaryIconNamePropertyInfo -instance AttrInfo EntrySecondaryIconNamePropertyInfo where - type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconNamePropertyInfo = EntryK - type AttrGetType EntrySecondaryIconNamePropertyInfo = T.Text - type AttrLabel EntrySecondaryIconNamePropertyInfo = "Entry::secondary-icon-name" - attrGet _ = getEntrySecondaryIconName - attrSet _ = setEntrySecondaryIconName - attrConstruct _ = constructEntrySecondaryIconName - --- VVV Prop "secondary-icon-pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntrySecondaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" val - -data EntrySecondaryIconPixbufPropertyInfo -instance AttrInfo EntrySecondaryIconPixbufPropertyInfo where - type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint EntrySecondaryIconPixbufPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel EntrySecondaryIconPixbufPropertyInfo = "Entry::secondary-icon-pixbuf" - attrGet _ = getEntrySecondaryIconPixbuf - attrSet _ = setEntrySecondaryIconPixbuf - attrConstruct _ = constructEntrySecondaryIconPixbuf - --- VVV Prop "secondary-icon-sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::secondary-icon-sensitive" - attrGet _ = getEntrySecondaryIconSensitive - attrSet _ = setEntrySecondaryIconSensitive - attrConstruct _ = constructEntrySecondaryIconSensitive - --- VVV Prop "secondary-icon-stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntrySecondaryIconStock :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" val - -data EntrySecondaryIconStockPropertyInfo -instance AttrInfo EntrySecondaryIconStockPropertyInfo where - type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconStockPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconStockPropertyInfo = T.Text - type AttrLabel EntrySecondaryIconStockPropertyInfo = "Entry::secondary-icon-stock" - attrGet _ = getEntrySecondaryIconStock - attrSet _ = setEntrySecondaryIconStock - attrConstruct _ = constructEntrySecondaryIconStock - --- VVV Prop "secondary-icon-storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -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 = "Entry::secondary-icon-storage-type" - attrGet _ = getEntrySecondaryIconStorageType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "secondary-icon-tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntrySecondaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" val - -data EntrySecondaryIconTooltipMarkupPropertyInfo -instance AttrInfo EntrySecondaryIconTooltipMarkupPropertyInfo where - type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = T.Text - type AttrLabel EntrySecondaryIconTooltipMarkupPropertyInfo = "Entry::secondary-icon-tooltip-markup" - attrGet _ = getEntrySecondaryIconTooltipMarkup - attrSet _ = setEntrySecondaryIconTooltipMarkup - attrConstruct _ = constructEntrySecondaryIconTooltipMarkup - --- VVV Prop "secondary-icon-tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntrySecondaryIconTooltipText :: T.Text -> IO ([Char], GValue) -constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" val - -data EntrySecondaryIconTooltipTextPropertyInfo -instance AttrInfo EntrySecondaryIconTooltipTextPropertyInfo where - type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = EntryK - type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = T.Text - type AttrLabel EntrySecondaryIconTooltipTextPropertyInfo = "Entry::secondary-icon-tooltip-text" - attrGet _ = getEntrySecondaryIconTooltipText - attrSet _ = setEntrySecondaryIconTooltipText - attrConstruct _ = constructEntrySecondaryIconTooltipText - --- VVV Prop "selection-bound" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getEntrySelectionBound :: (MonadIO m, EntryK o) => o -> m Int32 -getEntrySelectionBound obj = liftIO $ getObjectPropertyCInt 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 = "Entry::selection-bound" - attrGet _ = getEntrySelectionBound - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::shadow-type" - attrGet _ = getEntryShadowType - attrSet _ = setEntryShadowType - attrConstruct _ = constructEntryShadowType - --- VVV Prop "tabs" - -- Type: TInterface "Pango" "TabArray" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryTabs :: (MonadIO m, EntryK o) => o -> m 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" val - -constructEntryTabs :: Pango.TabArray -> IO ([Char], GValue) -constructEntryTabs val = constructObjectPropertyBoxed "tabs" 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 = Pango.TabArray - type AttrLabel EntryTabsPropertyInfo = "Entry::tabs" - attrGet _ = getEntryTabs - attrSet _ = setEntryTabs - attrConstruct _ = constructEntryTabs - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryText :: (MonadIO m, EntryK o) => o -> m T.Text -getEntryText obj = liftIO $ getObjectPropertyString obj "text" - -setEntryText :: (MonadIO m, EntryK o) => o -> T.Text -> m () -setEntryText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructEntryText :: T.Text -> IO ([Char], GValue) -constructEntryText val = constructObjectPropertyString "text" 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 = "Entry::text" - attrGet _ = getEntryText - attrSet _ = setEntryText - attrConstruct _ = constructEntryText - --- VVV Prop "text-length" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getEntryTextLength :: (MonadIO m, EntryK o) => o -> m Word32 -getEntryTextLength obj = liftIO $ getObjectPropertyCUInt 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 = "Entry::text-length" - attrGet _ = getEntryTextLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "truncate-multiline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::truncate-multiline" - attrGet _ = getEntryTruncateMultiline - attrSet _ = setEntryTruncateMultiline - attrConstruct _ = constructEntryTruncateMultiline - --- VVV Prop "visibility" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::visibility" - attrGet _ = getEntryVisibility - attrSet _ = setEntryVisibility - attrConstruct _ = constructEntryVisibility - --- VVV Prop "width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 -getEntryWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" - -setEntryWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () -setEntryWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val - -constructEntryWidthChars :: Int32 -> IO ([Char], GValue) -constructEntryWidthChars val = constructObjectPropertyCInt "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 = "Entry::width-chars" - attrGet _ = getEntryWidthChars - attrSet _ = setEntryWidthChars - attrConstruct _ = constructEntryWidthChars - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Entry::xalign" - attrGet _ = getEntryXalign - attrSet _ = setEntryXalign - attrConstruct _ = constructEntryXalign - -type instance AttributeList Entry = EntryAttributeList -type EntryAttributeList = ('[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Entry::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetActivatesDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_activates_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Entry::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Pango.AttrList -entryGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_attributes _obj' - checkUnexpectedReturnNULL "gtk_entry_get_attributes" result - result' <- (newBoxed Pango.AttrList) result - touchManagedPtr _obj - return result' - --- method Entry::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Entry::get_completion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Entry::get_current_icon_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -entryGetCurrentIconDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_current_icon_drag_source _obj' - touchManagedPtr _obj - return result - --- method Entry::get_cursor_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Adjustment -entryGetCursorHadjustment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_cursor_hadjustment _obj' - checkUnexpectedReturnNULL "gtk_entry_get_cursor_hadjustment" result - result' <- (newObject Adjustment) result - touchManagedPtr _obj - return result' - --- method Entry::get_has_frame --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetHasFrame _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_has_frame _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m Bool -entryGetIconActivatable _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_activatable _obj' icon_pos' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- icon_area : TInterface "cairo" "RectangleInt" - IO () - - -entryGetIconArea :: - (MonadIO m, EntryK a) => - a -> -- _obj - EntryIconPosition -> -- icon_pos - m (Cairo.RectangleInt) -entryGetIconArea _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - icon_area <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_entry_get_icon_area _obj' icon_pos' icon_area - icon_area' <- (wrapBoxed Cairo.RectangleInt) icon_area - touchManagedPtr _obj - return icon_area' - --- method Entry::get_icon_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO Int32 - - -entryGetIconAtPos :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m Int32 -entryGetIconAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_icon_at_pos _obj' x y - touchManagedPtr _obj - return result - --- method Entry::get_icon_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m Gio.Icon -entryGetIconGicon _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_gicon _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_gicon" result - result' <- (newObject Gio.Icon) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m T.Text -entryGetIconName _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_name _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m GdkPixbuf.Pixbuf -entryGetIconPixbuf _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_pixbuf _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_pixbuf" result - result' <- (newObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m Bool -entryGetIconSensitive _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_sensitive _obj' icon_pos' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m T.Text -entryGetIconStock _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_stock _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_stock" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_storage_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m ImageType -entryGetIconStorageType _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_storage_type _obj' icon_pos' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m T.Text -entryGetIconTooltipMarkup _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_tooltip_markup _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_markup" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Entry::get_icon_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_pos - m T.Text -entryGetIconTooltipText _obj icon_pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - result <- gtk_entry_get_icon_tooltip_text _obj' icon_pos' - checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Entry::get_inner_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Border -entryGetInnerBorder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_inner_border _obj' - checkUnexpectedReturnNULL "gtk_entry_get_inner_border" result - result' <- (newBoxed Border) result - touchManagedPtr _obj - return result' - --- method Entry::get_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -entryGetInputHints _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_input_hints _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Entry::get_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetInputPurpose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_input_purpose _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Entry::get_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetInvisibleChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_invisible_char _obj' - let result' = (chr . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Entry::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Entry::get_layout_offsets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - IO () - - -entryGetLayoutOffsets :: - (MonadIO m, EntryK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method Entry::get_max_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -entryGetMaxLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_max_length _obj' - touchManagedPtr _obj - return result - --- method Entry::get_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -entryGetMaxWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_max_width_chars _obj' - touchManagedPtr _obj - return result - --- method Entry::get_overwrite_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetOverwriteMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_overwrite_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_placeholder_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Entry::get_progress_fraction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetProgressFraction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_progress_fraction _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Entry::get_progress_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetProgressPulseStep _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_progress_pulse_step _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Entry::get_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Pango.TabArray -entryGetTabs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_tabs _obj' - checkUnexpectedReturnNULL "gtk_entry_get_tabs" result - result' <- (newBoxed Pango.TabArray) result - touchManagedPtr _obj - return result' - --- method Entry::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Entry::get_text_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- text_area : TInterface "cairo" "RectangleInt" - IO () - - -entryGetTextArea :: - (MonadIO m, EntryK a) => - a -> -- _obj - m (Cairo.RectangleInt) -entryGetTextArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text_area <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_entry_get_text_area _obj' text_area - text_area' <- (wrapBoxed Cairo.RectangleInt) text_area - touchManagedPtr _obj - return text_area' - --- method Entry::get_text_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetTextLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_text_length _obj' - touchManagedPtr _obj - return result - --- method Entry::get_visibility --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryGetVisibility _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_visibility _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Entry::get_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -entryGetWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_get_width_chars _obj' - touchManagedPtr _obj - return result - --- method Entry::grab_focus_without_selecting --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entryGrabFocusWithoutSelecting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_grab_focus_without_selecting _obj' - touchManagedPtr _obj - return () - --- method Entry::im_context_filter_keypress --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Entry::layout_index_to_text_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - IO Int32 - - -entryLayoutIndexToTextIndex :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- layout_index - m Int32 -entryLayoutIndexToTextIndex _obj layout_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_layout_index_to_text_index _obj' layout_index - touchManagedPtr _obj - return result - --- method Entry::progress_pulse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entryProgressPulse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_progress_pulse _obj' - touchManagedPtr _obj - return () - --- method Entry::reset_im_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entryResetImContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_reset_im_context _obj' - touchManagedPtr _obj - return () - --- method Entry::set_activates_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetActivatesDefault _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_entry_set_activates_default _obj' setting' - touchManagedPtr _obj - return () - --- method Entry::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetAlignment _obj xalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - gtk_entry_set_alignment _obj' xalign' - touchManagedPtr _obj - return () - --- method Entry::set_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetAttributes _obj attrs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let attrs' = unsafeManagedPtrGetPtr attrs - gtk_entry_set_attributes _obj' attrs' - touchManagedPtr _obj - touchManagedPtr attrs - return () - --- method Entry::set_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetBuffer _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let buffer' = unsafeManagedPtrCastPtr buffer - gtk_entry_set_buffer _obj' buffer' - touchManagedPtr _obj - touchManagedPtr buffer - return () - --- method Entry::set_completion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "completion", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Entry::set_cursor_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 - b -> -- adjustment - m () -entrySetCursorHadjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_entry_set_cursor_hadjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - --- method Entry::set_has_frame --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetHasFrame _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_entry_set_has_frame _obj' setting' - touchManagedPtr _obj - return () - --- method Entry::set_icon_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - Bool -> -- activatable - m () -entrySetIconActivatable _obj icon_pos activatable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - let activatable' = (fromIntegral . fromEnum) activatable - gtk_entry_set_icon_activatable _obj' icon_pos' activatable' - touchManagedPtr _obj - return () - --- method Entry::set_icon_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - TargetList -> -- target_list - [Gdk.DragAction] -> -- actions - m () -entrySetIconDragSource _obj icon_pos target_list actions = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - let target_list' = unsafeManagedPtrGetPtr target_list - let actions' = gflagsToWord actions - gtk_entry_set_icon_drag_source _obj' icon_pos' target_list' actions' - touchManagedPtr _obj - touchManagedPtr target_list - return () - --- method Entry::set_icon_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - Maybe (b) -> -- icon - m () -entrySetIconFromGicon _obj icon_pos icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeIcon <- case icon of - Nothing -> return nullPtr - Just jIcon -> do - let jIcon' = unsafeManagedPtrCastPtr jIcon - return jIcon' - gtk_entry_set_icon_from_gicon _obj' icon_pos' maybeIcon - touchManagedPtr _obj - whenJust icon touchManagedPtr - return () - --- method Entry::set_icon_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - Maybe (T.Text) -> -- icon_name - m () -entrySetIconFromIconName _obj icon_pos icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeIcon_name <- case icon_name of - Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_entry_set_icon_from_icon_name _obj' icon_pos' maybeIcon_name - touchManagedPtr _obj - freeMem maybeIcon_name - return () - --- method Entry::set_icon_from_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - Maybe (b) -> -- pixbuf - m () -entrySetIconFromPixbuf _obj icon_pos pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybePixbuf <- case pixbuf of - Nothing -> return nullPtr - Just jPixbuf -> do - let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf - return jPixbuf' - gtk_entry_set_icon_from_pixbuf _obj' icon_pos' maybePixbuf - touchManagedPtr _obj - whenJust pixbuf touchManagedPtr - return () - --- method Entry::set_icon_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - Maybe (T.Text) -> -- stock_id - m () -entrySetIconFromStock _obj icon_pos stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - gtk_entry_set_icon_from_stock _obj' icon_pos' maybeStock_id - touchManagedPtr _obj - freeMem maybeStock_id - return () - --- method Entry::set_icon_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - Bool -> -- sensitive - m () -entrySetIconSensitive _obj icon_pos sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_entry_set_icon_sensitive _obj' icon_pos' sensitive' - touchManagedPtr _obj - return () - --- method Entry::set_icon_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - Maybe (T.Text) -> -- tooltip - m () -entrySetIconTooltipMarkup _obj icon_pos tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - gtk_entry_set_icon_tooltip_markup _obj' icon_pos' maybeTooltip - touchManagedPtr _obj - freeMem maybeTooltip - return () - --- method Entry::set_icon_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_pos", argType = TInterface "Gtk" "EntryIconPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_pos - Maybe (T.Text) -> -- tooltip - m () -entrySetIconTooltipText _obj icon_pos tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_pos' = (fromIntegral . fromEnum) icon_pos - maybeTooltip <- case tooltip of - Nothing -> return nullPtr - Just jTooltip -> do - jTooltip' <- textToCString jTooltip - return jTooltip' - gtk_entry_set_icon_tooltip_text _obj' icon_pos' maybeTooltip - touchManagedPtr _obj - freeMem maybeTooltip - return () - --- method Entry::set_inner_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Entry::set_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetInputHints _obj hints = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hints' = gflagsToWord hints - gtk_entry_set_input_hints _obj' hints' - touchManagedPtr _obj - return () - --- method Entry::set_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetInputPurpose _obj purpose = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let purpose' = (fromIntegral . fromEnum) purpose - gtk_entry_set_input_purpose _obj' purpose' - touchManagedPtr _obj - return () - --- method Entry::set_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetInvisibleChar _obj ch = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ch' = (fromIntegral . ord) ch - gtk_entry_set_invisible_char _obj' ch' - touchManagedPtr _obj - return () - --- method Entry::set_max_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_max_length" gtk_entry_set_max_length :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- max : TBasicType TInt32 - IO () - - -entrySetMaxLength :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- max - m () -entrySetMaxLength _obj max = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_max_length _obj' max - touchManagedPtr _obj - return () - --- method Entry::set_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_max_width_chars" gtk_entry_set_max_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -entrySetMaxWidthChars :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -entrySetMaxWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_max_width_chars _obj' n_chars - touchManagedPtr _obj - return () - --- method Entry::set_overwrite_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetOverwriteMode _obj overwrite = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overwrite' = (fromIntegral . fromEnum) overwrite - gtk_entry_set_overwrite_mode _obj' overwrite' - touchManagedPtr _obj - return () - --- method Entry::set_placeholder_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 - T.Text -> -- text - m () -entrySetPlaceholderText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_entry_set_placeholder_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - --- method Entry::set_progress_fraction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetProgressFraction _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_entry_set_progress_fraction _obj' fraction' - touchManagedPtr _obj - return () - --- method Entry::set_progress_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetProgressPulseStep _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_entry_set_progress_pulse_step _obj' fraction' - touchManagedPtr _obj - return () - --- method Entry::set_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetTabs _obj tabs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tabs' = unsafeManagedPtrGetPtr tabs - gtk_entry_set_tabs _obj' tabs' - touchManagedPtr _obj - touchManagedPtr tabs - return () - --- method Entry::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -entrySetText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_entry_set_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - --- method Entry::set_visibility --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entrySetVisibility _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_entry_set_visibility _obj' visible' - touchManagedPtr _obj - return () - --- method Entry::set_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_set_width_chars" gtk_entry_set_width_chars :: - Ptr Entry -> -- _obj : TInterface "Gtk" "Entry" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -entrySetWidthChars :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -entrySetWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_set_width_chars _obj' n_chars - touchManagedPtr _obj - return () - --- method Entry::text_index_to_layout_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - IO Int32 - - -entryTextIndexToLayoutIndex :: - (MonadIO m, EntryK a) => - a -> -- _obj - Int32 -> -- text_index - m Int32 -entryTextIndexToLayoutIndex _obj text_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_text_index_to_layout_index _obj' text_index - touchManagedPtr _obj - return result - --- method Entry::unset_invisible_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entryUnsetInvisibleChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_unset_invisible_char _obj' - touchManagedPtr _obj - return () - - 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,75 +0,0 @@ -module GI.Gtk.Objects.Entry where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList EntryAccessible = EntryAccessibleAttributeList -type EntryAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList EntryAccessible = EntryAccessibleSignalList -type EntryAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.EntryBuffer - ( - --- * Exported types - EntryBuffer(..) , - EntryBufferK , - toEntryBuffer , - noEntryBuffer , - - - -- * Methods --- ** entryBufferDeleteText - entryBufferDeleteText , - - --- ** entryBufferEmitDeletedText - entryBufferEmitDeletedText , - - --- ** entryBufferEmitInsertedText - entryBufferEmitInsertedText , - - --- ** entryBufferGetBytes - entryBufferGetBytes , - - --- ** entryBufferGetLength - entryBufferGetLength , - - --- ** entryBufferGetMaxLength - entryBufferGetMaxLength , - - --- ** entryBufferGetText - entryBufferGetText , - - --- ** entryBufferInsertText - entryBufferInsertText , - - --- ** entryBufferNew - entryBufferNew , - - --- ** entryBufferSetMaxLength - entryBufferSetMaxLength , - - --- ** entryBufferSetText - entryBufferSetText , - - - - - -- * Properties --- ** Length - EntryBufferLengthPropertyInfo , - getEntryBufferLength , - - --- ** MaxLength - EntryBufferMaxLengthPropertyInfo , - constructEntryBufferMaxLength , - getEntryBufferMaxLength , - setEntryBufferMaxLength , - - --- ** Text - EntryBufferTextPropertyInfo , - constructEntryBufferText , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 n_chars _ = do - _cb position n_chars - -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 n_chars _ = do - chars' <- cstringToText chars - _cb position chars' n_chars - -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 TUInt32 - -- Flags: [PropertyReadable] - -getEntryBufferLength :: (MonadIO m, EntryBufferK o) => o -> m Word32 -getEntryBufferLength obj = liftIO $ getObjectPropertyCUInt 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 = "EntryBuffer::length" - attrGet _ = getEntryBufferLength - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "max-length" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> m Int32 -getEntryBufferMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length" - -setEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> Int32 -> m () -setEntryBufferMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val - -constructEntryBufferMaxLength :: Int32 -> IO ([Char], GValue) -constructEntryBufferMaxLength val = constructObjectPropertyCInt "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 = "EntryBuffer::max-length" - attrGet _ = getEntryBufferMaxLength - attrSet _ = setEntryBufferMaxLength - attrConstruct _ = constructEntryBufferMaxLength - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> m T.Text -getEntryBufferText obj = liftIO $ getObjectPropertyString obj "text" - -setEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> T.Text -> m () -setEntryBufferText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructEntryBufferText :: T.Text -> IO ([Char], GValue) -constructEntryBufferText val = constructObjectPropertyString "text" val - -data EntryBufferTextPropertyInfo -instance AttrInfo EntryBufferTextPropertyInfo where - type AttrAllowedOps EntryBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryBufferTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint EntryBufferTextPropertyInfo = EntryBufferK - type AttrGetType EntryBufferTextPropertyInfo = T.Text - type AttrLabel EntryBufferTextPropertyInfo = "EntryBuffer::text" - attrGet _ = getEntryBufferText - attrSet _ = setEntryBufferText - attrConstruct _ = constructEntryBufferText - -type instance AttributeList EntryBuffer = EntryBufferAttributeList -type EntryBufferAttributeList = ('[ '("length", EntryBufferLengthPropertyInfo), '("max-length", EntryBufferMaxLengthPropertyInfo), '("text", EntryBufferTextPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("deleted-text", EntryBufferDeletedTextSignalInfo), '("inserted-text", EntryBufferInsertedTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EntryBuffer::new --- method type : Constructor --- Args : [Arg {argName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "initial_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_initial_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr EntryBuffer) - - -entryBufferNew :: - (MonadIO m) => - Maybe (T.Text) -> -- initial_chars - Int32 -> -- n_initial_chars - m EntryBuffer -entryBufferNew initial_chars n_initial_chars = liftIO $ do - maybeInitial_chars <- case initial_chars of - Nothing -> return nullPtr - Just jInitial_chars -> do - jInitial_chars' <- textToCString jInitial_chars - return jInitial_chars' - result <- gtk_entry_buffer_new maybeInitial_chars n_initial_chars - checkUnexpectedReturnNULL "gtk_entry_buffer_new" result - result' <- (wrapObject EntryBuffer) result - freeMem maybeInitial_chars - return result' - --- method EntryBuffer::delete_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_delete_text" gtk_entry_buffer_delete_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt32 - Int32 -> -- n_chars : TBasicType TInt32 - IO Word32 - - -entryBufferDeleteText :: - (MonadIO m, EntryBufferK a) => - a -> -- _obj - Word32 -> -- position - Int32 -> -- n_chars - m Word32 -entryBufferDeleteText _obj position n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_delete_text _obj' position n_chars - touchManagedPtr _obj - return result - --- method EntryBuffer::emit_deleted_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- n_chars : TBasicType TUInt32 - IO () - - -entryBufferEmitDeletedText :: - (MonadIO m, EntryBufferK a) => - a -> -- _obj - Word32 -> -- position - Word32 -> -- n_chars - m () -entryBufferEmitDeletedText _obj position n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_buffer_emit_deleted_text _obj' position n_chars - touchManagedPtr _obj - return () - --- method EntryBuffer::emit_inserted_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - CString -> -- chars : TBasicType TUTF8 - Word32 -> -- n_chars : TBasicType TUInt32 - IO () - - -entryBufferEmitInsertedText :: - (MonadIO m, EntryBufferK a) => - a -> -- _obj - Word32 -> -- position - T.Text -> -- chars - Word32 -> -- n_chars - m () -entryBufferEmitInsertedText _obj position chars n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - chars' <- textToCString chars - gtk_entry_buffer_emit_inserted_text _obj' position chars' n_chars - touchManagedPtr _obj - freeMem chars' - return () - --- method EntryBuffer::get_bytes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryBufferGetBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_get_bytes _obj' - touchManagedPtr _obj - return result - --- method EntryBuffer::get_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -entryBufferGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_get_length _obj' - touchManagedPtr _obj - return result - --- method EntryBuffer::get_max_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -entryBufferGetMaxLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_buffer_get_max_length _obj' - touchManagedPtr _obj - return result - --- method EntryBuffer::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EntryBuffer::insert_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_insert_text" gtk_entry_buffer_insert_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Word32 -> -- position : TBasicType TUInt32 - CString -> -- chars : TBasicType TUTF8 - Int32 -> -- n_chars : TBasicType TInt32 - IO Word32 - - -entryBufferInsertText :: - (MonadIO m, EntryBufferK a) => - a -> -- _obj - Word32 -> -- position - T.Text -> -- chars - Int32 -> -- n_chars - m Word32 -entryBufferInsertText _obj position chars n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - chars' <- textToCString chars - result <- gtk_entry_buffer_insert_text _obj' position chars' n_chars - touchManagedPtr _obj - freeMem chars' - return result - --- method EntryBuffer::set_max_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_set_max_length" gtk_entry_buffer_set_max_length :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - Int32 -> -- max_length : TBasicType TInt32 - IO () - - -entryBufferSetMaxLength :: - (MonadIO m, EntryBufferK a) => - a -> -- _obj - Int32 -> -- max_length - m () -entryBufferSetMaxLength _obj max_length = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_buffer_set_max_length _obj' max_length - touchManagedPtr _obj - return () - --- method EntryBuffer::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_buffer_set_text" gtk_entry_buffer_set_text :: - Ptr EntryBuffer -> -- _obj : TInterface "Gtk" "EntryBuffer" - CString -> -- chars : TBasicType TUTF8 - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -entryBufferSetText :: - (MonadIO m, EntryBufferK a) => - a -> -- _obj - T.Text -> -- chars - Int32 -> -- n_chars - m () -entryBufferSetText _obj chars n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - chars' <- textToCString chars - gtk_entry_buffer_set_text _obj' chars' n_chars - touchManagedPtr _obj - freeMem chars' - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.EntryBuffer where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1469 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - entryCompletionComplete , - - --- ** entryCompletionComputePrefix - entryCompletionComputePrefix , - - --- ** entryCompletionDeleteAction - entryCompletionDeleteAction , - - --- ** entryCompletionGetCompletionPrefix - entryCompletionGetCompletionPrefix , - - --- ** entryCompletionGetEntry - entryCompletionGetEntry , - - --- ** entryCompletionGetInlineCompletion - entryCompletionGetInlineCompletion , - - --- ** entryCompletionGetInlineSelection - entryCompletionGetInlineSelection , - - --- ** entryCompletionGetMinimumKeyLength - entryCompletionGetMinimumKeyLength , - - --- ** entryCompletionGetModel - entryCompletionGetModel , - - --- ** entryCompletionGetPopupCompletion - entryCompletionGetPopupCompletion , - - --- ** entryCompletionGetPopupSetWidth - entryCompletionGetPopupSetWidth , - - --- ** entryCompletionGetPopupSingleMatch - entryCompletionGetPopupSingleMatch , - - --- ** entryCompletionGetTextColumn - entryCompletionGetTextColumn , - - --- ** entryCompletionInsertActionMarkup - entryCompletionInsertActionMarkup , - - --- ** entryCompletionInsertActionText - entryCompletionInsertActionText , - - --- ** entryCompletionInsertPrefix - entryCompletionInsertPrefix , - - --- ** entryCompletionNew - entryCompletionNew , - - --- ** entryCompletionNewWithArea - entryCompletionNewWithArea , - - --- ** entryCompletionSetInlineCompletion - entryCompletionSetInlineCompletion , - - --- ** entryCompletionSetInlineSelection - entryCompletionSetInlineSelection , - - --- ** entryCompletionSetMatchFunc - entryCompletionSetMatchFunc , - - --- ** entryCompletionSetMinimumKeyLength - entryCompletionSetMinimumKeyLength , - - --- ** entryCompletionSetModel - entryCompletionSetModel , - - --- ** entryCompletionSetPopupCompletion - entryCompletionSetPopupCompletion , - - --- ** entryCompletionSetPopupSetWidth - entryCompletionSetPopupSetWidth , - - --- ** entryCompletionSetPopupSingleMatch - entryCompletionSetPopupSingleMatch , - - --- ** entryCompletionSetTextColumn - entryCompletionSetTextColumn , - - - - - -- * Properties --- ** CellArea - EntryCompletionCellAreaPropertyInfo , - constructEntryCompletionCellArea , - getEntryCompletionCellArea , - - --- ** InlineCompletion - EntryCompletionInlineCompletionPropertyInfo, - constructEntryCompletionInlineCompletion, - getEntryCompletionInlineCompletion , - setEntryCompletionInlineCompletion , - - --- ** InlineSelection - EntryCompletionInlineSelectionPropertyInfo, - constructEntryCompletionInlineSelection , - getEntryCompletionInlineSelection , - setEntryCompletionInlineSelection , - - --- ** MinimumKeyLength - EntryCompletionMinimumKeyLengthPropertyInfo, - constructEntryCompletionMinimumKeyLength, - getEntryCompletionMinimumKeyLength , - setEntryCompletionMinimumKeyLength , - - --- ** Model - EntryCompletionModelPropertyInfo , - constructEntryCompletionModel , - getEntryCompletionModel , - setEntryCompletionModel , - - --- ** PopupCompletion - EntryCompletionPopupCompletionPropertyInfo, - constructEntryCompletionPopupCompletion , - getEntryCompletionPopupCompletion , - setEntryCompletionPopupCompletion , - - --- ** PopupSetWidth - EntryCompletionPopupSetWidthPropertyInfo, - constructEntryCompletionPopupSetWidth , - getEntryCompletionPopupSetWidth , - setEntryCompletionPopupSetWidth , - - --- ** PopupSingleMatch - EntryCompletionPopupSingleMatchPropertyInfo, - constructEntryCompletionPopupSingleMatch, - getEntryCompletionPopupSingleMatch , - setEntryCompletionPopupSingleMatch , - - --- ** TextColumn - EntryCompletionTextColumnPropertyInfo , - constructEntryCompletionTextColumn , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getEntryCompletionCellArea :: (MonadIO m, EntryCompletionK o) => o -> m CellArea -getEntryCompletionCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructEntryCompletionCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" val - -data EntryCompletionCellAreaPropertyInfo -instance AttrInfo EntryCompletionCellAreaPropertyInfo where - type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionCellAreaPropertyInfo = CellArea - type AttrLabel EntryCompletionCellAreaPropertyInfo = "EntryCompletion::cell-area" - attrGet _ = getEntryCompletionCellArea - attrSet _ = undefined - attrConstruct _ = constructEntryCompletionCellArea - --- VVV Prop "inline-completion" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "EntryCompletion::inline-completion" - attrGet _ = getEntryCompletionInlineCompletion - attrSet _ = setEntryCompletionInlineCompletion - attrConstruct _ = constructEntryCompletionInlineCompletion - --- VVV Prop "inline-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "EntryCompletion::inline-selection" - attrGet _ = getEntryCompletionInlineSelection - attrSet _ = setEntryCompletionInlineSelection - attrConstruct _ = constructEntryCompletionInlineSelection - --- VVV Prop "minimum-key-length" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> m Int32 -getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyCInt obj "minimum-key-length" - -setEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m () -setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyCInt obj "minimum-key-length" val - -constructEntryCompletionMinimumKeyLength :: Int32 -> IO ([Char], GValue) -constructEntryCompletionMinimumKeyLength val = constructObjectPropertyCInt "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 = "EntryCompletion::minimum-key-length" - attrGet _ = getEntryCompletionMinimumKeyLength - attrSet _ = setEntryCompletionMinimumKeyLength - attrConstruct _ = constructEntryCompletionMinimumKeyLength - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryCompletionModel :: (MonadIO m, EntryCompletionK o) => o -> m TreeModel -getEntryCompletionModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -setEntryCompletionModel :: (MonadIO m, EntryCompletionK o, TreeModelK a) => o -> a -> m () -setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" val - -constructEntryCompletionModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructEntryCompletionModel val = constructObjectPropertyObject "model" val - -data EntryCompletionModelPropertyInfo -instance AttrInfo EntryCompletionModelPropertyInfo where - type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = EntryCompletionK - type AttrGetType EntryCompletionModelPropertyInfo = TreeModel - type AttrLabel EntryCompletionModelPropertyInfo = "EntryCompletion::model" - attrGet _ = getEntryCompletionModel - attrSet _ = setEntryCompletionModel - attrConstruct _ = constructEntryCompletionModel - --- VVV Prop "popup-completion" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "EntryCompletion::popup-completion" - attrGet _ = getEntryCompletionPopupCompletion - attrSet _ = setEntryCompletionPopupCompletion - attrConstruct _ = constructEntryCompletionPopupCompletion - --- VVV Prop "popup-set-width" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "EntryCompletion::popup-set-width" - attrGet _ = getEntryCompletionPopupSetWidth - attrSet _ = setEntryCompletionPopupSetWidth - attrConstruct _ = constructEntryCompletionPopupSetWidth - --- VVV Prop "popup-single-match" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "EntryCompletion::popup-single-match" - attrGet _ = getEntryCompletionPopupSingleMatch - attrSet _ = setEntryCompletionPopupSingleMatch - attrConstruct _ = constructEntryCompletionPopupSingleMatch - --- VVV Prop "text-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> m Int32 -getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" - -setEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m () -setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val - -constructEntryCompletionTextColumn :: Int32 -> IO ([Char], GValue) -constructEntryCompletionTextColumn val = constructObjectPropertyCInt "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 = "EntryCompletion::text-column" - attrGet _ = getEntryCompletionTextColumn - attrSet _ = setEntryCompletionTextColumn - attrConstruct _ = constructEntryCompletionTextColumn - -type instance AttributeList EntryCompletion = EntryCompletionAttributeList -type EntryCompletionAttributeList = ('[ '("cell-area", EntryCompletionCellAreaPropertyInfo), '("inline-completion", EntryCompletionInlineCompletionPropertyInfo), '("inline-selection", EntryCompletionInlineSelectionPropertyInfo), '("minimum-key-length", EntryCompletionMinimumKeyLengthPropertyInfo), '("model", EntryCompletionModelPropertyInfo), '("popup-completion", EntryCompletionPopupCompletionPropertyInfo), '("popup-set-width", EntryCompletionPopupSetWidthPropertyInfo), '("popup-single-match", EntryCompletionPopupSingleMatchPropertyInfo), '("text-column", EntryCompletionTextColumnPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("action-activated", EntryCompletionActionActivatedSignalInfo), '("cursor-on-match", EntryCompletionCursorOnMatchSignalInfo), '("insert-prefix", EntryCompletionInsertPrefixSignalInfo), '("match-selected", EntryCompletionMatchSelectedSignalInfo), '("no-matches", EntryCompletionNoMatchesSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EntryCompletion::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entryCompletionComplete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_complete _obj' - touchManagedPtr _obj - return () - --- method EntryCompletion::compute_prefix --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EntryCompletion::delete_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -entryCompletionDeleteAction :: - (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- index_ - m () -entryCompletionDeleteAction _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_delete_action _obj' index_ - touchManagedPtr _obj - return () - --- method EntryCompletion::get_completion_prefix --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EntryCompletion::get_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EntryCompletion::get_inline_completion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryCompletionGetInlineCompletion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_inline_completion _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method EntryCompletion::get_inline_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryCompletionGetInlineSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_inline_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method EntryCompletion::get_minimum_key_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -entryCompletionGetMinimumKeyLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_minimum_key_length _obj' - touchManagedPtr _obj - return result - --- method EntryCompletion::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EntryCompletion::get_popup_completion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -entryCompletionGetPopupCompletion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_popup_completion _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method EntryCompletion::get_popup_set_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EntryCompletion::get_popup_single_match --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EntryCompletion::get_text_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -entryCompletionGetTextColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_entry_completion_get_text_column _obj' - touchManagedPtr _obj - return result - --- method EntryCompletion::insert_action_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_insert_action_markup" gtk_entry_completion_insert_action_markup :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- index_ : TBasicType TInt32 - CString -> -- markup : TBasicType TUTF8 - IO () - - -entryCompletionInsertActionMarkup :: - (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- index_ - T.Text -> -- markup - m () -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 () - --- method EntryCompletion::insert_action_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_entry_completion_insert_action_text" gtk_entry_completion_insert_action_text :: - Ptr EntryCompletion -> -- _obj : TInterface "Gtk" "EntryCompletion" - Int32 -> -- index_ : TBasicType TInt32 - CString -> -- text : TBasicType TUTF8 - IO () - - -entryCompletionInsertActionText :: - (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- index_ - T.Text -> -- text - m () -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 () - --- method EntryCompletion::insert_prefix --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -entryCompletionInsertPrefix _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_insert_prefix _obj' - touchManagedPtr _obj - return () - --- method EntryCompletion::set_inline_completion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- inline_completion - m () -entryCompletionSetInlineCompletion _obj inline_completion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let inline_completion' = (fromIntegral . fromEnum) inline_completion - gtk_entry_completion_set_inline_completion _obj' inline_completion' - touchManagedPtr _obj - return () - --- method EntryCompletion::set_inline_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inline_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- inline_selection - m () -entryCompletionSetInlineSelection _obj inline_selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let inline_selection' = (fromIntegral . fromEnum) inline_selection - gtk_entry_completion_set_inline_selection _obj' inline_selection' - touchManagedPtr _obj - return () - --- method EntryCompletion::set_match_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "EntryCompletionMatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- func_notify : TInterface "GLib" "DestroyNotify" - IO () - - -entryCompletionSetMatchFunc :: - (MonadIO m, EntryCompletionK a) => - a -> -- _obj - EntryCompletionMatchFunc -> -- func - m () -entryCompletionSetMatchFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkEntryCompletionMatchFunc (entryCompletionMatchFuncWrapper Nothing func) - let func_data = castFunPtrToPtr func' - let func_notify = safeFreeFunPtrPtr - gtk_entry_completion_set_match_func _obj' func' func_data func_notify - touchManagedPtr _obj - return () - --- method EntryCompletion::set_minimum_key_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -entryCompletionSetMinimumKeyLength :: - (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- length - m () -entryCompletionSetMinimumKeyLength _obj length_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_set_minimum_key_length _obj' length_ - touchManagedPtr _obj - return () - --- method EntryCompletion::set_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method EntryCompletion::set_popup_completion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_completion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- popup_completion - m () -entryCompletionSetPopupCompletion _obj popup_completion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popup_completion' = (fromIntegral . fromEnum) popup_completion - gtk_entry_completion_set_popup_completion _obj' popup_completion' - touchManagedPtr _obj - return () - --- method EntryCompletion::set_popup_set_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_set_width", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- popup_set_width - m () -entryCompletionSetPopupSetWidth _obj popup_set_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popup_set_width' = (fromIntegral . fromEnum) popup_set_width - gtk_entry_completion_set_popup_set_width _obj' popup_set_width' - touchManagedPtr _obj - return () - --- method EntryCompletion::set_popup_single_match --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_single_match", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- popup_single_match - m () -entryCompletionSetPopupSingleMatch _obj popup_single_match = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popup_single_match' = (fromIntegral . fromEnum) popup_single_match - gtk_entry_completion_set_popup_single_match _obj' popup_single_match' - touchManagedPtr _obj - return () - --- method EntryCompletion::set_text_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EntryCompletion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -entryCompletionSetTextColumn :: - (MonadIO m, EntryCompletionK a) => - a -> -- _obj - Int32 -> -- column - m () -entryCompletionSetTextColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_entry_completion_set_text_column _obj' column - touchManagedPtr _obj - return () - - 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,27 +0,0 @@ -module GI.Gtk.Objects.EntryCompletion where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList EntryIconAccessible = EntryIconAccessibleAttributeList -type EntryIconAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList EntryIconAccessible = EntryIconAccessibleSignalList -type EntryIconAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,273 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - eventBoxGetAboveChild , - - --- ** eventBoxGetVisibleWindow - eventBoxGetVisibleWindow , - - --- ** eventBoxNew - eventBoxNew , - - --- ** eventBoxSetAboveChild - eventBoxSetAboveChild , - - --- ** eventBoxSetVisibleWindow - eventBoxSetVisibleWindow , - - - - - -- * Properties --- ** AboveChild - EventBoxAboveChildPropertyInfo , - constructEventBoxAboveChild , - getEventBoxAboveChild , - setEventBoxAboveChild , - - --- ** VisibleWindow - EventBoxVisibleWindowPropertyInfo , - constructEventBoxVisibleWindow , - getEventBoxVisibleWindow , - setEventBoxVisibleWindow , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "above-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "EventBox::above-child" - attrGet _ = getEventBoxAboveChild - attrSet _ = setEventBoxAboveChild - attrConstruct _ = constructEventBoxAboveChild - --- VVV Prop "visible-window" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "EventBox::visible-window" - attrGet _ = getEventBoxVisibleWindow - attrSet _ = setEventBoxVisibleWindow - attrConstruct _ = constructEventBoxVisibleWindow - -type instance AttributeList EventBox = EventBoxAttributeList -type EventBoxAttributeList = ('[ '("above-child", EventBoxAboveChildPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-window", EventBoxVisibleWindowPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList EventBox = EventBoxSignalList -type EventBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EventBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -eventBoxGetAboveChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_event_box_get_above_child _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method EventBox::get_visible_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -eventBoxGetVisibleWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_event_box_get_visible_window _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method EventBox::set_above_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- above_child - m () -eventBoxSetAboveChild _obj above_child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let above_child' = (fromIntegral . fromEnum) above_child - gtk_event_box_set_above_child _obj' above_child' - touchManagedPtr _obj - return () - --- method EventBox::set_visible_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- visible_window - m () -eventBoxSetVisibleWindow _obj visible_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible_window' = (fromIntegral . fromEnum) visible_window - gtk_event_box_set_visible_window _obj' visible_window' - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.EventBox where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,274 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - eventControllerGetPropagationPhase , - - --- ** eventControllerGetWidget - eventControllerGetWidget , - - --- ** eventControllerHandleEvent - eventControllerHandleEvent , - - --- ** eventControllerReset - eventControllerReset , - - --- ** eventControllerSetPropagationPhase - eventControllerSetPropagationPhase , - - - - - -- * Properties --- ** PropagationPhase - EventControllerPropagationPhasePropertyInfo, - constructEventControllerPropagationPhase, - getEventControllerPropagationPhase , - setEventControllerPropagationPhase , - - --- ** Widget - EventControllerWidgetPropertyInfo , - constructEventControllerWidget , - getEventControllerWidget , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "propagation-phase" - -- Type: TInterface "Gtk" "PropagationPhase" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "EventController::propagation-phase" - attrGet _ = getEventControllerPropagationPhase - attrSet _ = setEventControllerPropagationPhase - attrConstruct _ = constructEventControllerPropagationPhase - --- VVV Prop "widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getEventControllerWidget :: (MonadIO m, EventControllerK o) => o -> m Widget -getEventControllerWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget - -constructEventControllerWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructEventControllerWidget val = constructObjectPropertyObject "widget" val - -data EventControllerWidgetPropertyInfo -instance AttrInfo EventControllerWidgetPropertyInfo where - type AttrAllowedOps EventControllerWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EventControllerWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint EventControllerWidgetPropertyInfo = EventControllerK - type AttrGetType EventControllerWidgetPropertyInfo = Widget - type AttrLabel EventControllerWidgetPropertyInfo = "EventController::widget" - attrGet _ = getEventControllerWidget - attrSet _ = undefined - attrConstruct _ = constructEventControllerWidget - -type instance AttributeList EventController = EventControllerAttributeList -type EventControllerAttributeList = ('[ '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList EventController = EventControllerSignalList -type EventControllerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EventController::get_propagation_phase --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EventController::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EventController::handle_event --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method EventController::reset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -eventControllerReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_event_controller_reset _obj' - touchManagedPtr _obj - return () - --- method EventController::set_propagation_phase --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "EventController", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gtk" "PropagationPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.EventController where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.Expander - ( - --- * Exported types - Expander(..) , - ExpanderK , - toExpander , - noExpander , - - - -- * Methods --- ** expanderGetExpanded - expanderGetExpanded , - - --- ** expanderGetLabel - expanderGetLabel , - - --- ** expanderGetLabelFill - expanderGetLabelFill , - - --- ** expanderGetLabelWidget - expanderGetLabelWidget , - - --- ** expanderGetResizeToplevel - expanderGetResizeToplevel , - - --- ** expanderGetSpacing - expanderGetSpacing , - - --- ** expanderGetUseMarkup - expanderGetUseMarkup , - - --- ** expanderGetUseUnderline - expanderGetUseUnderline , - - --- ** expanderNew - expanderNew , - - --- ** expanderNewWithMnemonic - expanderNewWithMnemonic , - - --- ** expanderSetExpanded - expanderSetExpanded , - - --- ** expanderSetLabel - expanderSetLabel , - - --- ** expanderSetLabelFill - expanderSetLabelFill , - - --- ** expanderSetLabelWidget - expanderSetLabelWidget , - - --- ** expanderSetResizeToplevel - expanderSetResizeToplevel , - - --- ** expanderSetSpacing - expanderSetSpacing , - - --- ** expanderSetUseMarkup - expanderSetUseMarkup , - - --- ** expanderSetUseUnderline - expanderSetUseUnderline , - - - - - -- * Properties --- ** Expanded - ExpanderExpandedPropertyInfo , - constructExpanderExpanded , - getExpanderExpanded , - setExpanderExpanded , - - --- ** Label - ExpanderLabelPropertyInfo , - constructExpanderLabel , - getExpanderLabel , - setExpanderLabel , - - --- ** LabelFill - ExpanderLabelFillPropertyInfo , - constructExpanderLabelFill , - getExpanderLabelFill , - setExpanderLabelFill , - - --- ** LabelWidget - ExpanderLabelWidgetPropertyInfo , - constructExpanderLabelWidget , - getExpanderLabelWidget , - setExpanderLabelWidget , - - --- ** ResizeToplevel - ExpanderResizeToplevelPropertyInfo , - constructExpanderResizeToplevel , - getExpanderResizeToplevel , - setExpanderResizeToplevel , - - --- ** Spacing - ExpanderSpacingPropertyInfo , - constructExpanderSpacing , - getExpanderSpacing , - setExpanderSpacing , - - --- ** UseMarkup - ExpanderUseMarkupPropertyInfo , - constructExpanderUseMarkup , - getExpanderUseMarkup , - setExpanderUseMarkup , - - --- ** UseUnderline - ExpanderUseUnderlinePropertyInfo , - constructExpanderUseUnderline , - getExpanderUseUnderline , - setExpanderUseUnderline , - - - - - -- * Signals --- ** Activate - ExpanderActivateCallback , - ExpanderActivateCallbackC , - ExpanderActivateSignalInfo , - afterExpanderActivate , - expanderActivateCallbackWrapper , - expanderActivateClosure , - mkExpanderActivateCallback , - noExpanderActivateCallback , - onExpanderActivate , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "Expander::expanded" - attrGet _ = getExpanderExpanded - attrSet _ = setExpanderExpanded - attrConstruct _ = constructExpanderExpanded - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m T.Text -getExpanderLabel obj = liftIO $ getObjectPropertyString obj "label" - -setExpanderLabel :: (MonadIO m, ExpanderK o) => o -> T.Text -> m () -setExpanderLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructExpanderLabel :: T.Text -> IO ([Char], GValue) -constructExpanderLabel val = constructObjectPropertyString "label" val - -data ExpanderLabelPropertyInfo -instance AttrInfo ExpanderLabelPropertyInfo where - type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ExpanderLabelPropertyInfo = ExpanderK - type AttrGetType ExpanderLabelPropertyInfo = T.Text - type AttrLabel ExpanderLabelPropertyInfo = "Expander::label" - attrGet _ = getExpanderLabel - attrSet _ = setExpanderLabel - attrConstruct _ = constructExpanderLabel - --- VVV Prop "label-fill" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Expander::label-fill" - attrGet _ = getExpanderLabelFill - attrSet _ = setExpanderLabelFill - attrConstruct _ = constructExpanderLabelFill - --- VVV Prop "label-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m Widget -getExpanderLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget - -setExpanderLabelWidget :: (MonadIO m, ExpanderK o, WidgetK a) => o -> a -> m () -setExpanderLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val - -constructExpanderLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructExpanderLabelWidget val = constructObjectPropertyObject "label-widget" val - -data ExpanderLabelWidgetPropertyInfo -instance AttrInfo ExpanderLabelWidgetPropertyInfo where - type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ExpanderLabelWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint ExpanderLabelWidgetPropertyInfo = ExpanderK - type AttrGetType ExpanderLabelWidgetPropertyInfo = Widget - type AttrLabel ExpanderLabelWidgetPropertyInfo = "Expander::label-widget" - attrGet _ = getExpanderLabelWidget - attrSet _ = setExpanderLabelWidget - attrConstruct _ = constructExpanderLabelWidget - --- VVV Prop "resize-toplevel" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Expander::resize-toplevel" - attrGet _ = getExpanderResizeToplevel - attrSet _ = setExpanderResizeToplevel - attrConstruct _ = constructExpanderResizeToplevel - --- VVV Prop "spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> m Int32 -getExpanderSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" - -setExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> Int32 -> m () -setExpanderSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val - -constructExpanderSpacing :: Int32 -> IO ([Char], GValue) -constructExpanderSpacing val = constructObjectPropertyCInt "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 = "Expander::spacing" - attrGet _ = getExpanderSpacing - attrSet _ = setExpanderSpacing - attrConstruct _ = constructExpanderSpacing - --- VVV Prop "use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Expander::use-markup" - attrGet _ = getExpanderUseMarkup - attrSet _ = setExpanderUseMarkup - attrConstruct _ = constructExpanderUseMarkup - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Expander::use-underline" - attrGet _ = getExpanderUseUnderline - attrSet _ = setExpanderUseUnderline - attrConstruct _ = constructExpanderUseUnderline - -type instance AttributeList Expander = ExpanderAttributeList -type ExpanderAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("label-fill", ExpanderLabelFillPropertyInfo), '("label-widget", ExpanderLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("resize-toplevel", ExpanderResizeToplevelPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-markup", ExpanderUseMarkupPropertyInfo), '("use-underline", ExpanderUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data ExpanderActivateSignalInfo -instance SignalInfo ExpanderActivateSignalInfo where - type HaskellCallbackType ExpanderActivateSignalInfo = ExpanderActivateCallback - connectSignal _ = connectExpanderActivate - -type instance SignalList Expander = ExpanderSignalList -type ExpanderSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ExpanderActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Expander::new --- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -expanderGetExpanded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_expanded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Expander::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Expander::get_label_fill --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -expanderGetLabelFill _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_label_fill _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Expander::get_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Expander::get_resize_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -expanderGetResizeToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_resize_toplevel _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Expander::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -expanderGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_spacing _obj' - touchManagedPtr _obj - return result - --- method Expander::get_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -expanderGetUseMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_use_markup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Expander::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -expanderGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_expander_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Expander::set_expanded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -expanderSetExpanded _obj expanded = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expanded' = (fromIntegral . fromEnum) expanded - gtk_expander_set_expanded _obj' expanded' - touchManagedPtr _obj - return () - --- method Expander::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Expander::set_label_fill --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_fill", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- label_fill - m () -expanderSetLabelFill _obj label_fill = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let label_fill' = (fromIntegral . fromEnum) label_fill - gtk_expander_set_label_fill _obj' label_fill' - touchManagedPtr _obj - return () - --- method Expander::set_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- label_widget - m () -expanderSetLabelWidget _obj label_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel_widget <- case label_widget of - Nothing -> return nullPtr - Just jLabel_widget -> do - let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget - return jLabel_widget' - gtk_expander_set_label_widget _obj' maybeLabel_widget - touchManagedPtr _obj - whenJust label_widget touchManagedPtr - return () - --- method Expander::set_resize_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize_toplevel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- resize_toplevel - m () -expanderSetResizeToplevel _obj resize_toplevel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let resize_toplevel' = (fromIntegral . fromEnum) resize_toplevel - gtk_expander_set_resize_toplevel _obj' resize_toplevel' - touchManagedPtr _obj - return () - --- method Expander::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_expander_set_spacing" gtk_expander_set_spacing :: - Ptr Expander -> -- _obj : TInterface "Gtk" "Expander" - Int32 -> -- spacing : TBasicType TInt32 - IO () - - -expanderSetSpacing :: - (MonadIO m, ExpanderK a) => - a -> -- _obj - Int32 -> -- spacing - m () -expanderSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_expander_set_spacing _obj' spacing - touchManagedPtr _obj - return () - --- method Expander::set_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_markup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_markup - m () -expanderSetUseMarkup _obj use_markup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_markup' = (fromIntegral . fromEnum) use_markup - gtk_expander_set_use_markup _obj' use_markup' - touchManagedPtr _obj - return () - --- method Expander::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Expander", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_underline - m () -expanderSetUseUnderline _obj use_underline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_underline' = (fromIntegral . fromEnum) use_underline - gtk_expander_set_use_underline _obj' use_underline' - touchManagedPtr _obj - return () - - 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,22 +0,0 @@ -module GI.Gtk.Objects.Expander where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ExpanderAccessible = ExpanderAccessibleAttributeList -type ExpanderAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ExpanderAccessible = ExpanderAccessibleSignalList -type ExpanderAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,482 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - fileChooserButtonGetFocusOnClick , - - --- ** fileChooserButtonGetTitle - fileChooserButtonGetTitle , - - --- ** fileChooserButtonGetWidthChars - fileChooserButtonGetWidthChars , - - --- ** fileChooserButtonNew - fileChooserButtonNew , - - --- ** fileChooserButtonNewWithDialog - fileChooserButtonNewWithDialog , - - --- ** fileChooserButtonSetFocusOnClick - fileChooserButtonSetFocusOnClick , - - --- ** fileChooserButtonSetTitle - fileChooserButtonSetTitle , - - --- ** fileChooserButtonSetWidthChars - fileChooserButtonSetWidthChars , - - - - - -- * Properties --- ** Dialog - FileChooserButtonDialogPropertyInfo , - constructFileChooserButtonDialog , - - --- ** FocusOnClick - FileChooserButtonFocusOnClickPropertyInfo, - constructFileChooserButtonFocusOnClick , - getFileChooserButtonFocusOnClick , - setFileChooserButtonFocusOnClick , - - --- ** Title - FileChooserButtonTitlePropertyInfo , - constructFileChooserButtonTitle , - getFileChooserButtonTitle , - setFileChooserButtonTitle , - - --- ** WidthChars - FileChooserButtonWidthCharsPropertyInfo , - constructFileChooserButtonWidthChars , - getFileChooserButtonWidthChars , - setFileChooserButtonWidthChars , - - - - - -- * Signals --- ** FileSet - FileChooserButtonFileSetCallback , - FileChooserButtonFileSetCallbackC , - FileChooserButtonFileSetSignalInfo , - afterFileChooserButtonFileSet , - fileChooserButtonFileSetCallbackWrapper , - fileChooserButtonFileSetClosure , - mkFileChooserButtonFileSetCallback , - noFileChooserButtonFileSetCallback , - onFileChooserButtonFileSet , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -constructFileChooserButtonDialog :: (FileChooserK a) => a -> IO ([Char], GValue) -constructFileChooserButtonDialog val = constructObjectPropertyObject "dialog" val - -data FileChooserButtonDialogPropertyInfo -instance AttrInfo FileChooserButtonDialogPropertyInfo where - type AttrAllowedOps FileChooserButtonDialogPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserK - type AttrBaseTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserButtonK - type AttrGetType FileChooserButtonDialogPropertyInfo = () - type AttrLabel FileChooserButtonDialogPropertyInfo = "FileChooserButton::dialog" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructFileChooserButtonDialog - --- VVV Prop "focus-on-click" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FileChooserButton::focus-on-click" - attrGet _ = getFileChooserButtonFocusOnClick - attrSet _ = setFileChooserButtonFocusOnClick - attrConstruct _ = constructFileChooserButtonFocusOnClick - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> m T.Text -getFileChooserButtonTitle obj = liftIO $ getObjectPropertyString obj "title" - -setFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> T.Text -> m () -setFileChooserButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructFileChooserButtonTitle :: T.Text -> IO ([Char], GValue) -constructFileChooserButtonTitle val = constructObjectPropertyString "title" 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 = "FileChooserButton::title" - attrGet _ = getFileChooserButtonTitle - attrSet _ = setFileChooserButtonTitle - attrConstruct _ = constructFileChooserButtonTitle - --- VVV Prop "width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> m Int32 -getFileChooserButtonWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" - -setFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> Int32 -> m () -setFileChooserButtonWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val - -constructFileChooserButtonWidthChars :: Int32 -> IO ([Char], GValue) -constructFileChooserButtonWidthChars val = constructObjectPropertyCInt "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 = "FileChooserButton::width-chars" - attrGet _ = getFileChooserButtonWidthChars - attrSet _ = setFileChooserButtonWidthChars - attrConstruct _ = constructFileChooserButtonWidthChars - -type instance AttributeList FileChooserButton = FileChooserButtonAttributeList -type FileChooserButtonAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("dialog", FileChooserButtonDialogPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focus-on-click", FileChooserButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FileChooserButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", FileChooserButtonWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data FileChooserButtonFileSetSignalInfo -instance SignalInfo FileChooserButtonFileSetSignalInfo where - type HaskellCallbackType FileChooserButtonFileSetSignalInfo = FileChooserButtonFileSetCallback - connectSignal _ = connectFileChooserButtonFileSet - -type instance SignalList FileChooserButton = FileChooserButtonSignalList -type FileChooserButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("file-set", FileChooserButtonFileSetSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileChooserButton::new --- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dialog", argType = TInterface "Gtk" "Dialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooserButton::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileChooserButton::get_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -fileChooserButtonGetWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_chooser_button_get_width_chars _obj' - touchManagedPtr _obj - return result - --- method FileChooserButton::set_focus_on_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_click", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- focus_on_click - m () -fileChooserButtonSetFocusOnClick _obj focus_on_click = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focus_on_click' = (fromIntegral . fromEnum) focus_on_click - gtk_file_chooser_button_set_focus_on_click _obj' focus_on_click' - touchManagedPtr _obj - return () - --- method FileChooserButton::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method FileChooserButton::set_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileChooserButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_file_chooser_button_set_width_chars" gtk_file_chooser_button_set_width_chars :: - Ptr FileChooserButton -> -- _obj : TInterface "Gtk" "FileChooserButton" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -fileChooserButtonSetWidthChars :: - (MonadIO m, FileChooserButtonK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -fileChooserButtonSetWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_chooser_button_set_width_chars _obj' n_chars - touchManagedPtr _obj - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.FileChooserButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList FileChooserDialog = FileChooserDialogAttributeList -type FileChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FileChooserDialog = FileChooserDialogSignalList -type FileChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,740 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - getFileChooserWidgetSearchMode , - setFileChooserWidgetSearchMode , - - - - - -- * 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 , - - --- ** 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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::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 _ bookmark_index _ = do - _cb bookmark_index - -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] - -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 = "FileChooserWidget::search-mode" - attrGet _ = getFileChooserWidgetSearchMode - attrSet _ = setFileChooserWidgetSearchMode - attrConstruct _ = constructFileChooserWidgetSearchMode - -type instance AttributeList FileChooserWidget = FileChooserWidgetAttributeList -type FileChooserWidgetAttributeList = ('[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-mode", FileChooserWidgetSearchModePropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("desktop-folder", FileChooserWidgetDesktopFolderSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("down-folder", FileChooserWidgetDownFolderSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("home-folder", FileChooserWidgetHomeFolderSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("location-popup", FileChooserWidgetLocationPopupSignalInfo), '("location-popup-on-paste", FileChooserWidgetLocationPopupOnPasteSignalInfo), '("location-toggle-popup", FileChooserWidgetLocationTogglePopupSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("quick-bookmark", FileChooserWidgetQuickBookmarkSignalInfo), '("realize", WidgetRealizeSignalInfo), '("recent-shortcut", FileChooserWidgetRecentShortcutSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("search-shortcut", FileChooserWidgetSearchShortcutSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("show-hidden", FileChooserWidgetShowHiddenSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("up-folder", FileChooserWidgetUpFolderSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileChooserWidget::new --- method type : Constructor --- Args : [Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "action", argType = TInterface "Gtk" "FileChooserAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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,25 +0,0 @@ -module GI.Gtk.Objects.FileChooserWidget where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 FileChooserWidgetDesktopFolderSignalInfo -data FileChooserWidgetDownFolderSignalInfo -data FileChooserWidgetHomeFolderSignalInfo -data FileChooserWidgetLocationPopupSignalInfo -data FileChooserWidgetLocationPopupOnPasteSignalInfo -data FileChooserWidgetLocationTogglePopupSignalInfo -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,346 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - fileFilterAddCustom , - - --- ** fileFilterAddMimeType - fileFilterAddMimeType , - - --- ** fileFilterAddPattern - fileFilterAddPattern , - - --- ** fileFilterAddPixbufFormats - fileFilterAddPixbufFormats , - - --- ** fileFilterFilter - fileFilterFilter , - - --- ** fileFilterGetName - fileFilterGetName , - - --- ** fileFilterGetNeeded - fileFilterGetNeeded , - - --- ** fileFilterNew - fileFilterNew , - - --- ** fileFilterSetName - fileFilterSetName , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList FileFilter = FileFilterAttributeList -type FileFilterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FileFilter = FileFilterSignalList -type FileFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileFilter::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "FileFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FileFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - - -fileFilterAddCustom :: - (MonadIO m, FileFilterK a) => - a -> -- _obj - [FileFilterFlags] -> -- needed - FileFilterFunc -> -- func - m () -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 () - --- method FileFilter::add_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- mime_type - m () -fileFilterAddMimeType _obj mime_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - gtk_file_filter_add_mime_type _obj' mime_type' - touchManagedPtr _obj - freeMem mime_type' - return () - --- method FileFilter::add_pattern --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -fileFilterAddPattern _obj pattern = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pattern' <- textToCString pattern - gtk_file_filter_add_pattern _obj' pattern' - touchManagedPtr _obj - freeMem pattern' - return () - --- method FileFilter::add_pixbuf_formats --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -fileFilterAddPixbufFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_file_filter_add_pixbuf_formats _obj' - touchManagedPtr _obj - return () - --- method FileFilter::filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "FileFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- filter_info - m Bool -fileFilterFilter _obj filter_info = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter_info' = unsafeManagedPtrGetPtr filter_info - result <- gtk_file_filter_filter _obj' filter_info' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr filter_info - return result' - --- method FileFilter::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FileFilter::get_needed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -fileFilterGetNeeded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_file_filter_get_needed _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method FileFilter::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FileFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.FileFilter where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileFilter = FileFilter (ForeignPtr FileFilter) -instance GObject FileFilter where -class GObject o => FileFilterK o -instance (GObject o, IsDescendantOf FileFilter o) => FileFilterK o 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,160 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - fixedMove , - - --- ** fixedNew - fixedNew , - - --- ** fixedPut - fixedPut , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList Fixed = FixedAttributeList -type FixedAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Fixed = FixedSignalList -type FixedSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Fixed::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -fixedMove :: - (MonadIO m, FixedK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- x - Int32 -> -- y - m () -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 () - --- method Fixed::put --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Fixed", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -fixedPut :: - (MonadIO m, FixedK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- x - Int32 -> -- y - m () -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 () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.Fixed where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Fixed = Fixed (ForeignPtr Fixed) -instance GObject Fixed where -class GObject o => FixedK o -instance (GObject o, IsDescendantOf Fixed o) => FixedK o 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,1570 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - flowBoxGetActivateOnSingleClick , - - --- ** flowBoxGetChildAtIndex - flowBoxGetChildAtIndex , - - --- ** flowBoxGetColumnSpacing - flowBoxGetColumnSpacing , - - --- ** flowBoxGetHomogeneous - flowBoxGetHomogeneous , - - --- ** flowBoxGetMaxChildrenPerLine - flowBoxGetMaxChildrenPerLine , - - --- ** flowBoxGetMinChildrenPerLine - flowBoxGetMinChildrenPerLine , - - --- ** flowBoxGetRowSpacing - flowBoxGetRowSpacing , - - --- ** flowBoxGetSelectedChildren - flowBoxGetSelectedChildren , - - --- ** flowBoxGetSelectionMode - flowBoxGetSelectionMode , - - --- ** flowBoxInsert - flowBoxInsert , - - --- ** flowBoxInvalidateFilter - flowBoxInvalidateFilter , - - --- ** flowBoxInvalidateSort - flowBoxInvalidateSort , - - --- ** flowBoxNew - flowBoxNew , - - --- ** flowBoxSelectAll - flowBoxSelectAll , - - --- ** flowBoxSelectChild - flowBoxSelectChild , - - --- ** flowBoxSelectedForeach - flowBoxSelectedForeach , - - --- ** flowBoxSetActivateOnSingleClick - flowBoxSetActivateOnSingleClick , - - --- ** flowBoxSetColumnSpacing - flowBoxSetColumnSpacing , - - --- ** flowBoxSetFilterFunc - flowBoxSetFilterFunc , - - --- ** flowBoxSetHadjustment - flowBoxSetHadjustment , - - --- ** flowBoxSetHomogeneous - flowBoxSetHomogeneous , - - --- ** flowBoxSetMaxChildrenPerLine - flowBoxSetMaxChildrenPerLine , - - --- ** flowBoxSetMinChildrenPerLine - flowBoxSetMinChildrenPerLine , - - --- ** flowBoxSetRowSpacing - flowBoxSetRowSpacing , - - --- ** flowBoxSetSelectionMode - flowBoxSetSelectionMode , - - --- ** flowBoxSetSortFunc - flowBoxSetSortFunc , - - --- ** flowBoxSetVadjustment - flowBoxSetVadjustment , - - --- ** flowBoxUnselectAll - flowBoxUnselectAll , - - --- ** flowBoxUnselectChild - flowBoxUnselectChild , - - - - - -- * Properties --- ** ActivateOnSingleClick - FlowBoxActivateOnSingleClickPropertyInfo, - constructFlowBoxActivateOnSingleClick , - getFlowBoxActivateOnSingleClick , - setFlowBoxActivateOnSingleClick , - - --- ** ColumnSpacing - FlowBoxColumnSpacingPropertyInfo , - constructFlowBoxColumnSpacing , - getFlowBoxColumnSpacing , - setFlowBoxColumnSpacing , - - --- ** Homogeneous - FlowBoxHomogeneousPropertyInfo , - constructFlowBoxHomogeneous , - getFlowBoxHomogeneous , - setFlowBoxHomogeneous , - - --- ** MaxChildrenPerLine - FlowBoxMaxChildrenPerLinePropertyInfo , - constructFlowBoxMaxChildrenPerLine , - getFlowBoxMaxChildrenPerLine , - setFlowBoxMaxChildrenPerLine , - - --- ** MinChildrenPerLine - FlowBoxMinChildrenPerLinePropertyInfo , - constructFlowBoxMinChildrenPerLine , - getFlowBoxMinChildrenPerLine , - setFlowBoxMinChildrenPerLine , - - --- ** RowSpacing - FlowBoxRowSpacingPropertyInfo , - constructFlowBoxRowSpacing , - getFlowBoxRowSpacing , - setFlowBoxRowSpacing , - - --- ** SelectionMode - FlowBoxSelectionModePropertyInfo , - constructFlowBoxSelectionMode , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 () - -noFlowBoxMoveCursorCallback :: Maybe FlowBoxMoveCursorCallback -noFlowBoxMoveCursorCallback = Nothing - -type FlowBoxMoveCursorCallbackC = - Ptr () -> -- object - CUInt -> - Int32 -> - Ptr () -> -- user_data - IO () - -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 () -flowBoxMoveCursorCallbackWrapper _cb _ step count _ = do - let step' = (toEnum . fromIntegral) step - _cb step' count - -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] - -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 = "FlowBox::activate-on-single-click" - attrGet _ = getFlowBoxActivateOnSingleClick - attrSet _ = setFlowBoxActivateOnSingleClick - attrConstruct _ = constructFlowBoxActivateOnSingleClick - --- VVV Prop "column-spacing" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxColumnSpacing obj = liftIO $ getObjectPropertyCUInt obj "column-spacing" - -setFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxColumnSpacing obj val = liftIO $ setObjectPropertyCUInt obj "column-spacing" val - -constructFlowBoxColumnSpacing :: Word32 -> IO ([Char], GValue) -constructFlowBoxColumnSpacing val = constructObjectPropertyCUInt "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 = "FlowBox::column-spacing" - attrGet _ = getFlowBoxColumnSpacing - attrSet _ = setFlowBoxColumnSpacing - attrConstruct _ = constructFlowBoxColumnSpacing - --- VVV Prop "homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FlowBox::homogeneous" - attrGet _ = getFlowBoxHomogeneous - attrSet _ = setFlowBoxHomogeneous - attrConstruct _ = constructFlowBoxHomogeneous - --- VVV Prop "max-children-per-line" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxMaxChildrenPerLine obj = liftIO $ getObjectPropertyCUInt obj "max-children-per-line" - -setFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxMaxChildrenPerLine obj val = liftIO $ setObjectPropertyCUInt obj "max-children-per-line" val - -constructFlowBoxMaxChildrenPerLine :: Word32 -> IO ([Char], GValue) -constructFlowBoxMaxChildrenPerLine val = constructObjectPropertyCUInt "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 = "FlowBox::max-children-per-line" - attrGet _ = getFlowBoxMaxChildrenPerLine - attrSet _ = setFlowBoxMaxChildrenPerLine - attrConstruct _ = constructFlowBoxMaxChildrenPerLine - --- VVV Prop "min-children-per-line" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxMinChildrenPerLine obj = liftIO $ getObjectPropertyCUInt obj "min-children-per-line" - -setFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxMinChildrenPerLine obj val = liftIO $ setObjectPropertyCUInt obj "min-children-per-line" val - -constructFlowBoxMinChildrenPerLine :: Word32 -> IO ([Char], GValue) -constructFlowBoxMinChildrenPerLine val = constructObjectPropertyCUInt "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 = "FlowBox::min-children-per-line" - attrGet _ = getFlowBoxMinChildrenPerLine - attrSet _ = setFlowBoxMinChildrenPerLine - attrConstruct _ = constructFlowBoxMinChildrenPerLine - --- VVV Prop "row-spacing" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32 -getFlowBoxRowSpacing obj = liftIO $ getObjectPropertyCUInt obj "row-spacing" - -setFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () -setFlowBoxRowSpacing obj val = liftIO $ setObjectPropertyCUInt obj "row-spacing" val - -constructFlowBoxRowSpacing :: Word32 -> IO ([Char], GValue) -constructFlowBoxRowSpacing val = constructObjectPropertyCUInt "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 = "FlowBox::row-spacing" - attrGet _ = getFlowBoxRowSpacing - attrSet _ = setFlowBoxRowSpacing - attrConstruct _ = constructFlowBoxRowSpacing - --- VVV Prop "selection-mode" - -- Type: TInterface "Gtk" "SelectionMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FlowBox::selection-mode" - attrGet _ = getFlowBoxSelectionMode - attrSet _ = setFlowBoxSelectionMode - attrConstruct _ = constructFlowBoxSelectionMode - -type instance AttributeList FlowBox = FlowBoxAttributeList -type FlowBoxAttributeList = ('[ '("activate-on-single-click", FlowBoxActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", FlowBoxColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-children-per-line", FlowBoxMaxChildrenPerLinePropertyInfo), '("min-children-per-line", FlowBoxMinChildrenPerLinePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", FlowBoxRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", FlowBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-child", FlowBoxActivateCursorChildSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-activated", FlowBoxChildActivatedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", FlowBoxMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", FlowBoxSelectAllSignalInfo), '("selected-children-changed", FlowBoxSelectedChildrenChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-child", FlowBoxToggleCursorChildSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", FlowBoxUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FlowBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FlowBox::get_child_at_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "idx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr FlowBoxChild) - - -flowBoxGetChildAtIndex :: - (MonadIO m, FlowBoxK a) => - a -> -- _obj - Int32 -> -- idx - m FlowBoxChild -flowBoxGetChildAtIndex _obj idx = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_child_at_index _obj' idx - checkUnexpectedReturnNULL "gtk_flow_box_get_child_at_index" result - result' <- (newObject FlowBoxChild) result - touchManagedPtr _obj - return result' - --- method FlowBox::get_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -flowBoxGetColumnSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_column_spacing _obj' - touchManagedPtr _obj - return result - --- method FlowBox::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -flowBoxGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FlowBox::get_max_children_per_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -flowBoxGetMaxChildrenPerLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_max_children_per_line _obj' - touchManagedPtr _obj - return result - --- method FlowBox::get_min_children_per_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -flowBoxGetMinChildrenPerLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_min_children_per_line _obj' - touchManagedPtr _obj - return result - --- method FlowBox::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -flowBoxGetRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_row_spacing _obj' - touchManagedPtr _obj - return result - --- method FlowBox::get_selected_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -flowBoxGetSelectedChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_get_selected_children _obj' - checkUnexpectedReturnNULL "gtk_flow_box_get_selected_children" result - result' <- unpackGList result - result'' <- mapM (newObject FlowBoxChild) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method FlowBox::get_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FlowBox::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -flowBoxInsert :: - (MonadIO m, FlowBoxK a, WidgetK b) => - a -> -- _obj - b -> -- widget - Int32 -> -- position - m () -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 () - --- method FlowBox::invalidate_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -flowBoxInvalidateFilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_invalidate_filter _obj' - touchManagedPtr _obj - return () - --- method FlowBox::invalidate_sort --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -flowBoxInvalidateSort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_invalidate_sort _obj' - touchManagedPtr _obj - return () - --- method FlowBox::select_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -flowBoxSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_select_all _obj' - touchManagedPtr _obj - return () - --- method FlowBox::select_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FlowBox::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "FlowBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -flowBoxSelectedForeach :: - (MonadIO m, FlowBoxK a) => - a -> -- _obj - FlowBoxForeachFunc -> -- func - m () -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 () - --- method FlowBox::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FlowBox::set_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -flowBoxSetColumnSpacing :: - (MonadIO m, FlowBoxK a) => - a -> -- _obj - Word32 -> -- spacing - m () -flowBoxSetColumnSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_column_spacing _obj' spacing - touchManagedPtr _obj - return () - --- method FlowBox::set_filter_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "FlowBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -flowBoxSetFilterFunc :: - (MonadIO m, FlowBoxK a) => - a -> -- _obj - Maybe (FlowBoxFilterFunc) -> -- filter_func - m () -flowBoxSetFilterFunc _obj filter_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilter_func <- case filter_func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFilter_func -> do - jFilter_func' <- mkFlowBoxFilterFunc (flowBoxFilterFuncWrapper Nothing jFilter_func) - return jFilter_func' - let user_data = castFunPtrToPtr maybeFilter_func - let destroy = safeFreeFunPtrPtr - gtk_flow_box_set_filter_func _obj' maybeFilter_func user_data destroy - touchManagedPtr _obj - return () - --- method FlowBox::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FlowBox::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -flowBoxSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_flow_box_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - --- method FlowBox::set_max_children_per_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -flowBoxSetMaxChildrenPerLine :: - (MonadIO m, FlowBoxK a) => - a -> -- _obj - Word32 -> -- n_children - m () -flowBoxSetMaxChildrenPerLine _obj n_children = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_max_children_per_line _obj' n_children - touchManagedPtr _obj - return () - --- method FlowBox::set_min_children_per_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_children", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -flowBoxSetMinChildrenPerLine :: - (MonadIO m, FlowBoxK a) => - a -> -- _obj - Word32 -> -- n_children - m () -flowBoxSetMinChildrenPerLine _obj n_children = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_min_children_per_line _obj' n_children - touchManagedPtr _obj - return () - --- method FlowBox::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -flowBoxSetRowSpacing :: - (MonadIO m, FlowBoxK a) => - a -> -- _obj - Word32 -> -- spacing - m () -flowBoxSetRowSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_set_row_spacing _obj' spacing - touchManagedPtr _obj - return () - --- method FlowBox::set_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FlowBox::set_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "FlowBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -flowBoxSetSortFunc :: - (MonadIO m, FlowBoxK a) => - a -> -- _obj - Maybe (FlowBoxSortFunc) -> -- sort_func - m () -flowBoxSetSortFunc _obj sort_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSort_func <- case sort_func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jSort_func -> do - jSort_func' <- mkFlowBoxSortFunc (flowBoxSortFuncWrapper Nothing jSort_func) - return jSort_func' - let user_data = castFunPtrToPtr maybeSort_func - let destroy = safeFreeFunPtrPtr - gtk_flow_box_set_sort_func _obj' maybeSort_func user_data destroy - touchManagedPtr _obj - return () - --- method FlowBox::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method FlowBox::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -flowBoxUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_unselect_all _obj' - touchManagedPtr _obj - return () - --- method FlowBox::unselect_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,27 +0,0 @@ -module GI.Gtk.Objects.FlowBox where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList FlowBoxAccessible = FlowBoxAccessibleAttributeList -type FlowBoxAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FlowBoxAccessible = FlowBoxAccessibleSignalList -type FlowBoxAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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) --} - -module GI.Gtk.Objects.FlowBoxChild - ( - --- * Exported types - FlowBoxChild(..) , - FlowBoxChildK , - toFlowBoxChild , - noFlowBoxChild , - - - -- * Methods --- ** flowBoxChildChanged - flowBoxChildChanged , - - --- ** flowBoxChildGetIndex - flowBoxChildGetIndex , - - --- ** flowBoxChildIsSelected - flowBoxChildIsSelected , - - --- ** flowBoxChildNew - flowBoxChildNew , - - - - - -- * Signals --- ** Activate - FlowBoxChildActivateCallback , - FlowBoxChildActivateCallbackC , - FlowBoxChildActivateSignalInfo , - afterFlowBoxChildActivate , - flowBoxChildActivateCallbackWrapper , - flowBoxChildActivateClosure , - mkFlowBoxChildActivateCallback , - noFlowBoxChildActivateCallback , - onFlowBoxChildActivate , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data FlowBoxChildActivateSignalInfo -instance SignalInfo FlowBoxChildActivateSignalInfo where - type HaskellCallbackType FlowBoxChildActivateSignalInfo = FlowBoxChildActivateCallback - connectSignal _ = connectFlowBoxChildActivate - -type instance SignalList FlowBoxChild = FlowBoxChildSignalList -type FlowBoxChildSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", FlowBoxChildActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FlowBoxChild::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -flowBoxChildChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_flow_box_child_changed _obj' - touchManagedPtr _obj - return () - --- method FlowBoxChild::get_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -flowBoxChildGetIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_child_get_index _obj' - touchManagedPtr _obj - return result - --- method FlowBoxChild::is_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FlowBoxChild", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -flowBoxChildIsSelected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_flow_box_child_is_selected _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - - 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,14 +0,0 @@ -module GI.Gtk.Objects.FlowBoxChild where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FlowBoxChild = FlowBoxChild (ForeignPtr FlowBoxChild) -instance GObject FlowBoxChild where -class GObject o => FlowBoxChildK o -instance (GObject o, IsDescendantOf FlowBoxChild o) => FlowBoxChildK o -data FlowBoxChildActivateSignalInfo 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList FlowBoxChildAccessible = FlowBoxChildAccessibleAttributeList -type FlowBoxChildAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FlowBoxChildAccessible = FlowBoxChildAccessibleSignalList -type FlowBoxChildAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,730 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - fontButtonGetFontName , - - --- ** fontButtonGetShowSize - fontButtonGetShowSize , - - --- ** fontButtonGetShowStyle - fontButtonGetShowStyle , - - --- ** fontButtonGetTitle - fontButtonGetTitle , - - --- ** fontButtonGetUseFont - fontButtonGetUseFont , - - --- ** fontButtonGetUseSize - fontButtonGetUseSize , - - --- ** fontButtonNew - fontButtonNew , - - --- ** fontButtonNewWithFont - fontButtonNewWithFont , - - --- ** fontButtonSetFontName - fontButtonSetFontName , - - --- ** fontButtonSetShowSize - fontButtonSetShowSize , - - --- ** fontButtonSetShowStyle - fontButtonSetShowStyle , - - --- ** fontButtonSetTitle - fontButtonSetTitle , - - --- ** fontButtonSetUseFont - fontButtonSetUseFont , - - --- ** fontButtonSetUseSize - fontButtonSetUseSize , - - - - - -- * Properties --- ** FontName - FontButtonFontNamePropertyInfo , - constructFontButtonFontName , - getFontButtonFontName , - setFontButtonFontName , - - --- ** ShowSize - FontButtonShowSizePropertyInfo , - constructFontButtonShowSize , - getFontButtonShowSize , - setFontButtonShowSize , - - --- ** ShowStyle - FontButtonShowStylePropertyInfo , - constructFontButtonShowStyle , - getFontButtonShowStyle , - setFontButtonShowStyle , - - --- ** Title - FontButtonTitlePropertyInfo , - constructFontButtonTitle , - getFontButtonTitle , - setFontButtonTitle , - - --- ** UseFont - FontButtonUseFontPropertyInfo , - constructFontButtonUseFont , - getFontButtonUseFont , - setFontButtonUseFont , - - --- ** UseSize - FontButtonUseSizePropertyInfo , - constructFontButtonUseSize , - getFontButtonUseSize , - setFontButtonUseSize , - - - - - -- * Signals --- ** FontSet - FontButtonFontSetCallback , - FontButtonFontSetCallbackC , - FontButtonFontSetSignalInfo , - afterFontButtonFontSet , - fontButtonFontSetCallbackWrapper , - fontButtonFontSetClosure , - mkFontButtonFontSetCallback , - noFontButtonFontSetCallback , - onFontButtonFontSet , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> m T.Text -getFontButtonFontName obj = liftIO $ getObjectPropertyString obj "font-name" - -setFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> T.Text -> m () -setFontButtonFontName obj val = liftIO $ setObjectPropertyString obj "font-name" val - -constructFontButtonFontName :: T.Text -> IO ([Char], GValue) -constructFontButtonFontName val = constructObjectPropertyString "font-name" val - -data FontButtonFontNamePropertyInfo -instance AttrInfo FontButtonFontNamePropertyInfo where - type AttrAllowedOps FontButtonFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontButtonFontNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FontButtonFontNamePropertyInfo = FontButtonK - type AttrGetType FontButtonFontNamePropertyInfo = T.Text - type AttrLabel FontButtonFontNamePropertyInfo = "FontButton::font-name" - attrGet _ = getFontButtonFontName - attrSet _ = setFontButtonFontName - attrConstruct _ = constructFontButtonFontName - --- VVV Prop "show-size" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FontButton::show-size" - attrGet _ = getFontButtonShowSize - attrSet _ = setFontButtonShowSize - attrConstruct _ = constructFontButtonShowSize - --- VVV Prop "show-style" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FontButton::show-style" - attrGet _ = getFontButtonShowStyle - attrSet _ = setFontButtonShowStyle - attrConstruct _ = constructFontButtonShowStyle - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> m T.Text -getFontButtonTitle obj = liftIO $ getObjectPropertyString obj "title" - -setFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> T.Text -> m () -setFontButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructFontButtonTitle :: T.Text -> IO ([Char], GValue) -constructFontButtonTitle val = constructObjectPropertyString "title" 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 = "FontButton::title" - attrGet _ = getFontButtonTitle - attrSet _ = setFontButtonTitle - attrConstruct _ = constructFontButtonTitle - --- VVV Prop "use-font" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FontButton::use-font" - attrGet _ = getFontButtonUseFont - attrSet _ = setFontButtonUseFont - attrConstruct _ = constructFontButtonUseFont - --- VVV Prop "use-size" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "FontButton::use-size" - attrGet _ = getFontButtonUseSize - attrSet _ = setFontButtonUseSize - attrConstruct _ = constructFontButtonUseSize - -type instance AttributeList FontButton = FontButtonAttributeList -type FontButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("font-name", FontButtonFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("show-size", FontButtonShowSizePropertyInfo), '("show-style", FontButtonShowStylePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FontButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-font", FontButtonUseFontPropertyInfo), '("use-size", FontButtonUseSizePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -data FontButtonFontSetSignalInfo -instance SignalInfo FontButtonFontSetSignalInfo where - type HaskellCallbackType FontButtonFontSetSignalInfo = FontButtonFontSetCallback - connectSignal _ = connectFontButtonFontSet - -type instance SignalList FontButton = FontButtonSignalList -type FontButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("font-set", FontButtonFontSetSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FontButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontButton::get_show_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fontButtonGetShowSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_show_size _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FontButton::get_show_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fontButtonGetShowStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_show_style _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FontButton::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontButton::get_use_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fontButtonGetUseFont _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_use_font _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FontButton::get_use_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -fontButtonGetUseSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_button_get_use_size _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method FontButton::set_font_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method FontButton::set_show_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_size - m () -fontButtonSetShowSize _obj show_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_size' = (fromIntegral . fromEnum) show_size - gtk_font_button_set_show_size _obj' show_size' - touchManagedPtr _obj - return () - --- method FontButton::set_show_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_style", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_style - m () -fontButtonSetShowStyle _obj show_style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_style' = (fromIntegral . fromEnum) show_style - gtk_font_button_set_show_style _obj' show_style' - touchManagedPtr _obj - return () - --- method FontButton::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -fontButtonSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_font_button_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - --- method FontButton::set_use_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_font", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_font - m () -fontButtonSetUseFont _obj use_font = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_font' = (fromIntegral . fromEnum) use_font - gtk_font_button_set_use_font _obj' use_font' - touchManagedPtr _obj - return () - --- method FontButton::set_use_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_size - m () -fontButtonSetUseSize _obj use_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_size' = (fromIntegral . fromEnum) use_size - gtk_font_button_set_use_size _obj' use_size' - touchManagedPtr _obj - return () - - 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,20 +0,0 @@ -module GI.Gtk.Objects.FontButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,104 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList FontChooserDialog = FontChooserDialogAttributeList -type FontChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FontChooserDialog = FontChooserDialogSignalList -type FontChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FontChooserDialog::new --- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList FontChooserWidget = FontChooserWidgetAttributeList -type FontChooserWidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FontChooserWidget = FontChooserWidgetSignalList -type FontChooserWidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FontChooserWidget::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,518 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - fontSelectionGetFace , - - --- ** fontSelectionGetFaceList - fontSelectionGetFaceList , - - --- ** fontSelectionGetFamily - fontSelectionGetFamily , - - --- ** fontSelectionGetFamilyList - fontSelectionGetFamilyList , - - --- ** fontSelectionGetFontName - fontSelectionGetFontName , - - --- ** fontSelectionGetPreviewEntry - fontSelectionGetPreviewEntry , - - --- ** fontSelectionGetPreviewText - fontSelectionGetPreviewText , - - --- ** fontSelectionGetSize - fontSelectionGetSize , - - --- ** fontSelectionGetSizeEntry - fontSelectionGetSizeEntry , - - --- ** fontSelectionGetSizeList - fontSelectionGetSizeList , - - --- ** fontSelectionNew - fontSelectionNew , - - --- ** fontSelectionSetFontName - fontSelectionSetFontName , - - --- ** fontSelectionSetPreviewText - fontSelectionSetPreviewText , - - - - - -- * Properties --- ** FontName - FontSelectionFontNamePropertyInfo , - constructFontSelectionFontName , - getFontSelectionFontName , - setFontSelectionFontName , - - --- ** PreviewText - FontSelectionPreviewTextPropertyInfo , - constructFontSelectionPreviewText , - getFontSelectionPreviewText , - setFontSelectionPreviewText , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "font-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m 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" val - -constructFontSelectionFontName :: T.Text -> IO ([Char], GValue) -constructFontSelectionFontName val = constructObjectPropertyString "font-name" val - -data FontSelectionFontNamePropertyInfo -instance AttrInfo FontSelectionFontNamePropertyInfo where - type AttrAllowedOps FontSelectionFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FontSelectionFontNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FontSelectionFontNamePropertyInfo = FontSelectionK - type AttrGetType FontSelectionFontNamePropertyInfo = T.Text - type AttrLabel FontSelectionFontNamePropertyInfo = "FontSelection::font-name" - attrGet _ = getFontSelectionFontName - attrSet _ = setFontSelectionFontName - attrConstruct _ = constructFontSelectionFontName - --- VVV Prop "preview-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> m T.Text -getFontSelectionPreviewText obj = liftIO $ getObjectPropertyString obj "preview-text" - -setFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> T.Text -> m () -setFontSelectionPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" val - -constructFontSelectionPreviewText :: T.Text -> IO ([Char], GValue) -constructFontSelectionPreviewText val = constructObjectPropertyString "preview-text" 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 = "FontSelection::preview-text" - attrGet _ = getFontSelectionPreviewText - attrSet _ = setFontSelectionPreviewText - attrConstruct _ = constructFontSelectionPreviewText - -type instance AttributeList FontSelection = FontSelectionAttributeList -type FontSelectionAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("font-name", FontSelectionFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontSelectionPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FontSelection = FontSelectionSignalList -type FontSelectionSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FontSelection::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::get_face_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::get_family --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::get_family_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::get_font_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::get_preview_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::get_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -fontSelectionGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_font_selection_get_size _obj' - touchManagedPtr _obj - return result - --- method FontSelection::get_size_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::get_size_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelection::set_font_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method FontSelection::set_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.FontSelection where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,308 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - fontSelectionDialogGetCancelButton , - - --- ** fontSelectionDialogGetFontName - fontSelectionDialogGetFontName , - - --- ** fontSelectionDialogGetFontSelection - fontSelectionDialogGetFontSelection , - - --- ** fontSelectionDialogGetOkButton - fontSelectionDialogGetOkButton , - - --- ** fontSelectionDialogGetPreviewText - fontSelectionDialogGetPreviewText , - - --- ** fontSelectionDialogNew - fontSelectionDialogNew , - - --- ** fontSelectionDialogSetFontName - fontSelectionDialogSetFontName , - - --- ** fontSelectionDialogSetPreviewText - fontSelectionDialogSetPreviewText , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList FontSelectionDialog = FontSelectionDialogAttributeList -type FontSelectionDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FontSelectionDialog = FontSelectionDialogSignalList -type FontSelectionDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FontSelectionDialog::new --- method type : Constructor --- Args : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelectionDialog::get_font_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelectionDialog::get_font_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelectionDialog::get_ok_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelectionDialog::get_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method FontSelectionDialog::set_font_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method FontSelectionDialog::set_preview_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "FontSelectionDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.FontSelectionDialog where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FontSelectionDialog = FontSelectionDialog (ForeignPtr FontSelectionDialog) -instance GObject FontSelectionDialog where -class GObject o => FontSelectionDialogK o -instance (GObject o, IsDescendantOf FontSelectionDialog o) => FontSelectionDialogK o 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,518 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - frameGetLabel , - - --- ** frameGetLabelAlign - frameGetLabelAlign , - - --- ** frameGetLabelWidget - frameGetLabelWidget , - - --- ** frameGetShadowType - frameGetShadowType , - - --- ** frameNew - frameNew , - - --- ** frameSetLabel - frameSetLabel , - - --- ** frameSetLabelAlign - frameSetLabelAlign , - - --- ** frameSetLabelWidget - frameSetLabelWidget , - - --- ** frameSetShadowType - frameSetShadowType , - - - - - -- * Properties --- ** Label - FrameLabelPropertyInfo , - constructFrameLabel , - getFrameLabel , - setFrameLabel , - - --- ** LabelWidget - FrameLabelWidgetPropertyInfo , - constructFrameLabelWidget , - getFrameLabelWidget , - setFrameLabelWidget , - - --- ** LabelXalign - FrameLabelXalignPropertyInfo , - constructFrameLabelXalign , - getFrameLabelXalign , - setFrameLabelXalign , - - --- ** LabelYalign - FrameLabelYalignPropertyInfo , - constructFrameLabelYalign , - getFrameLabelYalign , - setFrameLabelYalign , - - --- ** ShadowType - FrameShadowTypePropertyInfo , - constructFrameShadowType , - getFrameShadowType , - setFrameShadowType , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getFrameLabel :: (MonadIO m, FrameK o) => o -> m T.Text -getFrameLabel obj = liftIO $ getObjectPropertyString obj "label" - -setFrameLabel :: (MonadIO m, FrameK o) => o -> T.Text -> m () -setFrameLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructFrameLabel :: T.Text -> IO ([Char], GValue) -constructFrameLabel val = constructObjectPropertyString "label" val - -data FrameLabelPropertyInfo -instance AttrInfo FrameLabelPropertyInfo where - type AttrAllowedOps FrameLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FrameLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint FrameLabelPropertyInfo = FrameK - type AttrGetType FrameLabelPropertyInfo = T.Text - type AttrLabel FrameLabelPropertyInfo = "Frame::label" - attrGet _ = getFrameLabel - attrSet _ = setFrameLabel - attrConstruct _ = constructFrameLabel - --- VVV Prop "label-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m 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" val - -constructFrameLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructFrameLabelWidget val = constructObjectPropertyObject "label-widget" val - -data FrameLabelWidgetPropertyInfo -instance AttrInfo FrameLabelWidgetPropertyInfo where - type AttrAllowedOps FrameLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FrameLabelWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint FrameLabelWidgetPropertyInfo = FrameK - type AttrGetType FrameLabelWidgetPropertyInfo = Widget - type AttrLabel FrameLabelWidgetPropertyInfo = "Frame::label-widget" - attrGet _ = getFrameLabelWidget - attrSet _ = setFrameLabelWidget - attrConstruct _ = constructFrameLabelWidget - --- VVV Prop "label-xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Frame::label-xalign" - attrGet _ = getFrameLabelXalign - attrSet _ = setFrameLabelXalign - attrConstruct _ = constructFrameLabelXalign - --- VVV Prop "label-yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Frame::label-yalign" - attrGet _ = getFrameLabelYalign - attrSet _ = setFrameLabelYalign - attrConstruct _ = constructFrameLabelYalign - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Frame::shadow-type" - attrGet _ = getFrameShadowType - attrSet _ = setFrameShadowType - attrConstruct _ = constructFrameShadowType - -type instance AttributeList Frame = FrameAttributeList -type FrameAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("label-widget", FrameLabelWidgetPropertyInfo), '("label-xalign", FrameLabelXalignPropertyInfo), '("label-yalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Frame = FrameSignalList -type FrameSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Frame::new --- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Frame::get_label_align --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method Frame::get_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Widget -frameGetLabelWidget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_frame_get_label_widget _obj' - checkUnexpectedReturnNULL "gtk_frame_get_label_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Frame::get_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -frameGetShadowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_frame_get_shadow_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Frame::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Frame::set_label_align --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Frame::set_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- label_widget - m () -frameSetLabelWidget _obj label_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel_widget <- case label_widget of - Nothing -> return nullPtr - Just jLabel_widget -> do - let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget - return jLabel_widget' - gtk_frame_set_label_widget _obj' maybeLabel_widget - touchManagedPtr _obj - whenJust label_widget touchManagedPtr - return () - --- method Frame::set_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Frame", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -frameSetShadowType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_frame_set_shadow_type _obj' type_' - touchManagedPtr _obj - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.Frame where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList FrameAccessible = FrameAccessibleAttributeList -type FrameAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FrameAccessible = FrameAccessibleSignalList -type FrameAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,909 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - gLAreaAttachBuffers , - - --- ** gLAreaGetAutoRender - gLAreaGetAutoRender , - - --- ** gLAreaGetContext - gLAreaGetContext , - - --- ** gLAreaGetError - gLAreaGetError , - - --- ** gLAreaGetHasAlpha - gLAreaGetHasAlpha , - - --- ** gLAreaGetHasDepthBuffer - gLAreaGetHasDepthBuffer , - - --- ** gLAreaGetHasStencilBuffer - gLAreaGetHasStencilBuffer , - - --- ** gLAreaGetRequiredVersion - gLAreaGetRequiredVersion , - - --- ** gLAreaMakeCurrent - gLAreaMakeCurrent , - - --- ** gLAreaNew - gLAreaNew , - - --- ** gLAreaQueueRender - gLAreaQueueRender , - - --- ** gLAreaSetAutoRender - gLAreaSetAutoRender , - - --- ** gLAreaSetError - gLAreaSetError , - - --- ** gLAreaSetHasAlpha - gLAreaSetHasAlpha , - - --- ** gLAreaSetHasDepthBuffer - gLAreaSetHasDepthBuffer , - - --- ** gLAreaSetHasStencilBuffer - gLAreaSetHasStencilBuffer , - - --- ** gLAreaSetRequiredVersion - gLAreaSetRequiredVersion , - - - - - -- * Properties --- ** AutoRender - GLAreaAutoRenderPropertyInfo , - constructGLAreaAutoRender , - getGLAreaAutoRender , - setGLAreaAutoRender , - - --- ** Context - GLAreaContextPropertyInfo , - getGLAreaContext , - - --- ** HasAlpha - GLAreaHasAlphaPropertyInfo , - constructGLAreaHasAlpha , - getGLAreaHasAlpha , - setGLAreaHasAlpha , - - --- ** HasDepthBuffer - GLAreaHasDepthBufferPropertyInfo , - constructGLAreaHasDepthBuffer , - getGLAreaHasDepthBuffer , - setGLAreaHasDepthBuffer , - - --- ** HasStencilBuffer - GLAreaHasStencilBufferPropertyInfo , - constructGLAreaHasStencilBuffer , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "GLArea::auto-render" - attrGet _ = getGLAreaAutoRender - attrSet _ = setGLAreaAutoRender - attrConstruct _ = constructGLAreaAutoRender - --- VVV Prop "context" - -- Type: TInterface "Gdk" "GLContext" - -- Flags: [PropertyReadable] - -getGLAreaContext :: (MonadIO m, GLAreaK o) => o -> m Gdk.GLContext -getGLAreaContext obj = liftIO $ getObjectPropertyObject obj "context" Gdk.GLContext - -data GLAreaContextPropertyInfo -instance AttrInfo GLAreaContextPropertyInfo where - type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) () - type AttrBaseTypeConstraint GLAreaContextPropertyInfo = GLAreaK - type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext - type AttrLabel GLAreaContextPropertyInfo = "GLArea::context" - attrGet _ = getGLAreaContext - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "has-alpha" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "GLArea::has-alpha" - attrGet _ = getGLAreaHasAlpha - attrSet _ = setGLAreaHasAlpha - attrConstruct _ = constructGLAreaHasAlpha - --- VVV Prop "has-depth-buffer" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "GLArea::has-depth-buffer" - attrGet _ = getGLAreaHasDepthBuffer - attrSet _ = setGLAreaHasDepthBuffer - attrConstruct _ = constructGLAreaHasDepthBuffer - --- VVV Prop "has-stencil-buffer" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "GLArea::has-stencil-buffer" - attrGet _ = getGLAreaHasStencilBuffer - attrSet _ = setGLAreaHasStencilBuffer - attrConstruct _ = constructGLAreaHasStencilBuffer - -type instance AttributeList GLArea = GLAreaAttributeList -type GLAreaAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("auto-render", GLAreaAutoRenderPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-alpha", GLAreaHasAlphaPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-depth-buffer", GLAreaHasDepthBufferPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-stencil-buffer", GLAreaHasStencilBufferPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-context", GLAreaCreateContextSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("render", GLAreaRenderSignalInfo), '("resize", GLAreaResizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GLArea::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gLAreaAttachBuffers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gl_area_attach_buffers _obj' - touchManagedPtr _obj - return () - --- method GLArea::get_auto_render --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gLAreaGetAutoRender _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gl_area_get_auto_render _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method GLArea::get_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method GLArea::get_error --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method GLArea::get_has_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gLAreaGetHasAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gl_area_get_has_alpha _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method GLArea::get_has_depth_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method GLArea::get_has_stencil_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method GLArea::get_required_version --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- minor : TBasicType TInt32 - IO () - - -gLAreaGetRequiredVersion :: - (MonadIO m, GLAreaK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method GLArea::make_current --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gLAreaMakeCurrent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gl_area_make_current _obj' - touchManagedPtr _obj - return () - --- method GLArea::queue_render --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gLAreaQueueRender _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gl_area_queue_render _obj' - touchManagedPtr _obj - return () - --- method GLArea::set_auto_render --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_render", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- auto_render - m () -gLAreaSetAutoRender _obj auto_render = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let auto_render' = (fromIntegral . fromEnum) auto_render - gtk_gl_area_set_auto_render _obj' auto_render' - touchManagedPtr _obj - return () - --- method GLArea::set_error --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method GLArea::set_has_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- has_alpha - m () -gLAreaSetHasAlpha _obj has_alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_alpha' = (fromIntegral . fromEnum) has_alpha - gtk_gl_area_set_has_alpha _obj' has_alpha' - touchManagedPtr _obj - return () - --- method GLArea::set_has_depth_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_depth_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- has_depth_buffer - m () -gLAreaSetHasDepthBuffer _obj has_depth_buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_depth_buffer' = (fromIntegral . fromEnum) has_depth_buffer - gtk_gl_area_set_has_depth_buffer _obj' has_depth_buffer' - touchManagedPtr _obj - return () - --- method GLArea::set_has_stencil_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_stencil_buffer", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- has_stencil_buffer - m () -gLAreaSetHasStencilBuffer _obj has_stencil_buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_stencil_buffer' = (fromIntegral . fromEnum) has_stencil_buffer - gtk_gl_area_set_has_stencil_buffer _obj' has_stencil_buffer' - touchManagedPtr _obj - return () - --- method GLArea::set_required_version --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GLArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_gl_area_set_required_version" gtk_gl_area_set_required_version :: - Ptr GLArea -> -- _obj : TInterface "Gtk" "GLArea" - Int32 -> -- major : TBasicType TInt32 - Int32 -> -- minor : TBasicType TInt32 - IO () - - -gLAreaSetRequiredVersion :: - (MonadIO m, GLAreaK a) => - a -> -- _obj - Int32 -> -- major - Int32 -> -- minor - m () -gLAreaSetRequiredVersion _obj major minor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gl_area_set_required_version _obj' major minor - touchManagedPtr _obj - return () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.GLArea where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1053 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - gestureGetBoundingBox , - - --- ** gestureGetBoundingBoxCenter - gestureGetBoundingBoxCenter , - - --- ** gestureGetDevice - gestureGetDevice , - - --- ** gestureGetGroup - gestureGetGroup , - - --- ** gestureGetLastEvent - gestureGetLastEvent , - - --- ** gestureGetLastUpdatedSequence - gestureGetLastUpdatedSequence , - - --- ** gestureGetPoint - gestureGetPoint , - - --- ** gestureGetSequenceState - gestureGetSequenceState , - - --- ** gestureGetSequences - gestureGetSequences , - - --- ** gestureGetWindow - gestureGetWindow , - - --- ** gestureGroup - gestureGroup , - - --- ** gestureHandlesSequence - gestureHandlesSequence , - - --- ** gestureIsActive - gestureIsActive , - - --- ** gestureIsGroupedWith - gestureIsGroupedWith , - - --- ** gestureIsRecognized - gestureIsRecognized , - - --- ** gestureSetSequenceState - gestureSetSequenceState , - - --- ** gestureSetState - gestureSetState , - - --- ** gestureSetWindow - gestureSetWindow , - - --- ** gestureUngroup - gestureUngroup , - - - - - -- * Properties --- ** NPoints - GestureNPointsPropertyInfo , - constructGestureNPoints , - getGestureNPoints , - - --- ** Window - GestureWindowPropertyInfo , - constructGestureWindow , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Cairo as Cairo - -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 - --- 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 TUInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getGestureNPoints :: (MonadIO m, GestureK o) => o -> m Word32 -getGestureNPoints obj = liftIO $ getObjectPropertyCUInt obj "n-points" - -constructGestureNPoints :: Word32 -> IO ([Char], GValue) -constructGestureNPoints val = constructObjectPropertyCUInt "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 = "Gesture::n-points" - attrGet _ = getGestureNPoints - attrSet _ = undefined - attrConstruct _ = constructGestureNPoints - --- VVV Prop "window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable,PropertyWritable] - -getGestureWindow :: (MonadIO m, GestureK o) => o -> m Gdk.Window -getGestureWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window - -setGestureWindow :: (MonadIO m, GestureK o, Gdk.WindowK a) => o -> a -> m () -setGestureWindow obj val = liftIO $ setObjectPropertyObject obj "window" val - -constructGestureWindow :: (Gdk.WindowK a) => a -> IO ([Char], GValue) -constructGestureWindow val = constructObjectPropertyObject "window" val - -data GestureWindowPropertyInfo -instance AttrInfo GestureWindowPropertyInfo where - type AttrAllowedOps GestureWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint GestureWindowPropertyInfo = Gdk.WindowK - type AttrBaseTypeConstraint GestureWindowPropertyInfo = GestureK - type AttrGetType GestureWindowPropertyInfo = Gdk.Window - type AttrLabel GestureWindowPropertyInfo = "Gesture::window" - attrGet _ = getGestureWindow - attrSet _ = setGestureWindow - attrConstruct _ = constructGestureWindow - -type instance AttributeList Gesture = GestureAttributeList -type GestureAttributeList = ('[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -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), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Gesture::get_bounding_box --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO CInt - - -gestureGetBoundingBox :: - (MonadIO m, GestureK a) => - a -> -- _obj - m (Bool,Cairo.RectangleInt) -gestureGetBoundingBox _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - result <- gtk_gesture_get_bounding_box _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Cairo.RectangleInt) rect - touchManagedPtr _obj - return (result', rect') - --- method Gesture::get_bounding_box_center --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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'') - --- method Gesture::get_device --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gesture::get_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -gestureGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_get_group _obj' - checkUnexpectedReturnNULL "gtk_gesture_get_group" result - result' <- unpackGList result - result'' <- mapM (newObject Gesture) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Gesture::get_last_event --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Gdk.Event -gestureGetLastEvent _obj sequence = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sequence' = unsafeManagedPtrGetPtr sequence - result <- gtk_gesture_get_last_event _obj' sequence' - checkUnexpectedReturnNULL "gtk_gesture_get_last_event" result - result' <- (newBoxed Gdk.Event) result - touchManagedPtr _obj - touchManagedPtr sequence - return result' - --- method Gesture::get_last_updated_sequence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Gdk.EventSequence -gestureGetLastUpdatedSequence _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_get_last_updated_sequence _obj' - checkUnexpectedReturnNULL "gtk_gesture_get_last_updated_sequence" result - result' <- (wrapBoxed Gdk.EventSequence) result - touchManagedPtr _obj - return result' - --- method Gesture::get_point --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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'') - --- method Gesture::get_sequence_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gesture::get_sequences --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -gestureGetSequences _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_get_sequences _obj' - checkUnexpectedReturnNULL "gtk_gesture_get_sequences" result - result' <- unpackGList result - result'' <- mapM (newBoxed Gdk.EventSequence) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Gesture::get_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gesture::group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gesture", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gestureGroup _obj gesture = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let gesture' = unsafeManagedPtrCastPtr gesture - gtk_gesture_group _obj' gesture' - touchManagedPtr _obj - touchManagedPtr gesture - return () - --- method Gesture::handles_sequence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gesture::is_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gestureIsActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_is_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Gesture::is_grouped_with --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gesture::is_recognized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gestureIsRecognized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_is_recognized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Gesture::set_sequence_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sequence", argType = TInterface "Gdk" "EventSequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gesture::set_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "EventSequenceState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gesture::set_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Gesture::ungroup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gesture", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gestureUngroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gesture_ungroup _obj' - touchManagedPtr _obj - return () - - 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,20 +0,0 @@ -module GI.Gtk.Objects.Gesture where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,287 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 --- ** 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ start_x start_y _ = do - let start_x' = realToFrac start_x - let start_y' = realToFrac start_y - _cb start_x' start_y' - -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 _ offset_x offset_y _ = do - let offset_x' = realToFrac offset_x - let offset_y' = realToFrac offset_y - _cb offset_x' offset_y' - -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 _ offset_x offset_y _ = do - let offset_x' = realToFrac offset_x - let offset_y' = realToFrac offset_y - _cb offset_x' offset_y' - -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), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", 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), '("drag-begin", GestureDragDragBeginSignalInfo), '("drag-end", GestureDragDragEndSignalInfo), '("drag-update", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GestureDrag::new --- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- XXX Could not generate method GestureDrag::get_offset --- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such." --- XXX Could not generate method GestureDrag::get_start_point --- Error was : Bad introspection data: "argument \"x\" is not of nullable type (TBasicType TDouble), but it is marked as such." - 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,16 +0,0 @@ -module GI.Gtk.Objects.GestureDrag where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,246 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "GestureLongPress::delay-factor" - attrGet _ = getGestureLongPressDelayFactor - attrSet _ = setGestureLongPressDelayFactor - attrConstruct _ = constructGestureLongPressDelayFactor - -type instance AttributeList GestureLongPress = GestureLongPressAttributeList -type GestureLongPressAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("delay-factor", GestureLongPressDelayFactorPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -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), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GestureLongPress::new --- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,350 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - gestureMultiPressGetArea , - - --- ** gestureMultiPressNew - gestureMultiPressNew , - - --- ** gestureMultiPressSetArea - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Cairo as Cairo - -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 - --- 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 _ n_press x y _ = do - let x' = realToFrac x - let y' = realToFrac y - _cb n_press 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 _ n_press x y _ = do - let x' = realToFrac x - let y' = realToFrac y - _cb n_press 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), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", 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), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("stopped", GestureMultiPressStoppedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GestureMultiPress::new --- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO CInt - - -gestureMultiPressGetArea :: - (MonadIO m, GestureMultiPressK a) => - a -> -- _obj - m (Bool,Cairo.RectangleInt) -gestureMultiPressGetArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - result <- gtk_gesture_multi_press_get_area _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Cairo.RectangleInt) rect - touchManagedPtr _obj - return (result', rect') - --- method GestureMultiPress::set_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureMultiPress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO () - - -gestureMultiPressSetArea :: - (MonadIO m, GestureMultiPressK a) => - a -> -- _obj - Maybe (Cairo.RectangleInt) -> -- rect - m () -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 () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.GestureMultiPress where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,254 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - gesturePanGetOrientation , - - --- ** gesturePanNew - gesturePanNew , - - --- ** gesturePanSetOrientation - gesturePanSetOrientation , - - - - - -- * Properties --- ** Orientation - GesturePanOrientationPropertyInfo , - constructGesturePanOrientation , - getGesturePanOrientation , - setGesturePanOrientation , - - - - - -- * Signals --- ** Pan - GesturePanPanCallback , - GesturePanPanCallbackC , - GesturePanPanSignalInfo , - afterGesturePanPan , - gesturePanPanCallbackWrapper , - gesturePanPanClosure , - mkGesturePanPanCallback , - noGesturePanPanCallback , - onGesturePanPan , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "GesturePan::orientation" - attrGet _ = getGesturePanOrientation - attrSet _ = setGesturePanOrientation - attrConstruct _ = constructGesturePanOrientation - -type instance AttributeList GesturePan = GesturePanAttributeList -type GesturePanAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("orientation", GesturePanOrientationPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -data GesturePanPanSignalInfo -instance SignalInfo GesturePanPanSignalInfo where - type HaskellCallbackType GesturePanPanSignalInfo = GesturePanPanCallback - connectSignal _ = connectGesturePanPan - -type instance SignalList GesturePan = GesturePanSignalList -type GesturePanSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("drag-begin", GestureDragDragBeginSignalInfo), '("drag-end", GestureDragDragEndSignalInfo), '("drag-update", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pan", GesturePanPanSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GesturePan::new --- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gesturePanGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_pan_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method GesturePan::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GesturePan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gesturePanSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_gesture_pan_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.GesturePan where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.Objects.GestureRotate - ( - --- * Exported types - GestureRotate(..) , - GestureRotateK , - toGestureRotate , - noGestureRotate , - - - -- * Methods --- ** gestureRotateGetAngleDelta - gestureRotateGetAngleDelta , - - --- ** gestureRotateNew - gestureRotateNew , - - - - - -- * Signals --- ** AngleChanged - GestureRotateAngleChangedCallback , - GestureRotateAngleChangedCallbackC , - GestureRotateAngleChangedSignalInfo , - afterGestureRotateAngleChanged , - gestureRotateAngleChangedCallbackWrapper, - gestureRotateAngleChangedClosure , - mkGestureRotateAngleChangedCallback , - noGestureRotateAngleChangedCallback , - onGestureRotateAngleChanged , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 angle_delta _ = do - let angle' = realToFrac angle - let angle_delta' = realToFrac angle_delta - _cb angle' angle_delta' - -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 = ('[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", 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 = ('[ '("angle-changed", GestureRotateAngleChangedSignalInfo), '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GestureRotate::new --- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureRotate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gestureRotateGetAngleDelta _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_rotate_get_angle_delta _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - - 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,14 +0,0 @@ -module GI.Gtk.Objects.GestureRotate where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype GestureRotate = GestureRotate (ForeignPtr GestureRotate) -instance GObject GestureRotate where -class GObject o => GestureRotateK o -instance (GObject o, IsDescendantOf GestureRotate o) => GestureRotateK o -data GestureRotateAngleChangedSignalInfo 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,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.Objects.GestureSingle - ( - --- * Exported types - GestureSingle(..) , - GestureSingleK , - toGestureSingle , - noGestureSingle , - - - -- * Methods --- ** gestureSingleGetButton - gestureSingleGetButton , - - --- ** gestureSingleGetCurrentButton - gestureSingleGetCurrentButton , - - --- ** gestureSingleGetCurrentSequence - gestureSingleGetCurrentSequence , - - --- ** gestureSingleGetExclusive - gestureSingleGetExclusive , - - --- ** gestureSingleGetTouchOnly - gestureSingleGetTouchOnly , - - --- ** gestureSingleSetButton - gestureSingleSetButton , - - --- ** gestureSingleSetExclusive - gestureSingleSetExclusive , - - --- ** gestureSingleSetTouchOnly - gestureSingleSetTouchOnly , - - - - - -- * Properties --- ** Button - GestureSingleButtonPropertyInfo , - constructGestureSingleButton , - getGestureSingleButton , - setGestureSingleButton , - - --- ** Exclusive - GestureSingleExclusivePropertyInfo , - constructGestureSingleExclusive , - getGestureSingleExclusive , - setGestureSingleExclusive , - - --- ** TouchOnly - GestureSingleTouchOnlyPropertyInfo , - constructGestureSingleTouchOnly , - getGestureSingleTouchOnly , - setGestureSingleTouchOnly , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "button" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> m Word32 -getGestureSingleButton obj = liftIO $ getObjectPropertyCUInt obj "button" - -setGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> Word32 -> m () -setGestureSingleButton obj val = liftIO $ setObjectPropertyCUInt obj "button" val - -constructGestureSingleButton :: Word32 -> IO ([Char], GValue) -constructGestureSingleButton val = constructObjectPropertyCUInt "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 = "GestureSingle::button" - attrGet _ = getGestureSingleButton - attrSet _ = setGestureSingleButton - attrConstruct _ = constructGestureSingleButton - --- VVV Prop "exclusive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "GestureSingle::exclusive" - attrGet _ = getGestureSingleExclusive - attrSet _ = setGestureSingleExclusive - attrConstruct _ = constructGestureSingleExclusive - --- VVV Prop "touch-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "GestureSingle::touch-only" - attrGet _ = getGestureSingleTouchOnly - attrSet _ = setGestureSingleTouchOnly - attrConstruct _ = constructGestureSingleTouchOnly - -type instance AttributeList GestureSingle = GestureSingleAttributeList -type GestureSingleAttributeList = ('[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList GestureSingle = GestureSingleSignalList -type GestureSingleSignalList = ('[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GestureSingle::get_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -gestureSingleGetButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_button _obj' - touchManagedPtr _obj - return result - --- method GestureSingle::get_current_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -gestureSingleGetCurrentButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_current_button _obj' - touchManagedPtr _obj - return result - --- method GestureSingle::get_current_sequence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Gdk.EventSequence -gestureSingleGetCurrentSequence _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_current_sequence _obj' - checkUnexpectedReturnNULL "gtk_gesture_single_get_current_sequence" result - result' <- (wrapBoxed Gdk.EventSequence) result - touchManagedPtr _obj - return result' - --- method GestureSingle::get_exclusive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gestureSingleGetExclusive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_exclusive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method GestureSingle::get_touch_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gestureSingleGetTouchOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_single_get_touch_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method GestureSingle::set_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -gestureSingleSetButton :: - (MonadIO m, GestureSingleK a) => - a -> -- _obj - Word32 -> -- button - m () -gestureSingleSetButton _obj button = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_gesture_single_set_button _obj' button - touchManagedPtr _obj - return () - --- method GestureSingle::set_exclusive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gestureSingleSetExclusive _obj exclusive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let exclusive' = (fromIntegral . fromEnum) exclusive - gtk_gesture_single_set_exclusive _obj' exclusive' - touchManagedPtr _obj - return () - --- method GestureSingle::set_touch_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSingle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "touch_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- touch_only - m () -gestureSingleSetTouchOnly _obj touch_only = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let touch_only' = (fromIntegral . fromEnum) touch_only - gtk_gesture_single_set_touch_only _obj' touch_only' - touchManagedPtr _obj - return () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.GestureSingle where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,196 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Objects.GestureSwipe - ( - --- * Exported types - GestureSwipe(..) , - GestureSwipeK , - toGestureSwipe , - noGestureSwipe , - - - -- * Methods --- ** gestureSwipeGetVelocity - gestureSwipeGetVelocity , - - --- ** gestureSwipeNew - gestureSwipeNew , - - - - - -- * Signals --- ** Swipe - GestureSwipeSwipeCallback , - GestureSwipeSwipeCallbackC , - GestureSwipeSwipeSignalInfo , - afterGestureSwipeSwipe , - gestureSwipeSwipeCallbackWrapper , - gestureSwipeSwipeClosure , - mkGestureSwipeSwipeCallback , - noGestureSwipeSwipeCallback , - onGestureSwipeSwipe , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ velocity_x velocity_y _ = do - let velocity_x' = realToFrac velocity_x - let velocity_y' = realToFrac velocity_y - _cb velocity_x' velocity_y' - -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), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", 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), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("swipe", GestureSwipeSwipeSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GestureSwipe::new --- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "velocity_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "velocity_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureSwipe", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -gestureSwipeGetVelocity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - velocity_x <- allocMem :: IO (Ptr CDouble) - velocity_y <- allocMem :: IO (Ptr CDouble) - result <- gtk_gesture_swipe_get_velocity _obj' velocity_x velocity_y - let result' = (/= 0) result - velocity_x' <- peek velocity_x - let velocity_x'' = realToFrac velocity_x' - velocity_y' <- peek velocity_y - let velocity_y'' = realToFrac velocity_y' - touchManagedPtr _obj - freeMem velocity_x - freeMem velocity_y - return (result', velocity_x'', velocity_y'') - - 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,14 +0,0 @@ -module GI.Gtk.Objects.GestureSwipe where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype GestureSwipe = GestureSwipe (ForeignPtr GestureSwipe) -instance GObject GestureSwipe where -class GObject o => GestureSwipeK o -instance (GObject o, IsDescendantOf GestureSwipe o) => GestureSwipeK o -data GestureSwipeSwipeSignalInfo 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,182 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Objects.GestureZoom - ( - --- * Exported types - GestureZoom(..) , - GestureZoomK , - toGestureZoom , - noGestureZoom , - - - -- * Methods --- ** gestureZoomGetScaleDelta - gestureZoomGetScaleDelta , - - --- ** gestureZoomNew - gestureZoomNew , - - - - - -- * Signals --- ** ScaleChanged - GestureZoomScaleChangedCallback , - GestureZoomScaleChangedCallbackC , - GestureZoomScaleChangedSignalInfo , - afterGestureZoomScaleChanged , - gestureZoomScaleChangedCallbackWrapper , - gestureZoomScaleChangedClosure , - mkGestureZoomScaleChangedCallback , - noGestureZoomScaleChangedCallback , - onGestureZoomScaleChanged , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 = ('[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", 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), '("scale-changed", GestureZoomScaleChangedSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GestureZoom::new --- method type : Constructor --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "GestureZoom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gestureZoomGetScaleDelta _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_gesture_zoom_get_scale_delta _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - - 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,14 +0,0 @@ -module GI.Gtk.Objects.GestureZoom where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype GestureZoom = GestureZoom (ForeignPtr GestureZoom) -instance GObject GestureZoom where -class GObject o => GestureZoomK o -instance (GObject o, IsDescendantOf GestureZoom o) => GestureZoomK o -data GestureZoomScaleChangedSignalInfo 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,880 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - gridAttach , - - --- ** gridAttachNextTo - gridAttachNextTo , - - --- ** gridGetBaselineRow - gridGetBaselineRow , - - --- ** gridGetChildAt - gridGetChildAt , - - --- ** gridGetColumnHomogeneous - gridGetColumnHomogeneous , - - --- ** gridGetColumnSpacing - gridGetColumnSpacing , - - --- ** gridGetRowBaselinePosition - gridGetRowBaselinePosition , - - --- ** gridGetRowHomogeneous - gridGetRowHomogeneous , - - --- ** gridGetRowSpacing - gridGetRowSpacing , - - --- ** gridInsertColumn - gridInsertColumn , - - --- ** gridInsertNextTo - gridInsertNextTo , - - --- ** gridInsertRow - gridInsertRow , - - --- ** gridNew - gridNew , - - --- ** gridRemoveColumn - gridRemoveColumn , - - --- ** gridRemoveRow - gridRemoveRow , - - --- ** gridSetBaselineRow - gridSetBaselineRow , - - --- ** gridSetColumnHomogeneous - gridSetColumnHomogeneous , - - --- ** gridSetColumnSpacing - gridSetColumnSpacing , - - --- ** gridSetRowBaselinePosition - gridSetRowBaselinePosition , - - --- ** gridSetRowHomogeneous - gridSetRowHomogeneous , - - --- ** gridSetRowSpacing - gridSetRowSpacing , - - - - - -- * Properties --- ** BaselineRow - GridBaselineRowPropertyInfo , - constructGridBaselineRow , - getGridBaselineRow , - setGridBaselineRow , - - --- ** ColumnHomogeneous - GridColumnHomogeneousPropertyInfo , - constructGridColumnHomogeneous , - getGridColumnHomogeneous , - setGridColumnHomogeneous , - - --- ** ColumnSpacing - GridColumnSpacingPropertyInfo , - constructGridColumnSpacing , - getGridColumnSpacing , - setGridColumnSpacing , - - --- ** RowHomogeneous - GridRowHomogeneousPropertyInfo , - constructGridRowHomogeneous , - getGridRowHomogeneous , - setGridRowHomogeneous , - - --- ** RowSpacing - GridRowSpacingPropertyInfo , - constructGridRowSpacing , - getGridRowSpacing , - setGridRowSpacing , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "baseline-row" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getGridBaselineRow :: (MonadIO m, GridK o) => o -> m Int32 -getGridBaselineRow obj = liftIO $ getObjectPropertyCInt obj "baseline-row" - -setGridBaselineRow :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridBaselineRow obj val = liftIO $ setObjectPropertyCInt obj "baseline-row" val - -constructGridBaselineRow :: Int32 -> IO ([Char], GValue) -constructGridBaselineRow val = constructObjectPropertyCInt "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 = "Grid::baseline-row" - attrGet _ = getGridBaselineRow - attrSet _ = setGridBaselineRow - attrConstruct _ = constructGridBaselineRow - --- VVV Prop "column-homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Grid::column-homogeneous" - attrGet _ = getGridColumnHomogeneous - attrSet _ = setGridColumnHomogeneous - attrConstruct _ = constructGridColumnHomogeneous - --- VVV Prop "column-spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getGridColumnSpacing :: (MonadIO m, GridK o) => o -> m Int32 -getGridColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing" - -setGridColumnSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val - -constructGridColumnSpacing :: Int32 -> IO ([Char], GValue) -constructGridColumnSpacing val = constructObjectPropertyCInt "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 = "Grid::column-spacing" - attrGet _ = getGridColumnSpacing - attrSet _ = setGridColumnSpacing - attrConstruct _ = constructGridColumnSpacing - --- VVV Prop "row-homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Grid::row-homogeneous" - attrGet _ = getGridRowHomogeneous - attrSet _ = setGridRowHomogeneous - attrConstruct _ = constructGridRowHomogeneous - --- VVV Prop "row-spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getGridRowSpacing :: (MonadIO m, GridK o) => o -> m Int32 -getGridRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing" - -setGridRowSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m () -setGridRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val - -constructGridRowSpacing :: Int32 -> IO ([Char], GValue) -constructGridRowSpacing val = constructObjectPropertyCInt "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 = "Grid::row-spacing" - attrGet _ = getGridRowSpacing - attrSet _ = setGridRowSpacing - attrConstruct _ = constructGridRowSpacing - -type instance AttributeList Grid = GridAttributeList -type GridAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-row", GridBaselineRowPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-homogeneous", GridColumnHomogeneousPropertyInfo), '("column-spacing", GridColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-homogeneous", GridRowHomogeneousPropertyInfo), '("row-spacing", GridRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Grid = GridSignalList -type GridSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Grid::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- top : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -gridAttach :: - (MonadIO m, GridK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- left - Int32 -> -- top - Int32 -> -- width - Int32 -> -- height - m () -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 () - --- method Grid::attach_next_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -gridAttachNextTo :: - (MonadIO m, GridK a, WidgetK b, WidgetK c) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- sibling - PositionType -> -- side - Int32 -> -- width - Int32 -> -- height - m () -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 () - --- method Grid::get_baseline_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -gridGetBaselineRow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_baseline_row _obj' - touchManagedPtr _obj - return result - --- method Grid::get_child_at --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- top : TBasicType TInt32 - IO (Ptr Widget) - - -gridGetChildAt :: - (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- left - Int32 -> -- top - m Widget -gridGetChildAt _obj left top = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_child_at _obj' left top - checkUnexpectedReturnNULL "gtk_grid_get_child_at" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Grid::get_column_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gridGetColumnHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_column_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Grid::get_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -gridGetColumnSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_column_spacing _obj' - touchManagedPtr _obj - return result - --- method Grid::get_row_baseline_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "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 TInt32 - IO CUInt - - -gridGetRowBaselinePosition :: - (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- row - m BaselinePosition -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' - --- method Grid::get_row_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -gridGetRowHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_row_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Grid::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -gridGetRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_grid_get_row_spacing _obj' - touchManagedPtr _obj - return result - --- method Grid::insert_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_insert_column" gtk_grid_insert_column :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt32 - IO () - - -gridInsertColumn :: - (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- position - m () -gridInsertColumn _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_insert_column _obj' position - touchManagedPtr _obj - return () - --- method Grid::insert_next_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "side", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Grid::insert_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_insert_row" gtk_grid_insert_row :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt32 - IO () - - -gridInsertRow :: - (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- position - m () -gridInsertRow _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_insert_row _obj' position - touchManagedPtr _obj - return () - --- method Grid::remove_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_remove_column" gtk_grid_remove_column :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt32 - IO () - - -gridRemoveColumn :: - (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- position - m () -gridRemoveColumn _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_remove_column _obj' position - touchManagedPtr _obj - return () - --- method Grid::remove_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_grid_remove_row" gtk_grid_remove_row :: - Ptr Grid -> -- _obj : TInterface "Gtk" "Grid" - Int32 -> -- position : TBasicType TInt32 - IO () - - -gridRemoveRow :: - (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- position - m () -gridRemoveRow _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_remove_row _obj' position - touchManagedPtr _obj - return () - --- method Grid::set_baseline_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -gridSetBaselineRow :: - (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- row - m () -gridSetBaselineRow _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_set_baseline_row _obj' row - touchManagedPtr _obj - return () - --- method Grid::set_column_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gridSetColumnHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_grid_set_column_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - --- method Grid::set_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -gridSetColumnSpacing :: - (MonadIO m, GridK a) => - a -> -- _obj - Word32 -> -- spacing - m () -gridSetColumnSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_set_column_spacing _obj' spacing - touchManagedPtr _obj - return () - --- method Grid::set_row_baseline_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "BaselinePosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CUInt -> -- pos : TInterface "Gtk" "BaselinePosition" - IO () - - -gridSetRowBaselinePosition :: - (MonadIO m, GridK a) => - a -> -- _obj - Int32 -> -- row - BaselinePosition -> -- pos - m () -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 () - --- method Grid::set_row_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gridSetRowHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_grid_set_row_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - --- method Grid::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Grid", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -gridSetRowSpacing :: - (MonadIO m, GridK a) => - a -> -- _obj - Word32 -> -- spacing - m () -gridSetRowSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grid_set_row_spacing _obj' spacing - touchManagedPtr _obj - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.Grid where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,93 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList HBox = HBoxAttributeList -type HBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HBox = HBoxSignalList -type HBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HBox::new --- method type : Constructor --- Args : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "HBox" --- throws : False --- Skip return : False - -foreign import ccall "gtk_hbox_new" gtk_hbox_new :: - CInt -> -- homogeneous : TBasicType TBoolean - Int32 -> -- spacing : TBasicType TInt32 - 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList HButtonBox = HButtonBoxAttributeList -type HButtonBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HButtonBox = HButtonBoxSignalList -type HButtonBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HButtonBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList HPaned = HPanedAttributeList -type HPanedAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HPaned = HPanedSignalList -type HPanedSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HPaned::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.HSV - ( - --- * Exported types - HSV(..) , - HSVK , - toHSV , - noHSV , - - - -- * Methods --- ** hSVGetColor - hSVGetColor , - - --- ** hSVGetMetrics - hSVGetMetrics , - - --- ** hSVIsAdjusting - hSVIsAdjusting , - - --- ** hSVNew - hSVNew , - - --- ** hSVSetColor - hSVSetColor , - - --- ** hSVSetMetrics - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", 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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", HSVChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move", HSVMoveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HSV::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method HSV::get_metrics --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- ring_width : TBasicType TInt32 - IO () - - -hSVGetMetrics :: - (MonadIO m, HSVK a) => - a -> -- _obj - m (Int32,Int32) -hSVGetMetrics _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - size <- allocMem :: IO (Ptr Int32) - ring_width <- allocMem :: IO (Ptr Int32) - gtk_hsv_get_metrics _obj' size ring_width - size' <- peek size - ring_width' <- peek ring_width - touchManagedPtr _obj - freeMem size - freeMem ring_width - return (size', ring_width') - --- method HSV::is_adjusting --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -hSVIsAdjusting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_hsv_is_adjusting _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method HSV::set_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HSV::set_metrics --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HSV", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ring_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_hsv_set_metrics" gtk_hsv_set_metrics :: - Ptr HSV -> -- _obj : TInterface "Gtk" "HSV" - Int32 -> -- size : TBasicType TInt32 - Int32 -> -- ring_width : TBasicType TInt32 - IO () - - -hSVSetMetrics :: - (MonadIO m, HSVK a) => - a -> -- _obj - Int32 -> -- size - Int32 -> -- ring_width - m () -hSVSetMetrics _obj size ring_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_hsv_set_metrics _obj' size ring_width - touchManagedPtr _obj - return () - --- method HSV::to_rgb --- method type : MemberFunction --- Args : [Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "g", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "b", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "h", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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,15 +0,0 @@ -module GI.Gtk.Objects.HSV where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.HScale - ( - --- * Exported types - HScale(..) , - HScaleK , - toHScale , - noHScale , - - - -- * Methods --- ** hScaleNew - hScaleNew , - - --- ** hScaleNewWithRange - hScaleNewWithRange , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList HScale = HScaleAttributeList -type HScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HScale = HScaleSignalList -type HScaleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HScale::new --- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,96 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Objects.HScrollbar - ( - --- * Exported types - HScrollbar(..) , - HScrollbarK , - toHScrollbar , - noHScrollbar , - - - -- * Methods --- ** hScrollbarNew - hScrollbarNew , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList HScrollbar = HScrollbarAttributeList -type HScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HScrollbar = HScrollbarSignalList -type HScrollbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HScrollbar::new --- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList HSeparator = HSeparatorAttributeList -type HSeparatorAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HSeparator = HSeparatorSignalList -type HSeparatorSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HSeparator::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,568 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - handleBoxGetChildDetached , - - --- ** handleBoxGetHandlePosition - handleBoxGetHandlePosition , - - --- ** handleBoxGetShadowType - handleBoxGetShadowType , - - --- ** handleBoxGetSnapEdge - handleBoxGetSnapEdge , - - --- ** handleBoxNew - handleBoxNew , - - --- ** handleBoxSetHandlePosition - handleBoxSetHandlePosition , - - --- ** handleBoxSetShadowType - handleBoxSetShadowType , - - --- ** handleBoxSetSnapEdge - handleBoxSetSnapEdge , - - - - - -- * Properties --- ** ChildDetached - HandleBoxChildDetachedPropertyInfo , - getHandleBoxChildDetached , - - --- ** HandlePosition - HandleBoxHandlePositionPropertyInfo , - constructHandleBoxHandlePosition , - getHandleBoxHandlePosition , - setHandleBoxHandlePosition , - - --- ** ShadowType - HandleBoxShadowTypePropertyInfo , - constructHandleBoxShadowType , - getHandleBoxShadowType , - setHandleBoxShadowType , - - --- ** SnapEdge - HandleBoxSnapEdgePropertyInfo , - constructHandleBoxSnapEdge , - getHandleBoxSnapEdge , - setHandleBoxSnapEdge , - - --- ** SnapEdgeSet - HandleBoxSnapEdgeSetPropertyInfo , - constructHandleBoxSnapEdgeSet , - getHandleBoxSnapEdgeSet , - setHandleBoxSnapEdgeSet , - - - - - -- * Signals --- ** ChildAttached - HandleBoxChildAttachedCallback , - HandleBoxChildAttachedCallbackC , - HandleBoxChildAttachedSignalInfo , - afterHandleBoxChildAttached , - handleBoxChildAttachedCallbackWrapper , - handleBoxChildAttachedClosure , - mkHandleBoxChildAttachedCallback , - noHandleBoxChildAttachedCallback , - onHandleBoxChildAttached , - - --- ** ChildDetached - HandleBoxChildDetachedCallback , - HandleBoxChildDetachedCallbackC , - HandleBoxChildDetachedSignalInfo , - afterHandleBoxChildDetached , - handleBoxChildDetachedCallbackWrapper , - handleBoxChildDetachedClosure , - mkHandleBoxChildDetachedCallback , - noHandleBoxChildDetachedCallback , - onHandleBoxChildDetached , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "HandleBox::child-detached" - attrGet _ = getHandleBoxChildDetached - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "handle-position" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "HandleBox::handle-position" - attrGet _ = getHandleBoxHandlePosition - attrSet _ = setHandleBoxHandlePosition - attrConstruct _ = constructHandleBoxHandlePosition - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "HandleBox::shadow-type" - attrGet _ = getHandleBoxShadowType - attrSet _ = setHandleBoxShadowType - attrConstruct _ = constructHandleBoxShadowType - --- VVV Prop "snap-edge" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "HandleBox::snap-edge" - attrGet _ = getHandleBoxSnapEdge - attrSet _ = setHandleBoxSnapEdge - attrConstruct _ = constructHandleBoxSnapEdge - --- VVV Prop "snap-edge-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "HandleBox::snap-edge-set" - attrGet _ = getHandleBoxSnapEdgeSet - attrSet _ = setHandleBoxSnapEdgeSet - attrConstruct _ = constructHandleBoxSnapEdgeSet - -type instance AttributeList HandleBox = HandleBoxAttributeList -type HandleBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-detached", HandleBoxChildDetachedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("handle-position", HandleBoxHandlePositionPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", HandleBoxShadowTypePropertyInfo), '("snap-edge", HandleBoxSnapEdgePropertyInfo), '("snap-edge-set", HandleBoxSnapEdgeSetPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-attached", HandleBoxChildAttachedSignalInfo), '("child-detached", HandleBoxChildDetachedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HandleBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -handleBoxGetChildDetached _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_handle_box_get_child_detached _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method HandleBox::get_handle_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method HandleBox::get_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method HandleBox::get_snap_edge --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method HandleBox::set_handle_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HandleBox::set_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HandleBox::set_snap_edge --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HandleBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,20 +0,0 @@ -module GI.Gtk.Objects.HandleBox where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,787 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - headerBarGetCustomTitle , - - --- ** headerBarGetDecorationLayout - headerBarGetDecorationLayout , - - --- ** headerBarGetHasSubtitle - headerBarGetHasSubtitle , - - --- ** headerBarGetShowCloseButton - headerBarGetShowCloseButton , - - --- ** headerBarGetSubtitle - headerBarGetSubtitle , - - --- ** headerBarGetTitle - headerBarGetTitle , - - --- ** headerBarNew - headerBarNew , - - --- ** headerBarPackEnd - headerBarPackEnd , - - --- ** headerBarPackStart - headerBarPackStart , - - --- ** headerBarSetCustomTitle - headerBarSetCustomTitle , - - --- ** headerBarSetDecorationLayout - headerBarSetDecorationLayout , - - --- ** headerBarSetHasSubtitle - headerBarSetHasSubtitle , - - --- ** headerBarSetShowCloseButton - headerBarSetShowCloseButton , - - --- ** headerBarSetSubtitle - headerBarSetSubtitle , - - --- ** headerBarSetTitle - headerBarSetTitle , - - - - - -- * Properties --- ** CustomTitle - HeaderBarCustomTitlePropertyInfo , - constructHeaderBarCustomTitle , - getHeaderBarCustomTitle , - setHeaderBarCustomTitle , - - --- ** DecorationLayout - HeaderBarDecorationLayoutPropertyInfo , - constructHeaderBarDecorationLayout , - getHeaderBarDecorationLayout , - setHeaderBarDecorationLayout , - - --- ** DecorationLayoutSet - HeaderBarDecorationLayoutSetPropertyInfo, - constructHeaderBarDecorationLayoutSet , - getHeaderBarDecorationLayoutSet , - setHeaderBarDecorationLayoutSet , - - --- ** HasSubtitle - HeaderBarHasSubtitlePropertyInfo , - constructHeaderBarHasSubtitle , - getHeaderBarHasSubtitle , - setHeaderBarHasSubtitle , - - --- ** ShowCloseButton - HeaderBarShowCloseButtonPropertyInfo , - constructHeaderBarShowCloseButton , - getHeaderBarShowCloseButton , - setHeaderBarShowCloseButton , - - --- ** Spacing - HeaderBarSpacingPropertyInfo , - constructHeaderBarSpacing , - getHeaderBarSpacing , - setHeaderBarSpacing , - - --- ** Subtitle - HeaderBarSubtitlePropertyInfo , - constructHeaderBarSubtitle , - getHeaderBarSubtitle , - setHeaderBarSubtitle , - - --- ** Title - HeaderBarTitlePropertyInfo , - constructHeaderBarTitle , - getHeaderBarTitle , - setHeaderBarTitle , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "custom-title" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o) => o -> m Widget -getHeaderBarCustomTitle obj = liftIO $ getObjectPropertyObject obj "custom-title" Widget - -setHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o, WidgetK a) => o -> a -> m () -setHeaderBarCustomTitle obj val = liftIO $ setObjectPropertyObject obj "custom-title" val - -constructHeaderBarCustomTitle :: (WidgetK a) => a -> IO ([Char], GValue) -constructHeaderBarCustomTitle val = constructObjectPropertyObject "custom-title" val - -data HeaderBarCustomTitlePropertyInfo -instance AttrInfo HeaderBarCustomTitlePropertyInfo where - type AttrAllowedOps HeaderBarCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HeaderBarCustomTitlePropertyInfo = WidgetK - type AttrBaseTypeConstraint HeaderBarCustomTitlePropertyInfo = HeaderBarK - type AttrGetType HeaderBarCustomTitlePropertyInfo = Widget - type AttrLabel HeaderBarCustomTitlePropertyInfo = "HeaderBar::custom-title" - attrGet _ = getHeaderBarCustomTitle - attrSet _ = setHeaderBarCustomTitle - attrConstruct _ = constructHeaderBarCustomTitle - --- VVV Prop "decoration-layout" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarDecorationLayout obj = liftIO $ getObjectPropertyString obj "decoration-layout" - -setHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarDecorationLayout obj val = liftIO $ setObjectPropertyString obj "decoration-layout" val - -constructHeaderBarDecorationLayout :: T.Text -> IO ([Char], GValue) -constructHeaderBarDecorationLayout val = constructObjectPropertyString "decoration-layout" val - -data HeaderBarDecorationLayoutPropertyInfo -instance AttrInfo HeaderBarDecorationLayoutPropertyInfo where - type AttrAllowedOps HeaderBarDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HeaderBarDecorationLayoutPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HeaderBarDecorationLayoutPropertyInfo = HeaderBarK - type AttrGetType HeaderBarDecorationLayoutPropertyInfo = T.Text - type AttrLabel HeaderBarDecorationLayoutPropertyInfo = "HeaderBar::decoration-layout" - attrGet _ = getHeaderBarDecorationLayout - attrSet _ = setHeaderBarDecorationLayout - attrConstruct _ = constructHeaderBarDecorationLayout - --- VVV Prop "decoration-layout-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "HeaderBar::decoration-layout-set" - attrGet _ = getHeaderBarDecorationLayoutSet - attrSet _ = setHeaderBarDecorationLayoutSet - attrConstruct _ = constructHeaderBarDecorationLayoutSet - --- VVV Prop "has-subtitle" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "HeaderBar::has-subtitle" - attrGet _ = getHeaderBarHasSubtitle - attrSet _ = setHeaderBarHasSubtitle - attrConstruct _ = constructHeaderBarHasSubtitle - --- VVV Prop "show-close-button" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "HeaderBar::show-close-button" - attrGet _ = getHeaderBarShowCloseButton - attrSet _ = setHeaderBarShowCloseButton - attrConstruct _ = constructHeaderBarShowCloseButton - --- VVV Prop "spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> m Int32 -getHeaderBarSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" - -setHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> Int32 -> m () -setHeaderBarSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val - -constructHeaderBarSpacing :: Int32 -> IO ([Char], GValue) -constructHeaderBarSpacing val = constructObjectPropertyCInt "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 = "HeaderBar::spacing" - attrGet _ = getHeaderBarSpacing - attrSet _ = setHeaderBarSpacing - attrConstruct _ = constructHeaderBarSpacing - --- VVV Prop "subtitle" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarSubtitle obj = liftIO $ getObjectPropertyString obj "subtitle" - -setHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarSubtitle obj val = liftIO $ setObjectPropertyString obj "subtitle" val - -constructHeaderBarSubtitle :: T.Text -> IO ([Char], GValue) -constructHeaderBarSubtitle val = constructObjectPropertyString "subtitle" val - -data HeaderBarSubtitlePropertyInfo -instance AttrInfo HeaderBarSubtitlePropertyInfo where - type AttrAllowedOps HeaderBarSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HeaderBarSubtitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HeaderBarSubtitlePropertyInfo = HeaderBarK - type AttrGetType HeaderBarSubtitlePropertyInfo = T.Text - type AttrLabel HeaderBarSubtitlePropertyInfo = "HeaderBar::subtitle" - attrGet _ = getHeaderBarSubtitle - attrSet _ = setHeaderBarSubtitle - attrConstruct _ = constructHeaderBarSubtitle - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text -getHeaderBarTitle obj = liftIO $ getObjectPropertyString obj "title" - -setHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () -setHeaderBarTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructHeaderBarTitle :: T.Text -> IO ([Char], GValue) -constructHeaderBarTitle val = constructObjectPropertyString "title" val - -data HeaderBarTitlePropertyInfo -instance AttrInfo HeaderBarTitlePropertyInfo where - type AttrAllowedOps HeaderBarTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint HeaderBarTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint HeaderBarTitlePropertyInfo = HeaderBarK - type AttrGetType HeaderBarTitlePropertyInfo = T.Text - type AttrLabel HeaderBarTitlePropertyInfo = "HeaderBar::title" - attrGet _ = getHeaderBarTitle - attrSet _ = setHeaderBarTitle - attrConstruct _ = constructHeaderBarTitle - -type instance AttributeList HeaderBar = HeaderBarAttributeList -type HeaderBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("custom-title", HeaderBarCustomTitlePropertyInfo), '("decoration-layout", HeaderBarDecorationLayoutPropertyInfo), '("decoration-layout-set", HeaderBarDecorationLayoutSetPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-subtitle", HeaderBarHasSubtitlePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", HeaderBarShowCloseButtonPropertyInfo), '("spacing", HeaderBarSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", HeaderBarSubtitlePropertyInfo), '("title", HeaderBarTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList HeaderBar = HeaderBarSignalList -type HeaderBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method HeaderBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method HeaderBar::get_decoration_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method HeaderBar::get_has_subtitle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -headerBarGetHasSubtitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_header_bar_get_has_subtitle _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method HeaderBar::get_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method HeaderBar::get_subtitle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method HeaderBar::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method HeaderBar::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HeaderBar::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HeaderBar::set_custom_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- title_widget - m () -headerBarSetCustomTitle _obj title_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTitle_widget <- case title_widget of - Nothing -> return nullPtr - Just jTitle_widget -> do - let jTitle_widget' = unsafeManagedPtrCastPtr jTitle_widget - return jTitle_widget' - gtk_header_bar_set_custom_title _obj' maybeTitle_widget - touchManagedPtr _obj - whenJust title_widget touchManagedPtr - return () - --- method HeaderBar::set_decoration_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HeaderBar::set_has_subtitle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HeaderBar::set_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HeaderBar::set_subtitle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "subtitle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method HeaderBar::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "HeaderBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.HeaderBar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,843 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - iMContextDeleteSurrounding , - - --- ** iMContextFilterKeypress - iMContextFilterKeypress , - - --- ** iMContextFocusIn - iMContextFocusIn , - - --- ** iMContextFocusOut - iMContextFocusOut , - - --- ** iMContextGetPreeditString - iMContextGetPreeditString , - - --- ** iMContextGetSurrounding - iMContextGetSurrounding , - - --- ** iMContextReset - iMContextReset , - - --- ** iMContextSetClientWindow - iMContextSetClientWindow , - - --- ** iMContextSetCursorLocation - iMContextSetCursorLocation , - - --- ** iMContextSetSurrounding - iMContextSetSurrounding , - - --- ** iMContextSetUsePreedit - iMContextSetUsePreedit , - - - - - -- * Properties --- ** InputHints - IMContextInputHintsPropertyInfo , - constructIMContextInputHints , - getIMContextInputHints , - setIMContextInputHints , - - --- ** InputPurpose - IMContextInputPurposePropertyInfo , - constructIMContextInputPurpose , - getIMContextInputPurpose , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango -import qualified GI.Cairo as Cairo - -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 - --- 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 n_chars _ = do - result <- _cb offset n_chars - 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] - -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 = "IMContext::input-hints" - attrGet _ = getIMContextInputHints - attrSet _ = setIMContextInputHints - attrConstruct _ = constructIMContextInputHints - --- VVV Prop "input-purpose" - -- Type: TInterface "Gtk" "InputPurpose" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "IMContext::input-purpose" - attrGet _ = getIMContextInputPurpose - attrSet _ = setIMContextInputPurpose - attrConstruct _ = constructIMContextInputPurpose - -type instance AttributeList IMContext = IMContextAttributeList -type IMContextAttributeList = ('[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) - -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), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IMContext::delete_surrounding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- n_chars : TBasicType TInt32 - IO CInt - - -iMContextDeleteSurrounding :: - (MonadIO m, IMContextK a) => - a -> -- _obj - Int32 -> -- offset - Int32 -> -- n_chars - m Bool -iMContextDeleteSurrounding _obj offset n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_im_context_delete_surrounding _obj' offset n_chars - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IMContext::filter_keypress --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IMContext::focus_in --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iMContextFocusIn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_im_context_focus_in _obj' - touchManagedPtr _obj - return () - --- method IMContext::focus_out --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iMContextFocusOut _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_im_context_focus_out _obj' - touchManagedPtr _obj - return () - --- method IMContext::get_preedit_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cursor_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -iMContextGetPreeditString :: - (MonadIO m, IMContextK a) => - a -> -- _obj - m (T.Text,Pango.AttrList,Int32) -iMContextGetPreeditString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str <- allocMem :: IO (Ptr CString) - attrs <- allocMem :: IO (Ptr (Ptr Pango.AttrList)) - cursor_pos <- allocMem :: IO (Ptr Int32) - gtk_im_context_get_preedit_string _obj' str attrs cursor_pos - str' <- peek str - str'' <- cstringToText str' - freeMem str' - attrs' <- peek attrs - attrs'' <- (wrapBoxed Pango.AttrList) attrs' - cursor_pos' <- peek cursor_pos - touchManagedPtr _obj - freeMem str - freeMem attrs - freeMem cursor_pos - return (str'', attrs'', cursor_pos') - --- method IMContext::get_surrounding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -iMContextGetSurrounding :: - (MonadIO m, IMContextK a) => - a -> -- _obj - m (Bool,T.Text,Int32) -iMContextGetSurrounding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text <- allocMem :: IO (Ptr CString) - cursor_index <- allocMem :: IO (Ptr Int32) - result <- gtk_im_context_get_surrounding _obj' text cursor_index - let result' = (/= 0) result - text' <- peek text - text'' <- cstringToText text' - freeMem text' - cursor_index' <- peek cursor_index - touchManagedPtr _obj - freeMem text - freeMem cursor_index - return (result', text'', cursor_index') - --- method IMContext::reset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iMContextReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_im_context_reset _obj' - touchManagedPtr _obj - return () - --- method IMContext::set_client_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IMContext::set_cursor_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- area : TInterface "cairo" "RectangleInt" - IO () - - -iMContextSetCursorLocation :: - (MonadIO m, IMContextK a) => - a -> -- _obj - Cairo.RectangleInt -> -- area - m () -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 () - --- method IMContext::set_surrounding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_im_context_set_surrounding" gtk_im_context_set_surrounding :: - Ptr IMContext -> -- _obj : TInterface "Gtk" "IMContext" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - Int32 -> -- cursor_index : TBasicType TInt32 - IO () - - -iMContextSetSurrounding :: - (MonadIO m, IMContextK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - Int32 -> -- cursor_index - m () -iMContextSetSurrounding _obj text len cursor_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - gtk_im_context_set_surrounding _obj' text' len cursor_index - touchManagedPtr _obj - freeMem text' - return () - --- method IMContext::set_use_preedit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_preedit", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_preedit - m () -iMContextSetUsePreedit _obj use_preedit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_preedit' = (fromIntegral . fromEnum) use_preedit - gtk_im_context_set_use_preedit _obj' use_preedit' - touchManagedPtr _obj - return () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.IMContext where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,87 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList IMContextSimple = IMContextSimpleAttributeList -type IMContextSimpleAttributeList = ('[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList IMContextSimple = IMContextSimpleSignalList -type IMContextSimpleSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IMContextSimple::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,181 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - iMMulticontextAppendMenuitems , - - --- ** iMMulticontextGetContextId - iMMulticontextGetContextId , - - --- ** iMMulticontextNew - iMMulticontextNew , - - --- ** iMMulticontextSetContextId - iMMulticontextSetContextId , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList IMMulticontext = IMMulticontextAttributeList -type IMMulticontextAttributeList = ('[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList IMMulticontext = IMMulticontextSignalList -type IMMulticontextSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IMMulticontext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menushell", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IMMulticontext::get_context_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IMMulticontext::set_context_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IMMulticontext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- context_id - m () -iMMulticontextSetContextId _obj context_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - context_id' <- textToCString context_id - gtk_im_multicontext_set_context_id _obj' context_id' - touchManagedPtr _obj - freeMem context_id' - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.IMMulticontext where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IMMulticontext = IMMulticontext (ForeignPtr IMMulticontext) -instance GObject IMMulticontext where -class GObject o => IMMulticontextK o -instance (GObject o, IsDescendantOf IMMulticontext o) => IMMulticontextK o 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,243 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - iconFactoryAdd , - - --- ** iconFactoryAddDefault - iconFactoryAddDefault , - - --- ** iconFactoryLookup - iconFactoryLookup , - - --- ** iconFactoryLookupDefault - iconFactoryLookupDefault , - - --- ** iconFactoryNew - iconFactoryNew , - - --- ** iconFactoryRemoveDefault - iconFactoryRemoveDefault , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList IconFactory = IconFactoryAttributeList -type IconFactoryAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList IconFactory = IconFactorySignalList -type IconFactorySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IconFactory::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- stock_id - IconSet -> -- icon_set - m () -iconFactoryAdd _obj stock_id icon_set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - let icon_set' = unsafeManagedPtrGetPtr icon_set - gtk_icon_factory_add _obj' stock_id' icon_set' - touchManagedPtr _obj - touchManagedPtr icon_set - freeMem stock_id' - return () - --- method IconFactory::add_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconFactoryAddDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_factory_add_default _obj' - touchManagedPtr _obj - return () - --- method IconFactory::lookup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m IconSet -iconFactoryLookup _obj stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - result <- gtk_icon_factory_lookup _obj' stock_id' - checkUnexpectedReturnNULL "gtk_icon_factory_lookup" result - result' <- (newBoxed IconSet) result - touchManagedPtr _obj - freeMem stock_id' - return result' - --- method IconFactory::remove_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconFactory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconFactoryRemoveDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_factory_remove_default _obj' - touchManagedPtr _obj - return () - --- method IconFactory::lookup_default --- method type : MemberFunction --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m IconSet -iconFactoryLookupDefault stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_icon_factory_lookup_default stock_id' - checkUnexpectedReturnNULL "gtk_icon_factory_lookup_default" result - result' <- (newBoxed IconSet) result - freeMem stock_id' - 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,13 +0,0 @@ -module GI.Gtk.Objects.IconFactory where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IconFactory = IconFactory (ForeignPtr IconFactory) -instance GObject IconFactory where -class GObject o => IconFactoryK o -instance (GObject o, IsDescendantOf IconFactory o) => IconFactoryK o 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,914 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - iconInfoGetAttachPoints , - - --- ** iconInfoGetBaseScale - iconInfoGetBaseScale , - - --- ** iconInfoGetBaseSize - iconInfoGetBaseSize , - - --- ** iconInfoGetBuiltinPixbuf - iconInfoGetBuiltinPixbuf , - - --- ** iconInfoGetDisplayName - iconInfoGetDisplayName , - - --- ** iconInfoGetEmbeddedRect - iconInfoGetEmbeddedRect , - - --- ** iconInfoGetFilename - iconInfoGetFilename , - - --- ** iconInfoIsSymbolic - iconInfoIsSymbolic , - - --- ** iconInfoLoadIcon - iconInfoLoadIcon , - - --- ** iconInfoLoadIconAsync - iconInfoLoadIconAsync , - - --- ** iconInfoLoadIconFinish - iconInfoLoadIconFinish , - - --- ** iconInfoLoadSurface - iconInfoLoadSurface , - - --- ** iconInfoLoadSymbolic - iconInfoLoadSymbolic , - - --- ** iconInfoLoadSymbolicAsync - iconInfoLoadSymbolicAsync , - - --- ** iconInfoLoadSymbolicFinish - iconInfoLoadSymbolicFinish , - - --- ** iconInfoLoadSymbolicForContext - iconInfoLoadSymbolicForContext , - - --- ** iconInfoLoadSymbolicForContextAsync - iconInfoLoadSymbolicForContextAsync , - - --- ** iconInfoLoadSymbolicForContextFinish - iconInfoLoadSymbolicForContextFinish , - - --- ** iconInfoLoadSymbolicForStyle - iconInfoLoadSymbolicForStyle , - - --- ** iconInfoNewForPixbuf - iconInfoNewForPixbuf , - - --- ** iconInfoSetRawCoordinates - iconInfoSetRawCoordinates , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList IconInfo = IconInfoAttributeList -type IconInfoAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList IconInfo = IconInfoSignalList -type IconInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IconInfo::new_for_pixbuf --- method type : Constructor --- Args : [Arg {argName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon_theme", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_theme - b -> -- pixbuf - m IconInfo -iconInfoNewForPixbuf icon_theme pixbuf = liftIO $ do - let icon_theme' = unsafeManagedPtrCastPtr icon_theme - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - result <- gtk_icon_info_new_for_pixbuf icon_theme' pixbuf' - checkUnexpectedReturnNULL "gtk_icon_info_new_for_pixbuf" result - result' <- (wrapObject IconInfo) result - touchManagedPtr icon_theme - touchManagedPtr pixbuf - return result' - --- method IconInfo::get_attach_points --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "points", argType = TCArray False (-1) 2 (TInterface "Gdk" "Point"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_points", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - -{-# DEPRECATED iconInfoGetAttachPoints ["(Since version 3.14)","Attachment points are deprecated"]#-} -iconInfoGetAttachPoints :: - (MonadIO m, IconInfoK a) => - a -> -- _obj - m (Bool,[Gdk.Point]) -iconInfoGetAttachPoints _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - points <- allocMem :: IO (Ptr (Ptr Gdk.Point)) - n_points <- allocMem :: IO (Ptr Int32) - result <- gtk_icon_info_get_attach_points _obj' points n_points - n_points' <- peek n_points - let result' = (/= 0) result - points' <- peek points - points'' <- (unpackBlockArrayWithLength 8 n_points') points' - points''' <- mapM (wrapPtr Gdk.Point) points'' - freeMem points' - touchManagedPtr _obj - freeMem points - freeMem n_points - return (result', points''') - --- method IconInfo::get_base_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconInfoGetBaseScale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_get_base_scale _obj' - touchManagedPtr _obj - return result - --- method IconInfo::get_base_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconInfoGetBaseSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_get_base_size _obj' - touchManagedPtr _obj - return result - --- method IconInfo::get_builtin_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconInfo::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconInfo::get_embedded_rect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- rectangle : TInterface "cairo" "RectangleInt" - IO CInt - -{-# DEPRECATED iconInfoGetEmbeddedRect ["(Since version 3.14)","Embedded rectangles are deprecated"]#-} -iconInfoGetEmbeddedRect :: - (MonadIO m, IconInfoK a) => - a -> -- _obj - m (Bool,Cairo.RectangleInt) -iconInfoGetEmbeddedRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rectangle <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - result <- gtk_icon_info_get_embedded_rect _obj' rectangle - let result' = (/= 0) result - rectangle' <- (wrapBoxed Cairo.RectangleInt) rectangle - touchManagedPtr _obj - return (result', rectangle') - --- method IconInfo::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method IconInfo::is_symbolic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconInfoIsSymbolic _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_info_is_symbolic _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IconInfo::load_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method IconInfo::load_icon_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -iconInfoLoadIconAsync :: - (MonadIO m, IconInfoK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -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 user_data = nullPtr - gtk_icon_info_load_icon_async _obj' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method IconInfo::load_icon_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method IconInfo::load_surface --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- for_window - m Cairo.Surface -iconInfoLoadSurface _obj for_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFor_window <- case for_window of - Nothing -> return nullPtr - Just jFor_window -> do - let jFor_window' = unsafeManagedPtrCastPtr jFor_window - return jFor_window' - onException (do - result <- propagateGError $ gtk_icon_info_load_surface _obj' maybeFor_window - checkUnexpectedReturnNULL "gtk_icon_info_load_surface" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - whenJust for_window touchManagedPtr - return result' - ) (do - return () - ) - --- method IconInfo::load_symbolic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- success_color - Maybe (Gdk.RGBA) -> -- warning_color - Maybe (Gdk.RGBA) -> -- error_color - m (GdkPixbuf.Pixbuf,Bool) -iconInfoLoadSymbolic _obj fg success_color warning_color error_color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fg' = unsafeManagedPtrGetPtr fg - maybeSuccess_color <- case success_color of - Nothing -> return nullPtr - Just jSuccess_color -> do - let jSuccess_color' = unsafeManagedPtrGetPtr jSuccess_color - return jSuccess_color' - maybeWarning_color <- case warning_color of - Nothing -> return nullPtr - Just jWarning_color -> do - let jWarning_color' = unsafeManagedPtrGetPtr jWarning_color - return jWarning_color' - maybeError_color <- case error_color of - Nothing -> return nullPtr - Just jError_color -> do - let jError_color' = unsafeManagedPtrGetPtr jError_color - return jError_color' - was_symbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic _obj' fg' maybeSuccess_color maybeWarning_color maybeError_color was_symbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' - touchManagedPtr _obj - touchManagedPtr fg - whenJust success_color touchManagedPtr - whenJust warning_color touchManagedPtr - whenJust error_color touchManagedPtr - freeMem was_symbolic - return (result', was_symbolic'') - ) (do - freeMem was_symbolic - ) - --- method IconInfo::load_symbolic_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fg", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warning_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "error_color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -iconInfoLoadSymbolicAsync :: - (MonadIO m, IconInfoK a, Gio.CancellableK b) => - a -> -- _obj - Gdk.RGBA -> -- fg - Maybe (Gdk.RGBA) -> -- success_color - Maybe (Gdk.RGBA) -> -- warning_color - Maybe (Gdk.RGBA) -> -- error_color - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -iconInfoLoadSymbolicAsync _obj fg success_color warning_color error_color cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fg' = unsafeManagedPtrGetPtr fg - maybeSuccess_color <- case success_color of - Nothing -> return nullPtr - Just jSuccess_color -> do - let jSuccess_color' = unsafeManagedPtrGetPtr jSuccess_color - return jSuccess_color' - maybeWarning_color <- case warning_color of - Nothing -> return nullPtr - Just jWarning_color -> do - let jWarning_color' = unsafeManagedPtrGetPtr jWarning_color - return jWarning_color' - maybeError_color <- case error_color of - Nothing -> return nullPtr - Just jError_color -> do - let jError_color' = unsafeManagedPtrGetPtr jError_color - return jError_color' - 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 user_data = nullPtr - gtk_icon_info_load_symbolic_async _obj' fg' maybeSuccess_color maybeWarning_color maybeError_color maybeCancellable maybeCallback user_data - touchManagedPtr _obj - touchManagedPtr fg - whenJust success_color touchManagedPtr - whenJust warning_color touchManagedPtr - whenJust error_color touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method IconInfo::load_symbolic_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -iconInfoLoadSymbolicFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - was_symbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_finish _obj' res' was_symbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_finish" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' - touchManagedPtr _obj - touchManagedPtr res - freeMem was_symbolic - return (result', was_symbolic'') - ) (do - freeMem was_symbolic - ) - --- method IconInfo::load_symbolic_for_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -iconInfoLoadSymbolicForContext _obj context = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - was_symbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_context _obj' context' was_symbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_context" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' - touchManagedPtr _obj - touchManagedPtr context - freeMem was_symbolic - return (result', was_symbolic'') - ) (do - freeMem was_symbolic - ) - --- method IconInfo::load_symbolic_for_context_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -iconInfoLoadSymbolicForContextAsync :: - (MonadIO m, IconInfoK a, StyleContextK b, Gio.CancellableK c) => - a -> -- _obj - b -> -- context - Maybe (c) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -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 user_data = nullPtr - gtk_icon_info_load_symbolic_for_context_async _obj' context' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - touchManagedPtr context - whenJust cancellable touchManagedPtr - return () - --- method IconInfo::load_symbolic_for_context_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -iconInfoLoadSymbolicForContextFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - was_symbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_context_finish _obj' res' was_symbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_context_finish" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' - touchManagedPtr _obj - touchManagedPtr res - freeMem was_symbolic - return (result', was_symbolic'') - ) (do - freeMem was_symbolic - ) - --- method IconInfo::load_symbolic_for_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "was_symbolic", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -iconInfoLoadSymbolicForStyle _obj style state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = unsafeManagedPtrCastPtr style - let state' = (fromIntegral . fromEnum) state - was_symbolic <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ gtk_icon_info_load_symbolic_for_style _obj' style' state' was_symbolic - checkUnexpectedReturnNULL "gtk_icon_info_load_symbolic_for_style" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - was_symbolic' <- peek was_symbolic - let was_symbolic'' = (/= 0) was_symbolic' - touchManagedPtr _obj - touchManagedPtr style - freeMem was_symbolic - return (result', was_symbolic'') - ) (do - freeMem was_symbolic - ) - --- method IconInfo::set_raw_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "raw_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- raw_coordinates - m () -iconInfoSetRawCoordinates _obj raw_coordinates = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let raw_coordinates' = (fromIntegral . fromEnum) raw_coordinates - gtk_icon_info_set_raw_coordinates _obj' raw_coordinates' - touchManagedPtr _obj - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.IconInfo where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IconInfo = IconInfo (ForeignPtr IconInfo) -instance GObject IconInfo where -class GObject o => IconInfoK o -instance (GObject o, IsDescendantOf IconInfo o) => IconInfoK o 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,1065 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - iconThemeAddResourcePath , - - --- ** iconThemeAppendSearchPath - iconThemeAppendSearchPath , - - --- ** iconThemeChooseIcon - iconThemeChooseIcon , - - --- ** iconThemeChooseIconForScale - iconThemeChooseIconForScale , - - --- ** iconThemeGetDefault - iconThemeGetDefault , - - --- ** iconThemeGetExampleIconName - iconThemeGetExampleIconName , - - --- ** iconThemeGetForScreen - iconThemeGetForScreen , - - --- ** iconThemeGetIconSizes - iconThemeGetIconSizes , - - --- ** iconThemeGetSearchPath - iconThemeGetSearchPath , - - --- ** iconThemeHasIcon - iconThemeHasIcon , - - --- ** iconThemeListContexts - iconThemeListContexts , - - --- ** iconThemeListIcons - iconThemeListIcons , - - --- ** iconThemeLoadIcon - iconThemeLoadIcon , - - --- ** iconThemeLoadIconForScale - iconThemeLoadIconForScale , - - --- ** iconThemeLoadSurface - iconThemeLoadSurface , - - --- ** iconThemeLookupByGicon - iconThemeLookupByGicon , - - --- ** iconThemeLookupByGiconForScale - iconThemeLookupByGiconForScale , - - --- ** iconThemeLookupIcon - iconThemeLookupIcon , - - --- ** iconThemeLookupIconForScale - iconThemeLookupIconForScale , - - --- ** iconThemeNew - iconThemeNew , - - --- ** iconThemePrependSearchPath - iconThemePrependSearchPath , - - --- ** iconThemeRescanIfNeeded - iconThemeRescanIfNeeded , - - --- ** iconThemeSetCustomTheme - iconThemeSetCustomTheme , - - --- ** iconThemeSetScreen - iconThemeSetScreen , - - --- ** iconThemeSetSearchPath - iconThemeSetSearchPath , - - - - - -- * Signals --- ** Changed - IconThemeChangedCallback , - IconThemeChangedCallbackC , - IconThemeChangedSignalInfo , - afterIconThemeChanged , - iconThemeChangedCallbackWrapper , - iconThemeChangedClosure , - mkIconThemeChangedCallback , - noIconThemeChangedCallback , - onIconThemeChanged , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IconTheme::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method IconTheme::append_search_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconTheme::choose_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeChooseIcon :: - (MonadIO m, IconThemeK a) => - a -> -- _obj - [T.Text] -> -- icon_names - Int32 -> -- size - [IconLookupFlags] -> -- flags - m IconInfo -iconThemeChooseIcon _obj icon_names size flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_names' <- packZeroTerminatedUTF8CArray icon_names - let flags' = gflagsToWord flags - result <- gtk_icon_theme_choose_icon _obj' icon_names' size flags' - checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon" result - result' <- (wrapObject IconInfo) result - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem icon_names' - freeMem icon_names' - return result' - --- method IconTheme::choose_icon_for_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_names", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- scale : TBasicType TInt32 - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeChooseIconForScale :: - (MonadIO m, IconThemeK a) => - a -> -- _obj - [T.Text] -> -- icon_names - Int32 -> -- size - Int32 -> -- scale - [IconLookupFlags] -> -- flags - m IconInfo -iconThemeChooseIconForScale _obj icon_names size scale flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_names' <- packZeroTerminatedUTF8CArray icon_names - let flags' = gflagsToWord flags - result <- gtk_icon_theme_choose_icon_for_scale _obj' icon_names' size scale flags' - checkUnexpectedReturnNULL "gtk_icon_theme_choose_icon_for_scale" result - result' <- (wrapObject IconInfo) result - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem icon_names' - freeMem icon_names' - return result' - --- method IconTheme::get_example_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 T.Text -iconThemeGetExampleIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_theme_get_example_icon_name _obj' - checkUnexpectedReturnNULL "gtk_icon_theme_get_example_icon_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method IconTheme::get_icon_sizes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray True (-1) (-1) (TBasicType TInt32) --- 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 -> -- icon_name - m [Int32] -iconThemeGetIconSizes _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - result <- gtk_icon_theme_get_icon_sizes _obj' icon_name' - checkUnexpectedReturnNULL "gtk_icon_theme_get_icon_sizes" result - result' <- unpackZeroTerminatedStorableArray result - freeMem result - touchManagedPtr _obj - freeMem icon_name' - return result' - --- method IconTheme::get_search_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -iconThemeGetSearchPath :: - (MonadIO m, IconThemeK a) => - a -> -- _obj - m ([[Char]]) -iconThemeGetSearchPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr CString)) - n_elements <- allocMem :: IO (Ptr Int32) - gtk_icon_theme_get_search_path _obj' path n_elements - n_elements' <- peek n_elements - path' <- peek path - path'' <- (unpackFileNameArrayWithLength n_elements') path' - (mapCArrayWithLength n_elements') freeMem path' - freeMem path' - touchManagedPtr _obj - freeMem path - freeMem n_elements - return path'' - --- method IconTheme::has_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- icon_name - m Bool -iconThemeHasIcon _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - result <- gtk_icon_theme_has_icon _obj' icon_name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem icon_name' - return result' - --- method IconTheme::list_contexts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -iconThemeListContexts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_theme_list_contexts _obj' - checkUnexpectedReturnNULL "gtk_icon_theme_list_contexts" result - result' <- unpackGList result - result'' <- mapM cstringToText result' - mapGList freeMem result - g_list_free result - touchManagedPtr _obj - return result'' - --- method IconTheme::list_icons --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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 - checkUnexpectedReturnNULL "gtk_icon_theme_list_icons" result - result' <- unpackGList result - result'' <- mapM cstringToText result' - mapGList freeMem result - g_list_free result - touchManagedPtr _obj - freeMem maybeContext - return result'' - --- method IconTheme::load_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconThemeLoadIcon :: - (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - [IconLookupFlags] -> -- flags - m GdkPixbuf.Pixbuf -iconThemeLoadIcon _obj icon_name size flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ gtk_icon_theme_load_icon _obj' icon_name' size flags' - checkUnexpectedReturnNULL "gtk_icon_theme_load_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem icon_name' - return result' - ) (do - freeMem icon_name' - ) - --- method IconTheme::load_icon_for_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- scale : TBasicType TInt32 - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr GdkPixbuf.Pixbuf) - - -iconThemeLoadIconForScale :: - (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - Int32 -> -- scale - [IconLookupFlags] -> -- flags - m GdkPixbuf.Pixbuf -iconThemeLoadIconForScale _obj icon_name size scale flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ gtk_icon_theme_load_icon_for_scale _obj' icon_name' size scale flags' - checkUnexpectedReturnNULL "gtk_icon_theme_load_icon_for_scale" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem icon_name' - return result' - ) (do - freeMem icon_name' - ) - --- method IconTheme::load_surface --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- scale : TBasicType TInt32 - 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 -> -- icon_name - Int32 -> -- size - Int32 -> -- scale - Maybe (b) -> -- for_window - [IconLookupFlags] -> -- flags - m Cairo.Surface -iconThemeLoadSurface _obj icon_name size scale for_window flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - maybeFor_window <- case for_window of - Nothing -> return nullPtr - Just jFor_window -> do - let jFor_window' = unsafeManagedPtrCastPtr jFor_window - return jFor_window' - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ gtk_icon_theme_load_surface _obj' icon_name' size scale maybeFor_window flags' - checkUnexpectedReturnNULL "gtk_icon_theme_load_surface" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - whenJust for_window touchManagedPtr - freeMem icon_name' - return result' - ) (do - freeMem icon_name' - ) - --- method IconTheme::lookup_by_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 IconInfo -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' - checkUnexpectedReturnNULL "gtk_icon_theme_lookup_by_gicon" result - result' <- (wrapObject IconInfo) result - touchManagedPtr _obj - touchManagedPtr icon - return result' - --- method IconTheme::lookup_by_gicon_for_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- scale : TBasicType TInt32 - 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 IconInfo -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' - checkUnexpectedReturnNULL "gtk_icon_theme_lookup_by_gicon_for_scale" result - result' <- (wrapObject IconInfo) result - touchManagedPtr _obj - touchManagedPtr icon - return result' - --- method IconTheme::lookup_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeLookupIcon :: - (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - [IconLookupFlags] -> -- flags - m IconInfo -iconThemeLookupIcon _obj icon_name size flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - let flags' = gflagsToWord flags - result <- gtk_icon_theme_lookup_icon _obj' icon_name' size flags' - checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon" result - result' <- (wrapObject IconInfo) result - touchManagedPtr _obj - freeMem icon_name' - return result' - --- method IconTheme::lookup_icon_for_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "IconLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- scale : TBasicType TInt32 - CUInt -> -- flags : TInterface "Gtk" "IconLookupFlags" - IO (Ptr IconInfo) - - -iconThemeLookupIconForScale :: - (MonadIO m, IconThemeK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - Int32 -> -- scale - [IconLookupFlags] -> -- flags - m IconInfo -iconThemeLookupIconForScale _obj icon_name size scale flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - let flags' = gflagsToWord flags - result <- gtk_icon_theme_lookup_icon_for_scale _obj' icon_name' size scale flags' - checkUnexpectedReturnNULL "gtk_icon_theme_lookup_icon_for_scale" result - result' <- (wrapObject IconInfo) result - touchManagedPtr _obj - freeMem icon_name' - return result' - --- method IconTheme::prepend_search_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconTheme::rescan_if_needed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconThemeRescanIfNeeded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_theme_rescan_if_needed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IconTheme::set_custom_theme --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "theme_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- theme_name - m () -iconThemeSetCustomTheme _obj theme_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTheme_name <- case theme_name of - Nothing -> return nullPtr - Just jTheme_name -> do - jTheme_name' <- textToCString jTheme_name - return jTheme_name' - gtk_icon_theme_set_custom_theme _obj' maybeTheme_name - touchManagedPtr _obj - freeMem maybeTheme_name - return () - --- method IconTheme::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconTheme::set_search_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_elements", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconTheme", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TCArray False (-1) 2 (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -iconThemeSetSearchPath :: - (MonadIO m, IconThemeK a) => - a -> -- _obj - [[Char]] -> -- path - m () -iconThemeSetSearchPath _obj path = liftIO $ do - let n_elements = fromIntegral $ length path - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- packFileNameArray path - gtk_icon_theme_set_search_path _obj' path' n_elements - touchManagedPtr _obj - (mapCArrayWithLength n_elements) freeMem path' - freeMem path' - return () - --- method IconTheme::add_builtin_icon --- method type : MemberFunction --- Args : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - 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 -> -- icon_name - Int32 -> -- size - a -> -- pixbuf - m () -iconThemeAddBuiltinIcon icon_name size pixbuf = liftIO $ do - icon_name' <- textToCString icon_name - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gtk_icon_theme_add_builtin_icon icon_name' size pixbuf' - touchManagedPtr pixbuf - freeMem icon_name' - return () - --- method IconTheme::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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,14 +0,0 @@ -module GI.Gtk.Objects.IconTheme where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IconTheme = IconTheme (ForeignPtr IconTheme) -instance GObject IconTheme where -class GObject o => IconThemeK o -instance (GObject o, IsDescendantOf IconTheme o) => IconThemeK o -data IconThemeChangedSignalInfo 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,3144 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - iconViewConvertWidgetToBinWindowCoords , - - --- ** iconViewCreateDragIcon - iconViewCreateDragIcon , - - --- ** iconViewEnableModelDragDest - iconViewEnableModelDragDest , - - --- ** iconViewEnableModelDragSource - iconViewEnableModelDragSource , - - --- ** iconViewGetActivateOnSingleClick - iconViewGetActivateOnSingleClick , - - --- ** iconViewGetCellRect - iconViewGetCellRect , - - --- ** iconViewGetColumnSpacing - iconViewGetColumnSpacing , - - --- ** iconViewGetColumns - iconViewGetColumns , - - --- ** iconViewGetCursor - iconViewGetCursor , - - --- ** iconViewGetDestItemAtPos - iconViewGetDestItemAtPos , - - --- ** iconViewGetDragDestItem - iconViewGetDragDestItem , - - --- ** iconViewGetItemAtPos - iconViewGetItemAtPos , - - --- ** iconViewGetItemColumn - iconViewGetItemColumn , - - --- ** iconViewGetItemOrientation - iconViewGetItemOrientation , - - --- ** iconViewGetItemPadding - iconViewGetItemPadding , - - --- ** iconViewGetItemRow - iconViewGetItemRow , - - --- ** iconViewGetItemWidth - iconViewGetItemWidth , - - --- ** iconViewGetMargin - iconViewGetMargin , - - --- ** iconViewGetMarkupColumn - iconViewGetMarkupColumn , - - --- ** iconViewGetModel - iconViewGetModel , - - --- ** iconViewGetPathAtPos - iconViewGetPathAtPos , - - --- ** iconViewGetPixbufColumn - iconViewGetPixbufColumn , - - --- ** iconViewGetReorderable - iconViewGetReorderable , - - --- ** iconViewGetRowSpacing - iconViewGetRowSpacing , - - --- ** iconViewGetSelectedItems - iconViewGetSelectedItems , - - --- ** iconViewGetSelectionMode - iconViewGetSelectionMode , - - --- ** iconViewGetSpacing - iconViewGetSpacing , - - --- ** iconViewGetTextColumn - iconViewGetTextColumn , - - --- ** iconViewGetTooltipColumn - iconViewGetTooltipColumn , - - --- ** iconViewGetTooltipContext - iconViewGetTooltipContext , - - --- ** iconViewGetVisibleRange - iconViewGetVisibleRange , - - --- ** iconViewItemActivated - iconViewItemActivated , - - --- ** iconViewNew - iconViewNew , - - --- ** iconViewNewWithArea - iconViewNewWithArea , - - --- ** iconViewNewWithModel - iconViewNewWithModel , - - --- ** iconViewPathIsSelected - iconViewPathIsSelected , - - --- ** iconViewScrollToPath - iconViewScrollToPath , - - --- ** iconViewSelectAll - iconViewSelectAll , - - --- ** iconViewSelectPath - iconViewSelectPath , - - --- ** iconViewSelectedForeach - iconViewSelectedForeach , - - --- ** iconViewSetActivateOnSingleClick - iconViewSetActivateOnSingleClick , - - --- ** iconViewSetColumnSpacing - iconViewSetColumnSpacing , - - --- ** iconViewSetColumns - iconViewSetColumns , - - --- ** iconViewSetCursor - iconViewSetCursor , - - --- ** iconViewSetDragDestItem - iconViewSetDragDestItem , - - --- ** iconViewSetItemOrientation - iconViewSetItemOrientation , - - --- ** iconViewSetItemPadding - iconViewSetItemPadding , - - --- ** iconViewSetItemWidth - iconViewSetItemWidth , - - --- ** iconViewSetMargin - iconViewSetMargin , - - --- ** iconViewSetMarkupColumn - iconViewSetMarkupColumn , - - --- ** iconViewSetModel - iconViewSetModel , - - --- ** iconViewSetPixbufColumn - iconViewSetPixbufColumn , - - --- ** iconViewSetReorderable - iconViewSetReorderable , - - --- ** iconViewSetRowSpacing - iconViewSetRowSpacing , - - --- ** iconViewSetSelectionMode - iconViewSetSelectionMode , - - --- ** iconViewSetSpacing - iconViewSetSpacing , - - --- ** iconViewSetTextColumn - iconViewSetTextColumn , - - --- ** iconViewSetTooltipCell - iconViewSetTooltipCell , - - --- ** iconViewSetTooltipColumn - iconViewSetTooltipColumn , - - --- ** iconViewSetTooltipItem - iconViewSetTooltipItem , - - --- ** iconViewUnselectAll - iconViewUnselectAll , - - --- ** iconViewUnselectPath - iconViewUnselectPath , - - --- ** iconViewUnsetModelDragDest - iconViewUnsetModelDragDest , - - --- ** iconViewUnsetModelDragSource - iconViewUnsetModelDragSource , - - - - - -- * Properties --- ** ActivateOnSingleClick - IconViewActivateOnSingleClickPropertyInfo, - constructIconViewActivateOnSingleClick , - getIconViewActivateOnSingleClick , - setIconViewActivateOnSingleClick , - - --- ** CellArea - IconViewCellAreaPropertyInfo , - constructIconViewCellArea , - getIconViewCellArea , - - --- ** ColumnSpacing - IconViewColumnSpacingPropertyInfo , - constructIconViewColumnSpacing , - getIconViewColumnSpacing , - setIconViewColumnSpacing , - - --- ** Columns - IconViewColumnsPropertyInfo , - constructIconViewColumns , - getIconViewColumns , - setIconViewColumns , - - --- ** ItemOrientation - IconViewItemOrientationPropertyInfo , - constructIconViewItemOrientation , - getIconViewItemOrientation , - setIconViewItemOrientation , - - --- ** ItemPadding - IconViewItemPaddingPropertyInfo , - constructIconViewItemPadding , - getIconViewItemPadding , - setIconViewItemPadding , - - --- ** ItemWidth - IconViewItemWidthPropertyInfo , - constructIconViewItemWidth , - getIconViewItemWidth , - setIconViewItemWidth , - - --- ** Margin - IconViewMarginPropertyInfo , - constructIconViewMargin , - getIconViewMargin , - setIconViewMargin , - - --- ** MarkupColumn - IconViewMarkupColumnPropertyInfo , - constructIconViewMarkupColumn , - getIconViewMarkupColumn , - setIconViewMarkupColumn , - - --- ** Model - IconViewModelPropertyInfo , - constructIconViewModel , - getIconViewModel , - setIconViewModel , - - --- ** PixbufColumn - IconViewPixbufColumnPropertyInfo , - constructIconViewPixbufColumn , - getIconViewPixbufColumn , - setIconViewPixbufColumn , - - --- ** Reorderable - IconViewReorderablePropertyInfo , - constructIconViewReorderable , - getIconViewReorderable , - setIconViewReorderable , - - --- ** RowSpacing - IconViewRowSpacingPropertyInfo , - constructIconViewRowSpacing , - getIconViewRowSpacing , - setIconViewRowSpacing , - - --- ** SelectionMode - IconViewSelectionModePropertyInfo , - constructIconViewSelectionMode , - getIconViewSelectionMode , - setIconViewSelectionMode , - - --- ** Spacing - IconViewSpacingPropertyInfo , - constructIconViewSpacing , - getIconViewSpacing , - setIconViewSpacing , - - --- ** TextColumn - IconViewTextColumnPropertyInfo , - constructIconViewTextColumn , - getIconViewTextColumn , - setIconViewTextColumn , - - --- ** TooltipColumn - IconViewTooltipColumnPropertyInfo , - constructIconViewTooltipColumn , - getIconViewTooltipColumn , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "IconView::activate-on-single-click" - attrGet _ = getIconViewActivateOnSingleClick - attrSet _ = setIconViewActivateOnSingleClick - attrConstruct _ = constructIconViewActivateOnSingleClick - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m CellArea -getIconViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructIconViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructIconViewCellArea val = constructObjectPropertyObject "cell-area" val - -data IconViewCellAreaPropertyInfo -instance AttrInfo IconViewCellAreaPropertyInfo where - type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint IconViewCellAreaPropertyInfo = IconViewK - type AttrGetType IconViewCellAreaPropertyInfo = CellArea - type AttrLabel IconViewCellAreaPropertyInfo = "IconView::cell-area" - attrGet _ = getIconViewCellArea - attrSet _ = undefined - attrConstruct _ = constructIconViewCellArea - --- VVV Prop "column-spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing" - -setIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val - -constructIconViewColumnSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewColumnSpacing val = constructObjectPropertyCInt "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 = "IconView::column-spacing" - attrGet _ = getIconViewColumnSpacing - attrSet _ = setIconViewColumnSpacing - attrConstruct _ = constructIconViewColumnSpacing - --- VVV Prop "columns" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewColumns :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewColumns obj = liftIO $ getObjectPropertyCInt obj "columns" - -setIconViewColumns :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewColumns obj val = liftIO $ setObjectPropertyCInt obj "columns" val - -constructIconViewColumns :: Int32 -> IO ([Char], GValue) -constructIconViewColumns val = constructObjectPropertyCInt "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 = "IconView::columns" - attrGet _ = getIconViewColumns - attrSet _ = setIconViewColumns - attrConstruct _ = constructIconViewColumns - --- VVV Prop "item-orientation" - -- Type: TInterface "Gtk" "Orientation" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "IconView::item-orientation" - attrGet _ = getIconViewItemOrientation - attrSet _ = setIconViewItemOrientation - attrConstruct _ = constructIconViewItemOrientation - --- VVV Prop "item-padding" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewItemPadding obj = liftIO $ getObjectPropertyCInt obj "item-padding" - -setIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewItemPadding obj val = liftIO $ setObjectPropertyCInt obj "item-padding" val - -constructIconViewItemPadding :: Int32 -> IO ([Char], GValue) -constructIconViewItemPadding val = constructObjectPropertyCInt "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 = "IconView::item-padding" - attrGet _ = getIconViewItemPadding - attrSet _ = setIconViewItemPadding - attrConstruct _ = constructIconViewItemPadding - --- VVV Prop "item-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewItemWidth obj = liftIO $ getObjectPropertyCInt obj "item-width" - -setIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewItemWidth obj val = liftIO $ setObjectPropertyCInt obj "item-width" val - -constructIconViewItemWidth :: Int32 -> IO ([Char], GValue) -constructIconViewItemWidth val = constructObjectPropertyCInt "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 = "IconView::item-width" - attrGet _ = getIconViewItemWidth - attrSet _ = setIconViewItemWidth - attrConstruct _ = constructIconViewItemWidth - --- VVV Prop "margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewMargin :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewMargin obj = liftIO $ getObjectPropertyCInt obj "margin" - -setIconViewMargin :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val - -constructIconViewMargin :: Int32 -> IO ([Char], GValue) -constructIconViewMargin val = constructObjectPropertyCInt "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 = "IconView::margin" - attrGet _ = getIconViewMargin - attrSet _ = setIconViewMargin - attrConstruct _ = constructIconViewMargin - --- VVV Prop "markup-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewMarkupColumn obj = liftIO $ getObjectPropertyCInt obj "markup-column" - -setIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyCInt obj "markup-column" val - -constructIconViewMarkupColumn :: Int32 -> IO ([Char], GValue) -constructIconViewMarkupColumn val = constructObjectPropertyCInt "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 = "IconView::markup-column" - attrGet _ = getIconViewMarkupColumn - attrSet _ = setIconViewMarkupColumn - attrConstruct _ = constructIconViewMarkupColumn - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewModel :: (MonadIO m, IconViewK o) => o -> m TreeModel -getIconViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -setIconViewModel :: (MonadIO m, IconViewK o, TreeModelK a) => o -> a -> m () -setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val - -constructIconViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructIconViewModel val = constructObjectPropertyObject "model" val - -data IconViewModelPropertyInfo -instance AttrInfo IconViewModelPropertyInfo where - type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint IconViewModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint IconViewModelPropertyInfo = IconViewK - type AttrGetType IconViewModelPropertyInfo = TreeModel - type AttrLabel IconViewModelPropertyInfo = "IconView::model" - attrGet _ = getIconViewModel - attrSet _ = setIconViewModel - attrConstruct _ = constructIconViewModel - --- VVV Prop "pixbuf-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewPixbufColumn obj = liftIO $ getObjectPropertyCInt obj "pixbuf-column" - -setIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyCInt obj "pixbuf-column" val - -constructIconViewPixbufColumn :: Int32 -> IO ([Char], GValue) -constructIconViewPixbufColumn val = constructObjectPropertyCInt "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 = "IconView::pixbuf-column" - attrGet _ = getIconViewPixbufColumn - attrSet _ = setIconViewPixbufColumn - attrConstruct _ = constructIconViewPixbufColumn - --- VVV Prop "reorderable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "IconView::reorderable" - attrGet _ = getIconViewReorderable - attrSet _ = setIconViewReorderable - attrConstruct _ = constructIconViewReorderable - --- VVV Prop "row-spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing" - -setIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val - -constructIconViewRowSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewRowSpacing val = constructObjectPropertyCInt "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 = "IconView::row-spacing" - attrGet _ = getIconViewRowSpacing - attrSet _ = setIconViewRowSpacing - attrConstruct _ = constructIconViewRowSpacing - --- VVV Prop "selection-mode" - -- Type: TInterface "Gtk" "SelectionMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "IconView::selection-mode" - attrGet _ = getIconViewSelectionMode - attrSet _ = setIconViewSelectionMode - attrConstruct _ = constructIconViewSelectionMode - --- VVV Prop "spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" - -setIconViewSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val - -constructIconViewSpacing :: Int32 -> IO ([Char], GValue) -constructIconViewSpacing val = constructObjectPropertyCInt "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 = "IconView::spacing" - attrGet _ = getIconViewSpacing - attrSet _ = setIconViewSpacing - attrConstruct _ = constructIconViewSpacing - --- VVV Prop "text-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" - -setIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val - -constructIconViewTextColumn :: Int32 -> IO ([Char], GValue) -constructIconViewTextColumn val = constructObjectPropertyCInt "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 = "IconView::text-column" - attrGet _ = getIconViewTextColumn - attrSet _ = setIconViewTextColumn - attrConstruct _ = constructIconViewTextColumn - --- VVV Prop "tooltip-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> m Int32 -getIconViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" - -setIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () -setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val - -constructIconViewTooltipColumn :: Int32 -> IO ([Char], GValue) -constructIconViewTooltipColumn val = constructObjectPropertyCInt "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 = "IconView::tooltip-column" - attrGet _ = getIconViewTooltipColumn - attrSet _ = setIconViewTooltipColumn - attrConstruct _ = constructIconViewTooltipColumn - -type instance AttributeList IconView = IconViewAttributeList -type IconViewAttributeList = ('[ '("activate-on-single-click", IconViewActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", IconViewCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("item-orientation", IconViewItemOrientationPropertyInfo), '("item-padding", IconViewItemPaddingPropertyInfo), '("item-width", IconViewItemWidthPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("markup-column", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf-column", IconViewPixbufColumnPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", IconViewRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", IconViewSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("text-column", IconViewTextColumnPropertyInfo), '("tooltip-column", IconViewTooltipColumnPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-item", IconViewActivateCursorItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", IconViewItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", IconViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", IconViewSelectAllSignalInfo), '("select-cursor-item", IconViewSelectCursorItemSignalInfo), '("selection-changed", IconViewSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-item", IconViewToggleCursorItemSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", IconViewUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IconView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 - IO () - - -iconViewConvertWidgetToBinWindowCoords :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- wx - Int32 -> -- wy - m (Int32,Int32) -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') - --- method IconView::create_drag_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconView::enable_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -iconViewEnableModelDragDest :: - (MonadIO m, IconViewK a) => - a -> -- _obj - [TargetEntry] -> -- targets - [Gdk.DragAction] -> -- actions - m () -iconViewEnableModelDragDest _obj targets actions = liftIO $ do - let n_targets = 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'' n_targets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - --- method IconView::enable_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -iconViewEnableModelDragSource :: - (MonadIO m, IconViewK a) => - a -> -- _obj - [Gdk.ModifierType] -> -- start_button_mask - [TargetEntry] -> -- targets - [Gdk.DragAction] -> -- actions - m () -iconViewEnableModelDragSource _obj start_button_mask targets actions = liftIO $ do - let n_targets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let start_button_mask' = gflagsToWord start_button_mask - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_icon_view_enable_model_drag_source _obj' start_button_mask' targets'' n_targets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - --- method IconView::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconView::get_cell_rect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO CInt - - -iconViewGetCellRect :: - (MonadIO m, IconViewK a, CellRendererK b) => - a -> -- _obj - TreePath -> -- path - Maybe (b) -> -- cell - m (Bool,Cairo.RectangleInt) -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 Cairo.RectangleInt) - result <- gtk_icon_view_get_cell_rect _obj' path' maybeCell rect - let result' = (/= 0) result - rect' <- (wrapBoxed Cairo.RectangleInt) rect - touchManagedPtr _obj - touchManagedPtr path - whenJust cell touchManagedPtr - return (result', rect') - --- method IconView::get_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetColumnSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_column_spacing _obj' - touchManagedPtr _obj - return result - --- method IconView::get_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_columns _obj' - touchManagedPtr _obj - return result - --- method IconView::get_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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'') - --- method IconView::get_dest_item_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- drag_y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "IconViewDropPosition" - IO CInt - - -iconViewGetDestItemAtPos :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- drag_x - Int32 -> -- drag_y - m (Bool,TreePath,IconViewDropPosition) -iconViewGetDestItemAtPos _obj drag_x drag_y = 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' drag_x drag_y 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'') - --- method IconView::get_drag_dest_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method IconView::get_item_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - 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) -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'') - --- method IconView::get_item_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method IconView::get_item_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconView::get_item_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetItemPadding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_item_padding _obj' - touchManagedPtr _obj - return result - --- method IconView::get_item_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method IconView::get_item_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetItemWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_item_width _obj' - touchManagedPtr _obj - return result - --- method IconView::get_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_margin _obj' - touchManagedPtr _obj - return result - --- method IconView::get_markup_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetMarkupColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_markup_column _obj' - touchManagedPtr _obj - return result - --- method IconView::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconView::get_path_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO (Ptr TreePath) - - -iconViewGetPathAtPos :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m TreePath -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' - --- method IconView::get_pixbuf_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetPixbufColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_pixbuf_column _obj' - touchManagedPtr _obj - return result - --- method IconView::get_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconViewGetReorderable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_reorderable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IconView::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_row_spacing _obj' - touchManagedPtr _obj - return result - --- method IconView::get_selected_items --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -iconViewGetSelectedItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_selected_items _obj' - checkUnexpectedReturnNULL "gtk_icon_view_get_selected_items" result - result' <- unpackGList result - result'' <- mapM (wrapBoxed TreePath) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method IconView::get_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconView::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_spacing _obj' - touchManagedPtr _obj - return result - --- method IconView::get_text_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetTextColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_text_column _obj' - touchManagedPtr _obj - return result - --- method IconView::get_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconViewGetTooltipColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_icon_view_get_tooltip_column _obj' - touchManagedPtr _obj - return result - --- method IconView::get_tooltip_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - 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 -> -- keyboard_tip - m (Bool,Int32,Int32,TreeModel,TreePath,TreeIter) -iconViewGetTooltipContext _obj x y keyboard_tip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x' <- allocMem :: IO (Ptr Int32) - poke x' x - y' <- allocMem :: IO (Ptr Int32) - poke y' y - let keyboard_tip' = (fromIntegral . fromEnum) keyboard_tip - 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' keyboard_tip' 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') - --- method IconView::get_visible_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -iconViewGetVisibleRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start_path <- allocMem :: IO (Ptr (Ptr TreePath)) - end_path <- allocMem :: IO (Ptr (Ptr TreePath)) - result <- gtk_icon_view_get_visible_range _obj' start_path end_path - let result' = (/= 0) result - start_path' <- peek start_path - start_path'' <- (wrapBoxed TreePath) start_path' - end_path' <- peek end_path - end_path'' <- (wrapBoxed TreePath) end_path' - touchManagedPtr _obj - freeMem start_path - freeMem end_path - return (result', start_path'', end_path'') - --- method IconView::item_activated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::path_is_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconView::scroll_to_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_align - Float -> -- row_align - Float -> -- col_align - m () -iconViewScrollToPath _obj path use_align row_align col_align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let use_align' = (fromIntegral . fromEnum) use_align - let row_align' = realToFrac row_align - let col_align' = realToFrac col_align - gtk_icon_view_scroll_to_path _obj' path' use_align' row_align' col_align' - touchManagedPtr _obj - touchManagedPtr path - return () - --- method IconView::select_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconViewSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_select_all _obj' - touchManagedPtr _obj - return () - --- method IconView::select_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "IconViewForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -iconViewSelectedForeach :: - (MonadIO m, IconViewK a) => - a -> -- _obj - IconViewForeachFunc -> -- func - m () -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 () - --- method IconView::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::set_column_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_column_spacing" gtk_icon_view_set_column_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- column_spacing : TBasicType TInt32 - IO () - - -iconViewSetColumnSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column_spacing - m () -iconViewSetColumnSpacing _obj column_spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_column_spacing _obj' column_spacing - touchManagedPtr _obj - return () - --- method IconView::set_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_columns" gtk_icon_view_set_columns :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- columns : TBasicType TInt32 - IO () - - -iconViewSetColumns :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- columns - m () -iconViewSetColumns _obj columns = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_columns _obj' columns - touchManagedPtr _obj - return () - --- method IconView::set_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- start_editing - m () -iconViewSetCursor _obj path cell start_editing = 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 start_editing' = (fromIntegral . fromEnum) start_editing - gtk_icon_view_set_cursor _obj' path' maybeCell start_editing' - touchManagedPtr _obj - touchManagedPtr path - whenJust cell touchManagedPtr - return () - --- method IconView::set_drag_dest_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "IconViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::set_item_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::set_item_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_padding", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_item_padding" gtk_icon_view_set_item_padding :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- item_padding : TBasicType TInt32 - IO () - - -iconViewSetItemPadding :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- item_padding - m () -iconViewSetItemPadding _obj item_padding = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_item_padding _obj' item_padding - touchManagedPtr _obj - return () - --- method IconView::set_item_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_item_width" gtk_icon_view_set_item_width :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- item_width : TBasicType TInt32 - IO () - - -iconViewSetItemWidth :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- item_width - m () -iconViewSetItemWidth _obj item_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_item_width _obj' item_width - touchManagedPtr _obj - return () - --- method IconView::set_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_margin" gtk_icon_view_set_margin :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -iconViewSetMargin :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- margin - m () -iconViewSetMargin _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_margin _obj' margin - touchManagedPtr _obj - return () - --- method IconView::set_markup_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -iconViewSetMarkupColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column - m () -iconViewSetMarkupColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_markup_column _obj' column - touchManagedPtr _obj - return () - --- method IconView::set_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::set_pixbuf_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -iconViewSetPixbufColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column - m () -iconViewSetPixbufColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_pixbuf_column _obj' column - touchManagedPtr _obj - return () - --- method IconView::set_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconViewSetReorderable _obj reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_icon_view_set_reorderable _obj' reorderable' - touchManagedPtr _obj - return () - --- method IconView::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_row_spacing" gtk_icon_view_set_row_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- row_spacing : TBasicType TInt32 - IO () - - -iconViewSetRowSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- row_spacing - m () -iconViewSetRowSpacing _obj row_spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_row_spacing _obj' row_spacing - touchManagedPtr _obj - return () - --- method IconView::set_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_view_set_spacing" gtk_icon_view_set_spacing :: - Ptr IconView -> -- _obj : TInterface "Gtk" "IconView" - Int32 -> -- spacing : TBasicType TInt32 - IO () - - -iconViewSetSpacing :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- spacing - m () -iconViewSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_spacing _obj' spacing - touchManagedPtr _obj - return () - --- method IconView::set_text_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -iconViewSetTextColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column - m () -iconViewSetTextColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_text_column _obj' column - touchManagedPtr _obj - return () - --- method IconView::set_tooltip_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::set_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -iconViewSetTooltipColumn :: - (MonadIO m, IconViewK a) => - a -> -- _obj - Int32 -> -- column - m () -iconViewSetTooltipColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_set_tooltip_column _obj' column - touchManagedPtr _obj - return () - --- method IconView::set_tooltip_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconViewUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unselect_all _obj' - touchManagedPtr _obj - return () - --- method IconView::unselect_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconView::unset_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconViewUnsetModelDragDest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unset_model_drag_dest _obj' - touchManagedPtr _obj - return () - --- method IconView::unset_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconViewUnsetModelDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_icon_view_unset_model_drag_source _obj' - touchManagedPtr _obj - return () - - 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,38 +0,0 @@ -module GI.Gtk.Objects.IconView where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList IconViewAccessible = IconViewAccessibleAttributeList -type IconViewAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList IconViewAccessible = IconViewAccessibleSignalList -type IconViewAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1406 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - imageClear , - - --- ** imageGetAnimation - imageGetAnimation , - - --- ** imageGetGicon - imageGetGicon , - - --- ** imageGetIconName - imageGetIconName , - - --- ** imageGetIconSet - imageGetIconSet , - - --- ** imageGetPixbuf - imageGetPixbuf , - - --- ** imageGetPixelSize - imageGetPixelSize , - - --- ** imageGetStock - imageGetStock , - - --- ** imageGetStorageType - imageGetStorageType , - - --- ** imageNew - imageNew , - - --- ** imageNewFromAnimation - imageNewFromAnimation , - - --- ** imageNewFromFile - imageNewFromFile , - - --- ** imageNewFromGicon - imageNewFromGicon , - - --- ** imageNewFromIconName - imageNewFromIconName , - - --- ** imageNewFromIconSet - imageNewFromIconSet , - - --- ** imageNewFromPixbuf - imageNewFromPixbuf , - - --- ** imageNewFromResource - imageNewFromResource , - - --- ** imageNewFromStock - imageNewFromStock , - - --- ** imageNewFromSurface - imageNewFromSurface , - - --- ** imageSetFromAnimation - imageSetFromAnimation , - - --- ** imageSetFromFile - imageSetFromFile , - - --- ** imageSetFromGicon - imageSetFromGicon , - - --- ** imageSetFromIconName - imageSetFromIconName , - - --- ** imageSetFromIconSet - imageSetFromIconSet , - - --- ** imageSetFromPixbuf - imageSetFromPixbuf , - - --- ** imageSetFromResource - imageSetFromResource , - - --- ** imageSetFromStock - imageSetFromStock , - - --- ** imageSetFromSurface - imageSetFromSurface , - - --- ** imageSetPixelSize - imageSetPixelSize , - - - - - -- * Properties --- ** File - ImageFilePropertyInfo , - constructImageFile , - getImageFile , - setImageFile , - - --- ** Gicon - ImageGiconPropertyInfo , - constructImageGicon , - getImageGicon , - setImageGicon , - - --- ** IconName - ImageIconNamePropertyInfo , - constructImageIconName , - getImageIconName , - setImageIconName , - - --- ** IconSet - ImageIconSetPropertyInfo , - constructImageIconSet , - getImageIconSet , - setImageIconSet , - - --- ** IconSize - ImageIconSizePropertyInfo , - constructImageIconSize , - getImageIconSize , - setImageIconSize , - - --- ** Pixbuf - ImagePixbufPropertyInfo , - constructImagePixbuf , - getImagePixbuf , - setImagePixbuf , - - --- ** PixbufAnimation - ImagePixbufAnimationPropertyInfo , - constructImagePixbufAnimation , - getImagePixbufAnimation , - setImagePixbufAnimation , - - --- ** PixelSize - ImagePixelSizePropertyInfo , - constructImagePixelSize , - getImagePixelSize , - setImagePixelSize , - - --- ** Resource - ImageResourcePropertyInfo , - constructImageResource , - getImageResource , - setImageResource , - - --- ** Stock - ImageStockPropertyInfo , - constructImageStock , - getImageStock , - setImageStock , - - --- ** StorageType - ImageStorageTypePropertyInfo , - getImageStorageType , - - --- ** Surface - ImageSurfacePropertyInfo , - constructImageSurface , - getImageSurface , - setImageSurface , - - --- ** UseFallback - ImageUseFallbackPropertyInfo , - constructImageUseFallback , - getImageUseFallback , - setImageUseFallback , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getImageFile :: (MonadIO m, ImageK o) => o -> m T.Text -getImageFile obj = liftIO $ getObjectPropertyString obj "file" - -setImageFile :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageFile obj val = liftIO $ setObjectPropertyString obj "file" val - -constructImageFile :: T.Text -> IO ([Char], GValue) -constructImageFile val = constructObjectPropertyString "file" val - -data ImageFilePropertyInfo -instance AttrInfo ImageFilePropertyInfo where - type AttrAllowedOps ImageFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ImageFilePropertyInfo = ImageK - type AttrGetType ImageFilePropertyInfo = T.Text - type AttrLabel ImageFilePropertyInfo = "Image::file" - attrGet _ = getImageFile - attrSet _ = setImageFile - attrConstruct _ = constructImageFile - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getImageGicon :: (MonadIO m, ImageK o) => o -> m 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" val - -constructImageGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructImageGicon val = constructObjectPropertyObject "gicon" val - -data ImageGiconPropertyInfo -instance AttrInfo ImageGiconPropertyInfo where - type AttrAllowedOps ImageGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint ImageGiconPropertyInfo = ImageK - type AttrGetType ImageGiconPropertyInfo = Gio.Icon - type AttrLabel ImageGiconPropertyInfo = "Image::gicon" - attrGet _ = getImageGicon - attrSet _ = setImageGicon - attrConstruct _ = constructImageGicon - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getImageIconName :: (MonadIO m, ImageK o) => o -> m 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" val - -constructImageIconName :: T.Text -> IO ([Char], GValue) -constructImageIconName val = constructObjectPropertyString "icon-name" val - -data ImageIconNamePropertyInfo -instance AttrInfo ImageIconNamePropertyInfo where - type AttrAllowedOps ImageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ImageIconNamePropertyInfo = ImageK - type AttrGetType ImageIconNamePropertyInfo = T.Text - type AttrLabel ImageIconNamePropertyInfo = "Image::icon-name" - attrGet _ = getImageIconName - attrSet _ = setImageIconName - attrConstruct _ = constructImageIconName - --- VVV Prop "icon-set" - -- Type: TInterface "Gtk" "IconSet" - -- Flags: [PropertyReadable,PropertyWritable] - -getImageIconSet :: (MonadIO m, ImageK o) => o -> m 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" val - -constructImageIconSet :: IconSet -> IO ([Char], GValue) -constructImageIconSet val = constructObjectPropertyBoxed "icon-set" val - -data ImageIconSetPropertyInfo -instance AttrInfo ImageIconSetPropertyInfo where - type AttrAllowedOps ImageIconSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageIconSetPropertyInfo = (~) IconSet - type AttrBaseTypeConstraint ImageIconSetPropertyInfo = ImageK - type AttrGetType ImageIconSetPropertyInfo = IconSet - type AttrLabel ImageIconSetPropertyInfo = "Image::icon-set" - attrGet _ = getImageIconSet - attrSet _ = setImageIconSet - attrConstruct _ = constructImageIconSet - --- VVV Prop "icon-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getImageIconSize :: (MonadIO m, ImageK o) => o -> m Int32 -getImageIconSize obj = liftIO $ getObjectPropertyCInt obj "icon-size" - -setImageIconSize :: (MonadIO m, ImageK o) => o -> Int32 -> m () -setImageIconSize obj val = liftIO $ setObjectPropertyCInt obj "icon-size" val - -constructImageIconSize :: Int32 -> IO ([Char], GValue) -constructImageIconSize val = constructObjectPropertyCInt "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 = "Image::icon-size" - attrGet _ = getImageIconSize - attrSet _ = setImageIconSize - attrConstruct _ = constructImageIconSize - --- VVV Prop "pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getImagePixbuf :: (MonadIO m, ImageK o) => o -> m GdkPixbuf.Pixbuf -getImagePixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf - -setImagePixbuf :: (MonadIO m, ImageK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setImagePixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val - -constructImagePixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructImagePixbuf val = constructObjectPropertyObject "pixbuf" val - -data ImagePixbufPropertyInfo -instance AttrInfo ImagePixbufPropertyInfo where - type AttrAllowedOps ImagePixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImagePixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint ImagePixbufPropertyInfo = ImageK - type AttrGetType ImagePixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel ImagePixbufPropertyInfo = "Image::pixbuf" - attrGet _ = getImagePixbuf - attrSet _ = setImagePixbuf - attrConstruct _ = constructImagePixbuf - --- VVV Prop "pixbuf-animation" - -- Type: TInterface "GdkPixbuf" "PixbufAnimation" - -- Flags: [PropertyReadable,PropertyWritable] - -getImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m 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" val - -constructImagePixbufAnimation :: (GdkPixbuf.PixbufAnimationK a) => a -> IO ([Char], GValue) -constructImagePixbufAnimation val = constructObjectPropertyObject "pixbuf-animation" val - -data ImagePixbufAnimationPropertyInfo -instance AttrInfo ImagePixbufAnimationPropertyInfo where - type AttrAllowedOps ImagePixbufAnimationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimationK - type AttrBaseTypeConstraint ImagePixbufAnimationPropertyInfo = ImageK - type AttrGetType ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimation - type AttrLabel ImagePixbufAnimationPropertyInfo = "Image::pixbuf-animation" - attrGet _ = getImagePixbufAnimation - attrSet _ = setImagePixbufAnimation - attrConstruct _ = constructImagePixbufAnimation - --- VVV Prop "pixel-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getImagePixelSize :: (MonadIO m, ImageK o) => o -> m Int32 -getImagePixelSize obj = liftIO $ getObjectPropertyCInt obj "pixel-size" - -setImagePixelSize :: (MonadIO m, ImageK o) => o -> Int32 -> m () -setImagePixelSize obj val = liftIO $ setObjectPropertyCInt obj "pixel-size" val - -constructImagePixelSize :: Int32 -> IO ([Char], GValue) -constructImagePixelSize val = constructObjectPropertyCInt "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 = "Image::pixel-size" - attrGet _ = getImagePixelSize - attrSet _ = setImagePixelSize - attrConstruct _ = constructImagePixelSize - --- VVV Prop "resource" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getImageResource :: (MonadIO m, ImageK o) => o -> m T.Text -getImageResource obj = liftIO $ getObjectPropertyString obj "resource" - -setImageResource :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageResource obj val = liftIO $ setObjectPropertyString obj "resource" val - -constructImageResource :: T.Text -> IO ([Char], GValue) -constructImageResource val = constructObjectPropertyString "resource" val - -data ImageResourcePropertyInfo -instance AttrInfo ImageResourcePropertyInfo where - type AttrAllowedOps ImageResourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageResourcePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ImageResourcePropertyInfo = ImageK - type AttrGetType ImageResourcePropertyInfo = T.Text - type AttrLabel ImageResourcePropertyInfo = "Image::resource" - attrGet _ = getImageResource - attrSet _ = setImageResource - attrConstruct _ = constructImageResource - --- VVV Prop "stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getImageStock :: (MonadIO m, ImageK o) => o -> m T.Text -getImageStock obj = liftIO $ getObjectPropertyString obj "stock" - -setImageStock :: (MonadIO m, ImageK o) => o -> T.Text -> m () -setImageStock obj val = liftIO $ setObjectPropertyString obj "stock" val - -constructImageStock :: T.Text -> IO ([Char], GValue) -constructImageStock val = constructObjectPropertyString "stock" val - -data ImageStockPropertyInfo -instance AttrInfo ImageStockPropertyInfo where - type AttrAllowedOps ImageStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ImageStockPropertyInfo = ImageK - type AttrGetType ImageStockPropertyInfo = T.Text - type AttrLabel ImageStockPropertyInfo = "Image::stock" - attrGet _ = getImageStock - attrSet _ = setImageStock - attrConstruct _ = constructImageStock - --- VVV Prop "storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -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 = "Image::storage-type" - attrGet _ = getImageStorageType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "surface" - -- Type: TInterface "cairo" "Surface" - -- Flags: [PropertyReadable,PropertyWritable] - -getImageSurface :: (MonadIO m, ImageK o) => o -> m 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" val - -constructImageSurface :: Cairo.Surface -> IO ([Char], GValue) -constructImageSurface val = constructObjectPropertyBoxed "surface" val - -data ImageSurfacePropertyInfo -instance AttrInfo ImageSurfacePropertyInfo where - type AttrAllowedOps ImageSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageSurfacePropertyInfo = (~) Cairo.Surface - type AttrBaseTypeConstraint ImageSurfacePropertyInfo = ImageK - type AttrGetType ImageSurfacePropertyInfo = Cairo.Surface - type AttrLabel ImageSurfacePropertyInfo = "Image::surface" - attrGet _ = getImageSurface - attrSet _ = setImageSurface - attrConstruct _ = constructImageSurface - --- VVV Prop "use-fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Image::use-fallback" - attrGet _ = getImageUseFallback - attrSet _ = setImageUseFallback - attrConstruct _ = constructImageUseFallback - -type instance AttributeList Image = ImageAttributeList -type ImageAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("file", ImageFilePropertyInfo), '("gicon", ImageGiconPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ImageIconNamePropertyInfo), '("icon-set", ImageIconSetPropertyInfo), '("icon-size", ImageIconSizePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf", ImagePixbufPropertyInfo), '("pixbuf-animation", ImagePixbufAnimationPropertyInfo), '("pixel-size", ImagePixelSizePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resource", ImageResourcePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock", ImageStockPropertyInfo), '("storage-type", ImageStorageTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("surface", ImageSurfacePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-fallback", ImageUseFallbackPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Image = ImageSignalList -type ImageSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Image::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Image) - - -imageNewFromGicon :: - (MonadIO m, Gio.IconK a) => - a -> -- icon - Int32 -> -- size - m Image -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 {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Image) - - -imageNewFromIconName :: - (MonadIO m) => - T.Text -> -- icon_name - Int32 -> -- size - m Image -imageNewFromIconName icon_name size = liftIO $ do - icon_name' <- textToCString icon_name - result <- gtk_image_new_from_icon_name icon_name' size - checkUnexpectedReturnNULL "gtk_image_new_from_icon_name" result - result' <- (newObject Image) result - freeMem icon_name' - return result' - --- method Image::new_from_icon_set --- method type : Constructor --- Args : [Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Image) - -{-# DEPRECATED imageNewFromIconSet ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-} -imageNewFromIconSet :: - (MonadIO m) => - IconSet -> -- icon_set - Int32 -> -- size - m Image -imageNewFromIconSet icon_set size = liftIO $ do - let icon_set' = unsafeManagedPtrGetPtr icon_set - result <- gtk_image_new_from_icon_set icon_set' size - checkUnexpectedReturnNULL "gtk_image_new_from_icon_set" result - result' <- (newObject Image) result - touchManagedPtr icon_set - return result' - --- method Image::new_from_pixbuf --- method type : Constructor --- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- resource_path - m Image -imageNewFromResource resource_path = liftIO $ do - resource_path' <- textToCString resource_path - result <- gtk_image_new_from_resource resource_path' - checkUnexpectedReturnNULL "gtk_image_new_from_resource" result - result' <- (newObject Image) result - freeMem resource_path' - return result' - --- method Image::new_from_stock --- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Image) - -{-# DEPRECATED imageNewFromStock ["(Since version 3.10)","Use gtk_image_new_from_icon_name() instead."]#-} -imageNewFromStock :: - (MonadIO m) => - T.Text -> -- stock_id - Int32 -> -- size - m Image -imageNewFromStock stock_id size = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_image_new_from_stock stock_id' size - checkUnexpectedReturnNULL "gtk_image_new_from_stock" result - result' <- (newObject Image) result - freeMem stock_id' - return result' - --- method Image::new_from_surface --- method type : Constructor --- Args : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -imageClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_image_clear _obj' - touchManagedPtr _obj - return () - --- method Image::get_animation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Image::get_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -imageGetGicon :: - (MonadIO m, ImageK a) => - a -> -- _obj - m (Gio.Icon,Int32) -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') - --- method Image::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -imageGetIconName :: - (MonadIO m, ImageK a) => - a -> -- _obj - m (T.Text,Int32) -imageGetIconName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name <- allocMem :: IO (Ptr CString) - size <- allocMem :: IO (Ptr Int32) - gtk_image_get_icon_name _obj' icon_name size - icon_name' <- peek icon_name - icon_name'' <- cstringToText icon_name' - size' <- peek size - touchManagedPtr _obj - freeMem icon_name - freeMem size - return (icon_name'', size') - --- method Image::get_icon_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - -{-# DEPRECATED imageGetIconSet ["(Since version 3.10)","Use gtk_image_get_icon_name() instead."]#-} -imageGetIconSet :: - (MonadIO m, ImageK a) => - a -> -- _obj - m (IconSet,Int32) -imageGetIconSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_set <- allocMem :: IO (Ptr (Ptr IconSet)) - size <- allocMem :: IO (Ptr Int32) - gtk_image_get_icon_set _obj' icon_set size - icon_set' <- peek icon_set - icon_set'' <- (newBoxed IconSet) icon_set' - size' <- peek size - touchManagedPtr _obj - freeMem icon_set - freeMem size - return (icon_set'', size') - --- method Image::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Image::get_pixel_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -imageGetPixelSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_get_pixel_size _obj' - touchManagedPtr _obj - return result - --- method Image::get_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - 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) -imageGetStock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id <- allocMem :: IO (Ptr CString) - size <- allocMem :: IO (Ptr Int32) - gtk_image_get_stock _obj' stock_id size - stock_id' <- peek stock_id - stock_id'' <- cstringToText stock_id' - size' <- peek size - touchManagedPtr _obj - freeMem stock_id - freeMem size - return (stock_id'', size') - --- method Image::get_storage_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -imageGetStorageType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_image_get_storage_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Image::set_from_animation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "animation", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Image::set_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Image::set_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -imageSetFromGicon :: - (MonadIO m, ImageK a, Gio.IconK b) => - a -> -- _obj - b -> -- icon - Int32 -> -- size - m () -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 () - --- method Image::set_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -imageSetFromIconName :: - (MonadIO m, ImageK a) => - a -> -- _obj - T.Text -> -- icon_name - Int32 -> -- size - m () -imageSetFromIconName _obj icon_name size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - gtk_image_set_from_icon_name _obj' icon_name' size - touchManagedPtr _obj - freeMem icon_name' - return () - --- method Image::set_from_icon_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_set", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - -{-# DEPRECATED imageSetFromIconSet ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-} -imageSetFromIconSet :: - (MonadIO m, ImageK a) => - a -> -- _obj - IconSet -> -- icon_set - Int32 -> -- size - m () -imageSetFromIconSet _obj icon_set size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_set' = unsafeManagedPtrGetPtr icon_set - gtk_image_set_from_icon_set _obj' icon_set' size - touchManagedPtr _obj - touchManagedPtr icon_set - return () - --- method Image::set_from_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Image::set_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- resource_path - m () -imageSetFromResource _obj resource_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeResource_path <- case resource_path of - Nothing -> return nullPtr - Just jResource_path -> do - jResource_path' <- textToCString jResource_path - return jResource_path' - gtk_image_set_from_resource _obj' maybeResource_path - touchManagedPtr _obj - freeMem maybeResource_path - return () - --- method Image::set_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_set_from_stock" gtk_image_set_from_stock :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - CString -> -- stock_id : TBasicType TUTF8 - Int32 -> -- size : TBasicType TInt32 - IO () - -{-# DEPRECATED imageSetFromStock ["(Since version 3.10)","Use gtk_image_set_from_icon_name() instead."]#-} -imageSetFromStock :: - (MonadIO m, ImageK a) => - a -> -- _obj - T.Text -> -- stock_id - Int32 -> -- size - m () -imageSetFromStock _obj stock_id size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - gtk_image_set_from_stock _obj' stock_id' size - touchManagedPtr _obj - freeMem stock_id' - return () - --- method Image::set_from_surface --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Image::set_pixel_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Image", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_image_set_pixel_size" gtk_image_set_pixel_size :: - Ptr Image -> -- _obj : TInterface "Gtk" "Image" - Int32 -> -- pixel_size : TBasicType TInt32 - IO () - - -imageSetPixelSize :: - (MonadIO m, ImageK a) => - a -> -- _obj - Int32 -> -- pixel_size - m () -imageSetPixelSize _obj pixel_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_image_set_pixel_size _obj' pixel_size - touchManagedPtr _obj - return () - - 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,26 +0,0 @@ -module GI.Gtk.Objects.Image where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ImageAccessible = ImageAccessibleAttributeList -type ImageAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ImageAccessible = ImageAccessibleSignalList -type ImageAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ImageCellAccessible = ImageCellAccessibleAttributeList -type ImageCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ImageCellAccessible = ImageCellAccessibleSignalList -type ImageCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.ImageMenuItem - ( - --- * Exported types - ImageMenuItem(..) , - ImageMenuItemK , - toImageMenuItem , - noImageMenuItem , - - - -- * Methods --- ** imageMenuItemGetAlwaysShowImage - imageMenuItemGetAlwaysShowImage , - - --- ** imageMenuItemGetImage - imageMenuItemGetImage , - - --- ** imageMenuItemGetUseStock - imageMenuItemGetUseStock , - - --- ** imageMenuItemNew - imageMenuItemNew , - - --- ** imageMenuItemNewFromStock - imageMenuItemNewFromStock , - - --- ** imageMenuItemNewWithLabel - imageMenuItemNewWithLabel , - - --- ** imageMenuItemNewWithMnemonic - imageMenuItemNewWithMnemonic , - - --- ** imageMenuItemSetAccelGroup - imageMenuItemSetAccelGroup , - - --- ** imageMenuItemSetAlwaysShowImage - imageMenuItemSetAlwaysShowImage , - - --- ** imageMenuItemSetImage - imageMenuItemSetImage , - - --- ** imageMenuItemSetUseStock - imageMenuItemSetUseStock , - - - - - -- * Properties --- ** AccelGroup - ImageMenuItemAccelGroupPropertyInfo , - constructImageMenuItemAccelGroup , - setImageMenuItemAccelGroup , - - --- ** AlwaysShowImage - ImageMenuItemAlwaysShowImagePropertyInfo, - constructImageMenuItemAlwaysShowImage , - getImageMenuItemAlwaysShowImage , - setImageMenuItemAlwaysShowImage , - - --- ** Image - ImageMenuItemImagePropertyInfo , - constructImageMenuItemImage , - getImageMenuItemImage , - setImageMenuItemImage , - - --- ** UseStock - ImageMenuItemUseStockPropertyInfo , - constructImageMenuItemUseStock , - getImageMenuItemUseStock , - setImageMenuItemUseStock , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "accel-group" - -- Type: TInterface "Gtk" "AccelGroup" - -- Flags: [PropertyWritable] - -setImageMenuItemAccelGroup :: (MonadIO m, ImageMenuItemK o, AccelGroupK a) => o -> a -> m () -setImageMenuItemAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val - -constructImageMenuItemAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructImageMenuItemAccelGroup val = constructObjectPropertyObject "accel-group" 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 = "ImageMenuItem::accel-group" - attrGet _ = undefined - attrSet _ = setImageMenuItemAccelGroup - attrConstruct _ = constructImageMenuItemAccelGroup - --- VVV Prop "always-show-image" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "ImageMenuItem::always-show-image" - attrGet _ = getImageMenuItemAlwaysShowImage - attrSet _ = setImageMenuItemAlwaysShowImage - attrConstruct _ = constructImageMenuItemAlwaysShowImage - --- VVV Prop "image" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getImageMenuItemImage :: (MonadIO m, ImageMenuItemK o) => o -> m Widget -getImageMenuItemImage obj = liftIO $ getObjectPropertyObject obj "image" Widget - -setImageMenuItemImage :: (MonadIO m, ImageMenuItemK o, WidgetK a) => o -> a -> m () -setImageMenuItemImage obj val = liftIO $ setObjectPropertyObject obj "image" val - -constructImageMenuItemImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructImageMenuItemImage val = constructObjectPropertyObject "image" val - -data ImageMenuItemImagePropertyInfo -instance AttrInfo ImageMenuItemImagePropertyInfo where - type AttrAllowedOps ImageMenuItemImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ImageMenuItemImagePropertyInfo = WidgetK - type AttrBaseTypeConstraint ImageMenuItemImagePropertyInfo = ImageMenuItemK - type AttrGetType ImageMenuItemImagePropertyInfo = Widget - type AttrLabel ImageMenuItemImagePropertyInfo = "ImageMenuItem::image" - attrGet _ = getImageMenuItemImage - attrSet _ = setImageMenuItemImage - attrConstruct _ = constructImageMenuItemImage - --- VVV Prop "use-stock" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "ImageMenuItem::use-stock" - attrGet _ = getImageMenuItemUseStock - attrSet _ = setImageMenuItemUseStock - attrConstruct _ = constructImageMenuItemUseStock - -type instance AttributeList ImageMenuItem = ImageMenuItemAttributeList -type ImageMenuItemAttributeList = ('[ '("accel-group", ImageMenuItemAccelGroupPropertyInfo), '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ImageMenuItemAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ImageMenuItemImagePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ImageMenuItemUseStockPropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ImageMenuItem = ImageMenuItemSignalList -type ImageMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ImageMenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - Maybe (a) -> -- accel_group - m ImageMenuItem -imageMenuItemNewFromStock stock_id accel_group = liftIO $ do - stock_id' <- textToCString stock_id - maybeAccel_group <- case accel_group of - Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - result <- gtk_image_menu_item_new_from_stock stock_id' maybeAccel_group - checkUnexpectedReturnNULL "gtk_image_menu_item_new_from_stock" result - result' <- (newObject ImageMenuItem) result - whenJust accel_group touchManagedPtr - freeMem stock_id' - return result' - --- method ImageMenuItem::new_with_label --- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ImageMenuItem::get_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ImageMenuItem::get_use_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ImageMenuItem::set_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- accel_group - m () -imageMenuItemSetAccelGroup _obj accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_group' = unsafeManagedPtrCastPtr accel_group - gtk_image_menu_item_set_accel_group _obj' accel_group' - touchManagedPtr _obj - touchManagedPtr accel_group - return () - --- method ImageMenuItem::set_always_show_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "always_show", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- always_show - m () -imageMenuItemSetAlwaysShowImage _obj always_show = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let always_show' = (fromIntegral . fromEnum) always_show - gtk_image_menu_item_set_always_show_image _obj' always_show' - touchManagedPtr _obj - return () - --- method ImageMenuItem::set_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ImageMenuItem::set_use_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ImageMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_stock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_stock - m () -imageMenuItemSetUseStock _obj use_stock = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_stock' = (fromIntegral . fromEnum) use_stock - gtk_image_menu_item_set_use_stock _obj' use_stock' - touchManagedPtr _obj - return () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.ImageMenuItem where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,612 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - infoBarAddActionWidget , - - --- ** infoBarAddButton - infoBarAddButton , - - --- ** infoBarGetActionArea - infoBarGetActionArea , - - --- ** infoBarGetContentArea - infoBarGetContentArea , - - --- ** infoBarGetMessageType - infoBarGetMessageType , - - --- ** infoBarGetShowCloseButton - infoBarGetShowCloseButton , - - --- ** infoBarNew - infoBarNew , - - --- ** infoBarResponse - infoBarResponse , - - --- ** infoBarSetDefaultResponse - infoBarSetDefaultResponse , - - --- ** infoBarSetMessageType - infoBarSetMessageType , - - --- ** infoBarSetResponseSensitive - infoBarSetResponseSensitive , - - --- ** infoBarSetShowCloseButton - infoBarSetShowCloseButton , - - - - - -- * Properties --- ** MessageType - InfoBarMessageTypePropertyInfo , - constructInfoBarMessageType , - getInfoBarMessageType , - setInfoBarMessageType , - - --- ** ShowCloseButton - InfoBarShowCloseButtonPropertyInfo , - constructInfoBarShowCloseButton , - getInfoBarShowCloseButton , - setInfoBarShowCloseButton , - - - - - -- * Signals --- ** Close - InfoBarCloseCallback , - InfoBarCloseCallbackC , - InfoBarCloseSignalInfo , - afterInfoBarClose , - infoBarCloseCallbackWrapper , - infoBarCloseClosure , - mkInfoBarCloseCallback , - noInfoBarCloseCallback , - onInfoBarClose , - - --- ** Response - InfoBarResponseCallback , - InfoBarResponseCallbackC , - InfoBarResponseSignalInfo , - afterInfoBarResponse , - infoBarResponseCallbackWrapper , - infoBarResponseClosure , - mkInfoBarResponseCallback , - noInfoBarResponseCallback , - onInfoBarResponse , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ response_id _ = do - _cb response_id - -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] - -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 = "InfoBar::message-type" - attrGet _ = getInfoBarMessageType - attrSet _ = setInfoBarMessageType - attrConstruct _ = constructInfoBarMessageType - --- VVV Prop "show-close-button" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "InfoBar::show-close-button" - attrGet _ = getInfoBarShowCloseButton - attrSet _ = setInfoBarShowCloseButton - attrConstruct _ = constructInfoBarShowCloseButton - -type instance AttributeList InfoBar = InfoBarAttributeList -type InfoBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("message-type", InfoBarMessageTypePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", InfoBarShowCloseButtonPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", InfoBarCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", InfoBarResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method InfoBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -infoBarAddActionWidget :: - (MonadIO m, InfoBarK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- response_id - m () -infoBarAddActionWidget _obj child response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_info_bar_add_action_widget _obj' child' response_id - touchManagedPtr _obj - touchManagedPtr child - return () - --- method InfoBar::add_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Button) - - -infoBarAddButton :: - (MonadIO m, InfoBarK a) => - a -> -- _obj - T.Text -> -- button_text - Int32 -> -- response_id - m Button -infoBarAddButton _obj button_text response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - button_text' <- textToCString button_text - result <- gtk_info_bar_add_button _obj' button_text' response_id - checkUnexpectedReturnNULL "gtk_info_bar_add_button" result - result' <- (newObject Button) result - touchManagedPtr _obj - freeMem button_text' - return result' - --- method InfoBar::get_action_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method InfoBar::get_content_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method InfoBar::get_message_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method InfoBar::get_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method InfoBar::response --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_info_bar_response" gtk_info_bar_response :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Int32 -> -- response_id : TBasicType TInt32 - IO () - - -infoBarResponse :: - (MonadIO m, InfoBarK a) => - a -> -- _obj - Int32 -> -- response_id - m () -infoBarResponse _obj response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_info_bar_response _obj' response_id - touchManagedPtr _obj - return () - --- method InfoBar::set_default_response --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_info_bar_set_default_response" gtk_info_bar_set_default_response :: - Ptr InfoBar -> -- _obj : TInterface "Gtk" "InfoBar" - Int32 -> -- response_id : TBasicType TInt32 - IO () - - -infoBarSetDefaultResponse :: - (MonadIO m, InfoBarK a) => - a -> -- _obj - Int32 -> -- response_id - m () -infoBarSetDefaultResponse _obj response_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_info_bar_set_default_response _obj' response_id - touchManagedPtr _obj - return () - --- method InfoBar::set_message_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_type", argType = TInterface "Gtk" "MessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- message_type - m () -infoBarSetMessageType _obj message_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let message_type' = (fromIntegral . fromEnum) message_type - gtk_info_bar_set_message_type _obj' message_type' - touchManagedPtr _obj - return () - --- method InfoBar::set_response_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CInt -> -- setting : TBasicType TBoolean - IO () - - -infoBarSetResponseSensitive :: - (MonadIO m, InfoBarK a) => - a -> -- _obj - Int32 -> -- response_id - Bool -> -- setting - m () -infoBarSetResponseSensitive _obj response_id setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_info_bar_set_response_sensitive _obj' response_id setting' - touchManagedPtr _obj - return () - --- method InfoBar::set_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "InfoBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.InfoBar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,215 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - invisibleGetScreen , - - --- ** invisibleNew - invisibleNew , - - --- ** invisibleNewForScreen - invisibleNewForScreen , - - --- ** invisibleSetScreen - invisibleSetScreen , - - - - - -- * Properties --- ** Screen - InvisibleScreenPropertyInfo , - constructInvisibleScreen , - getInvisibleScreen , - setInvisibleScreen , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -getInvisibleScreen :: (MonadIO m, InvisibleK o) => o -> m Gdk.Screen -getInvisibleScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen - -setInvisibleScreen :: (MonadIO m, InvisibleK o, Gdk.ScreenK a) => o -> a -> m () -setInvisibleScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val - -constructInvisibleScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructInvisibleScreen val = constructObjectPropertyObject "screen" 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 = "Invisible::screen" - attrGet _ = getInvisibleScreen - attrSet _ = setInvisibleScreen - attrConstruct _ = constructInvisibleScreen - -type instance AttributeList Invisible = InvisibleAttributeList -type InvisibleAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", InvisibleScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Invisible = InvisibleSignalList -type InvisibleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Invisible::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Invisible::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Invisible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -invisibleSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_invisible_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.Invisible where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Invisible = Invisible (ForeignPtr Invisible) -instance GObject Invisible where -class GObject o => InvisibleK o -instance (GObject o, IsDescendantOf Invisible o) => InvisibleK o -data InvisibleScreenPropertyInfo 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,2564 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - labelGetAngle , - - --- ** labelGetAttributes - labelGetAttributes , - - --- ** labelGetCurrentUri - labelGetCurrentUri , - - --- ** labelGetEllipsize - labelGetEllipsize , - - --- ** labelGetJustify - labelGetJustify , - - --- ** labelGetLabel - labelGetLabel , - - --- ** labelGetLayout - labelGetLayout , - - --- ** labelGetLayoutOffsets - labelGetLayoutOffsets , - - --- ** labelGetLineWrap - labelGetLineWrap , - - --- ** labelGetLineWrapMode - labelGetLineWrapMode , - - --- ** labelGetLines - labelGetLines , - - --- ** labelGetMaxWidthChars - labelGetMaxWidthChars , - - --- ** labelGetMnemonicKeyval - labelGetMnemonicKeyval , - - --- ** labelGetMnemonicWidget - labelGetMnemonicWidget , - - --- ** labelGetSelectable - labelGetSelectable , - - --- ** labelGetSelectionBounds - labelGetSelectionBounds , - - --- ** labelGetSingleLineMode - labelGetSingleLineMode , - - --- ** labelGetText - labelGetText , - - --- ** labelGetTrackVisitedLinks - labelGetTrackVisitedLinks , - - --- ** labelGetUseMarkup - labelGetUseMarkup , - - --- ** labelGetUseUnderline - labelGetUseUnderline , - - --- ** labelGetWidthChars - labelGetWidthChars , - - --- ** labelGetXalign - labelGetXalign , - - --- ** labelGetYalign - labelGetYalign , - - --- ** labelNew - labelNew , - - --- ** labelNewWithMnemonic - labelNewWithMnemonic , - - --- ** labelSelectRegion - labelSelectRegion , - - --- ** labelSetAngle - labelSetAngle , - - --- ** labelSetAttributes - labelSetAttributes , - - --- ** labelSetEllipsize - labelSetEllipsize , - - --- ** labelSetJustify - labelSetJustify , - - --- ** labelSetLabel - labelSetLabel , - - --- ** labelSetLineWrap - labelSetLineWrap , - - --- ** labelSetLineWrapMode - labelSetLineWrapMode , - - --- ** labelSetLines - labelSetLines , - - --- ** labelSetMarkup - labelSetMarkup , - - --- ** labelSetMarkupWithMnemonic - labelSetMarkupWithMnemonic , - - --- ** labelSetMaxWidthChars - labelSetMaxWidthChars , - - --- ** labelSetMnemonicWidget - labelSetMnemonicWidget , - - --- ** labelSetPattern - labelSetPattern , - - --- ** labelSetSelectable - labelSetSelectable , - - --- ** labelSetSingleLineMode - labelSetSingleLineMode , - - --- ** labelSetText - labelSetText , - - --- ** labelSetTextWithMnemonic - labelSetTextWithMnemonic , - - --- ** labelSetTrackVisitedLinks - labelSetTrackVisitedLinks , - - --- ** labelSetUseMarkup - labelSetUseMarkup , - - --- ** labelSetUseUnderline - labelSetUseUnderline , - - --- ** labelSetWidthChars - labelSetWidthChars , - - --- ** labelSetXalign - labelSetXalign , - - --- ** labelSetYalign - labelSetYalign , - - - - - -- * Properties --- ** Angle - LabelAnglePropertyInfo , - constructLabelAngle , - getLabelAngle , - setLabelAngle , - - --- ** Attributes - LabelAttributesPropertyInfo , - constructLabelAttributes , - getLabelAttributes , - setLabelAttributes , - - --- ** CursorPosition - LabelCursorPositionPropertyInfo , - getLabelCursorPosition , - - --- ** Ellipsize - LabelEllipsizePropertyInfo , - constructLabelEllipsize , - getLabelEllipsize , - setLabelEllipsize , - - --- ** Justify - LabelJustifyPropertyInfo , - constructLabelJustify , - getLabelJustify , - setLabelJustify , - - --- ** Label - LabelLabelPropertyInfo , - constructLabelLabel , - getLabelLabel , - setLabelLabel , - - --- ** Lines - LabelLinesPropertyInfo , - constructLabelLines , - getLabelLines , - setLabelLines , - - --- ** MaxWidthChars - LabelMaxWidthCharsPropertyInfo , - constructLabelMaxWidthChars , - getLabelMaxWidthChars , - setLabelMaxWidthChars , - - --- ** MnemonicKeyval - LabelMnemonicKeyvalPropertyInfo , - getLabelMnemonicKeyval , - - --- ** MnemonicWidget - LabelMnemonicWidgetPropertyInfo , - constructLabelMnemonicWidget , - getLabelMnemonicWidget , - setLabelMnemonicWidget , - - --- ** Pattern - LabelPatternPropertyInfo , - constructLabelPattern , - setLabelPattern , - - --- ** Selectable - LabelSelectablePropertyInfo , - constructLabelSelectable , - getLabelSelectable , - setLabelSelectable , - - --- ** SelectionBound - LabelSelectionBoundPropertyInfo , - getLabelSelectionBound , - - --- ** SingleLineMode - LabelSingleLineModePropertyInfo , - constructLabelSingleLineMode , - getLabelSingleLineMode , - setLabelSingleLineMode , - - --- ** TrackVisitedLinks - LabelTrackVisitedLinksPropertyInfo , - constructLabelTrackVisitedLinks , - getLabelTrackVisitedLinks , - setLabelTrackVisitedLinks , - - --- ** UseMarkup - LabelUseMarkupPropertyInfo , - constructLabelUseMarkup , - getLabelUseMarkup , - setLabelUseMarkup , - - --- ** UseUnderline - LabelUseUnderlinePropertyInfo , - constructLabelUseUnderline , - getLabelUseUnderline , - setLabelUseUnderline , - - --- ** WidthChars - LabelWidthCharsPropertyInfo , - constructLabelWidthChars , - getLabelWidthChars , - setLabelWidthChars , - - --- ** Wrap - LabelWrapPropertyInfo , - constructLabelWrap , - getLabelWrap , - setLabelWrap , - - --- ** WrapMode - LabelWrapModePropertyInfo , - constructLabelWrapMode , - getLabelWrapMode , - setLabelWrapMode , - - --- ** Xalign - LabelXalignPropertyInfo , - constructLabelXalign , - getLabelXalign , - setLabelXalign , - - --- ** Yalign - LabelYalignPropertyInfo , - constructLabelYalign , - getLabelYalign , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 extend_selection _ = do - let step' = (toEnum . fromIntegral) step - let extend_selection' = (/= 0) extend_selection - _cb step' count extend_selection' - -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], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], 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], propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], 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] - -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 = "Label::angle" - attrGet _ = getLabelAngle - attrSet _ = setLabelAngle - attrConstruct _ = constructLabelAngle - --- VVV Prop "attributes" - -- Type: TInterface "Pango" "AttrList" - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelAttributes :: (MonadIO m, LabelK o) => o -> m Pango.AttrList -getLabelAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList - -setLabelAttributes :: (MonadIO m, LabelK o) => o -> Pango.AttrList -> m () -setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val - -constructLabelAttributes :: Pango.AttrList -> IO ([Char], GValue) -constructLabelAttributes val = constructObjectPropertyBoxed "attributes" val - -data LabelAttributesPropertyInfo -instance AttrInfo LabelAttributesPropertyInfo where - type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelAttributesPropertyInfo = (~) Pango.AttrList - type AttrBaseTypeConstraint LabelAttributesPropertyInfo = LabelK - type AttrGetType LabelAttributesPropertyInfo = Pango.AttrList - type AttrLabel LabelAttributesPropertyInfo = "Label::attributes" - attrGet _ = getLabelAttributes - attrSet _ = setLabelAttributes - attrConstruct _ = constructLabelAttributes - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getLabelCursorPosition :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelCursorPosition obj = liftIO $ getObjectPropertyCInt 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 = "Label::cursor-position" - attrGet _ = getLabelCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::ellipsize" - attrGet _ = getLabelEllipsize - attrSet _ = setLabelEllipsize - attrConstruct _ = constructLabelEllipsize - --- VVV Prop "justify" - -- Type: TInterface "Gtk" "Justification" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::justify" - attrGet _ = getLabelJustify - attrSet _ = setLabelJustify - attrConstruct _ = constructLabelJustify - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelLabel :: (MonadIO m, LabelK o) => o -> m T.Text -getLabelLabel obj = liftIO $ getObjectPropertyString obj "label" - -setLabelLabel :: (MonadIO m, LabelK o) => o -> T.Text -> m () -setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructLabelLabel :: T.Text -> IO ([Char], GValue) -constructLabelLabel val = constructObjectPropertyString "label" 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::label" - attrGet _ = getLabelLabel - attrSet _ = setLabelLabel - attrConstruct _ = constructLabelLabel - --- VVV Prop "lines" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelLines :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelLines obj = liftIO $ getObjectPropertyCInt obj "lines" - -setLabelLines :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelLines obj val = liftIO $ setObjectPropertyCInt obj "lines" val - -constructLabelLines :: Int32 -> IO ([Char], GValue) -constructLabelLines val = constructObjectPropertyCInt "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 = "Label::lines" - attrGet _ = getLabelLines - attrSet _ = setLabelLines - attrConstruct _ = constructLabelLines - --- VVV Prop "max-width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" - -setLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val - -constructLabelMaxWidthChars :: Int32 -> IO ([Char], GValue) -constructLabelMaxWidthChars val = constructObjectPropertyCInt "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 = "Label::max-width-chars" - attrGet _ = getLabelMaxWidthChars - attrSet _ = setLabelMaxWidthChars - attrConstruct _ = constructLabelMaxWidthChars - --- VVV Prop "mnemonic-keyval" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable] - -getLabelMnemonicKeyval :: (MonadIO m, LabelK o) => o -> m Word32 -getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyCUInt 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 = "Label::mnemonic-keyval" - attrGet _ = getLabelMnemonicKeyval - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "mnemonic-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m Widget -getLabelMnemonicWidget obj = liftIO $ getObjectPropertyObject obj "mnemonic-widget" Widget - -setLabelMnemonicWidget :: (MonadIO m, LabelK o, WidgetK a) => o -> a -> m () -setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" val - -constructLabelMnemonicWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" val - -data LabelMnemonicWidgetPropertyInfo -instance AttrInfo LabelMnemonicWidgetPropertyInfo where - type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LabelMnemonicWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint LabelMnemonicWidgetPropertyInfo = LabelK - type AttrGetType LabelMnemonicWidgetPropertyInfo = Widget - type AttrLabel LabelMnemonicWidgetPropertyInfo = "Label::mnemonic-widget" - attrGet _ = getLabelMnemonicWidget - attrSet _ = setLabelMnemonicWidget - attrConstruct _ = constructLabelMnemonicWidget - --- VVV Prop "pattern" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setLabelPattern :: (MonadIO m, LabelK o) => o -> T.Text -> m () -setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val - -constructLabelPattern :: T.Text -> IO ([Char], GValue) -constructLabelPattern val = constructObjectPropertyString "pattern" 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 = "Label::pattern" - attrGet _ = undefined - attrSet _ = setLabelPattern - attrConstruct _ = constructLabelPattern - --- VVV Prop "selectable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::selectable" - attrGet _ = getLabelSelectable - attrSet _ = setLabelSelectable - attrConstruct _ = constructLabelSelectable - --- VVV Prop "selection-bound" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getLabelSelectionBound :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelSelectionBound obj = liftIO $ getObjectPropertyCInt 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 = "Label::selection-bound" - attrGet _ = getLabelSelectionBound - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "single-line-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::single-line-mode" - attrGet _ = getLabelSingleLineMode - attrSet _ = setLabelSingleLineMode - attrConstruct _ = constructLabelSingleLineMode - --- VVV Prop "track-visited-links" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::track-visited-links" - attrGet _ = getLabelTrackVisitedLinks - attrSet _ = setLabelTrackVisitedLinks - attrConstruct _ = constructLabelTrackVisitedLinks - --- VVV Prop "use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::use-markup" - attrGet _ = getLabelUseMarkup - attrSet _ = setLabelUseMarkup - attrConstruct _ = constructLabelUseMarkup - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::use-underline" - attrGet _ = getLabelUseUnderline - attrSet _ = setLabelUseUnderline - attrConstruct _ = constructLabelUseUnderline - --- VVV Prop "width-chars" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getLabelWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 -getLabelWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" - -setLabelWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () -setLabelWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val - -constructLabelWidthChars :: Int32 -> IO ([Char], GValue) -constructLabelWidthChars val = constructObjectPropertyCInt "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 = "Label::width-chars" - attrGet _ = getLabelWidthChars - attrSet _ = setLabelWidthChars - attrConstruct _ = constructLabelWidthChars - --- VVV Prop "wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::wrap" - attrGet _ = getLabelWrap - attrSet _ = setLabelWrap - attrConstruct _ = constructLabelWrap - --- VVV Prop "wrap-mode" - -- Type: TInterface "Pango" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::wrap-mode" - attrGet _ = getLabelWrapMode - attrSet _ = setLabelWrapMode - attrConstruct _ = constructLabelWrapMode - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::xalign" - attrGet _ = getLabelXalign - attrSet _ = setLabelXalign - attrConstruct _ = constructLabelXalign - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Label::yalign" - attrGet _ = getLabelYalign - attrSet _ = setLabelYalign - attrConstruct _ = constructLabelYalign - -type instance AttributeList Label = LabelAttributeList -type LabelAttributeList = ('[ '("angle", LabelAnglePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", LabelCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-width-chars", LabelMaxWidthCharsPropertyInfo), '("mnemonic-keyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonic-widget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selection-bound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("single-line-mode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("track-visited-links", LabelTrackVisitedLinksPropertyInfo), '("use-markup", LabelUseMarkupPropertyInfo), '("use-underline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", LabelWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrap-mode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current-link", LabelActivateCurrentLinkSignalInfo), '("activate-link", LabelActivateLinkSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", LabelCopyClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", LabelMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", LabelPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Label::new --- method type : Constructor --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetAngle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_angle _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Label::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Label::get_current_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Label::get_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetEllipsize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_ellipsize _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Label::get_justify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetJustify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_justify _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Label::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Label::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Label::get_layout_offsets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - IO () - - -labelGetLayoutOffsets :: - (MonadIO m, LabelK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method Label::get_line_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetLineWrap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_line_wrap _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_line_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Label::get_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -labelGetLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_lines _obj' - touchManagedPtr _obj - return result - --- method Label::get_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -labelGetMaxWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_max_width_chars _obj' - touchManagedPtr _obj - return result - --- method Label::get_mnemonic_keyval --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -labelGetMnemonicKeyval _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_mnemonic_keyval _obj' - touchManagedPtr _obj - return result - --- method Label::get_mnemonic_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Label::get_selectable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetSelectable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_selectable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_selection_bounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Ptr Int32 -> -- end : TBasicType TInt32 - IO CInt - - -labelGetSelectionBounds :: - (MonadIO m, LabelK a) => - a -> -- _obj - m (Bool,Int32,Int32) -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') - --- method Label::get_single_line_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetSingleLineMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_single_line_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Label::get_track_visited_links --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetTrackVisitedLinks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_track_visited_links _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetUseMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_use_markup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Label::get_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -labelGetWidthChars _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_width_chars _obj' - touchManagedPtr _obj - return result - --- method Label::get_xalign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetXalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_xalign _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Label::get_yalign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -labelGetYalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_label_get_yalign _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Label::select_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- end_offset : TBasicType TInt32 - IO () - - -labelSelectRegion :: - (MonadIO m, LabelK a) => - a -> -- _obj - Int32 -> -- start_offset - Int32 -> -- end_offset - m () -labelSelectRegion _obj start_offset end_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_select_region _obj' start_offset end_offset - touchManagedPtr _obj - return () - --- method Label::set_angle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetAngle _obj angle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let angle' = realToFrac angle - gtk_label_set_angle _obj' angle' - touchManagedPtr _obj - return () - --- method Label::set_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Label::set_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetEllipsize _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_label_set_ellipsize _obj' mode' - touchManagedPtr _obj - return () - --- method Label::set_justify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "jtype", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetJustify _obj jtype = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let jtype' = (fromIntegral . fromEnum) jtype - gtk_label_set_justify _obj' jtype' - touchManagedPtr _obj - return () - --- method Label::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -labelSetLabel _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_label _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Label::set_line_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetLineWrap _obj wrap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap' = (fromIntegral . fromEnum) wrap - gtk_label_set_line_wrap _obj' wrap' - touchManagedPtr _obj - return () - --- method Label::set_line_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- wrap_mode - m () -labelSetLineWrapMode _obj wrap_mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap_mode' = (fromIntegral . fromEnum) wrap_mode - gtk_label_set_line_wrap_mode _obj' wrap_mode' - touchManagedPtr _obj - return () - --- method Label::set_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_lines" gtk_label_set_lines :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- lines : TBasicType TInt32 - IO () - - -labelSetLines :: - (MonadIO m, LabelK a) => - a -> -- _obj - Int32 -> -- lines - m () -labelSetLines _obj lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_lines _obj' lines - touchManagedPtr _obj - return () - --- method Label::set_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -labelSetMarkup _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_markup _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Label::set_markup_with_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method Label::set_max_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_max_width_chars" gtk_label_set_max_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -labelSetMaxWidthChars :: - (MonadIO m, LabelK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -labelSetMaxWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_max_width_chars _obj' n_chars - touchManagedPtr _obj - return () - --- method Label::set_mnemonic_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Label::set_pattern --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -labelSetPattern _obj pattern = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pattern' <- textToCString pattern - gtk_label_set_pattern _obj' pattern' - touchManagedPtr _obj - freeMem pattern' - return () - --- method Label::set_selectable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetSelectable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_selectable _obj' setting' - touchManagedPtr _obj - return () - --- method Label::set_single_line_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single_line_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- single_line_mode - m () -labelSetSingleLineMode _obj single_line_mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let single_line_mode' = (fromIntegral . fromEnum) single_line_mode - gtk_label_set_single_line_mode _obj' single_line_mode' - touchManagedPtr _obj - return () - --- method Label::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -labelSetText _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_label_set_text _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Label::set_text_with_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method Label::set_track_visited_links --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_links", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- track_links - m () -labelSetTrackVisitedLinks _obj track_links = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let track_links' = (fromIntegral . fromEnum) track_links - gtk_label_set_track_visited_links _obj' track_links' - touchManagedPtr _obj - return () - --- method Label::set_use_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetUseMarkup _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_use_markup _obj' setting' - touchManagedPtr _obj - return () - --- method Label::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetUseUnderline _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_label_set_use_underline _obj' setting' - touchManagedPtr _obj - return () - --- method Label::set_width_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_chars", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_label_set_width_chars" gtk_label_set_width_chars :: - Ptr Label -> -- _obj : TInterface "Gtk" "Label" - Int32 -> -- n_chars : TBasicType TInt32 - IO () - - -labelSetWidthChars :: - (MonadIO m, LabelK a) => - a -> -- _obj - Int32 -> -- n_chars - m () -labelSetWidthChars _obj n_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_label_set_width_chars _obj' n_chars - touchManagedPtr _obj - return () - --- method Label::set_xalign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetXalign _obj xalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - gtk_label_set_xalign _obj' xalign' - touchManagedPtr _obj - return () - --- method Label::set_yalign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Label", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -labelSetYalign _obj yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let yalign' = realToFrac yalign - gtk_label_set_yalign _obj' yalign' - touchManagedPtr _obj - return () - - 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,40 +0,0 @@ -module GI.Gtk.Objects.Label where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList LabelAccessible = LabelAccessibleAttributeList -type LabelAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LabelAccessible = LabelAccessibleSignalList -type LabelAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("link-selected", Atk.HypertextLinkSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,472 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - layoutGetBinWindow , - - --- ** layoutGetHadjustment - layoutGetHadjustment , - - --- ** layoutGetSize - layoutGetSize , - - --- ** layoutGetVadjustment - layoutGetVadjustment , - - --- ** layoutMove - layoutMove , - - --- ** layoutNew - layoutNew , - - --- ** layoutPut - layoutPut , - - --- ** layoutSetHadjustment - layoutSetHadjustment , - - --- ** layoutSetSize - layoutSetSize , - - --- ** layoutSetVadjustment - layoutSetVadjustment , - - - - - -- * Properties --- ** Height - LayoutHeightPropertyInfo , - constructLayoutHeight , - getLayoutHeight , - setLayoutHeight , - - --- ** Width - LayoutWidthPropertyInfo , - constructLayoutWidth , - getLayoutWidth , - setLayoutWidth , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "height" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getLayoutHeight :: (MonadIO m, LayoutK o) => o -> m Word32 -getLayoutHeight obj = liftIO $ getObjectPropertyCUInt obj "height" - -setLayoutHeight :: (MonadIO m, LayoutK o) => o -> Word32 -> m () -setLayoutHeight obj val = liftIO $ setObjectPropertyCUInt obj "height" val - -constructLayoutHeight :: Word32 -> IO ([Char], GValue) -constructLayoutHeight val = constructObjectPropertyCUInt "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 = "Layout::height" - attrGet _ = getLayoutHeight - attrSet _ = setLayoutHeight - attrConstruct _ = constructLayoutHeight - --- VVV Prop "width" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getLayoutWidth :: (MonadIO m, LayoutK o) => o -> m Word32 -getLayoutWidth obj = liftIO $ getObjectPropertyCUInt obj "width" - -setLayoutWidth :: (MonadIO m, LayoutK o) => o -> Word32 -> m () -setLayoutWidth obj val = liftIO $ setObjectPropertyCUInt obj "width" val - -constructLayoutWidth :: Word32 -> IO ([Char], GValue) -constructLayoutWidth val = constructObjectPropertyCUInt "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 = "Layout::width" - attrGet _ = getLayoutWidth - attrSet _ = setLayoutWidth - attrConstruct _ = constructLayoutWidth - -type instance AttributeList Layout = LayoutAttributeList -type LayoutAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height", LayoutHeightPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width", LayoutWidthPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Layout = LayoutSignalList -type LayoutSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Layout::new --- method type : Constructor --- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Layout::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Layout::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr Word32 -> -- height : TBasicType TUInt32 - IO () - - -layoutGetSize :: - (MonadIO m, LayoutK a) => - a -> -- _obj - m (Word32,Word32) -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') - --- method Layout::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Layout::move --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -layoutMove :: - (MonadIO m, LayoutK a, WidgetK b) => - a -> -- _obj - b -> -- child_widget - Int32 -> -- x - Int32 -> -- y - m () -layoutMove _obj child_widget x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child_widget' = unsafeManagedPtrCastPtr child_widget - gtk_layout_move _obj' child_widget' x y - touchManagedPtr _obj - touchManagedPtr child_widget - return () - --- method Layout::put --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -layoutPut :: - (MonadIO m, LayoutK a, WidgetK b) => - a -> -- _obj - b -> -- child_widget - Int32 -> -- x - Int32 -> -- y - m () -layoutPut _obj child_widget x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child_widget' = unsafeManagedPtrCastPtr child_widget - gtk_layout_put _obj' child_widget' x y - touchManagedPtr _obj - touchManagedPtr child_widget - return () - --- method Layout::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Layout::set_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- height : TBasicType TUInt32 - IO () - - -layoutSetSize :: - (MonadIO m, LayoutK a) => - a -> -- _obj - Word32 -> -- width - Word32 -> -- height - m () -layoutSetSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_layout_set_size _obj' width height - touchManagedPtr _obj - return () - --- method Layout::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.Layout where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,753 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - levelBarAddOffsetValue , - - --- ** levelBarGetInverted - levelBarGetInverted , - - --- ** levelBarGetMaxValue - levelBarGetMaxValue , - - --- ** levelBarGetMinValue - levelBarGetMinValue , - - --- ** levelBarGetMode - levelBarGetMode , - - --- ** levelBarGetOffsetValue - levelBarGetOffsetValue , - - --- ** levelBarGetValue - levelBarGetValue , - - --- ** levelBarNew - levelBarNew , - - --- ** levelBarNewForInterval - levelBarNewForInterval , - - --- ** levelBarRemoveOffsetValue - levelBarRemoveOffsetValue , - - --- ** levelBarSetInverted - levelBarSetInverted , - - --- ** levelBarSetMaxValue - levelBarSetMaxValue , - - --- ** levelBarSetMinValue - levelBarSetMinValue , - - --- ** levelBarSetMode - levelBarSetMode , - - --- ** levelBarSetValue - levelBarSetValue , - - - - - -- * Properties --- ** Inverted - LevelBarInvertedPropertyInfo , - constructLevelBarInverted , - getLevelBarInverted , - setLevelBarInverted , - - --- ** MaxValue - LevelBarMaxValuePropertyInfo , - constructLevelBarMaxValue , - getLevelBarMaxValue , - setLevelBarMaxValue , - - --- ** MinValue - LevelBarMinValuePropertyInfo , - constructLevelBarMinValue , - getLevelBarMinValue , - setLevelBarMinValue , - - --- ** Mode - LevelBarModePropertyInfo , - constructLevelBarMode , - getLevelBarMode , - setLevelBarMode , - - --- ** Value - LevelBarValuePropertyInfo , - constructLevelBarValue , - getLevelBarValue , - setLevelBarValue , - - - - - -- * Signals --- ** OffsetChanged - LevelBarOffsetChangedCallback , - LevelBarOffsetChangedCallbackC , - LevelBarOffsetChangedSignalInfo , - afterLevelBarOffsetChanged , - levelBarOffsetChangedCallbackWrapper , - levelBarOffsetChangedClosure , - mkLevelBarOffsetChangedCallback , - noLevelBarOffsetChangedCallback , - onLevelBarOffsetChanged , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "LevelBar::inverted" - attrGet _ = getLevelBarInverted - attrSet _ = setLevelBarInverted - attrConstruct _ = constructLevelBarInverted - --- VVV Prop "max-value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "LevelBar::max-value" - attrGet _ = getLevelBarMaxValue - attrSet _ = setLevelBarMaxValue - attrConstruct _ = constructLevelBarMaxValue - --- VVV Prop "min-value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "LevelBar::min-value" - attrGet _ = getLevelBarMinValue - attrSet _ = setLevelBarMinValue - attrConstruct _ = constructLevelBarMinValue - --- VVV Prop "mode" - -- Type: TInterface "Gtk" "LevelBarMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "LevelBar::mode" - attrGet _ = getLevelBarMode - attrSet _ = setLevelBarMode - attrConstruct _ = constructLevelBarMode - --- VVV Prop "value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "LevelBar::value" - attrGet _ = getLevelBarValue - attrSet _ = setLevelBarValue - attrConstruct _ = constructLevelBarValue - -type instance AttributeList LevelBar = LevelBarAttributeList -type LevelBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", LevelBarInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-value", LevelBarMaxValuePropertyInfo), '("min-value", LevelBarMinValuePropertyInfo), '("mode", LevelBarModePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", LevelBarValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data LevelBarOffsetChangedSignalInfo -instance SignalInfo LevelBarOffsetChangedSignalInfo where - type HaskellCallbackType LevelBarOffsetChangedSignalInfo = LevelBarOffsetChangedCallback - connectSignal _ = connectLevelBarOffsetChanged - -type instance SignalList LevelBar = LevelBarSignalList -type LevelBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("offset-changed", LevelBarOffsetChangedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method LevelBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "min_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- min_value - Double -> -- max_value - m LevelBar -levelBarNewForInterval min_value max_value = liftIO $ do - let min_value' = realToFrac min_value - let max_value' = realToFrac max_value - result <- gtk_level_bar_new_for_interval min_value' max_value' - checkUnexpectedReturnNULL "gtk_level_bar_new_for_interval" result - result' <- (newObject LevelBar) result - return result' - --- method LevelBar::add_offset_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method LevelBar::get_inverted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -levelBarGetInverted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_inverted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method LevelBar::get_max_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -levelBarGetMaxValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_max_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method LevelBar::get_min_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -levelBarGetMinValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_min_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method LevelBar::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -levelBarGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method LevelBar::get_offset_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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'') - --- method LevelBar::get_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -levelBarGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_level_bar_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method LevelBar::remove_offset_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method LevelBar::set_inverted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -levelBarSetInverted _obj inverted = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let inverted' = (fromIntegral . fromEnum) inverted - gtk_level_bar_set_inverted _obj' inverted' - touchManagedPtr _obj - return () - --- method LevelBar::set_max_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -levelBarSetMaxValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_level_bar_set_max_value _obj' value' - touchManagedPtr _obj - return () - --- method LevelBar::set_min_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -levelBarSetMinValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_level_bar_set_min_value _obj' value' - touchManagedPtr _obj - return () - --- method LevelBar::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "LevelBarMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -levelBarSetMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_level_bar_set_mode _obj' mode' - touchManagedPtr _obj - return () - --- method LevelBar::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LevelBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -levelBarSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_level_bar_set_value _obj' value' - touchManagedPtr _obj - return () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.LevelBar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList LevelBarAccessible = LevelBarAccessibleAttributeList -type LevelBarAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LevelBarAccessible = LevelBarAccessibleSignalList -type LevelBarAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,377 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - linkButtonGetUri , - - --- ** linkButtonGetVisited - linkButtonGetVisited , - - --- ** linkButtonNew - linkButtonNew , - - --- ** linkButtonNewWithLabel - linkButtonNewWithLabel , - - --- ** linkButtonSetUri - linkButtonSetUri , - - --- ** linkButtonSetVisited - linkButtonSetVisited , - - - - - -- * Properties --- ** Uri - LinkButtonUriPropertyInfo , - constructLinkButtonUri , - getLinkButtonUri , - setLinkButtonUri , - - --- ** Visited - LinkButtonVisitedPropertyInfo , - constructLinkButtonVisited , - getLinkButtonVisited , - setLinkButtonVisited , - - - - - -- * Signals --- ** ActivateLink - LinkButtonActivateLinkCallback , - LinkButtonActivateLinkCallbackC , - LinkButtonActivateLinkSignalInfo , - afterLinkButtonActivateLink , - linkButtonActivateLinkCallbackWrapper , - linkButtonActivateLinkClosure , - mkLinkButtonActivateLinkCallback , - noLinkButtonActivateLinkCallback , - onLinkButtonActivateLink , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> m T.Text -getLinkButtonUri obj = liftIO $ getObjectPropertyString obj "uri" - -setLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> T.Text -> m () -setLinkButtonUri obj val = liftIO $ setObjectPropertyString obj "uri" val - -constructLinkButtonUri :: T.Text -> IO ([Char], GValue) -constructLinkButtonUri val = constructObjectPropertyString "uri" 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 = "LinkButton::uri" - attrGet _ = getLinkButtonUri - attrSet _ = setLinkButtonUri - attrConstruct _ = constructLinkButtonUri - --- VVV Prop "visited" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "LinkButton::visited" - attrGet _ = getLinkButtonVisited - attrSet _ = setLinkButtonVisited - attrConstruct _ = constructLinkButtonVisited - -type instance AttributeList LinkButton = LinkButtonAttributeList -type LinkButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("uri", LinkButtonUriPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visited", LinkButtonVisitedPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -data LinkButtonActivateLinkSignalInfo -instance SignalInfo LinkButtonActivateLinkSignalInfo where - type HaskellCallbackType LinkButtonActivateLinkSignalInfo = LinkButtonActivateLinkCallback - connectSignal _ = connectLinkButtonActivateLink - -type instance SignalList LinkButton = LinkButtonSignalList -type LinkButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("activate-link", LinkButtonActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method LinkButton::new --- method type : Constructor --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method LinkButton::get_visited --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -linkButtonGetVisited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_link_button_get_visited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method LinkButton::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -linkButtonSetUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - gtk_link_button_set_uri _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - --- method LinkButton::set_visited --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LinkButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -linkButtonSetVisited _obj visited = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visited' = (fromIntegral . fromEnum) visited - gtk_link_button_set_visited _obj' visited' - touchManagedPtr _obj - return () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.LinkButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList LinkButtonAccessible = LinkButtonAccessibleAttributeList -type LinkButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LinkButtonAccessible = LinkButtonAccessibleSignalList -type LinkButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1494 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - listBoxBindModel , - - --- ** listBoxDragHighlightRow - listBoxDragHighlightRow , - - --- ** listBoxDragUnhighlightRow - listBoxDragUnhighlightRow , - - --- ** listBoxGetActivateOnSingleClick - listBoxGetActivateOnSingleClick , - - --- ** listBoxGetAdjustment - listBoxGetAdjustment , - - --- ** listBoxGetRowAtIndex - listBoxGetRowAtIndex , - - --- ** listBoxGetRowAtY - listBoxGetRowAtY , - - --- ** listBoxGetSelectedRow - listBoxGetSelectedRow , - - --- ** listBoxGetSelectedRows - listBoxGetSelectedRows , - - --- ** listBoxGetSelectionMode - listBoxGetSelectionMode , - - --- ** listBoxInsert - listBoxInsert , - - --- ** listBoxInvalidateFilter - listBoxInvalidateFilter , - - --- ** listBoxInvalidateHeaders - listBoxInvalidateHeaders , - - --- ** listBoxInvalidateSort - listBoxInvalidateSort , - - --- ** listBoxNew - listBoxNew , - - --- ** listBoxPrepend - listBoxPrepend , - - --- ** listBoxSelectAll - listBoxSelectAll , - - --- ** listBoxSelectRow - listBoxSelectRow , - - --- ** listBoxSelectedForeach - listBoxSelectedForeach , - - --- ** listBoxSetActivateOnSingleClick - listBoxSetActivateOnSingleClick , - - --- ** listBoxSetAdjustment - listBoxSetAdjustment , - - --- ** listBoxSetFilterFunc - listBoxSetFilterFunc , - - --- ** listBoxSetHeaderFunc - listBoxSetHeaderFunc , - - --- ** listBoxSetPlaceholder - listBoxSetPlaceholder , - - --- ** listBoxSetSelectionMode - listBoxSetSelectionMode , - - --- ** listBoxSetSortFunc - listBoxSetSortFunc , - - --- ** listBoxUnselectAll - listBoxUnselectAll , - - --- ** listBoxUnselectRow - listBoxUnselectRow , - - - - - -- * Properties --- ** ActivateOnSingleClick - ListBoxActivateOnSingleClickPropertyInfo, - constructListBoxActivateOnSingleClick , - getListBoxActivateOnSingleClick , - setListBoxActivateOnSingleClick , - - --- ** SelectionMode - ListBoxSelectionModePropertyInfo , - constructListBoxSelectionMode , - getListBoxSelectionMode , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "ListBox::activate-on-single-click" - attrGet _ = getListBoxActivateOnSingleClick - attrSet _ = setListBoxActivateOnSingleClick - attrConstruct _ = constructListBoxActivateOnSingleClick - --- VVV Prop "selection-mode" - -- Type: TInterface "Gtk" "SelectionMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ListBox::selection-mode" - attrGet _ = getListBoxSelectionMode - attrSet _ = setListBoxSelectionMode - attrConstruct _ = constructListBoxSelectionMode - -type instance AttributeList ListBox = ListBoxAttributeList -type ListBoxAttributeList = ('[ '("activate-on-single-click", ListBoxActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", ListBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-row", ListBoxActivateCursorRowSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", ListBoxMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("row-activated", ListBoxRowActivatedSignalInfo), '("row-selected", ListBoxRowSelectedSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", ListBoxSelectAllSignalInfo), '("selected-rows-changed", ListBoxSelectedRowsChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-row", ListBoxToggleCursorRowSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", ListBoxUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ListBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "create_widget_func", argType = TInterface "Gtk" "ListBoxCreateWidgetFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify" - IO () - - -listBoxBindModel :: - (MonadIO m, ListBoxK a, Gio.ListModelK b) => - a -> -- _obj - Maybe (b) -> -- model - ListBoxCreateWidgetFunc -> -- create_widget_func - m () -listBoxBindModel _obj model create_widget_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - create_widget_func' <- mkListBoxCreateWidgetFunc (listBoxCreateWidgetFuncWrapper Nothing create_widget_func) - let user_data = castFunPtrToPtr create_widget_func' - let user_data_free_func = safeFreeFunPtrPtr - gtk_list_box_bind_model _obj' maybeModel create_widget_func' user_data user_data_free_func - touchManagedPtr _obj - whenJust model touchManagedPtr - return () - --- method ListBox::drag_highlight_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListBox::drag_unhighlight_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listBoxDragUnhighlightRow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_drag_unhighlight_row _obj' - touchManagedPtr _obj - return () - --- method ListBox::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ListBox::get_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ListBox::get_row_at_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr ListBoxRow) - - -listBoxGetRowAtIndex :: - (MonadIO m, ListBoxK a) => - a -> -- _obj - Int32 -> -- index_ - m ListBoxRow -listBoxGetRowAtIndex _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_row_at_index _obj' index_ - checkUnexpectedReturnNULL "gtk_list_box_get_row_at_index" result - result' <- (newObject ListBoxRow) result - touchManagedPtr _obj - return result' - --- method ListBox::get_row_at_y --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr ListBoxRow) - - -listBoxGetRowAtY :: - (MonadIO m, ListBoxK a) => - a -> -- _obj - Int32 -> -- y - m ListBoxRow -listBoxGetRowAtY _obj y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_row_at_y _obj' y - checkUnexpectedReturnNULL "gtk_list_box_get_row_at_y" result - result' <- (newObject ListBoxRow) result - touchManagedPtr _obj - return result' - --- method ListBox::get_selected_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ListBox::get_selected_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -listBoxGetSelectedRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_get_selected_rows _obj' - checkUnexpectedReturnNULL "gtk_list_box_get_selected_rows" result - result' <- unpackGList result - result'' <- mapM (newObject ListBoxRow) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method ListBox::get_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ListBox::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -listBoxInsert :: - (MonadIO m, ListBoxK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () -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 () - --- method ListBox::invalidate_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listBoxInvalidateFilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_invalidate_filter _obj' - touchManagedPtr _obj - return () - --- method ListBox::invalidate_headers --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listBoxInvalidateHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_invalidate_headers _obj' - touchManagedPtr _obj - return () - --- method ListBox::invalidate_sort --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listBoxInvalidateSort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_invalidate_sort _obj' - touchManagedPtr _obj - return () - --- method ListBox::prepend --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listBoxPrepend _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_list_box_prepend _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method ListBox::select_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listBoxSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_select_all _obj' - touchManagedPtr _obj - return () - --- method ListBox::select_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListBox::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "ListBoxForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -listBoxSelectedForeach :: - (MonadIO m, ListBoxK a) => - a -> -- _obj - ListBoxForeachFunc -> -- func - m () -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 () - --- method ListBox::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListBox::set_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListBox::set_filter_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_func", argType = TInterface "Gtk" "ListBoxFilterFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -listBoxSetFilterFunc :: - (MonadIO m, ListBoxK a) => - a -> -- _obj - Maybe (ListBoxFilterFunc) -> -- filter_func - m () -listBoxSetFilterFunc _obj filter_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFilter_func <- case filter_func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFilter_func -> do - jFilter_func' <- mkListBoxFilterFunc (listBoxFilterFuncWrapper Nothing jFilter_func) - return jFilter_func' - let user_data = castFunPtrToPtr maybeFilter_func - let destroy = safeFreeFunPtrPtr - gtk_list_box_set_filter_func _obj' maybeFilter_func user_data destroy - touchManagedPtr _obj - return () - --- method ListBox::set_header_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_header", argType = TInterface "Gtk" "ListBoxUpdateHeaderFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -listBoxSetHeaderFunc :: - (MonadIO m, ListBoxK a) => - a -> -- _obj - Maybe (ListBoxUpdateHeaderFunc) -> -- update_header - m () -listBoxSetHeaderFunc _obj update_header = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeUpdate_header <- case update_header of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jUpdate_header -> do - jUpdate_header' <- mkListBoxUpdateHeaderFunc (listBoxUpdateHeaderFuncWrapper Nothing jUpdate_header) - return jUpdate_header' - let user_data = castFunPtrToPtr maybeUpdate_header - let destroy = safeFreeFunPtrPtr - gtk_list_box_set_header_func _obj' maybeUpdate_header user_data destroy - touchManagedPtr _obj - return () - --- method ListBox::set_placeholder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "placeholder", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListBox::set_selection_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListBox::set_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_func", argType = TInterface "Gtk" "ListBoxSortFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -listBoxSetSortFunc :: - (MonadIO m, ListBoxK a) => - a -> -- _obj - Maybe (ListBoxSortFunc) -> -- sort_func - m () -listBoxSetSortFunc _obj sort_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSort_func <- case sort_func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jSort_func -> do - jSort_func' <- mkListBoxSortFunc (listBoxSortFuncWrapper Nothing jSort_func) - return jSort_func' - let user_data = castFunPtrToPtr maybeSort_func - let destroy = safeFreeFunPtrPtr - gtk_list_box_set_sort_func _obj' maybeSort_func user_data destroy - touchManagedPtr _obj - return () - --- method ListBox::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listBoxUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_unselect_all _obj' - touchManagedPtr _obj - return () - --- method ListBox::unselect_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBox", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,23 +0,0 @@ -module GI.Gtk.Objects.ListBox where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ListBoxAccessible = ListBoxAccessibleAttributeList -type ListBoxAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ListBoxAccessible = ListBoxAccessibleSignalList -type ListBoxAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,482 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - listBoxRowChanged , - - --- ** listBoxRowGetActivatable - listBoxRowGetActivatable , - - --- ** listBoxRowGetHeader - listBoxRowGetHeader , - - --- ** listBoxRowGetIndex - listBoxRowGetIndex , - - --- ** listBoxRowGetSelectable - listBoxRowGetSelectable , - - --- ** listBoxRowIsSelected - listBoxRowIsSelected , - - --- ** listBoxRowNew - listBoxRowNew , - - --- ** listBoxRowSetActivatable - listBoxRowSetActivatable , - - --- ** listBoxRowSetHeader - listBoxRowSetHeader , - - --- ** listBoxRowSetSelectable - listBoxRowSetSelectable , - - - - - -- * Properties --- ** Activatable - ListBoxRowActivatablePropertyInfo , - constructListBoxRowActivatable , - getListBoxRowActivatable , - setListBoxRowActivatable , - - --- ** Selectable - ListBoxRowSelectablePropertyInfo , - constructListBoxRowSelectable , - getListBoxRowSelectable , - setListBoxRowSelectable , - - - - - -- * Signals --- ** Activate - ListBoxRowActivateCallback , - ListBoxRowActivateCallbackC , - ListBoxRowActivateSignalInfo , - afterListBoxRowActivate , - listBoxRowActivateCallbackWrapper , - listBoxRowActivateClosure , - mkListBoxRowActivateCallback , - noListBoxRowActivateCallback , - onListBoxRowActivate , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "ListBoxRow::activatable" - attrGet _ = getListBoxRowActivatable - attrSet _ = setListBoxRowActivatable - attrConstruct _ = constructListBoxRowActivatable - --- VVV Prop "selectable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ListBoxRow::selectable" - attrGet _ = getListBoxRowSelectable - attrSet _ = setListBoxRowSelectable - attrConstruct _ = constructListBoxRowSelectable - -type instance AttributeList ListBoxRow = ListBoxRowAttributeList -type ListBoxRowAttributeList = ('[ '("activatable", ListBoxRowActivatablePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", ListBoxRowSelectablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data ListBoxRowActivateSignalInfo -instance SignalInfo ListBoxRowActivateSignalInfo where - type HaskellCallbackType ListBoxRowActivateSignalInfo = ListBoxRowActivateCallback - connectSignal _ = connectListBoxRowActivate - -type instance SignalList ListBoxRow = ListBoxRowSignalList -type ListBoxRowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ListBoxRowActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ListBoxRow::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listBoxRowChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_box_row_changed _obj' - touchManagedPtr _obj - return () - --- method ListBoxRow::get_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -listBoxRowGetActivatable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_get_activatable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ListBoxRow::get_header --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Widget -listBoxRowGetHeader _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_get_header _obj' - checkUnexpectedReturnNULL "gtk_list_box_row_get_header" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method ListBoxRow::get_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -listBoxRowGetIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_get_index _obj' - touchManagedPtr _obj - return result - --- method ListBoxRow::get_selectable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -listBoxRowGetSelectable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_get_selectable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ListBoxRow::is_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -listBoxRowIsSelected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_list_box_row_is_selected _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ListBoxRow::set_activatable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activatable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListBoxRow::set_header --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "header", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListBoxRow::set_selectable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListBoxRow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selectable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.ListBoxRow where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ListBoxRowAccessible = ListBoxRowAccessibleAttributeList -type ListBoxRowAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ListBoxRowAccessible = ListBoxRowAccessibleSignalList -type ListBoxRowAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,675 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - listStoreAppend , - - --- ** listStoreClear - listStoreClear , - - --- ** listStoreInsert - listStoreInsert , - - --- ** listStoreInsertAfter - listStoreInsertAfter , - - --- ** listStoreInsertBefore - listStoreInsertBefore , - - --- ** listStoreInsertWithValuesv - listStoreInsertWithValuesv , - - --- ** listStoreIterIsValid - listStoreIterIsValid , - - --- ** listStoreMoveAfter - listStoreMoveAfter , - - --- ** listStoreMoveBefore - listStoreMoveBefore , - - --- ** listStoreNew - listStoreNew , - - --- ** listStorePrepend - listStorePrepend , - - --- ** listStoreRemove - listStoreRemove , - - --- ** listStoreReorder - listStoreReorder , - - --- ** listStoreSet - listStoreSet , - - --- ** listStoreSetColumnTypes - listStoreSetColumnTypes , - - --- ** listStoreSetValue - listStoreSetValue , - - --- ** listStoreSwap - listStoreSwap , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ListStore = ListStoreAttributeList -type ListStoreAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ListStore = ListStoreSignalList -type ListStoreSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ListStore::new --- method type : Constructor --- Args : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "ListStore" --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_newv" gtk_list_store_newv :: - Int32 -> -- n_columns : TBasicType TInt32 - Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType) - IO (Ptr ListStore) - - -listStoreNew :: - (MonadIO m) => - [GType] -> -- types - m ListStore -listStoreNew types = liftIO $ do - let n_columns = fromIntegral $ length types - types' <- (packMapStorableArray gtypeToCGType) types - result <- gtk_list_store_newv n_columns types' - checkUnexpectedReturnNULL "gtk_list_store_newv" result - result' <- (wrapObject ListStore) result - freeMem types' - return result' - --- method ListStore::append --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ListStore::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -listStoreClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_list_store_clear _obj' - touchManagedPtr _obj - return () - --- method ListStore::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -listStoreInsert :: - (MonadIO m, ListStoreK a) => - a -> -- _obj - Int32 -> -- position - m (TreeIter) -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' - --- method ListStore::insert_after --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ListStore::insert_before --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ListStore::insert_with_valuesv --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 5 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 5 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- columns : TCArray False (-1) 5 (TBasicType TInt32) - Ptr GValue -> -- values : TCArray False (-1) 5 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt32 - IO () - - -listStoreInsertWithValuesv :: - (MonadIO m, ListStoreK a) => - a -> -- _obj - Int32 -> -- position - [Int32] -> -- columns - [GValue] -> -- values - m (TreeIter) -listStoreInsertWithValuesv _obj position columns values = liftIO $ do - let n_values = fromIntegral $ length values - let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= n_values) $ - 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'' n_values - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - mapM_ touchManagedPtr values - freeMem columns' - freeMem values'' - return iter' - --- method ListStore::iter_is_valid --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ListStore::move_after --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListStore::move_before --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ListStore::prepend --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method ListStore::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ListStore::reorder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_order", argType = TCArray True (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_reorder" gtk_list_store_reorder :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Ptr Int32 -> -- new_order : TCArray True (-1) (-1) (TBasicType TInt32) - IO () - - -listStoreReorder :: - (MonadIO m, ListStoreK a) => - a -> -- _obj - [Int32] -> -- new_order - m () -listStoreReorder _obj new_order = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - new_order' <- packZeroTerminatedStorableArray new_order - gtk_list_store_reorder _obj' new_order' - touchManagedPtr _obj - freeMem new_order' - return () - --- method ListStore::set_column_types --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_list_store_set_column_types" gtk_list_store_set_column_types :: - Ptr ListStore -> -- _obj : TInterface "Gtk" "ListStore" - Int32 -> -- n_columns : TBasicType TInt32 - Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType) - IO () - - -listStoreSetColumnTypes :: - (MonadIO m, ListStoreK a) => - a -> -- _obj - [GType] -> -- types - m () -listStoreSetColumnTypes _obj types = liftIO $ do - let n_columns = fromIntegral $ length types - let _obj' = unsafeManagedPtrCastPtr _obj - types' <- (packMapStorableArray gtypeToCGType) types - gtk_list_store_set_column_types _obj' n_columns types' - touchManagedPtr _obj - freeMem types' - return () - --- method ListStore::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -listStoreSetValue :: - (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- iter - Int32 -> -- column - GValue -> -- value - m () -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 () - --- method ListStore::set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32) - Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt32 - IO () - - -listStoreSet :: - (MonadIO m, ListStoreK a) => - a -> -- _obj - TreeIter -> -- iter - [Int32] -> -- columns - [GValue] -> -- values - m () -listStoreSet _obj iter columns values = liftIO $ do - let n_values = fromIntegral $ length values - let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= n_values) $ - 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'' n_values - touchManagedPtr _obj - touchManagedPtr iter - mapM_ touchManagedPtr values - freeMem columns' - freeMem values'' - return () - --- method ListStore::swap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.ListStore where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ListStore = ListStore (ForeignPtr ListStore) -instance GObject ListStore where -class GObject o => ListStoreK o -instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o 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,352 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - lockButtonGetPermission , - - --- ** lockButtonNew - lockButtonNew , - - --- ** lockButtonSetPermission - lockButtonSetPermission , - - - - - -- * Properties --- ** Permission - LockButtonPermissionPropertyInfo , - constructLockButtonPermission , - getLockButtonPermission , - setLockButtonPermission , - - --- ** TextLock - LockButtonTextLockPropertyInfo , - constructLockButtonTextLock , - getLockButtonTextLock , - setLockButtonTextLock , - - --- ** TextUnlock - LockButtonTextUnlockPropertyInfo , - constructLockButtonTextUnlock , - getLockButtonTextUnlock , - setLockButtonTextUnlock , - - --- ** TooltipLock - LockButtonTooltipLockPropertyInfo , - constructLockButtonTooltipLock , - getLockButtonTooltipLock , - setLockButtonTooltipLock , - - --- ** TooltipNotAuthorized - LockButtonTooltipNotAuthorizedPropertyInfo, - constructLockButtonTooltipNotAuthorized , - getLockButtonTooltipNotAuthorized , - setLockButtonTooltipNotAuthorized , - - --- ** TooltipUnlock - LockButtonTooltipUnlockPropertyInfo , - constructLockButtonTooltipUnlock , - getLockButtonTooltipUnlock , - setLockButtonTooltipUnlock , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "permission" - -- Type: TInterface "Gio" "Permission" - -- Flags: [PropertyReadable,PropertyWritable] - -getLockButtonPermission :: (MonadIO m, LockButtonK o) => o -> m Gio.Permission -getLockButtonPermission obj = liftIO $ getObjectPropertyObject obj "permission" Gio.Permission - -setLockButtonPermission :: (MonadIO m, LockButtonK o, Gio.PermissionK a) => o -> a -> m () -setLockButtonPermission obj val = liftIO $ setObjectPropertyObject obj "permission" val - -constructLockButtonPermission :: (Gio.PermissionK a) => a -> IO ([Char], GValue) -constructLockButtonPermission val = constructObjectPropertyObject "permission" val - -data LockButtonPermissionPropertyInfo -instance AttrInfo LockButtonPermissionPropertyInfo where - type AttrAllowedOps LockButtonPermissionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LockButtonPermissionPropertyInfo = Gio.PermissionK - type AttrBaseTypeConstraint LockButtonPermissionPropertyInfo = LockButtonK - type AttrGetType LockButtonPermissionPropertyInfo = Gio.Permission - type AttrLabel LockButtonPermissionPropertyInfo = "LockButton::permission" - attrGet _ = getLockButtonPermission - attrSet _ = setLockButtonPermission - attrConstruct _ = constructLockButtonPermission - --- VVV Prop "text-lock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m 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" val - -constructLockButtonTextLock :: T.Text -> IO ([Char], GValue) -constructLockButtonTextLock val = constructObjectPropertyString "text-lock" val - -data LockButtonTextLockPropertyInfo -instance AttrInfo LockButtonTextLockPropertyInfo where - type AttrAllowedOps LockButtonTextLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LockButtonTextLockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTextLockPropertyInfo = LockButtonK - type AttrGetType LockButtonTextLockPropertyInfo = T.Text - type AttrLabel LockButtonTextLockPropertyInfo = "LockButton::text-lock" - attrGet _ = getLockButtonTextLock - attrSet _ = setLockButtonTextLock - attrConstruct _ = constructLockButtonTextLock - --- VVV Prop "text-unlock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m 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" val - -constructLockButtonTextUnlock :: T.Text -> IO ([Char], GValue) -constructLockButtonTextUnlock val = constructObjectPropertyString "text-unlock" val - -data LockButtonTextUnlockPropertyInfo -instance AttrInfo LockButtonTextUnlockPropertyInfo where - type AttrAllowedOps LockButtonTextUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LockButtonTextUnlockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTextUnlockPropertyInfo = LockButtonK - type AttrGetType LockButtonTextUnlockPropertyInfo = T.Text - type AttrLabel LockButtonTextUnlockPropertyInfo = "LockButton::text-unlock" - attrGet _ = getLockButtonTextUnlock - attrSet _ = setLockButtonTextUnlock - attrConstruct _ = constructLockButtonTextUnlock - --- VVV Prop "tooltip-lock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m 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" val - -constructLockButtonTooltipLock :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipLock val = constructObjectPropertyString "tooltip-lock" val - -data LockButtonTooltipLockPropertyInfo -instance AttrInfo LockButtonTooltipLockPropertyInfo where - type AttrAllowedOps LockButtonTooltipLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LockButtonTooltipLockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTooltipLockPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipLockPropertyInfo = T.Text - type AttrLabel LockButtonTooltipLockPropertyInfo = "LockButton::tooltip-lock" - attrGet _ = getLockButtonTooltipLock - attrSet _ = setLockButtonTooltipLock - attrConstruct _ = constructLockButtonTooltipLock - --- VVV Prop "tooltip-not-authorized" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m 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" val - -constructLockButtonTooltipNotAuthorized :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipNotAuthorized val = constructObjectPropertyString "tooltip-not-authorized" val - -data LockButtonTooltipNotAuthorizedPropertyInfo -instance AttrInfo LockButtonTooltipNotAuthorizedPropertyInfo where - type AttrAllowedOps LockButtonTooltipNotAuthorizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = T.Text - type AttrLabel LockButtonTooltipNotAuthorizedPropertyInfo = "LockButton::tooltip-not-authorized" - attrGet _ = getLockButtonTooltipNotAuthorized - attrSet _ = setLockButtonTooltipNotAuthorized - attrConstruct _ = constructLockButtonTooltipNotAuthorized - --- VVV Prop "tooltip-unlock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m 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" val - -constructLockButtonTooltipUnlock :: T.Text -> IO ([Char], GValue) -constructLockButtonTooltipUnlock val = constructObjectPropertyString "tooltip-unlock" val - -data LockButtonTooltipUnlockPropertyInfo -instance AttrInfo LockButtonTooltipUnlockPropertyInfo where - type AttrAllowedOps LockButtonTooltipUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint LockButtonTooltipUnlockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint LockButtonTooltipUnlockPropertyInfo = LockButtonK - type AttrGetType LockButtonTooltipUnlockPropertyInfo = T.Text - type AttrLabel LockButtonTooltipUnlockPropertyInfo = "LockButton::tooltip-unlock" - attrGet _ = getLockButtonTooltipUnlock - attrSet _ = setLockButtonTooltipUnlock - attrConstruct _ = constructLockButtonTooltipUnlock - -type instance AttributeList LockButton = LockButtonAttributeList -type LockButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("permission", LockButtonPermissionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text-lock", LockButtonTextLockPropertyInfo), '("text-unlock", LockButtonTextUnlockPropertyInfo), '("tooltip-lock", LockButtonTooltipLockPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-not-authorized", LockButtonTooltipNotAuthorizedPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("tooltip-unlock", LockButtonTooltipUnlockPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LockButton = LockButtonSignalList -type LockButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method LockButton::new --- method type : Constructor --- Args : [Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method LockButton::set_permission --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "LockButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "permission", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.LockButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList LockButtonAccessible = LockButtonAccessibleAttributeList -type LockButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList LockButtonAccessible = LockButtonAccessibleSignalList -type LockButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1288 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - menuAttach , - - --- ** menuAttachToWidget - menuAttachToWidget , - - --- ** menuDetach - menuDetach , - - --- ** menuGetAccelGroup - menuGetAccelGroup , - - --- ** menuGetAccelPath - menuGetAccelPath , - - --- ** menuGetActive - menuGetActive , - - --- ** menuGetAttachWidget - menuGetAttachWidget , - - --- ** menuGetForAttachWidget - menuGetForAttachWidget , - - --- ** menuGetMonitor - menuGetMonitor , - - --- ** menuGetReserveToggleSize - menuGetReserveToggleSize , - - --- ** menuGetTearoffState - menuGetTearoffState , - - --- ** menuGetTitle - menuGetTitle , - - --- ** menuNew - menuNew , - - --- ** menuNewFromModel - menuNewFromModel , - - --- ** menuPopdown - menuPopdown , - - --- ** menuPopup - menuPopup , - - --- ** menuPopupForDevice - menuPopupForDevice , - - --- ** menuReorderChild - menuReorderChild , - - --- ** menuReposition - menuReposition , - - --- ** menuSetAccelGroup - menuSetAccelGroup , - - --- ** menuSetAccelPath - menuSetAccelPath , - - --- ** menuSetActive - menuSetActive , - - --- ** menuSetMonitor - menuSetMonitor , - - --- ** menuSetReserveToggleSize - menuSetReserveToggleSize , - - --- ** menuSetScreen - menuSetScreen , - - --- ** menuSetTearoffState - menuSetTearoffState , - - --- ** menuSetTitle - menuSetTitle , - - - - - -- * Properties --- ** AccelGroup - MenuAccelGroupPropertyInfo , - constructMenuAccelGroup , - getMenuAccelGroup , - setMenuAccelGroup , - - --- ** AccelPath - MenuAccelPathPropertyInfo , - constructMenuAccelPath , - getMenuAccelPath , - setMenuAccelPath , - - --- ** Active - MenuActivePropertyInfo , - constructMenuActive , - getMenuActive , - setMenuActive , - - --- ** AttachWidget - MenuAttachWidgetPropertyInfo , - constructMenuAttachWidget , - getMenuAttachWidget , - setMenuAttachWidget , - - --- ** Monitor - MenuMonitorPropertyInfo , - constructMenuMonitor , - getMenuMonitor , - setMenuMonitor , - - --- ** ReserveToggleSize - MenuReserveToggleSizePropertyInfo , - constructMenuReserveToggleSize , - getMenuReserveToggleSize , - setMenuReserveToggleSize , - - --- ** TearoffState - MenuTearoffStatePropertyInfo , - constructMenuTearoffState , - getMenuTearoffState , - setMenuTearoffState , - - --- ** TearoffTitle - MenuTearoffTitlePropertyInfo , - constructMenuTearoffTitle , - getMenuTearoffTitle , - setMenuTearoffTitle , - - - - - -- * Signals --- ** MoveScroll - MenuMoveScrollCallback , - MenuMoveScrollCallbackC , - MenuMoveScrollSignalInfo , - afterMenuMoveScroll , - menuMoveScrollCallbackWrapper , - menuMoveScrollClosure , - mkMenuMoveScrollCallback , - noMenuMoveScrollCallback , - onMenuMoveScroll , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ scroll_type _ = do - let scroll_type' = (toEnum . fromIntegral) scroll_type - _cb scroll_type' - -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] - -getMenuAccelGroup :: (MonadIO m, MenuK o) => o -> m AccelGroup -getMenuAccelGroup obj = liftIO $ getObjectPropertyObject obj "accel-group" AccelGroup - -setMenuAccelGroup :: (MonadIO m, MenuK o, AccelGroupK a) => o -> a -> m () -setMenuAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val - -constructMenuAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) -constructMenuAccelGroup val = constructObjectPropertyObject "accel-group" val - -data MenuAccelGroupPropertyInfo -instance AttrInfo MenuAccelGroupPropertyInfo where - type AttrAllowedOps MenuAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuAccelGroupPropertyInfo = AccelGroupK - type AttrBaseTypeConstraint MenuAccelGroupPropertyInfo = MenuK - type AttrGetType MenuAccelGroupPropertyInfo = AccelGroup - type AttrLabel MenuAccelGroupPropertyInfo = "Menu::accel-group" - attrGet _ = getMenuAccelGroup - attrSet _ = setMenuAccelGroup - attrConstruct _ = constructMenuAccelGroup - --- VVV Prop "accel-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuAccelPath :: (MonadIO m, MenuK o) => o -> m T.Text -getMenuAccelPath obj = liftIO $ getObjectPropertyString obj "accel-path" - -setMenuAccelPath :: (MonadIO m, MenuK o) => o -> T.Text -> m () -setMenuAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" val - -constructMenuAccelPath :: T.Text -> IO ([Char], GValue) -constructMenuAccelPath val = constructObjectPropertyString "accel-path" val - -data MenuAccelPathPropertyInfo -instance AttrInfo MenuAccelPathPropertyInfo where - type AttrAllowedOps MenuAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuAccelPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MenuAccelPathPropertyInfo = MenuK - type AttrGetType MenuAccelPathPropertyInfo = T.Text - type AttrLabel MenuAccelPathPropertyInfo = "Menu::accel-path" - attrGet _ = getMenuAccelPath - attrSet _ = setMenuAccelPath - attrConstruct _ = constructMenuAccelPath - --- VVV Prop "active" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuActive :: (MonadIO m, MenuK o) => o -> m Int32 -getMenuActive obj = liftIO $ getObjectPropertyCInt obj "active" - -setMenuActive :: (MonadIO m, MenuK o) => o -> Int32 -> m () -setMenuActive obj val = liftIO $ setObjectPropertyCInt obj "active" val - -constructMenuActive :: Int32 -> IO ([Char], GValue) -constructMenuActive val = constructObjectPropertyCInt "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 = "Menu::active" - attrGet _ = getMenuActive - attrSet _ = setMenuActive - attrConstruct _ = constructMenuActive - --- VVV Prop "attach-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuAttachWidget :: (MonadIO m, MenuK o) => o -> m Widget -getMenuAttachWidget obj = liftIO $ getObjectPropertyObject obj "attach-widget" Widget - -setMenuAttachWidget :: (MonadIO m, MenuK o, WidgetK a) => o -> a -> m () -setMenuAttachWidget obj val = liftIO $ setObjectPropertyObject obj "attach-widget" val - -constructMenuAttachWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructMenuAttachWidget val = constructObjectPropertyObject "attach-widget" val - -data MenuAttachWidgetPropertyInfo -instance AttrInfo MenuAttachWidgetPropertyInfo where - type AttrAllowedOps MenuAttachWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuAttachWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint MenuAttachWidgetPropertyInfo = MenuK - type AttrGetType MenuAttachWidgetPropertyInfo = Widget - type AttrLabel MenuAttachWidgetPropertyInfo = "Menu::attach-widget" - attrGet _ = getMenuAttachWidget - attrSet _ = setMenuAttachWidget - attrConstruct _ = constructMenuAttachWidget - --- VVV Prop "monitor" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuMonitor :: (MonadIO m, MenuK o) => o -> m Int32 -getMenuMonitor obj = liftIO $ getObjectPropertyCInt obj "monitor" - -setMenuMonitor :: (MonadIO m, MenuK o) => o -> Int32 -> m () -setMenuMonitor obj val = liftIO $ setObjectPropertyCInt obj "monitor" val - -constructMenuMonitor :: Int32 -> IO ([Char], GValue) -constructMenuMonitor val = constructObjectPropertyCInt "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 = "Menu::monitor" - attrGet _ = getMenuMonitor - attrSet _ = setMenuMonitor - attrConstruct _ = constructMenuMonitor - --- VVV Prop "reserve-toggle-size" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Menu::reserve-toggle-size" - attrGet _ = getMenuReserveToggleSize - attrSet _ = setMenuReserveToggleSize - attrConstruct _ = constructMenuReserveToggleSize - --- VVV Prop "tearoff-state" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Menu::tearoff-state" - attrGet _ = getMenuTearoffState - attrSet _ = setMenuTearoffState - attrConstruct _ = constructMenuTearoffState - --- VVV Prop "tearoff-title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m 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" val - -constructMenuTearoffTitle :: T.Text -> IO ([Char], GValue) -constructMenuTearoffTitle val = constructObjectPropertyString "tearoff-title" val - -data MenuTearoffTitlePropertyInfo -instance AttrInfo MenuTearoffTitlePropertyInfo where - type AttrAllowedOps MenuTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuTearoffTitlePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MenuTearoffTitlePropertyInfo = MenuK - type AttrGetType MenuTearoffTitlePropertyInfo = T.Text - type AttrLabel MenuTearoffTitlePropertyInfo = "Menu::tearoff-title" - attrGet _ = getMenuTearoffTitle - attrSet _ = setMenuTearoffTitle - attrConstruct _ = constructMenuTearoffTitle - -type instance AttributeList Menu = MenuAttributeList -type MenuAttributeList = ('[ '("accel-group", MenuAccelGroupPropertyInfo), '("accel-path", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attach-widget", MenuAttachWidgetPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reserve-toggle-size", MenuReserveToggleSizePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tearoff-state", MenuTearoffStatePropertyInfo), '("tearoff-title", MenuTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data MenuMoveScrollSignalInfo -instance SignalInfo MenuMoveScrollSignalInfo where - type HaskellCallbackType MenuMoveScrollSignalInfo = MenuMoveScrollCallback - connectSignal _ = connectMenuMoveScroll - -type instance SignalList Menu = MenuSignalList -type MenuSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-scroll", MenuMoveScrollSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Menu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- right_attach : TBasicType TUInt32 - Word32 -> -- top_attach : TBasicType TUInt32 - Word32 -> -- bottom_attach : TBasicType TUInt32 - IO () - - -menuAttach :: - (MonadIO m, MenuK a, WidgetK b) => - a -> -- _obj - b -> -- child - Word32 -> -- left_attach - Word32 -> -- right_attach - Word32 -> -- top_attach - Word32 -> -- bottom_attach - m () -menuAttach _obj child left_attach right_attach top_attach bottom_attach = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_menu_attach _obj' child' left_attach right_attach top_attach bottom_attach - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Menu::attach_to_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detacher", argType = TInterface "Gtk" "MenuDetachFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- attach_widget - Maybe (MenuDetachFunc) -> -- detacher - m () -menuAttachToWidget _obj attach_widget detacher = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let attach_widget' = unsafeManagedPtrCastPtr attach_widget - 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' attach_widget' maybeDetacher - touchManagedPtr _obj - touchManagedPtr attach_widget - return () - --- method Menu::detach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuDetach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_detach _obj' - touchManagedPtr _obj - return () - --- method Menu::get_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Menu::get_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Menu::get_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Menu::get_attach_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Menu::get_monitor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -menuGetMonitor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_monitor _obj' - touchManagedPtr _obj - return result - --- method Menu::get_reserve_toggle_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -menuGetReserveToggleSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_reserve_toggle_size _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Menu::get_tearoff_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -menuGetTearoffState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_get_tearoff_state _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Menu::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Menu::popdown --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuPopdown _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_popdown _obj' - touchManagedPtr _obj - return () - --- method Menu::popup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - Word32 -> -- button : TBasicType TUInt32 - Word32 -> -- activate_time : TBasicType TUInt32 - IO () - - -menuPopup :: - (MonadIO m, MenuK a, WidgetK b, WidgetK c) => - a -> -- _obj - Maybe (b) -> -- parent_menu_shell - Maybe (c) -> -- parent_menu_item - Maybe (MenuPositionFunc) -> -- func - Word32 -> -- button - Word32 -> -- activate_time - m () -menuPopup _obj parent_menu_shell parent_menu_item func button activate_time = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParent_menu_shell <- case parent_menu_shell of - Nothing -> return nullPtr - Just jParent_menu_shell -> do - let jParent_menu_shell' = unsafeManagedPtrCastPtr jParent_menu_shell - return jParent_menu_shell' - maybeParent_menu_item <- case parent_menu_item of - Nothing -> return nullPtr - Just jParent_menu_item -> do - let jParent_menu_item' = unsafeManagedPtrCastPtr jParent_menu_item - return jParent_menu_item' - 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' maybeParent_menu_shell maybeParent_menu_item maybeFunc data_ button activate_time - touchManagedPtr _obj - whenJust parent_menu_shell touchManagedPtr - whenJust parent_menu_item touchManagedPtr - return () - --- method Menu::popup_for_device --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_shell", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "MenuPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "activate_time", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - Word32 -> -- button : TBasicType TUInt32 - 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) -> -- parent_menu_shell - Maybe (d) -> -- parent_menu_item - Maybe (MenuPositionFunc) -> -- func - Word32 -> -- button - Word32 -> -- activate_time - m () -menuPopupForDevice _obj device parent_menu_shell parent_menu_item func button activate_time = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDevice <- case device of - Nothing -> return nullPtr - Just jDevice -> do - let jDevice' = unsafeManagedPtrCastPtr jDevice - return jDevice' - maybeParent_menu_shell <- case parent_menu_shell of - Nothing -> return nullPtr - Just jParent_menu_shell -> do - let jParent_menu_shell' = unsafeManagedPtrCastPtr jParent_menu_shell - return jParent_menu_shell' - maybeParent_menu_item <- case parent_menu_item of - Nothing -> return nullPtr - Just jParent_menu_item -> do - let jParent_menu_item' = unsafeManagedPtrCastPtr jParent_menu_item - return jParent_menu_item' - 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 maybeParent_menu_shell maybeParent_menu_item maybeFunc data_ destroy button activate_time - touchManagedPtr _obj - whenJust device touchManagedPtr - whenJust parent_menu_shell touchManagedPtr - whenJust parent_menu_item touchManagedPtr - return () - --- method Menu::reorder_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -menuReorderChild :: - (MonadIO m, MenuK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () -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 () - --- method Menu::reposition --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuReposition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_reposition _obj' - touchManagedPtr _obj - return () - --- method Menu::set_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- accel_group - m () -menuSetAccelGroup _obj accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_group <- case accel_group of - Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - gtk_menu_set_accel_group _obj' maybeAccel_group - touchManagedPtr _obj - whenJust accel_group touchManagedPtr - return () - --- method Menu::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- accel_path - m () -menuSetAccelPath _obj accel_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_path <- case accel_path of - Nothing -> return nullPtr - Just jAccel_path -> do - jAccel_path' <- textToCString jAccel_path - return jAccel_path' - gtk_menu_set_accel_path _obj' maybeAccel_path - touchManagedPtr _obj - freeMem maybeAccel_path - return () - --- method Menu::set_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -menuSetActive :: - (MonadIO m, MenuK a) => - a -> -- _obj - Word32 -> -- index - m () -menuSetActive _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_set_active _obj' index - touchManagedPtr _obj - return () - --- method Menu::set_monitor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_set_monitor" gtk_menu_set_monitor :: - Ptr Menu -> -- _obj : TInterface "Gtk" "Menu" - Int32 -> -- monitor_num : TBasicType TInt32 - IO () - - -menuSetMonitor :: - (MonadIO m, MenuK a) => - a -> -- _obj - Int32 -> -- monitor_num - m () -menuSetMonitor _obj monitor_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_set_monitor _obj' monitor_num - touchManagedPtr _obj - return () - --- method Menu::set_reserve_toggle_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve_toggle_size", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- reserve_toggle_size - m () -menuSetReserveToggleSize _obj reserve_toggle_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reserve_toggle_size' = (fromIntegral . fromEnum) reserve_toggle_size - gtk_menu_set_reserve_toggle_size _obj' reserve_toggle_size' - touchManagedPtr _obj - return () - --- method Menu::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Menu::set_tearoff_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "torn_off", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- torn_off - m () -menuSetTearoffState _obj torn_off = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let torn_off' = (fromIntegral . fromEnum) torn_off - gtk_menu_set_tearoff_state _obj' torn_off' - touchManagedPtr _obj - return () - --- method Menu::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -menuSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_menu_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - --- method Menu::get_for_attach_widget --- method type : MemberFunction --- Args : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -menuGetForAttachWidget widget = liftIO $ do - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_menu_get_for_attach_widget widget' - checkUnexpectedReturnNULL "gtk_menu_get_for_attach_widget" result - 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,22 +0,0 @@ -module GI.Gtk.Objects.Menu where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList MenuAccessible = MenuAccessibleAttributeList -type MenuAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuAccessible = MenuAccessibleSignalList -type MenuAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,304 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - menuBarGetChildPackDirection , - - --- ** menuBarGetPackDirection - menuBarGetPackDirection , - - --- ** menuBarNew - menuBarNew , - - --- ** menuBarNewFromModel - menuBarNewFromModel , - - --- ** menuBarSetChildPackDirection - menuBarSetChildPackDirection , - - --- ** menuBarSetPackDirection - menuBarSetPackDirection , - - - - - -- * Properties --- ** ChildPackDirection - MenuBarChildPackDirectionPropertyInfo , - constructMenuBarChildPackDirection , - getMenuBarChildPackDirection , - setMenuBarChildPackDirection , - - --- ** PackDirection - MenuBarPackDirectionPropertyInfo , - constructMenuBarPackDirection , - getMenuBarPackDirection , - setMenuBarPackDirection , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "child-pack-direction" - -- Type: TInterface "Gtk" "PackDirection" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "MenuBar::child-pack-direction" - attrGet _ = getMenuBarChildPackDirection - attrSet _ = setMenuBarChildPackDirection - attrConstruct _ = constructMenuBarChildPackDirection - --- VVV Prop "pack-direction" - -- Type: TInterface "Gtk" "PackDirection" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "MenuBar::pack-direction" - attrGet _ = getMenuBarPackDirection - attrSet _ = setMenuBarPackDirection - attrConstruct _ = constructMenuBarPackDirection - -type instance AttributeList MenuBar = MenuBarAttributeList -type MenuBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-pack-direction", MenuBarChildPackDirectionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("pack-direction", MenuBarPackDirectionPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuBar = MenuBarSignalList -type MenuBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuBar::get_pack_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuBar::set_child_pack_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- child_pack_dir - m () -menuBarSetChildPackDirection _obj child_pack_dir = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child_pack_dir' = (fromIntegral . fromEnum) child_pack_dir - gtk_menu_bar_set_child_pack_direction _obj' child_pack_dir' - touchManagedPtr _obj - return () - --- method MenuBar::set_pack_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_dir", argType = TInterface "Gtk" "PackDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- pack_dir - m () -menuBarSetPackDirection _obj pack_dir = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pack_dir' = (fromIntegral . fromEnum) pack_dir - gtk_menu_bar_set_pack_direction _obj' pack_dir' - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.MenuBar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,662 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - menuButtonGetAlignWidget , - - --- ** menuButtonGetDirection - menuButtonGetDirection , - - --- ** menuButtonGetMenuModel - menuButtonGetMenuModel , - - --- ** menuButtonGetPopover - menuButtonGetPopover , - - --- ** menuButtonGetPopup - menuButtonGetPopup , - - --- ** menuButtonGetUsePopover - menuButtonGetUsePopover , - - --- ** menuButtonNew - menuButtonNew , - - --- ** menuButtonSetAlignWidget - menuButtonSetAlignWidget , - - --- ** menuButtonSetDirection - menuButtonSetDirection , - - --- ** menuButtonSetMenuModel - menuButtonSetMenuModel , - - --- ** menuButtonSetPopover - menuButtonSetPopover , - - --- ** menuButtonSetPopup - menuButtonSetPopup , - - --- ** menuButtonSetUsePopover - menuButtonSetUsePopover , - - - - - -- * Properties --- ** AlignWidget - MenuButtonAlignWidgetPropertyInfo , - constructMenuButtonAlignWidget , - getMenuButtonAlignWidget , - setMenuButtonAlignWidget , - - --- ** Direction - MenuButtonDirectionPropertyInfo , - constructMenuButtonDirection , - getMenuButtonDirection , - setMenuButtonDirection , - - --- ** MenuModel - MenuButtonMenuModelPropertyInfo , - constructMenuButtonMenuModel , - getMenuButtonMenuModel , - setMenuButtonMenuModel , - - --- ** Popover - MenuButtonPopoverPropertyInfo , - constructMenuButtonPopover , - getMenuButtonPopover , - setMenuButtonPopover , - - --- ** Popup - MenuButtonPopupPropertyInfo , - constructMenuButtonPopup , - getMenuButtonPopup , - setMenuButtonPopup , - - --- ** UsePopover - MenuButtonUsePopoverPropertyInfo , - constructMenuButtonUsePopover , - getMenuButtonUsePopover , - setMenuButtonUsePopover , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "align-widget" - -- Type: TInterface "Gtk" "Container" - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m 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" val - -constructMenuButtonAlignWidget :: (ContainerK a) => a -> IO ([Char], GValue) -constructMenuButtonAlignWidget val = constructObjectPropertyObject "align-widget" val - -data MenuButtonAlignWidgetPropertyInfo -instance AttrInfo MenuButtonAlignWidgetPropertyInfo where - type AttrAllowedOps MenuButtonAlignWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuButtonAlignWidgetPropertyInfo = ContainerK - type AttrBaseTypeConstraint MenuButtonAlignWidgetPropertyInfo = MenuButtonK - type AttrGetType MenuButtonAlignWidgetPropertyInfo = Container - type AttrLabel MenuButtonAlignWidgetPropertyInfo = "MenuButton::align-widget" - attrGet _ = getMenuButtonAlignWidget - attrSet _ = setMenuButtonAlignWidget - attrConstruct _ = constructMenuButtonAlignWidget - --- VVV Prop "direction" - -- Type: TInterface "Gtk" "ArrowType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "MenuButton::direction" - attrGet _ = getMenuButtonDirection - attrSet _ = setMenuButtonDirection - attrConstruct _ = constructMenuButtonDirection - --- VVV Prop "menu-model" - -- Type: TInterface "Gio" "MenuModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuButtonMenuModel :: (MonadIO m, MenuButtonK o) => o -> m Gio.MenuModel -getMenuButtonMenuModel obj = liftIO $ 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" val - -constructMenuButtonMenuModel :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) -constructMenuButtonMenuModel val = constructObjectPropertyObject "menu-model" val - -data MenuButtonMenuModelPropertyInfo -instance AttrInfo MenuButtonMenuModelPropertyInfo where - type AttrAllowedOps MenuButtonMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuButtonMenuModelPropertyInfo = Gio.MenuModelK - type AttrBaseTypeConstraint MenuButtonMenuModelPropertyInfo = MenuButtonK - type AttrGetType MenuButtonMenuModelPropertyInfo = Gio.MenuModel - type AttrLabel MenuButtonMenuModelPropertyInfo = "MenuButton::menu-model" - attrGet _ = getMenuButtonMenuModel - attrSet _ = setMenuButtonMenuModel - attrConstruct _ = constructMenuButtonMenuModel - --- VVV Prop "popover" - -- Type: TInterface "Gtk" "Popover" - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuButtonPopover :: (MonadIO m, MenuButtonK o) => o -> m Popover -getMenuButtonPopover obj = liftIO $ getObjectPropertyObject obj "popover" Popover - -setMenuButtonPopover :: (MonadIO m, MenuButtonK o, PopoverK a) => o -> a -> m () -setMenuButtonPopover obj val = liftIO $ setObjectPropertyObject obj "popover" val - -constructMenuButtonPopover :: (PopoverK a) => a -> IO ([Char], GValue) -constructMenuButtonPopover val = constructObjectPropertyObject "popover" val - -data MenuButtonPopoverPropertyInfo -instance AttrInfo MenuButtonPopoverPropertyInfo where - type AttrAllowedOps MenuButtonPopoverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuButtonPopoverPropertyInfo = PopoverK - type AttrBaseTypeConstraint MenuButtonPopoverPropertyInfo = MenuButtonK - type AttrGetType MenuButtonPopoverPropertyInfo = Popover - type AttrLabel MenuButtonPopoverPropertyInfo = "MenuButton::popover" - attrGet _ = getMenuButtonPopover - attrSet _ = setMenuButtonPopover - attrConstruct _ = constructMenuButtonPopover - --- VVV Prop "popup" - -- Type: TInterface "Gtk" "Menu" - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuButtonPopup :: (MonadIO m, MenuButtonK o) => o -> m Menu -getMenuButtonPopup obj = liftIO $ getObjectPropertyObject obj "popup" Menu - -setMenuButtonPopup :: (MonadIO m, MenuButtonK o, MenuK a) => o -> a -> m () -setMenuButtonPopup obj val = liftIO $ setObjectPropertyObject obj "popup" val - -constructMenuButtonPopup :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuButtonPopup val = constructObjectPropertyObject "popup" val - -data MenuButtonPopupPropertyInfo -instance AttrInfo MenuButtonPopupPropertyInfo where - type AttrAllowedOps MenuButtonPopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuButtonPopupPropertyInfo = MenuK - type AttrBaseTypeConstraint MenuButtonPopupPropertyInfo = MenuButtonK - type AttrGetType MenuButtonPopupPropertyInfo = Menu - type AttrLabel MenuButtonPopupPropertyInfo = "MenuButton::popup" - attrGet _ = getMenuButtonPopup - attrSet _ = setMenuButtonPopup - attrConstruct _ = constructMenuButtonPopup - --- VVV Prop "use-popover" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "MenuButton::use-popover" - attrGet _ = getMenuButtonUsePopover - attrSet _ = setMenuButtonUsePopover - attrConstruct _ = constructMenuButtonUsePopover - -type instance AttributeList MenuButton = MenuButtonAttributeList -type MenuButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("align-widget", MenuButtonAlignWidgetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("direction", MenuButtonDirectionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu-model", MenuButtonMenuModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popover", MenuButtonPopoverPropertyInfo), '("popup", MenuButtonPopupPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-popover", MenuButtonUsePopoverPropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuButton = MenuButtonSignalList -type MenuButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuButton::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -menuButtonGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_button_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method MenuButton::get_menu_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuButton::get_popover --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuButton::get_popup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuButton::get_use_popover --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -menuButtonGetUsePopover _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_button_get_use_popover _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MenuButton::set_align_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- align_widget - m () -menuButtonSetAlignWidget _obj align_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAlign_widget <- case align_widget of - Nothing -> return nullPtr - Just jAlign_widget -> do - let jAlign_widget' = unsafeManagedPtrCastPtr jAlign_widget - return jAlign_widget' - gtk_menu_button_set_align_widget _obj' maybeAlign_widget - touchManagedPtr _obj - whenJust align_widget touchManagedPtr - return () - --- method MenuButton::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "ArrowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuButtonSetDirection _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - gtk_menu_button_set_direction _obj' direction' - touchManagedPtr _obj - return () - --- method MenuButton::set_menu_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- menu_model - m () -menuButtonSetMenuModel _obj menu_model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMenu_model <- case menu_model of - Nothing -> return nullPtr - Just jMenu_model -> do - let jMenu_model' = unsafeManagedPtrCastPtr jMenu_model - return jMenu_model' - gtk_menu_button_set_menu_model _obj' maybeMenu_model - touchManagedPtr _obj - whenJust menu_model touchManagedPtr - return () - --- method MenuButton::set_popover --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popover", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method MenuButton::set_popup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method MenuButton::set_use_popover --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_popover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_popover - m () -menuButtonSetUsePopover _obj use_popover = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_popover' = (fromIntegral . fromEnum) use_popover - gtk_menu_button_set_use_popover _obj' use_popover' - touchManagedPtr _obj - return () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.MenuButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList MenuButtonAccessible = MenuButtonAccessibleAttributeList -type MenuButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuButtonAccessible = MenuButtonAccessibleSignalList -type MenuButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1167 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - menuItemActivate , - - --- ** menuItemDeselect - menuItemDeselect , - - --- ** menuItemGetAccelPath - menuItemGetAccelPath , - - --- ** menuItemGetLabel - menuItemGetLabel , - - --- ** menuItemGetReserveIndicator - menuItemGetReserveIndicator , - - --- ** menuItemGetRightJustified - menuItemGetRightJustified , - - --- ** menuItemGetSubmenu - menuItemGetSubmenu , - - --- ** menuItemGetUseUnderline - menuItemGetUseUnderline , - - --- ** menuItemNew - menuItemNew , - - --- ** menuItemNewWithLabel - menuItemNewWithLabel , - - --- ** menuItemNewWithMnemonic - menuItemNewWithMnemonic , - - --- ** menuItemSelect - menuItemSelect , - - --- ** menuItemSetAccelPath - menuItemSetAccelPath , - - --- ** menuItemSetLabel - menuItemSetLabel , - - --- ** menuItemSetReserveIndicator - menuItemSetReserveIndicator , - - --- ** menuItemSetRightJustified - menuItemSetRightJustified , - - --- ** menuItemSetSubmenu - menuItemSetSubmenu , - - --- ** menuItemSetUseUnderline - menuItemSetUseUnderline , - - --- ** menuItemToggleSizeAllocate - menuItemToggleSizeAllocate , - - --- ** menuItemToggleSizeRequest - menuItemToggleSizeRequest , - - - - - -- * Properties --- ** AccelPath - MenuItemAccelPathPropertyInfo , - constructMenuItemAccelPath , - getMenuItemAccelPath , - setMenuItemAccelPath , - - --- ** Label - MenuItemLabelPropertyInfo , - constructMenuItemLabel , - getMenuItemLabel , - setMenuItemLabel , - - --- ** RightJustified - MenuItemRightJustifiedPropertyInfo , - constructMenuItemRightJustified , - getMenuItemRightJustified , - setMenuItemRightJustified , - - --- ** Submenu - MenuItemSubmenuPropertyInfo , - constructMenuItemSubmenu , - getMenuItemSubmenu , - setMenuItemSubmenu , - - --- ** UseUnderline - MenuItemUseUnderlinePropertyInfo , - constructMenuItemUseUnderline , - getMenuItemUseUnderline , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> m T.Text -getMenuItemAccelPath obj = liftIO $ getObjectPropertyString obj "accel-path" - -setMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> T.Text -> m () -setMenuItemAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" val - -constructMenuItemAccelPath :: T.Text -> IO ([Char], GValue) -constructMenuItemAccelPath val = constructObjectPropertyString "accel-path" val - -data MenuItemAccelPathPropertyInfo -instance AttrInfo MenuItemAccelPathPropertyInfo where - type AttrAllowedOps MenuItemAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuItemAccelPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MenuItemAccelPathPropertyInfo = MenuItemK - type AttrGetType MenuItemAccelPathPropertyInfo = T.Text - type AttrLabel MenuItemAccelPathPropertyInfo = "MenuItem::accel-path" - attrGet _ = getMenuItemAccelPath - attrSet _ = setMenuItemAccelPath - attrConstruct _ = constructMenuItemAccelPath - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> m T.Text -getMenuItemLabel obj = liftIO $ getObjectPropertyString obj "label" - -setMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> T.Text -> m () -setMenuItemLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructMenuItemLabel :: T.Text -> IO ([Char], GValue) -constructMenuItemLabel val = constructObjectPropertyString "label" 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 = "MenuItem::label" - attrGet _ = getMenuItemLabel - attrSet _ = setMenuItemLabel - attrConstruct _ = constructMenuItemLabel - --- VVV Prop "right-justified" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "MenuItem::right-justified" - attrGet _ = getMenuItemRightJustified - attrSet _ = setMenuItemRightJustified - attrConstruct _ = constructMenuItemRightJustified - --- VVV Prop "submenu" - -- Type: TInterface "Gtk" "Menu" - -- Flags: [PropertyReadable,PropertyWritable] - -getMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m 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" val - -constructMenuItemSubmenu :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuItemSubmenu val = constructObjectPropertyObject "submenu" val - -data MenuItemSubmenuPropertyInfo -instance AttrInfo MenuItemSubmenuPropertyInfo where - type AttrAllowedOps MenuItemSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuItemSubmenuPropertyInfo = MenuK - type AttrBaseTypeConstraint MenuItemSubmenuPropertyInfo = MenuItemK - type AttrGetType MenuItemSubmenuPropertyInfo = Menu - type AttrLabel MenuItemSubmenuPropertyInfo = "MenuItem::submenu" - attrGet _ = getMenuItemSubmenu - attrSet _ = setMenuItemSubmenu - attrConstruct _ = constructMenuItemSubmenu - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "MenuItem::use-underline" - attrGet _ = getMenuItemUseUnderline - attrSet _ = setMenuItemUseUnderline - attrConstruct _ = constructMenuItemUseUnderline - -type instance AttributeList MenuItem = MenuItemAttributeList -type MenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuItemActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_item_activate _obj' - touchManagedPtr _obj - return () - --- method MenuItem::deselect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuItemDeselect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_item_deselect _obj' - touchManagedPtr _obj - return () - --- method MenuItem::get_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuItem::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuItem::get_reserve_indicator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -menuItemGetReserveIndicator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_reserve_indicator _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MenuItem::get_right_justified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -menuItemGetRightJustified _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_right_justified _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MenuItem::get_submenu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuItem::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -menuItemGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_item_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MenuItem::select --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuItemSelect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_item_select _obj' - touchManagedPtr _obj - return () - --- method MenuItem::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- accel_path - m () -menuItemSetAccelPath _obj accel_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_path <- case accel_path of - Nothing -> return nullPtr - Just jAccel_path -> do - jAccel_path' <- textToCString jAccel_path - return jAccel_path' - gtk_menu_item_set_accel_path _obj' maybeAccel_path - touchManagedPtr _obj - freeMem maybeAccel_path - return () - --- method MenuItem::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -menuItemSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - gtk_menu_item_set_label _obj' label' - touchManagedPtr _obj - freeMem label' - return () - --- method MenuItem::set_reserve_indicator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserve", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method MenuItem::set_right_justified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_justified", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- right_justified - m () -menuItemSetRightJustified _obj right_justified = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let right_justified' = (fromIntegral . fromEnum) right_justified - gtk_menu_item_set_right_justified _obj' right_justified' - touchManagedPtr _obj - return () - --- method MenuItem::set_submenu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "submenu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method MenuItem::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method MenuItem::toggle_size_allocate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_menu_item_toggle_size_allocate" gtk_menu_item_toggle_size_allocate :: - Ptr MenuItem -> -- _obj : TInterface "Gtk" "MenuItem" - Int32 -> -- allocation : TBasicType TInt32 - IO () - - -menuItemToggleSizeAllocate :: - (MonadIO m, MenuItemK a) => - a -> -- _obj - Int32 -> -- allocation - m () -menuItemToggleSizeAllocate _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_item_toggle_size_allocate _obj' allocation - touchManagedPtr _obj - return () - --- method MenuItem::toggle_size_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -menuItemToggleSizeRequest :: - (MonadIO m, MenuItemK a) => - a -> -- _obj - Int32 -> -- requisition - m (Int32) -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'' - - 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,24 +0,0 @@ -module GI.Gtk.Objects.MenuItem where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList MenuItemAccessible = MenuItemAccessibleAttributeList -type MenuItemAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuItemAccessible = MenuItemAccessibleSignalList -type MenuItemAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1011 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - menuShellActivateItem , - - --- ** menuShellAppend - menuShellAppend , - - --- ** menuShellBindModel - menuShellBindModel , - - --- ** menuShellCancel - menuShellCancel , - - --- ** menuShellDeactivate - menuShellDeactivate , - - --- ** menuShellDeselect - menuShellDeselect , - - --- ** menuShellGetParentShell - menuShellGetParentShell , - - --- ** menuShellGetSelectedItem - menuShellGetSelectedItem , - - --- ** menuShellGetTakeFocus - menuShellGetTakeFocus , - - --- ** menuShellInsert - menuShellInsert , - - --- ** menuShellPrepend - menuShellPrepend , - - --- ** menuShellSelectFirst - menuShellSelectFirst , - - --- ** menuShellSelectItem - menuShellSelectItem , - - --- ** menuShellSetTakeFocus - menuShellSetTakeFocus , - - - - - -- * Properties --- ** TakeFocus - MenuShellTakeFocusPropertyInfo , - constructMenuShellTakeFocus , - getMenuShellTakeFocus , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ force_hide _ = do - let force_hide' = (/= 0) force_hide - _cb force_hide' - -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] - -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 = "MenuShell::take-focus" - attrGet _ = getMenuShellTakeFocus - attrSet _ = setMenuShellTakeFocus - attrConstruct _ = constructMenuShellTakeFocus - -type instance AttributeList MenuShell = MenuShellAttributeList -type MenuShellAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuShell::activate_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "force_deactivate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- menu_item - Bool -> -- force_deactivate - m () -menuShellActivateItem _obj menu_item force_deactivate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let menu_item' = unsafeManagedPtrCastPtr menu_item - let force_deactivate' = (fromIntegral . fromEnum) force_deactivate - gtk_menu_shell_activate_item _obj' menu_item' force_deactivate' - touchManagedPtr _obj - touchManagedPtr menu_item - return () - --- method MenuShell::append --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuShellAppend _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_menu_shell_append _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method MenuShell::bind_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "with_separators", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- action_namespace - Bool -> -- with_separators - m () -menuShellBindModel _obj model action_namespace with_separators = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - maybeAction_namespace <- case action_namespace of - Nothing -> return nullPtr - Just jAction_namespace -> do - jAction_namespace' <- textToCString jAction_namespace - return jAction_namespace' - let with_separators' = (fromIntegral . fromEnum) with_separators - gtk_menu_shell_bind_model _obj' maybeModel maybeAction_namespace with_separators' - touchManagedPtr _obj - whenJust model touchManagedPtr - freeMem maybeAction_namespace - return () - --- method MenuShell::cancel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuShellCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_shell_cancel _obj' - touchManagedPtr _obj - return () - --- method MenuShell::deactivate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuShellDeactivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_shell_deactivate _obj' - touchManagedPtr _obj - return () - --- method MenuShell::deselect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuShellDeselect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_menu_shell_deselect _obj' - touchManagedPtr _obj - return () - --- method MenuShell::get_parent_shell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuShell::get_selected_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuShell::get_take_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -menuShellGetTakeFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_menu_shell_get_take_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MenuShell::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -menuShellInsert :: - (MonadIO m, MenuShellK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () -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 () - --- method MenuShell::prepend --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -menuShellPrepend _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_menu_shell_prepend _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method MenuShell::select_first --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- search_sensitive - m () -menuShellSelectFirst _obj search_sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let search_sensitive' = (fromIntegral . fromEnum) search_sensitive - gtk_menu_shell_select_first _obj' search_sensitive' - touchManagedPtr _obj - return () - --- method MenuShell::select_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- menu_item - m () -menuShellSelectItem _obj menu_item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let menu_item' = unsafeManagedPtrCastPtr menu_item - gtk_menu_shell_select_item _obj' menu_item' - touchManagedPtr _obj - touchManagedPtr menu_item - return () - --- method MenuShell::set_take_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuShell", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "take_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- take_focus - m () -menuShellSetTakeFocus _obj take_focus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let take_focus' = (fromIntegral . fromEnum) take_focus - gtk_menu_shell_set_take_focus _obj' take_focus' - touchManagedPtr _obj - return () - - 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,22 +0,0 @@ -module GI.Gtk.Objects.MenuShell where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList MenuShellAccessible = MenuShellAccessibleAttributeList -type MenuShellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MenuShellAccessible = MenuShellAccessibleSignalList -type MenuShellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,352 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - menuToolButtonGetMenu , - - --- ** menuToolButtonNew - menuToolButtonNew , - - --- ** menuToolButtonNewFromStock - menuToolButtonNewFromStock , - - --- ** menuToolButtonSetArrowTooltipMarkup - menuToolButtonSetArrowTooltipMarkup , - - --- ** menuToolButtonSetArrowTooltipText - menuToolButtonSetArrowTooltipText , - - --- ** menuToolButtonSetMenu - menuToolButtonSetMenu , - - - - - -- * Properties --- ** Menu - MenuToolButtonMenuPropertyInfo , - constructMenuToolButtonMenu , - getMenuToolButtonMenu , - setMenuToolButtonMenu , - - - - - -- * Signals --- ** ShowMenu - MenuToolButtonShowMenuCallback , - MenuToolButtonShowMenuCallbackC , - MenuToolButtonShowMenuSignalInfo , - afterMenuToolButtonShowMenu , - menuToolButtonShowMenuCallbackWrapper , - menuToolButtonShowMenuClosure , - mkMenuToolButtonShowMenuCallback , - noMenuToolButtonShowMenuCallback , - onMenuToolButtonShowMenu , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m 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" val - -constructMenuToolButtonMenu :: (MenuK a) => a -> IO ([Char], GValue) -constructMenuToolButtonMenu val = constructObjectPropertyObject "menu" val - -data MenuToolButtonMenuPropertyInfo -instance AttrInfo MenuToolButtonMenuPropertyInfo where - type AttrAllowedOps MenuToolButtonMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MenuToolButtonMenuPropertyInfo = MenuK - type AttrBaseTypeConstraint MenuToolButtonMenuPropertyInfo = MenuToolButtonK - type AttrGetType MenuToolButtonMenuPropertyInfo = Menu - type AttrLabel MenuToolButtonMenuPropertyInfo = "MenuToolButton::menu" - attrGet _ = getMenuToolButtonMenu - attrSet _ = setMenuToolButtonMenu - attrConstruct _ = constructMenuToolButtonMenu - -type instance AttributeList MenuToolButton = MenuToolButtonAttributeList -type MenuToolButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu", MenuToolButtonMenuPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data MenuToolButtonShowMenuSignalInfo -instance SignalInfo MenuToolButtonShowMenuSignalInfo where - type HaskellCallbackType MenuToolButtonShowMenuSignalInfo = MenuToolButtonShowMenuCallback - connectSignal _ = connectMenuToolButtonShowMenu - -type instance SignalList MenuToolButton = MenuToolButtonSignalList -type MenuToolButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("show-menu", MenuToolButtonShowMenuSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuToolButton::new --- method type : Constructor --- Args : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- icon_widget - Maybe (T.Text) -> -- label - m MenuToolButton -menuToolButtonNew icon_widget label = liftIO $ do - maybeIcon_widget <- case icon_widget of - Nothing -> return nullPtr - Just jIcon_widget -> do - let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget - return jIcon_widget' - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_menu_tool_button_new maybeIcon_widget maybeLabel - checkUnexpectedReturnNULL "gtk_menu_tool_button_new" result - result' <- (newObject MenuToolButton) result - whenJust icon_widget touchManagedPtr - freeMem maybeLabel - return result' - --- method MenuToolButton::new_from_stock --- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m MenuToolButton -menuToolButtonNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_menu_tool_button_new_from_stock stock_id' - checkUnexpectedReturnNULL "gtk_menu_tool_button_new_from_stock" result - result' <- (newObject MenuToolButton) result - freeMem stock_id' - return result' - --- method MenuToolButton::get_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MenuToolButton::set_arrow_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method MenuToolButton::set_arrow_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method MenuToolButton::set_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MenuToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.MenuToolButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,421 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - messageDialogGetImage , - - --- ** messageDialogGetMessageArea - messageDialogGetMessageArea , - - --- ** messageDialogSetImage - messageDialogSetImage , - - --- ** messageDialogSetMarkup - messageDialogSetMarkup , - - - - - -- * Properties --- ** Buttons - MessageDialogButtonsPropertyInfo , - constructMessageDialogButtons , - - --- ** Image - MessageDialogImagePropertyInfo , - constructMessageDialogImage , - getMessageDialogImage , - setMessageDialogImage , - - --- ** MessageArea - MessageDialogMessageAreaPropertyInfo , - getMessageDialogMessageArea , - - --- ** MessageType - MessageDialogMessageTypePropertyInfo , - constructMessageDialogMessageType , - getMessageDialogMessageType , - setMessageDialogMessageType , - - --- ** SecondaryText - MessageDialogSecondaryTextPropertyInfo , - constructMessageDialogSecondaryText , - getMessageDialogSecondaryText , - setMessageDialogSecondaryText , - - --- ** SecondaryUseMarkup - MessageDialogSecondaryUseMarkupPropertyInfo, - constructMessageDialogSecondaryUseMarkup, - getMessageDialogSecondaryUseMarkup , - setMessageDialogSecondaryUseMarkup , - - --- ** Text - MessageDialogTextPropertyInfo , - constructMessageDialogText , - getMessageDialogText , - setMessageDialogText , - - --- ** UseMarkup - MessageDialogUseMarkupPropertyInfo , - constructMessageDialogUseMarkup , - getMessageDialogUseMarkup , - setMessageDialogUseMarkup , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "buttons" - -- Type: TInterface "Gtk" "ButtonsType" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -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 = "MessageDialog::buttons" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructMessageDialogButtons - --- VVV Prop "image" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageDialogImage :: (MonadIO m, MessageDialogK o) => o -> m Widget -getMessageDialogImage obj = liftIO $ getObjectPropertyObject obj "image" Widget - -setMessageDialogImage :: (MonadIO m, MessageDialogK o, WidgetK a) => o -> a -> m () -setMessageDialogImage obj val = liftIO $ setObjectPropertyObject obj "image" val - -constructMessageDialogImage :: (WidgetK a) => a -> IO ([Char], GValue) -constructMessageDialogImage val = constructObjectPropertyObject "image" 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 = "MessageDialog::image" - attrGet _ = getMessageDialogImage - attrSet _ = setMessageDialogImage - attrConstruct _ = constructMessageDialogImage - --- VVV Prop "message-area" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable] - -getMessageDialogMessageArea :: (MonadIO m, MessageDialogK o) => o -> m Widget -getMessageDialogMessageArea obj = liftIO $ getObjectPropertyObject obj "message-area" Widget - -data MessageDialogMessageAreaPropertyInfo -instance AttrInfo MessageDialogMessageAreaPropertyInfo where - type AttrAllowedOps MessageDialogMessageAreaPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MessageDialogMessageAreaPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageDialogMessageAreaPropertyInfo = MessageDialogK - type AttrGetType MessageDialogMessageAreaPropertyInfo = Widget - type AttrLabel MessageDialogMessageAreaPropertyInfo = "MessageDialog::message-area" - attrGet _ = getMessageDialogMessageArea - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "message-type" - -- Type: TInterface "Gtk" "MessageType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "MessageDialog::message-type" - attrGet _ = getMessageDialogMessageType - attrSet _ = setMessageDialogMessageType - attrConstruct _ = constructMessageDialogMessageType - --- VVV Prop "secondary-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m 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" val - -constructMessageDialogSecondaryText :: T.Text -> IO ([Char], GValue) -constructMessageDialogSecondaryText val = constructObjectPropertyString "secondary-text" val - -data MessageDialogSecondaryTextPropertyInfo -instance AttrInfo MessageDialogSecondaryTextPropertyInfo where - type AttrAllowedOps MessageDialogSecondaryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageDialogSecondaryTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MessageDialogSecondaryTextPropertyInfo = MessageDialogK - type AttrGetType MessageDialogSecondaryTextPropertyInfo = T.Text - type AttrLabel MessageDialogSecondaryTextPropertyInfo = "MessageDialog::secondary-text" - attrGet _ = getMessageDialogSecondaryText - attrSet _ = setMessageDialogSecondaryText - attrConstruct _ = constructMessageDialogSecondaryText - --- VVV Prop "secondary-use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "MessageDialog::secondary-use-markup" - attrGet _ = getMessageDialogSecondaryUseMarkup - attrSet _ = setMessageDialogSecondaryUseMarkup - attrConstruct _ = constructMessageDialogSecondaryUseMarkup - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m T.Text -getMessageDialogText obj = liftIO $ getObjectPropertyString obj "text" - -setMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> T.Text -> m () -setMessageDialogText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructMessageDialogText :: T.Text -> IO ([Char], GValue) -constructMessageDialogText val = constructObjectPropertyString "text" val - -data MessageDialogTextPropertyInfo -instance AttrInfo MessageDialogTextPropertyInfo where - type AttrAllowedOps MessageDialogTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageDialogTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MessageDialogTextPropertyInfo = MessageDialogK - type AttrGetType MessageDialogTextPropertyInfo = T.Text - type AttrLabel MessageDialogTextPropertyInfo = "MessageDialog::text" - attrGet _ = getMessageDialogText - attrSet _ = setMessageDialogText - attrConstruct _ = constructMessageDialogText - --- VVV Prop "use-markup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "MessageDialog::use-markup" - attrGet _ = getMessageDialogUseMarkup - attrSet _ = setMessageDialogUseMarkup - attrConstruct _ = constructMessageDialogUseMarkup - -type instance AttributeList MessageDialog = MessageDialogAttributeList -type MessageDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("buttons", MessageDialogButtonsPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("image", MessageDialogImagePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("message-area", MessageDialogMessageAreaPropertyInfo), '("message-type", MessageDialogMessageTypePropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("secondary-text", MessageDialogSecondaryTextPropertyInfo), '("secondary-use-markup", MessageDialogSecondaryUseMarkupPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", MessageDialogTextPropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("use-markup", MessageDialogUseMarkupPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MessageDialog = MessageDialogSignalList -type MessageDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MessageDialog::get_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MessageDialog::get_message_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MessageDialog::set_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method MessageDialog::set_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MessageDialog", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -messageDialogSetMarkup _obj str = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - gtk_message_dialog_set_markup _obj' str' - touchManagedPtr _obj - freeMem str' - return () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.MessageDialog where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.Misc - ( - --- * Exported types - Misc(..) , - MiscK , - toMisc , - noMisc , - - - -- * Methods --- ** miscGetAlignment - miscGetAlignment , - - --- ** miscGetPadding - miscGetPadding , - - --- ** miscSetAlignment - miscSetAlignment , - - --- ** miscSetPadding - miscSetPadding , - - - - - -- * Properties --- ** Xalign - MiscXalignPropertyInfo , - constructMiscXalign , - getMiscXalign , - setMiscXalign , - - --- ** Xpad - MiscXpadPropertyInfo , - constructMiscXpad , - getMiscXpad , - setMiscXpad , - - --- ** Yalign - MiscYalignPropertyInfo , - constructMiscYalign , - getMiscYalign , - setMiscYalign , - - --- ** Ypad - MiscYpadPropertyInfo , - constructMiscYpad , - getMiscYpad , - setMiscYpad , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "xalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Misc::xalign" - attrGet _ = getMiscXalign - attrSet _ = setMiscXalign - attrConstruct _ = constructMiscXalign - --- VVV Prop "xpad" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getMiscXpad :: (MonadIO m, MiscK o) => o -> m Int32 -getMiscXpad obj = liftIO $ getObjectPropertyCInt obj "xpad" - -setMiscXpad :: (MonadIO m, MiscK o) => o -> Int32 -> m () -setMiscXpad obj val = liftIO $ setObjectPropertyCInt obj "xpad" val - -constructMiscXpad :: Int32 -> IO ([Char], GValue) -constructMiscXpad val = constructObjectPropertyCInt "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 = "Misc::xpad" - attrGet _ = getMiscXpad - attrSet _ = setMiscXpad - attrConstruct _ = constructMiscXpad - --- VVV Prop "yalign" - -- Type: TBasicType TFloat - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Misc::yalign" - attrGet _ = getMiscYalign - attrSet _ = setMiscYalign - attrConstruct _ = constructMiscYalign - --- VVV Prop "ypad" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getMiscYpad :: (MonadIO m, MiscK o) => o -> m Int32 -getMiscYpad obj = liftIO $ getObjectPropertyCInt obj "ypad" - -setMiscYpad :: (MonadIO m, MiscK o) => o -> Int32 -> m () -setMiscYpad obj val = liftIO $ setObjectPropertyCInt obj "ypad" val - -constructMiscYpad :: Int32 -> IO ([Char], GValue) -constructMiscYpad val = constructObjectPropertyCInt "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 = "Misc::ypad" - attrGet _ = getMiscYpad - attrSet _ = setMiscYpad - attrConstruct _ = constructMiscYpad - -type instance AttributeList Misc = MiscAttributeList -type MiscAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Misc = MiscSignalList -type MiscSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Misc::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method Misc::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- ypad : TBasicType TInt32 - IO () - -{-# DEPRECATED miscGetPadding ["(Since version 3.14)","Use #GtkWidget alignment and margin properties."]#-} -miscGetPadding :: - (MonadIO m, MiscK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method Misc::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Misc::set_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Misc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypad", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_misc_set_padding" gtk_misc_set_padding :: - Ptr Misc -> -- _obj : TInterface "Gtk" "Misc" - Int32 -> -- xpad : TBasicType TInt32 - Int32 -> -- ypad : TBasicType TInt32 - 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 () -miscSetPadding _obj xpad ypad = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_misc_set_padding _obj' xpad ypad - touchManagedPtr _obj - return () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.Misc where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,340 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - setModelButtonActive , - - --- ** Centered - ModelButtonCenteredPropertyInfo , - constructModelButtonCentered , - getModelButtonCentered , - setModelButtonCentered , - - --- ** Icon - ModelButtonIconPropertyInfo , - constructModelButtonIcon , - getModelButtonIcon , - setModelButtonIcon , - - --- ** Iconic - ModelButtonIconicPropertyInfo , - constructModelButtonIconic , - getModelButtonIconic , - setModelButtonIconic , - - --- ** Inverted - ModelButtonInvertedPropertyInfo , - constructModelButtonInverted , - getModelButtonInverted , - setModelButtonInverted , - - --- ** MenuName - ModelButtonMenuNamePropertyInfo , - constructModelButtonMenuName , - getModelButtonMenuName , - setModelButtonMenuName , - - --- ** Role - ModelButtonRolePropertyInfo , - constructModelButtonRole , - getModelButtonRole , - setModelButtonRole , - - --- ** Text - ModelButtonTextPropertyInfo , - constructModelButtonText , - getModelButtonText , - setModelButtonText , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ModelButton::active" - attrGet _ = getModelButtonActive - attrSet _ = setModelButtonActive - attrConstruct _ = constructModelButtonActive - --- VVV Prop "centered" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ModelButton::centered" - attrGet _ = getModelButtonCentered - attrSet _ = setModelButtonCentered - attrConstruct _ = constructModelButtonCentered - --- VVV Prop "icon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m 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" val - -constructModelButtonIcon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructModelButtonIcon val = constructObjectPropertyObject "icon" val - -data ModelButtonIconPropertyInfo -instance AttrInfo ModelButtonIconPropertyInfo where - type AttrAllowedOps ModelButtonIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ModelButtonIconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint ModelButtonIconPropertyInfo = ModelButtonK - type AttrGetType ModelButtonIconPropertyInfo = Gio.Icon - type AttrLabel ModelButtonIconPropertyInfo = "ModelButton::icon" - attrGet _ = getModelButtonIcon - attrSet _ = setModelButtonIcon - attrConstruct _ = constructModelButtonIcon - --- VVV Prop "iconic" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ModelButton::iconic" - attrGet _ = getModelButtonIconic - attrSet _ = setModelButtonIconic - attrConstruct _ = constructModelButtonIconic - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ModelButton::inverted" - attrGet _ = getModelButtonInverted - attrSet _ = setModelButtonInverted - attrConstruct _ = constructModelButtonInverted - --- VVV Prop "menu-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m 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" val - -constructModelButtonMenuName :: T.Text -> IO ([Char], GValue) -constructModelButtonMenuName val = constructObjectPropertyString "menu-name" val - -data ModelButtonMenuNamePropertyInfo -instance AttrInfo ModelButtonMenuNamePropertyInfo where - type AttrAllowedOps ModelButtonMenuNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ModelButtonMenuNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ModelButtonMenuNamePropertyInfo = ModelButtonK - type AttrGetType ModelButtonMenuNamePropertyInfo = T.Text - type AttrLabel ModelButtonMenuNamePropertyInfo = "ModelButton::menu-name" - attrGet _ = getModelButtonMenuName - attrSet _ = setModelButtonMenuName - attrConstruct _ = constructModelButtonMenuName - --- VVV Prop "role" - -- Type: TInterface "Gtk" "ButtonRole" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ModelButton::role" - attrGet _ = getModelButtonRole - attrSet _ = setModelButtonRole - attrConstruct _ = constructModelButtonRole - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m T.Text -getModelButtonText obj = liftIO $ getObjectPropertyString obj "text" - -setModelButtonText :: (MonadIO m, ModelButtonK o) => o -> T.Text -> m () -setModelButtonText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructModelButtonText :: T.Text -> IO ([Char], GValue) -constructModelButtonText val = constructObjectPropertyString "text" val - -data ModelButtonTextPropertyInfo -instance AttrInfo ModelButtonTextPropertyInfo where - type AttrAllowedOps ModelButtonTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ModelButtonTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ModelButtonTextPropertyInfo = ModelButtonK - type AttrGetType ModelButtonTextPropertyInfo = T.Text - type AttrLabel ModelButtonTextPropertyInfo = "ModelButton::text" - attrGet _ = getModelButtonText - attrSet _ = setModelButtonText - attrConstruct _ = constructModelButtonText - -type instance AttributeList ModelButton = ModelButtonAttributeList -type ModelButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ModelButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("centered", ModelButtonCenteredPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon", ModelButtonIconPropertyInfo), '("iconic", ModelButtonIconicPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inverted", ModelButtonInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu-name", ModelButtonMenuNamePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", ModelButtonRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ModelButtonTextPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ModelButton = ModelButtonSignalList -type ModelButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ModelButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,342 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - mountOperationGetParent , - - --- ** mountOperationGetScreen - mountOperationGetScreen , - - --- ** mountOperationIsShowing - mountOperationIsShowing , - - --- ** mountOperationNew - mountOperationNew , - - --- ** mountOperationSetParent - mountOperationSetParent , - - --- ** mountOperationSetScreen - mountOperationSetScreen , - - - - - -- * Properties --- ** IsShowing - MountOperationIsShowingPropertyInfo , - getMountOperationIsShowing , - - --- ** Parent - MountOperationParentPropertyInfo , - constructMountOperationParent , - getMountOperationParent , - setMountOperationParent , - - --- ** Screen - MountOperationScreenPropertyInfo , - constructMountOperationScreen , - getMountOperationScreen , - setMountOperationScreen , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "is-showing" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "MountOperation::is-showing" - attrGet _ = getMountOperationIsShowing - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "parent" - -- Type: TInterface "Gtk" "Window" - -- Flags: [PropertyReadable,PropertyWritable] - -getMountOperationParent :: (MonadIO m, MountOperationK o) => o -> m Window -getMountOperationParent obj = liftIO $ getObjectPropertyObject obj "parent" Window - -setMountOperationParent :: (MonadIO m, MountOperationK o, WindowK a) => o -> a -> m () -setMountOperationParent obj val = liftIO $ setObjectPropertyObject obj "parent" val - -constructMountOperationParent :: (WindowK a) => a -> IO ([Char], GValue) -constructMountOperationParent val = constructObjectPropertyObject "parent" val - -data MountOperationParentPropertyInfo -instance AttrInfo MountOperationParentPropertyInfo where - type AttrAllowedOps MountOperationParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MountOperationParentPropertyInfo = WindowK - type AttrBaseTypeConstraint MountOperationParentPropertyInfo = MountOperationK - type AttrGetType MountOperationParentPropertyInfo = Window - type AttrLabel MountOperationParentPropertyInfo = "MountOperation::parent" - attrGet _ = getMountOperationParent - attrSet _ = setMountOperationParent - attrConstruct _ = constructMountOperationParent - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -getMountOperationScreen :: (MonadIO m, MountOperationK o) => o -> m Gdk.Screen -getMountOperationScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen - -setMountOperationScreen :: (MonadIO m, MountOperationK o, Gdk.ScreenK a) => o -> a -> m () -setMountOperationScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val - -constructMountOperationScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructMountOperationScreen val = constructObjectPropertyObject "screen" 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 = "MountOperation::screen" - attrGet _ = getMountOperationScreen - attrSet _ = setMountOperationScreen - attrConstruct _ = constructMountOperationScreen - -type instance AttributeList MountOperation = MountOperationAttributeList -type MountOperationAttributeList = ('[ '("anonymous", Gio.MountOperationAnonymousPropertyInfo), '("choice", Gio.MountOperationChoicePropertyInfo), '("domain", Gio.MountOperationDomainPropertyInfo), '("is-showing", MountOperationIsShowingPropertyInfo), '("parent", MountOperationParentPropertyInfo), '("password", Gio.MountOperationPasswordPropertyInfo), '("password-save", Gio.MountOperationPasswordSavePropertyInfo), '("screen", MountOperationScreenPropertyInfo), '("username", Gio.MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MountOperation = MountOperationSignalList -type MountOperationSignalList = ('[ '("aborted", Gio.MountOperationAbortedSignalInfo), '("ask-password", Gio.MountOperationAskPasswordSignalInfo), '("ask-question", Gio.MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", Gio.MountOperationReplySignalInfo), '("show-processes", Gio.MountOperationShowProcessesSignalInfo), '("show-unmount-progress", Gio.MountOperationShowUnmountProgressSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MountOperation::new --- method type : Constructor --- Args : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MountOperation::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method MountOperation::is_showing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -mountOperationIsShowing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_mount_operation_is_showing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MountOperation::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method MountOperation::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.MountOperation where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,2412 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - notebookAppendPage , - - --- ** notebookAppendPageMenu - notebookAppendPageMenu , - - --- ** notebookDetachTab - notebookDetachTab , - - --- ** notebookGetActionWidget - notebookGetActionWidget , - - --- ** notebookGetCurrentPage - notebookGetCurrentPage , - - --- ** notebookGetGroupName - notebookGetGroupName , - - --- ** notebookGetMenuLabel - notebookGetMenuLabel , - - --- ** notebookGetMenuLabelText - notebookGetMenuLabelText , - - --- ** notebookGetNPages - notebookGetNPages , - - --- ** notebookGetNthPage - notebookGetNthPage , - - --- ** notebookGetScrollable - notebookGetScrollable , - - --- ** notebookGetShowBorder - notebookGetShowBorder , - - --- ** notebookGetShowTabs - notebookGetShowTabs , - - --- ** notebookGetTabDetachable - notebookGetTabDetachable , - - --- ** notebookGetTabHborder - notebookGetTabHborder , - - --- ** notebookGetTabLabel - notebookGetTabLabel , - - --- ** notebookGetTabLabelText - notebookGetTabLabelText , - - --- ** notebookGetTabPos - notebookGetTabPos , - - --- ** notebookGetTabReorderable - notebookGetTabReorderable , - - --- ** notebookGetTabVborder - notebookGetTabVborder , - - --- ** notebookInsertPage - notebookInsertPage , - - --- ** notebookInsertPageMenu - notebookInsertPageMenu , - - --- ** notebookNew - notebookNew , - - --- ** notebookNextPage - notebookNextPage , - - --- ** notebookPageNum - notebookPageNum , - - --- ** notebookPopupDisable - notebookPopupDisable , - - --- ** notebookPopupEnable - notebookPopupEnable , - - --- ** notebookPrependPage - notebookPrependPage , - - --- ** notebookPrependPageMenu - notebookPrependPageMenu , - - --- ** notebookPrevPage - notebookPrevPage , - - --- ** notebookRemovePage - notebookRemovePage , - - --- ** notebookReorderChild - notebookReorderChild , - - --- ** notebookSetActionWidget - notebookSetActionWidget , - - --- ** notebookSetCurrentPage - notebookSetCurrentPage , - - --- ** notebookSetGroupName - notebookSetGroupName , - - --- ** notebookSetMenuLabel - notebookSetMenuLabel , - - --- ** notebookSetMenuLabelText - notebookSetMenuLabelText , - - --- ** notebookSetScrollable - notebookSetScrollable , - - --- ** notebookSetShowBorder - notebookSetShowBorder , - - --- ** notebookSetShowTabs - notebookSetShowTabs , - - --- ** notebookSetTabDetachable - notebookSetTabDetachable , - - --- ** notebookSetTabLabel - notebookSetTabLabel , - - --- ** notebookSetTabLabelText - notebookSetTabLabelText , - - --- ** notebookSetTabPos - notebookSetTabPos , - - --- ** notebookSetTabReorderable - notebookSetTabReorderable , - - - - - -- * Properties --- ** EnablePopup - NotebookEnablePopupPropertyInfo , - constructNotebookEnablePopup , - getNotebookEnablePopup , - setNotebookEnablePopup , - - --- ** GroupName - NotebookGroupNamePropertyInfo , - constructNotebookGroupName , - getNotebookGroupName , - setNotebookGroupName , - - --- ** Page - NotebookPagePropertyInfo , - constructNotebookPage , - getNotebookPage , - setNotebookPage , - - --- ** Scrollable - NotebookScrollablePropertyInfo , - constructNotebookScrollable , - getNotebookScrollable , - setNotebookScrollable , - - --- ** ShowBorder - NotebookShowBorderPropertyInfo , - constructNotebookShowBorder , - getNotebookShowBorder , - setNotebookShowBorder , - - --- ** ShowTabs - NotebookShowTabsPropertyInfo , - constructNotebookShowTabs , - getNotebookShowTabs , - setNotebookShowTabs , - - --- ** TabPos - NotebookTabPosPropertyInfo , - constructNotebookTabPos , - getNotebookTabPos , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 page_num _ = do - child' <- (newObject Widget) child - _cb child' page_num - -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 page_num _ = do - child' <- (newObject Widget) child - _cb child' page_num - -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 page_num _ = do - child' <- (newObject Widget) child - _cb child' page_num - -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 page_num _ = do - page' <- (newObject Widget) page - _cb page' page_num - -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] - -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 = "Notebook::enable-popup" - attrGet _ = getNotebookEnablePopup - attrSet _ = setNotebookEnablePopup - attrConstruct _ = constructNotebookEnablePopup - --- VVV Prop "group-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m T.Text -getNotebookGroupName obj = liftIO $ getObjectPropertyString obj "group-name" - -setNotebookGroupName :: (MonadIO m, NotebookK o) => o -> T.Text -> m () -setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" val - -constructNotebookGroupName :: T.Text -> IO ([Char], GValue) -constructNotebookGroupName val = constructObjectPropertyString "group-name" val - -data NotebookGroupNamePropertyInfo -instance AttrInfo NotebookGroupNamePropertyInfo where - type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = NotebookK - type AttrGetType NotebookGroupNamePropertyInfo = T.Text - type AttrLabel NotebookGroupNamePropertyInfo = "Notebook::group-name" - attrGet _ = getNotebookGroupName - attrSet _ = setNotebookGroupName - attrConstruct _ = constructNotebookGroupName - --- VVV Prop "page" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getNotebookPage :: (MonadIO m, NotebookK o) => o -> m Int32 -getNotebookPage obj = liftIO $ getObjectPropertyCInt obj "page" - -setNotebookPage :: (MonadIO m, NotebookK o) => o -> Int32 -> m () -setNotebookPage obj val = liftIO $ setObjectPropertyCInt obj "page" val - -constructNotebookPage :: Int32 -> IO ([Char], GValue) -constructNotebookPage val = constructObjectPropertyCInt "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 = "Notebook::page" - attrGet _ = getNotebookPage - attrSet _ = setNotebookPage - attrConstruct _ = constructNotebookPage - --- VVV Prop "scrollable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Notebook::scrollable" - attrGet _ = getNotebookScrollable - attrSet _ = setNotebookScrollable - attrConstruct _ = constructNotebookScrollable - --- VVV Prop "show-border" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Notebook::show-border" - attrGet _ = getNotebookShowBorder - attrSet _ = setNotebookShowBorder - attrConstruct _ = constructNotebookShowBorder - --- VVV Prop "show-tabs" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Notebook::show-tabs" - attrGet _ = getNotebookShowTabs - attrSet _ = setNotebookShowTabs - attrConstruct _ = constructNotebookShowTabs - --- VVV Prop "tab-pos" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Notebook::tab-pos" - attrGet _ = getNotebookTabPos - attrSet _ = setNotebookTabPos - attrConstruct _ = constructNotebookTabPos - -type instance AttributeList Notebook = NotebookAttributeList -type NotebookAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("enable-popup", NotebookEnablePopupPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group-name", NotebookGroupNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("page", NotebookPagePropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scrollable", NotebookScrollablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-border", NotebookShowBorderPropertyInfo), '("show-tabs", NotebookShowTabsPropertyInfo), '("style", WidgetStylePropertyInfo), '("tab-pos", NotebookTabPosPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-current-page", NotebookChangeCurrentPageSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-window", NotebookCreateWindowSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("focus-tab", NotebookFocusTabSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", NotebookMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("page-added", NotebookPageAddedSignalInfo), '("page-removed", NotebookPageRemovedSignalInfo), '("page-reordered", NotebookPageReorderedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("reorder-tab", NotebookReorderTabSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-page", NotebookSelectPageSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("switch-page", NotebookSwitchPageSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Notebook::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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) -> -- tab_label - m Int32 -notebookAppendPage _obj child tab_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - result <- gtk_notebook_append_page _obj' child' maybeTab_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - return result - --- method Notebook::append_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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) -> -- tab_label - Maybe (d) -> -- menu_label - m Int32 -notebookAppendPageMenu _obj child tab_label menu_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - maybeMenu_label <- case menu_label of - Nothing -> return nullPtr - Just jMenu_label -> do - let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label - return jMenu_label' - result <- gtk_notebook_append_page_menu _obj' child' maybeTab_label maybeMenu_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - whenJust menu_label touchManagedPtr - return result - --- method Notebook::detach_tab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -notebookDetachTab _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_notebook_detach_tab _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Notebook::get_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- pack_type - m Widget -notebookGetActionWidget _obj pack_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pack_type' = (fromIntegral . fromEnum) pack_type - result <- gtk_notebook_get_action_widget _obj' pack_type' - checkUnexpectedReturnNULL "gtk_notebook_get_action_widget" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Notebook::get_current_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -notebookGetCurrentPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_current_page _obj' - touchManagedPtr _obj - return result - --- method Notebook::get_group_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Notebook::get_menu_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Notebook::get_menu_label_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Notebook::get_n_pages --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -notebookGetNPages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_n_pages _obj' - touchManagedPtr _obj - return result - --- method Notebook::get_nth_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Widget) - - -notebookGetNthPage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Int32 -> -- page_num - m Widget -notebookGetNthPage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_nth_page _obj' page_num - checkUnexpectedReturnNULL "gtk_notebook_get_nth_page" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Notebook::get_scrollable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -notebookGetScrollable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_scrollable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Notebook::get_show_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -notebookGetShowBorder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_show_border _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Notebook::get_show_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -notebookGetShowTabs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_show_tabs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Notebook::get_tab_detachable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Notebook::get_tab_hborder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -notebookGetTabHborder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_hborder _obj' - touchManagedPtr _obj - return result - --- method Notebook::get_tab_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Notebook::get_tab_label_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Notebook::get_tab_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -notebookGetTabPos _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_pos _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Notebook::get_tab_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Notebook::get_tab_vborder --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -notebookGetTabVborder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_notebook_get_tab_vborder _obj' - touchManagedPtr _obj - return result - --- method Notebook::insert_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - IO Int32 - - -notebookInsertPage :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - Int32 -> -- position - m Int32 -notebookInsertPage _obj child tab_label position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - result <- gtk_notebook_insert_page _obj' child' maybeTab_label position - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - return result - --- method Notebook::insert_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - IO Int32 - - -notebookInsertPageMenu :: - (MonadIO m, NotebookK a, WidgetK b, WidgetK c, WidgetK d) => - a -> -- _obj - b -> -- child - Maybe (c) -> -- tab_label - Maybe (d) -> -- menu_label - Int32 -> -- position - m Int32 -notebookInsertPageMenu _obj child tab_label menu_label position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - maybeMenu_label <- case menu_label of - Nothing -> return nullPtr - Just jMenu_label -> do - let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label - return jMenu_label' - result <- gtk_notebook_insert_page_menu _obj' child' maybeTab_label maybeMenu_label position - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - whenJust menu_label touchManagedPtr - return result - --- method Notebook::next_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -notebookNextPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_next_page _obj' - touchManagedPtr _obj - return () - --- method Notebook::page_num --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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 - --- method Notebook::popup_disable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -notebookPopupDisable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_popup_disable _obj' - touchManagedPtr _obj - return () - --- method Notebook::popup_enable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -notebookPopupEnable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_popup_enable _obj' - touchManagedPtr _obj - return () - --- method Notebook::prepend_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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) -> -- tab_label - m Int32 -notebookPrependPage _obj child tab_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - result <- gtk_notebook_prepend_page _obj' child' maybeTab_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - return result - --- method Notebook::prepend_page_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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) -> -- tab_label - Maybe (d) -> -- menu_label - m Int32 -notebookPrependPageMenu _obj child tab_label menu_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - maybeMenu_label <- case menu_label of - Nothing -> return nullPtr - Just jMenu_label -> do - let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label - return jMenu_label' - result <- gtk_notebook_prepend_page_menu _obj' child' maybeTab_label maybeMenu_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - whenJust menu_label touchManagedPtr - return result - --- method Notebook::prev_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -notebookPrevPage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_prev_page _obj' - touchManagedPtr _obj - return () - --- method Notebook::remove_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_remove_page" gtk_notebook_remove_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt32 - IO () - - -notebookRemovePage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Int32 -> -- page_num - m () -notebookRemovePage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_remove_page _obj' page_num - touchManagedPtr _obj - return () - --- method Notebook::reorder_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -notebookReorderChild :: - (MonadIO m, NotebookK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- position - m () -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 () - --- method Notebook::set_action_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pack_type", argType = TInterface "Gtk" "PackType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- pack_type - m () -notebookSetActionWidget _obj widget pack_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - let pack_type' = (fromIntegral . fromEnum) pack_type - gtk_notebook_set_action_widget _obj' widget' pack_type' - touchManagedPtr _obj - touchManagedPtr widget - return () - --- method Notebook::set_current_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_notebook_set_current_page" gtk_notebook_set_current_page :: - Ptr Notebook -> -- _obj : TInterface "Gtk" "Notebook" - Int32 -> -- page_num : TBasicType TInt32 - IO () - - -notebookSetCurrentPage :: - (MonadIO m, NotebookK a) => - a -> -- _obj - Int32 -> -- page_num - m () -notebookSetCurrentPage _obj page_num = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_set_current_page _obj' page_num - touchManagedPtr _obj - return () - --- method Notebook::set_group_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- group_name - m () -notebookSetGroupName _obj group_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - gtk_notebook_set_group_name _obj' maybeGroup_name - touchManagedPtr _obj - freeMem maybeGroup_name - return () - --- method Notebook::set_menu_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- menu_label - m () -notebookSetMenuLabel _obj child menu_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeMenu_label <- case menu_label of - Nothing -> return nullPtr - Just jMenu_label -> do - let jMenu_label' = unsafeManagedPtrCastPtr jMenu_label - return jMenu_label' - gtk_notebook_set_menu_label _obj' child' maybeMenu_label - touchManagedPtr _obj - touchManagedPtr child - whenJust menu_label touchManagedPtr - return () - --- method Notebook::set_menu_label_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- menu_text - m () -notebookSetMenuLabelText _obj child menu_text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - menu_text' <- textToCString menu_text - gtk_notebook_set_menu_label_text _obj' child' menu_text' - touchManagedPtr _obj - touchManagedPtr child - freeMem menu_text' - return () - --- method Notebook::set_scrollable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scrollable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -notebookSetScrollable _obj scrollable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let scrollable' = (fromIntegral . fromEnum) scrollable - gtk_notebook_set_scrollable _obj' scrollable' - touchManagedPtr _obj - return () - --- method Notebook::set_show_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_border", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_border - m () -notebookSetShowBorder _obj show_border = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_border' = (fromIntegral . fromEnum) show_border - gtk_notebook_set_show_border _obj' show_border' - touchManagedPtr _obj - return () - --- method Notebook::set_show_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_tabs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_tabs - m () -notebookSetShowTabs _obj show_tabs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_tabs' = (fromIntegral . fromEnum) show_tabs - gtk_notebook_set_show_tabs _obj' show_tabs' - touchManagedPtr _obj - return () - --- method Notebook::set_tab_detachable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detachable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Notebook::set_tab_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- tab_label - m () -notebookSetTabLabel _obj child tab_label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - maybeTab_label <- case tab_label of - Nothing -> return nullPtr - Just jTab_label -> do - let jTab_label' = unsafeManagedPtrCastPtr jTab_label - return jTab_label' - gtk_notebook_set_tab_label _obj' child' maybeTab_label - touchManagedPtr _obj - touchManagedPtr child - whenJust tab_label touchManagedPtr - return () - --- method Notebook::set_tab_label_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- tab_text - m () -notebookSetTabLabelText _obj child tab_text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - tab_text' <- textToCString tab_text - gtk_notebook_set_tab_label_text _obj' child' tab_text' - touchManagedPtr _obj - touchManagedPtr child - freeMem tab_text' - return () - --- method Notebook::set_tab_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -notebookSetTabPos _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pos' = (fromIntegral . fromEnum) pos - gtk_notebook_set_tab_pos _obj' pos' - touchManagedPtr _obj - return () - --- method Notebook::set_tab_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Notebook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,30 +0,0 @@ -module GI.Gtk.Objects.Notebook where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList NotebookAccessible = NotebookAccessibleAttributeList -type NotebookAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList NotebookAccessible = NotebookAccessibleSignalList -type NotebookAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,124 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - notebookPageAccessibleInvalidate , - - --- ** notebookPageAccessibleNew - notebookPageAccessibleNew , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList NotebookPageAccessible = NotebookPageAccessibleAttributeList -type NotebookPageAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList NotebookPageAccessible = NotebookPageAccessibleSignalList -type NotebookPageAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method NotebookPageAccessible::new --- method type : Constructor --- Args : [Arg {argName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "notebook", argType = TInterface "Gtk" "NotebookAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NotebookPageAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -notebookPageAccessibleInvalidate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_notebook_page_accessible_invalidate _obj' - touchManagedPtr _obj - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.NotebookPageAccessible where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NotebookPageAccessible = NotebookPageAccessible (ForeignPtr NotebookPageAccessible) -instance GObject NotebookPageAccessible where -class GObject o => NotebookPageAccessibleK o -instance (GObject o, IsDescendantOf NotebookPageAccessible o) => NotebookPageAccessibleK o 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,602 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - numerableIconGetBackgroundGicon , - - --- ** numerableIconGetBackgroundIconName - numerableIconGetBackgroundIconName , - - --- ** numerableIconGetCount - numerableIconGetCount , - - --- ** numerableIconGetLabel - numerableIconGetLabel , - - --- ** numerableIconGetStyleContext - numerableIconGetStyleContext , - - --- ** numerableIconNew - numerableIconNew , - - --- ** numerableIconNewWithStyleContext - numerableIconNewWithStyleContext , - - --- ** numerableIconSetBackgroundGicon - numerableIconSetBackgroundGicon , - - --- ** numerableIconSetBackgroundIconName - numerableIconSetBackgroundIconName , - - --- ** numerableIconSetCount - numerableIconSetCount , - - --- ** numerableIconSetLabel - numerableIconSetLabel , - - --- ** numerableIconSetStyleContext - numerableIconSetStyleContext , - - - - - -- * Properties --- ** BackgroundIcon - NumerableIconBackgroundIconPropertyInfo , - constructNumerableIconBackgroundIcon , - getNumerableIconBackgroundIcon , - setNumerableIconBackgroundIcon , - - --- ** BackgroundIconName - NumerableIconBackgroundIconNamePropertyInfo, - constructNumerableIconBackgroundIconName, - getNumerableIconBackgroundIconName , - setNumerableIconBackgroundIconName , - - --- ** Count - NumerableIconCountPropertyInfo , - constructNumerableIconCount , - getNumerableIconCount , - setNumerableIconCount , - - --- ** Label - NumerableIconLabelPropertyInfo , - constructNumerableIconLabel , - getNumerableIconLabel , - setNumerableIconLabel , - - --- ** StyleContext - NumerableIconStyleContextPropertyInfo , - constructNumerableIconStyleContext , - getNumerableIconStyleContext , - setNumerableIconStyleContext , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "background-icon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m 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" val - -constructNumerableIconBackgroundIcon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" val - -data NumerableIconBackgroundIconPropertyInfo -instance AttrInfo NumerableIconBackgroundIconPropertyInfo where - type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NumerableIconBackgroundIconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint NumerableIconBackgroundIconPropertyInfo = NumerableIconK - type AttrGetType NumerableIconBackgroundIconPropertyInfo = Gio.Icon - type AttrLabel NumerableIconBackgroundIconPropertyInfo = "NumerableIcon::background-icon" - attrGet _ = getNumerableIconBackgroundIcon - attrSet _ = setNumerableIconBackgroundIcon - attrConstruct _ = constructNumerableIconBackgroundIcon - --- VVV Prop "background-icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m T.Text -getNumerableIconBackgroundIconName obj = liftIO $ getObjectPropertyString obj "background-icon-name" - -setNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m () -setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" val - -constructNumerableIconBackgroundIconName :: T.Text -> IO ([Char], GValue) -constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" val - -data NumerableIconBackgroundIconNamePropertyInfo -instance AttrInfo NumerableIconBackgroundIconNamePropertyInfo where - type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = NumerableIconK - type AttrGetType NumerableIconBackgroundIconNamePropertyInfo = T.Text - type AttrLabel NumerableIconBackgroundIconNamePropertyInfo = "NumerableIcon::background-icon-name" - attrGet _ = getNumerableIconBackgroundIconName - attrSet _ = setNumerableIconBackgroundIconName - attrConstruct _ = constructNumerableIconBackgroundIconName - --- VVV Prop "count" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> m Int32 -getNumerableIconCount obj = liftIO $ getObjectPropertyCInt obj "count" - -setNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> Int32 -> m () -setNumerableIconCount obj val = liftIO $ setObjectPropertyCInt obj "count" val - -constructNumerableIconCount :: Int32 -> IO ([Char], GValue) -constructNumerableIconCount val = constructObjectPropertyCInt "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 = "NumerableIcon::count" - attrGet _ = getNumerableIconCount - attrSet _ = setNumerableIconCount - attrConstruct _ = constructNumerableIconCount - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m T.Text -getNumerableIconLabel obj = liftIO $ getObjectPropertyString obj "label" - -setNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m () -setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructNumerableIconLabel :: T.Text -> IO ([Char], GValue) -constructNumerableIconLabel val = constructObjectPropertyString "label" val - -data NumerableIconLabelPropertyInfo -instance AttrInfo NumerableIconLabelPropertyInfo where - type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NumerableIconLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NumerableIconLabelPropertyInfo = NumerableIconK - type AttrGetType NumerableIconLabelPropertyInfo = T.Text - type AttrLabel NumerableIconLabelPropertyInfo = "NumerableIcon::label" - attrGet _ = getNumerableIconLabel - attrSet _ = setNumerableIconLabel - attrConstruct _ = constructNumerableIconLabel - --- VVV Prop "style-context" - -- Type: TInterface "Gtk" "StyleContext" - -- Flags: [PropertyReadable,PropertyWritable] - -getNumerableIconStyleContext :: (MonadIO m, NumerableIconK o) => o -> m StyleContext -getNumerableIconStyleContext obj = liftIO $ getObjectPropertyObject obj "style-context" StyleContext - -setNumerableIconStyleContext :: (MonadIO m, NumerableIconK o, StyleContextK a) => o -> a -> m () -setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" val - -constructNumerableIconStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue) -constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" 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 = "NumerableIcon::style-context" - attrGet _ = getNumerableIconStyleContext - attrSet _ = setNumerableIconStyleContext - attrConstruct _ = constructNumerableIconStyleContext - -type instance AttributeList NumerableIcon = NumerableIconAttributeList -type NumerableIconAttributeList = ('[ '("background-icon", NumerableIconBackgroundIconPropertyInfo), '("background-icon-name", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", Gio.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("style-context", NumerableIconStyleContextPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList NumerableIcon = NumerableIconSignalList -type NumerableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method NumerableIcon::get_background_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method NumerableIcon::get_background_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method NumerableIcon::get_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -numerableIconGetCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_numerable_icon_get_count _obj' - touchManagedPtr _obj - return result - --- method NumerableIcon::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method NumerableIcon::get_style_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method NumerableIcon::set_background_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method NumerableIcon::set_background_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- icon_name - m () -numerableIconSetBackgroundIconName _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_name <- case icon_name of - Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_numerable_icon_set_background_icon_name _obj' maybeIcon_name - touchManagedPtr _obj - freeMem maybeIcon_name - return () - --- method NumerableIcon::set_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_numerable_icon_set_count" gtk_numerable_icon_set_count :: - Ptr NumerableIcon -> -- _obj : TInterface "Gtk" "NumerableIcon" - Int32 -> -- count : TBasicType TInt32 - IO () - -{-# DEPRECATED numerableIconSetCount ["(Since version 3.14)"]#-} -numerableIconSetCount :: - (MonadIO m, NumerableIconK a) => - a -> -- _obj - Int32 -> -- count - m () -numerableIconSetCount _obj count = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_numerable_icon_set_count _obj' count - touchManagedPtr _obj - return () - --- method NumerableIcon::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method NumerableIcon::set_style_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "NumerableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method NumerableIcon::new --- method type : MemberFunction --- Args : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- base_icon - m Gio.Icon -numerableIconNew base_icon = liftIO $ do - let base_icon' = unsafeManagedPtrCastPtr base_icon - result <- gtk_numerable_icon_new base_icon' - checkUnexpectedReturnNULL "gtk_numerable_icon_new" result - result' <- (wrapObject Gio.Icon) result - touchManagedPtr base_icon - return result' - --- method NumerableIcon::new_with_style_context --- method type : MemberFunction --- Args : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "base_icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- base_icon - b -> -- context - m Gio.Icon -numerableIconNewWithStyleContext base_icon context = liftIO $ do - let base_icon' = unsafeManagedPtrCastPtr base_icon - let context' = unsafeManagedPtrCastPtr context - result <- gtk_numerable_icon_new_with_style_context base_icon' context' - checkUnexpectedReturnNULL "gtk_numerable_icon_new_with_style_context" result - result' <- (wrapObject Gio.Icon) result - touchManagedPtr base_icon - 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,18 +0,0 @@ -module GI.Gtk.Objects.NumerableIcon where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,150 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - offscreenWindowGetPixbuf , - - --- ** offscreenWindowGetSurface - offscreenWindowGetSurface , - - --- ** offscreenWindowNew - offscreenWindowNew , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList OffscreenWindow = OffscreenWindowAttributeList -type OffscreenWindowAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList OffscreenWindow = OffscreenWindowSignalList -type OffscreenWindowSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method OffscreenWindow::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method OffscreenWindow::get_surface --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "OffscreenWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,13 +0,0 @@ -module GI.Gtk.Objects.OffscreenWindow where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype OffscreenWindow = OffscreenWindow (ForeignPtr OffscreenWindow) -instance GObject OffscreenWindow where -class GObject o => OffscreenWindowK o -instance (GObject o, IsDescendantOf OffscreenWindow o) => OffscreenWindowK o 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,120 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - overlayAddOverlay , - - --- ** overlayNew - overlayNew , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList Overlay = OverlayAttributeList -type OverlayAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Overlay = OverlaySignalList -type OverlaySignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Overlay::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Overlay", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -overlayAddOverlay _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_overlay_add_overlay _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.Overlay where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Overlay = Overlay (ForeignPtr Overlay) -instance GObject Overlay where -class GObject o => OverlayK o -instance (GObject o, IsDescendantOf Overlay o) => OverlayK o 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,897 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - pageSetupCopy , - - --- ** pageSetupGetBottomMargin - pageSetupGetBottomMargin , - - --- ** pageSetupGetLeftMargin - pageSetupGetLeftMargin , - - --- ** pageSetupGetOrientation - pageSetupGetOrientation , - - --- ** pageSetupGetPageHeight - pageSetupGetPageHeight , - - --- ** pageSetupGetPageWidth - pageSetupGetPageWidth , - - --- ** pageSetupGetPaperHeight - pageSetupGetPaperHeight , - - --- ** pageSetupGetPaperSize - pageSetupGetPaperSize , - - --- ** pageSetupGetPaperWidth - pageSetupGetPaperWidth , - - --- ** pageSetupGetRightMargin - pageSetupGetRightMargin , - - --- ** pageSetupGetTopMargin - pageSetupGetTopMargin , - - --- ** pageSetupLoadFile - pageSetupLoadFile , - - --- ** pageSetupLoadKeyFile - pageSetupLoadKeyFile , - - --- ** pageSetupNew - pageSetupNew , - - --- ** pageSetupNewFromFile - pageSetupNewFromFile , - - --- ** pageSetupNewFromKeyFile - pageSetupNewFromKeyFile , - - --- ** pageSetupSetBottomMargin - pageSetupSetBottomMargin , - - --- ** pageSetupSetLeftMargin - pageSetupSetLeftMargin , - - --- ** pageSetupSetOrientation - pageSetupSetOrientation , - - --- ** pageSetupSetPaperSize - pageSetupSetPaperSize , - - --- ** pageSetupSetPaperSizeAndDefaultMargins - pageSetupSetPaperSizeAndDefaultMargins , - - --- ** pageSetupSetRightMargin - pageSetupSetRightMargin , - - --- ** pageSetupSetTopMargin - pageSetupSetTopMargin , - - --- ** pageSetupToFile - pageSetupToFile , - - --- ** pageSetupToKeyFile - pageSetupToKeyFile , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList PageSetup = PageSetupAttributeList -type PageSetupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PageSetup = PageSetupSignalList -type PageSetupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PageSetup::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -> -- file_name - m PageSetup -pageSetupNewFromFile file_name = liftIO $ do - file_name' <- stringToCString file_name - onException (do - result <- propagateGError $ gtk_page_setup_new_from_file file_name' - checkUnexpectedReturnNULL "gtk_page_setup_new_from_file" result - result' <- (wrapObject PageSetup) result - freeMem file_name' - return result' - ) (do - freeMem file_name' - ) - --- method PageSetup::new_from_key_file --- method type : Constructor --- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- key_file - Maybe (T.Text) -> -- group_name - m PageSetup -pageSetupNewFromKeyFile key_file group_name = liftIO $ do - let key_file' = unsafeManagedPtrGetPtr key_file - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - onException (do - result <- propagateGError $ gtk_page_setup_new_from_key_file key_file' maybeGroup_name - checkUnexpectedReturnNULL "gtk_page_setup_new_from_key_file" result - result' <- (wrapObject PageSetup) result - touchManagedPtr key_file - freeMem maybeGroup_name - return result' - ) (do - freeMem maybeGroup_name - ) - --- method PageSetup::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -pageSetupGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_page_setup_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PageSetup::get_page_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_page_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_paper_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_paper_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::get_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PageSetup::load_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -> -- file_name - m () -pageSetupLoadFile _obj file_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - file_name' <- stringToCString file_name - onException (do - _ <- propagateGError $ gtk_page_setup_load_file _obj' file_name' - touchManagedPtr _obj - freeMem file_name' - return () - ) (do - freeMem file_name' - ) - --- method PageSetup::load_key_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- key_file - Maybe (T.Text) -> -- group_name - m () -pageSetupLoadKeyFile _obj key_file group_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - onException (do - _ <- propagateGError $ gtk_page_setup_load_key_file _obj' key_file' maybeGroup_name - touchManagedPtr _obj - touchManagedPtr key_file - freeMem maybeGroup_name - return () - ) (do - freeMem maybeGroup_name - ) - --- method PageSetup::set_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PageSetup::set_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PageSetup::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -pageSetupSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_page_setup_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - --- method PageSetup::set_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PageSetup::set_paper_size_and_default_margins --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PageSetup::set_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PageSetup::set_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PageSetup::to_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -> -- file_name - m () -pageSetupToFile _obj file_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - file_name' <- stringToCString file_name - onException (do - _ <- propagateGError $ gtk_page_setup_to_file _obj' file_name' - touchManagedPtr _obj - freeMem file_name' - return () - ) (do - freeMem file_name' - ) - --- method PageSetup::to_key_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- key_file - T.Text -> -- group_name - m () -pageSetupToKeyFile _obj key_file group_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - group_name' <- textToCString group_name - gtk_page_setup_to_key_file _obj' key_file' group_name' - touchManagedPtr _obj - touchManagedPtr key_file - freeMem group_name' - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.PageSetup where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PageSetup = PageSetup (ForeignPtr PageSetup) -instance GObject PageSetup where -class GObject o => PageSetupK o -instance (GObject o, IsDescendantOf PageSetup o) => PageSetupK o 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,939 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - panedAdd1 , - - --- ** panedAdd2 - panedAdd2 , - - --- ** panedGetChild1 - panedGetChild1 , - - --- ** panedGetChild2 - panedGetChild2 , - - --- ** panedGetHandleWindow - panedGetHandleWindow , - - --- ** panedGetPosition - panedGetPosition , - - --- ** panedGetWideHandle - panedGetWideHandle , - - --- ** panedNew - panedNew , - - --- ** panedPack1 - panedPack1 , - - --- ** panedPack2 - panedPack2 , - - --- ** panedSetPosition - panedSetPosition , - - --- ** panedSetWideHandle - panedSetWideHandle , - - - - - -- * Properties --- ** MaxPosition - PanedMaxPositionPropertyInfo , - getPanedMaxPosition , - - --- ** MinPosition - PanedMinPositionPropertyInfo , - getPanedMinPosition , - - --- ** Position - PanedPositionPropertyInfo , - constructPanedPosition , - getPanedPosition , - setPanedPosition , - - --- ** PositionSet - PanedPositionSetPropertyInfo , - constructPanedPositionSet , - getPanedPositionSet , - setPanedPositionSet , - - --- ** WideHandle - PanedWideHandlePropertyInfo , - constructPanedWideHandle , - getPanedWideHandle , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ scroll_type _ = do - let scroll_type' = (toEnum . fromIntegral) scroll_type - result <- _cb scroll_type' - 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 TInt32 - -- Flags: [PropertyReadable] - -getPanedMaxPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedMaxPosition obj = liftIO $ getObjectPropertyCInt 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 = "Paned::max-position" - attrGet _ = getPanedMaxPosition - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "min-position" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getPanedMinPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedMinPosition obj = liftIO $ getObjectPropertyCInt 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 = "Paned::min-position" - attrGet _ = getPanedMinPosition - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "position" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getPanedPosition :: (MonadIO m, PanedK o) => o -> m Int32 -getPanedPosition obj = liftIO $ getObjectPropertyCInt obj "position" - -setPanedPosition :: (MonadIO m, PanedK o) => o -> Int32 -> m () -setPanedPosition obj val = liftIO $ setObjectPropertyCInt obj "position" val - -constructPanedPosition :: Int32 -> IO ([Char], GValue) -constructPanedPosition val = constructObjectPropertyCInt "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 = "Paned::position" - attrGet _ = getPanedPosition - attrSet _ = setPanedPosition - attrConstruct _ = constructPanedPosition - --- VVV Prop "position-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Paned::position-set" - attrGet _ = getPanedPositionSet - attrSet _ = setPanedPositionSet - attrConstruct _ = constructPanedPositionSet - --- VVV Prop "wide-handle" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Paned::wide-handle" - attrGet _ = getPanedWideHandle - attrSet _ = setPanedWideHandle - attrConstruct _ = constructPanedWideHandle - -type instance AttributeList Paned = PanedAttributeList -type PanedAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Paned::new --- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -panedAdd1 _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_paned_add1 _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Paned::add2 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -panedAdd2 _obj child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - gtk_paned_add2 _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Paned::get_child1 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Paned::get_child2 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Paned::get_handle_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Paned::get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -panedGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_paned_get_position _obj' - touchManagedPtr _obj - return result - --- method Paned::get_wide_handle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -panedGetWideHandle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_paned_get_wide_handle _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Paned::pack1 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Paned::pack2 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resize", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shrink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Paned::set_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_paned_set_position" gtk_paned_set_position :: - Ptr Paned -> -- _obj : TInterface "Gtk" "Paned" - Int32 -> -- position : TBasicType TInt32 - IO () - - -panedSetPosition :: - (MonadIO m, PanedK a) => - a -> -- _obj - Int32 -> -- position - m () -panedSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_paned_set_position _obj' position - touchManagedPtr _obj - return () - --- method Paned::set_wide_handle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Paned", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -panedSetWideHandle _obj wide = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wide' = (fromIntegral . fromEnum) wide - gtk_paned_set_wide_handle _obj' wide' - touchManagedPtr _obj - return () - - 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,24 +0,0 @@ -module GI.Gtk.Objects.Paned where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList PanedAccessible = PanedAccessibleAttributeList -type PanedAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList PanedAccessible = PanedAccessibleSignalList -type PanedAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1284 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - placesSidebarAddShortcut , - - --- ** placesSidebarGetLocalOnly - placesSidebarGetLocalOnly , - - --- ** placesSidebarGetLocation - placesSidebarGetLocation , - - --- ** placesSidebarGetNthBookmark - placesSidebarGetNthBookmark , - - --- ** placesSidebarGetOpenFlags - placesSidebarGetOpenFlags , - - --- ** placesSidebarGetShowConnectToServer - placesSidebarGetShowConnectToServer , - - --- ** placesSidebarGetShowDesktop - placesSidebarGetShowDesktop , - - --- ** placesSidebarGetShowEnterLocation - placesSidebarGetShowEnterLocation , - - --- ** placesSidebarListShortcuts - placesSidebarListShortcuts , - - --- ** placesSidebarNew - placesSidebarNew , - - --- ** placesSidebarRemoveShortcut - placesSidebarRemoveShortcut , - - --- ** placesSidebarSetLocalOnly - placesSidebarSetLocalOnly , - - --- ** placesSidebarSetLocation - placesSidebarSetLocation , - - --- ** placesSidebarSetOpenFlags - placesSidebarSetOpenFlags , - - --- ** placesSidebarSetShowConnectToServer - placesSidebarSetShowConnectToServer , - - --- ** placesSidebarSetShowDesktop - placesSidebarSetShowDesktop , - - --- ** placesSidebarSetShowEnterLocation - placesSidebarSetShowEnterLocation , - - - - - -- * Properties --- ** LocalOnly - PlacesSidebarLocalOnlyPropertyInfo , - constructPlacesSidebarLocalOnly , - getPlacesSidebarLocalOnly , - setPlacesSidebarLocalOnly , - - --- ** Location - PlacesSidebarLocationPropertyInfo , - constructPlacesSidebarLocation , - getPlacesSidebarLocation , - setPlacesSidebarLocation , - - --- ** OpenFlags - PlacesSidebarOpenFlagsPropertyInfo , - constructPlacesSidebarOpenFlags , - getPlacesSidebarOpenFlags , - setPlacesSidebarOpenFlags , - - --- ** ShowConnectToServer - PlacesSidebarShowConnectToServerPropertyInfo, - constructPlacesSidebarShowConnectToServer, - getPlacesSidebarShowConnectToServer , - setPlacesSidebarShowConnectToServer , - - --- ** ShowDesktop - PlacesSidebarShowDesktopPropertyInfo , - constructPlacesSidebarShowDesktop , - getPlacesSidebarShowDesktop , - setPlacesSidebarShowDesktop , - - --- ** ShowEnterLocation - PlacesSidebarShowEnterLocationPropertyInfo, - constructPlacesSidebarShowEnterLocation , - getPlacesSidebarShowEnterLocation , - setPlacesSidebarShowEnterLocation , - - - - - -- * 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 , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 dest_file source_file_list _ = do - context' <- (newObject Gdk.DragContext) context - dest_file' <- (newObject Gio.File) dest_file - source_file_list' <- unpackGList source_file_list - source_file_list'' <- mapM (newObject Gio.File) source_file_list' - result <- _cb context' dest_file' source_file_list'' - 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 _ dest_file source_file_list action _ = do - dest_file' <- (newObject Gio.File) dest_file - source_file_list' <- unpackGList source_file_list - source_file_list'' <- mapM (newObject Gio.File) source_file_list' - _cb dest_file' source_file_list'' 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 open_flags _ = do - location' <- (newObject Gio.File) location - let open_flags' = wordToGFlags open_flags - _cb location' open_flags' - -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 = - Menu -> - Maybe Gio.File -> - Maybe Gio.Volume -> - IO () - -noPlacesSidebarPopulatePopupCallback :: Maybe PlacesSidebarPopulatePopupCallback -noPlacesSidebarPopulatePopupCallback = Nothing - -type PlacesSidebarPopulatePopupCallbackC = - Ptr () -> -- object - Ptr Menu -> - 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 Menu -> - Ptr Gio.File -> - Ptr Gio.Volume -> - Ptr () -> - IO () -placesSidebarPopulatePopupCallbackWrapper _cb _ menu selected_item selected_volume _ = do - menu' <- (newObject Menu) menu - maybeSelected_item <- - if selected_item == nullPtr - then return Nothing - else do - selected_item' <- (newObject Gio.File) selected_item - return $ Just selected_item' - maybeSelected_volume <- - if selected_volume == nullPtr - then return Nothing - else do - selected_volume' <- (newObject Gio.Volume) selected_volume - return $ Just selected_volume' - _cb menu' maybeSelected_item maybeSelected_volume - -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 - --- VVV Prop "local-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PlacesSidebar::local-only" - attrGet _ = getPlacesSidebarLocalOnly - attrSet _ = setPlacesSidebarLocalOnly - attrConstruct _ = constructPlacesSidebarLocalOnly - --- VVV Prop "location" - -- Type: TInterface "Gio" "File" - -- Flags: [PropertyReadable,PropertyWritable] - -getPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m 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" val - -constructPlacesSidebarLocation :: (Gio.FileK a) => a -> IO ([Char], GValue) -constructPlacesSidebarLocation val = constructObjectPropertyObject "location" val - -data PlacesSidebarLocationPropertyInfo -instance AttrInfo PlacesSidebarLocationPropertyInfo where - type AttrAllowedOps PlacesSidebarLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PlacesSidebarLocationPropertyInfo = Gio.FileK - type AttrBaseTypeConstraint PlacesSidebarLocationPropertyInfo = PlacesSidebarK - type AttrGetType PlacesSidebarLocationPropertyInfo = Gio.File - type AttrLabel PlacesSidebarLocationPropertyInfo = "PlacesSidebar::location" - attrGet _ = getPlacesSidebarLocation - attrSet _ = setPlacesSidebarLocation - attrConstruct _ = constructPlacesSidebarLocation - --- VVV Prop "open-flags" - -- Type: TInterface "Gtk" "PlacesOpenFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PlacesSidebar::open-flags" - attrGet _ = getPlacesSidebarOpenFlags - attrSet _ = setPlacesSidebarOpenFlags - attrConstruct _ = constructPlacesSidebarOpenFlags - --- VVV Prop "show-connect-to-server" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PlacesSidebar::show-connect-to-server" - attrGet _ = getPlacesSidebarShowConnectToServer - attrSet _ = setPlacesSidebarShowConnectToServer - attrConstruct _ = constructPlacesSidebarShowConnectToServer - --- VVV Prop "show-desktop" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PlacesSidebar::show-desktop" - attrGet _ = getPlacesSidebarShowDesktop - attrSet _ = setPlacesSidebarShowDesktop - attrConstruct _ = constructPlacesSidebarShowDesktop - --- VVV Prop "show-enter-location" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PlacesSidebar::show-enter-location" - attrGet _ = getPlacesSidebarShowEnterLocation - attrSet _ = setPlacesSidebarShowEnterLocation - attrConstruct _ = constructPlacesSidebarShowEnterLocation - -type instance AttributeList PlacesSidebar = PlacesSidebarAttributeList -type PlacesSidebarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscrollbar-policy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("kinetic-scrolling", ScrolledWindowKineticScrollingPropertyInfo), '("local-only", PlacesSidebarLocalOnlyPropertyInfo), '("location", PlacesSidebarLocationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("min-content-height", ScrolledWindowMinContentHeightPropertyInfo), '("min-content-width", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("open-flags", PlacesSidebarOpenFlagsPropertyInfo), '("overlay-scrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ScrolledWindowShadowTypePropertyInfo), '("show-connect-to-server", PlacesSidebarShowConnectToServerPropertyInfo), '("show-desktop", PlacesSidebarShowDesktopPropertyInfo), '("show-enter-location", PlacesSidebarShowEnterLocationPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbar-policy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-placement", ScrolledWindowWindowPlacementPropertyInfo), '("window-placement-set", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) - -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 - -type instance SignalList PlacesSidebar = PlacesSidebarSignalList -type PlacesSidebarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-action-ask", PlacesSidebarDragActionAskSignalInfo), '("drag-action-requested", PlacesSidebarDragActionRequestedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("drag-perform-drop", PlacesSidebarDragPerformDropSignalInfo), '("draw", WidgetDrawSignalInfo), '("edge-overshot", ScrolledWindowEdgeOvershotSignalInfo), '("edge-reached", ScrolledWindowEdgeReachedSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open-location", PlacesSidebarOpenLocationSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", PlacesSidebarPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-child", ScrolledWindowScrollChildSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-connect-to-server", PlacesSidebarShowConnectToServerSignalInfo), '("show-enter-location", PlacesSidebarShowEnterLocationSignalInfo), '("show-error-message", PlacesSidebarShowErrorMessageSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PlacesSidebar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PlacesSidebar::get_local_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -placesSidebarGetLocalOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_local_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PlacesSidebar::get_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PlacesSidebar::get_nth_bookmark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Gio.File) - - -placesSidebarGetNthBookmark :: - (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Int32 -> -- n - m Gio.File -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' - --- method PlacesSidebar::get_open_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -placesSidebarGetOpenFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_open_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method PlacesSidebar::get_show_connect_to_server --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 - - -placesSidebarGetShowConnectToServer :: - (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - m Bool -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' - --- method PlacesSidebar::get_show_desktop --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -placesSidebarGetShowDesktop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_get_show_desktop _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PlacesSidebar::get_show_enter_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PlacesSidebar::list_shortcuts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -placesSidebarListShortcuts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_places_sidebar_list_shortcuts _obj' - checkUnexpectedReturnNULL "gtk_places_sidebar_list_shortcuts" result - result' <- unpackGSList result - result'' <- mapM (wrapObject Gio.File) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method PlacesSidebar::remove_shortcut --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PlacesSidebar::set_local_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- local_only - m () -placesSidebarSetLocalOnly _obj local_only = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let local_only' = (fromIntegral . fromEnum) local_only - gtk_places_sidebar_set_local_only _obj' local_only' - touchManagedPtr _obj - return () - --- method PlacesSidebar::set_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PlacesSidebar::set_open_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "PlacesOpenFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -placesSidebarSetOpenFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_places_sidebar_set_open_flags _obj' flags' - touchManagedPtr _obj - return () - --- method PlacesSidebar::set_show_connect_to_server --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_connect_to_server", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () - - -placesSidebarSetShowConnectToServer :: - (MonadIO m, PlacesSidebarK a) => - a -> -- _obj - Bool -> -- show_connect_to_server - m () -placesSidebarSetShowConnectToServer _obj show_connect_to_server = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_connect_to_server' = (fromIntegral . fromEnum) show_connect_to_server - gtk_places_sidebar_set_show_connect_to_server _obj' show_connect_to_server' - touchManagedPtr _obj - return () - --- method PlacesSidebar::set_show_desktop --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_desktop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_desktop - m () -placesSidebarSetShowDesktop _obj show_desktop = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_desktop' = (fromIntegral . fromEnum) show_desktop - gtk_places_sidebar_set_show_desktop _obj' show_desktop' - touchManagedPtr _obj - return () - --- method PlacesSidebar::set_show_enter_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PlacesSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_enter_location", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_enter_location - m () -placesSidebarSetShowEnterLocation _obj show_enter_location = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_enter_location' = (fromIntegral . fromEnum) show_enter_location - gtk_places_sidebar_set_show_enter_location _obj' show_enter_location' - touchManagedPtr _obj - return () - - 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,27 +0,0 @@ -module GI.Gtk.Objects.PlacesSidebar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 PlacesSidebarShowConnectToServerPropertyInfo -data PlacesSidebarShowDesktopPropertyInfo -data PlacesSidebarShowEnterLocationPropertyInfo -data PlacesSidebarDragActionAskSignalInfo -data PlacesSidebarDragActionRequestedSignalInfo -data PlacesSidebarDragPerformDropSignalInfo -data PlacesSidebarOpenLocationSignalInfo -data PlacesSidebarPopulatePopupSignalInfo -data PlacesSidebarShowConnectToServerSignalInfo -data PlacesSidebarShowEnterLocationSignalInfo -data PlacesSidebarShowErrorMessageSignalInfo 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,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) --} - -module GI.Gtk.Objects.Plug - ( - --- * Exported types - Plug(..) , - PlugK , - toPlug , - noPlug , - - - -- * Methods --- ** plugConstruct - plugConstruct , - - --- ** plugConstructForDisplay - plugConstructForDisplay , - - --- ** plugGetEmbedded - plugGetEmbedded , - - --- ** plugGetId - plugGetId , - - --- ** plugGetSocketWindow - plugGetSocketWindow , - - --- ** plugNew - plugNew , - - --- ** plugNewForDisplay - plugNewForDisplay , - - - - - -- * Properties --- ** Embedded - PlugEmbeddedPropertyInfo , - getPlugEmbedded , - - --- ** SocketWindow - PlugSocketWindowPropertyInfo , - getPlugSocketWindow , - - - - - -- * Signals --- ** Embedded - PlugEmbeddedCallback , - PlugEmbeddedCallbackC , - PlugEmbeddedSignalInfo , - afterPlugEmbedded , - mkPlugEmbeddedCallback , - noPlugEmbeddedCallback , - onPlugEmbedded , - plugEmbeddedCallbackWrapper , - plugEmbeddedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "Plug::embedded" - attrGet _ = getPlugEmbedded - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "socket-window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable] - -getPlugSocketWindow :: (MonadIO m, PlugK o) => o -> m Gdk.Window -getPlugSocketWindow obj = liftIO $ getObjectPropertyObject obj "socket-window" Gdk.Window - -data PlugSocketWindowPropertyInfo -instance AttrInfo PlugSocketWindowPropertyInfo where - type AttrAllowedOps PlugSocketWindowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PlugSocketWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint PlugSocketWindowPropertyInfo = PlugK - type AttrGetType PlugSocketWindowPropertyInfo = Gdk.Window - type AttrLabel PlugSocketWindowPropertyInfo = "Plug::socket-window" - attrGet _ = getPlugSocketWindow - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList Plug = PlugAttributeList -type PlugAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("embedded", PlugEmbeddedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("socket-window", PlugSocketWindowPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -data PlugEmbeddedSignalInfo -instance SignalInfo PlugEmbeddedSignalInfo where - type HaskellCallbackType PlugEmbeddedSignalInfo = PlugEmbeddedCallback - connectSignal _ = connectPlugEmbedded - -type instance SignalList Plug = PlugSignalList -type PlugSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("embedded", PlugEmbeddedSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Plug::new --- method type : Constructor --- Args : [Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Plug" --- throws : False --- Skip return : False - -foreign import ccall "gtk_plug_new" gtk_plug_new :: - Word64 -> -- socket_id : TBasicType TUInt64 - IO (Ptr Plug) - - -plugNew :: - (MonadIO m) => - Word64 -> -- socket_id - m Plug -plugNew socket_id = liftIO $ do - result <- gtk_plug_new socket_id - checkUnexpectedReturnNULL "gtk_plug_new" result - result' <- (newObject Plug) result - return result' - --- method Plug::new_for_display --- method type : Constructor --- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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" - Word64 -> -- socket_id : TBasicType TUInt64 - IO (Ptr Plug) - - -plugNewForDisplay :: - (MonadIO m, Gdk.DisplayK a) => - a -> -- display - Word64 -> -- socket_id - m Plug -plugNewForDisplay display socket_id = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - result <- gtk_plug_new_for_display display' socket_id - checkUnexpectedReturnNULL "gtk_plug_new_for_display" result - result' <- (newObject Plug) result - touchManagedPtr display - return result' - --- method Plug::construct --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_plug_construct" gtk_plug_construct :: - Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - Word64 -> -- socket_id : TBasicType TUInt64 - IO () - - -plugConstruct :: - (MonadIO m, PlugK a) => - a -> -- _obj - Word64 -> -- socket_id - m () -plugConstruct _obj socket_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_plug_construct _obj' socket_id - touchManagedPtr _obj - return () - --- method Plug::construct_for_display --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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" - Word64 -> -- socket_id : TBasicType TUInt64 - IO () - - -plugConstructForDisplay :: - (MonadIO m, PlugK a, Gdk.DisplayK b) => - a -> -- _obj - b -> -- display - Word64 -> -- socket_id - m () -plugConstructForDisplay _obj display socket_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let display' = unsafeManagedPtrCastPtr display - gtk_plug_construct_for_display _obj' display' socket_id - touchManagedPtr _obj - touchManagedPtr display - return () - --- method Plug::get_embedded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -plugGetEmbedded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_plug_get_embedded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Plug::get_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "gtk_plug_get_id" gtk_plug_get_id :: - Ptr Plug -> -- _obj : TInterface "Gtk" "Plug" - IO Word64 - - -plugGetId :: - (MonadIO m, PlugK a) => - a -> -- _obj - m Word64 -plugGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_plug_get_id _obj' - touchManagedPtr _obj - return result - --- method Plug::get_socket_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Plug", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,16 +0,0 @@ -module GI.Gtk.Objects.Plug where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,706 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - popoverBindModel , - - --- ** popoverGetModal - popoverGetModal , - - --- ** popoverGetPointingTo - popoverGetPointingTo , - - --- ** popoverGetPosition - popoverGetPosition , - - --- ** popoverGetRelativeTo - popoverGetRelativeTo , - - --- ** popoverGetTransitionsEnabled - popoverGetTransitionsEnabled , - - --- ** popoverNew - popoverNew , - - --- ** popoverNewFromModel - popoverNewFromModel , - - --- ** popoverSetModal - popoverSetModal , - - --- ** popoverSetPointingTo - popoverSetPointingTo , - - --- ** popoverSetPosition - popoverSetPosition , - - --- ** popoverSetRelativeTo - popoverSetRelativeTo , - - --- ** popoverSetTransitionsEnabled - popoverSetTransitionsEnabled , - - - - - -- * Properties --- ** Modal - PopoverModalPropertyInfo , - constructPopoverModal , - getPopoverModal , - setPopoverModal , - - --- ** PointingTo - PopoverPointingToPropertyInfo , - constructPopoverPointingTo , - getPopoverPointingTo , - setPopoverPointingTo , - - --- ** Position - PopoverPositionPropertyInfo , - constructPopoverPosition , - getPopoverPosition , - setPopoverPosition , - - --- ** RelativeTo - PopoverRelativeToPropertyInfo , - constructPopoverRelativeTo , - getPopoverRelativeTo , - setPopoverRelativeTo , - - --- ** TransitionsEnabled - PopoverTransitionsEnabledPropertyInfo , - constructPopoverTransitionsEnabled , - getPopoverTransitionsEnabled , - setPopoverTransitionsEnabled , - - - - - -- * Signals --- ** Closed - PopoverClosedCallback , - PopoverClosedCallbackC , - PopoverClosedSignalInfo , - afterPopoverClosed , - mkPopoverClosedCallback , - noPopoverClosedCallback , - onPopoverClosed , - popoverClosedCallbackWrapper , - popoverClosedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio -import qualified GI.Cairo as Cairo - -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 - --- 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] - -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 = "Popover::modal" - attrGet _ = getPopoverModal - attrSet _ = setPopoverModal - attrConstruct _ = constructPopoverModal - --- VVV Prop "pointing-to" - -- Type: TInterface "cairo" "RectangleInt" - -- Flags: [PropertyReadable,PropertyWritable] - -getPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> m Cairo.RectangleInt -getPopoverPointingTo obj = liftIO $ getObjectPropertyBoxed obj "pointing-to" Cairo.RectangleInt - -setPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> Cairo.RectangleInt -> m () -setPopoverPointingTo obj val = liftIO $ setObjectPropertyBoxed obj "pointing-to" val - -constructPopoverPointingTo :: Cairo.RectangleInt -> IO ([Char], GValue) -constructPopoverPointingTo val = constructObjectPropertyBoxed "pointing-to" val - -data PopoverPointingToPropertyInfo -instance AttrInfo PopoverPointingToPropertyInfo where - type AttrAllowedOps PopoverPointingToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PopoverPointingToPropertyInfo = (~) Cairo.RectangleInt - type AttrBaseTypeConstraint PopoverPointingToPropertyInfo = PopoverK - type AttrGetType PopoverPointingToPropertyInfo = Cairo.RectangleInt - type AttrLabel PopoverPointingToPropertyInfo = "Popover::pointing-to" - attrGet _ = getPopoverPointingTo - attrSet _ = setPopoverPointingTo - attrConstruct _ = constructPopoverPointingTo - --- VVV Prop "position" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Popover::position" - attrGet _ = getPopoverPosition - attrSet _ = setPopoverPosition - attrConstruct _ = constructPopoverPosition - --- VVV Prop "relative-to" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getPopoverRelativeTo :: (MonadIO m, PopoverK o) => o -> m Widget -getPopoverRelativeTo obj = liftIO $ getObjectPropertyObject obj "relative-to" Widget - -setPopoverRelativeTo :: (MonadIO m, PopoverK o, WidgetK a) => o -> a -> m () -setPopoverRelativeTo obj val = liftIO $ setObjectPropertyObject obj "relative-to" val - -constructPopoverRelativeTo :: (WidgetK a) => a -> IO ([Char], GValue) -constructPopoverRelativeTo val = constructObjectPropertyObject "relative-to" val - -data PopoverRelativeToPropertyInfo -instance AttrInfo PopoverRelativeToPropertyInfo where - type AttrAllowedOps PopoverRelativeToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PopoverRelativeToPropertyInfo = WidgetK - type AttrBaseTypeConstraint PopoverRelativeToPropertyInfo = PopoverK - type AttrGetType PopoverRelativeToPropertyInfo = Widget - type AttrLabel PopoverRelativeToPropertyInfo = "Popover::relative-to" - attrGet _ = getPopoverRelativeTo - attrSet _ = setPopoverRelativeTo - attrConstruct _ = constructPopoverRelativeTo - --- VVV Prop "transitions-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Popover::transitions-enabled" - attrGet _ = getPopoverTransitionsEnabled - attrSet _ = setPopoverTransitionsEnabled - attrConstruct _ = constructPopoverTransitionsEnabled - -type instance AttributeList Popover = PopoverAttributeList -type PopoverAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointing-to", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("relative-to", PopoverRelativeToPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transitions-enabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data PopoverClosedSignalInfo -instance SignalInfo PopoverClosedSignalInfo where - type HaskellCallbackType PopoverClosedSignalInfo = PopoverClosedCallback - connectSignal _ = connectPopoverClosed - -type instance SignalList Popover = PopoverSignalList -type PopoverSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Popover::new --- method type : Constructor --- Args : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- relative_to - m Popover -popoverNew relative_to = liftIO $ do - maybeRelative_to <- case relative_to of - Nothing -> return nullPtr - Just jRelative_to -> do - let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to - return jRelative_to' - result <- gtk_popover_new maybeRelative_to - checkUnexpectedReturnNULL "gtk_popover_new" result - result' <- (newObject Popover) result - whenJust relative_to touchManagedPtr - return result' - --- method Popover::new_from_model --- method type : Constructor --- Args : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- relative_to - b -> -- model - m Popover -popoverNewFromModel relative_to model = liftIO $ do - maybeRelative_to <- case relative_to of - Nothing -> return nullPtr - Just jRelative_to -> do - let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to - return jRelative_to' - let model' = unsafeManagedPtrCastPtr model - result <- gtk_popover_new_from_model maybeRelative_to model' - checkUnexpectedReturnNULL "gtk_popover_new_from_model" result - result' <- (newObject Popover) result - whenJust relative_to touchManagedPtr - touchManagedPtr model - return result' - --- method Popover::bind_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_namespace", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- action_namespace - m () -popoverBindModel _obj model action_namespace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - maybeAction_namespace <- case action_namespace of - Nothing -> return nullPtr - Just jAction_namespace -> do - jAction_namespace' <- textToCString jAction_namespace - return jAction_namespace' - gtk_popover_bind_model _obj' maybeModel maybeAction_namespace - touchManagedPtr _obj - whenJust model touchManagedPtr - freeMem maybeAction_namespace - return () - --- method Popover::get_modal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -popoverGetModal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_popover_get_modal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Popover::get_pointing_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO CInt - - -popoverGetPointingTo :: - (MonadIO m, PopoverK a) => - a -> -- _obj - m (Bool,Cairo.RectangleInt) -popoverGetPointingTo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - result <- gtk_popover_get_pointing_to _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Cairo.RectangleInt) rect - touchManagedPtr _obj - return (result', rect') - --- method Popover::get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -popoverGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_popover_get_position _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Popover::get_relative_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Popover::get_transitions_enabled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -popoverGetTransitionsEnabled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_popover_get_transitions_enabled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Popover::set_modal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -popoverSetModal _obj modal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modal' = (fromIntegral . fromEnum) modal - gtk_popover_set_modal _obj' modal' - touchManagedPtr _obj - return () - --- method Popover::set_pointing_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO () - - -popoverSetPointingTo :: - (MonadIO m, PopoverK a) => - a -> -- _obj - Cairo.RectangleInt -> -- rect - m () -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 () - --- method Popover::set_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -popoverSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_popover_set_position _obj' position' - touchManagedPtr _obj - return () - --- method Popover::set_relative_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "relative_to", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- relative_to - m () -popoverSetRelativeTo _obj relative_to = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRelative_to <- case relative_to of - Nothing -> return nullPtr - Just jRelative_to -> do - let jRelative_to' = unsafeManagedPtrCastPtr jRelative_to - return jRelative_to' - gtk_popover_set_relative_to _obj' maybeRelative_to - touchManagedPtr _obj - whenJust relative_to touchManagedPtr - return () - --- method Popover::set_transitions_enabled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Popover", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transitions_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- transitions_enabled - m () -popoverSetTransitionsEnabled _obj transitions_enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let transitions_enabled' = (fromIntegral . fromEnum) transitions_enabled - gtk_popover_set_transitions_enabled _obj' transitions_enabled' - touchManagedPtr _obj - return () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.Popover where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList PopoverAccessible = PopoverAccessibleAttributeList -type PopoverAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList PopoverAccessible = PopoverAccessibleSignalList -type PopoverAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.PopoverMenu - ( - --- * Exported types - PopoverMenu(..) , - PopoverMenuK , - toPopoverMenu , - noPopoverMenu , - - - -- * Methods --- ** popoverMenuNew - popoverMenuNew , - - --- ** popoverMenuOpenSubmenu - popoverMenuOpenSubmenu , - - - - - -- * Properties --- ** VisibleSubmenu - PopoverMenuVisibleSubmenuPropertyInfo , - constructPopoverMenuVisibleSubmenu , - getPopoverMenuVisibleSubmenu , - setPopoverMenuVisibleSubmenu , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "visible-submenu" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m 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" val - -constructPopoverMenuVisibleSubmenu :: T.Text -> IO ([Char], GValue) -constructPopoverMenuVisibleSubmenu val = constructObjectPropertyString "visible-submenu" val - -data PopoverMenuVisibleSubmenuPropertyInfo -instance AttrInfo PopoverMenuVisibleSubmenuPropertyInfo where - type AttrAllowedOps PopoverMenuVisibleSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = PopoverMenuK - type AttrGetType PopoverMenuVisibleSubmenuPropertyInfo = T.Text - type AttrLabel PopoverMenuVisibleSubmenuPropertyInfo = "PopoverMenu::visible-submenu" - attrGet _ = getPopoverMenuVisibleSubmenu - attrSet _ = setPopoverMenuVisibleSubmenu - attrConstruct _ = constructPopoverMenuVisibleSubmenu - -type instance AttributeList PopoverMenu = PopoverMenuAttributeList -type PopoverMenuAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointing-to", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("relative-to", PopoverRelativeToPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transitions-enabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-submenu", PopoverMenuVisibleSubmenuPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList PopoverMenu = PopoverMenuSignalList -type PopoverMenuSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PopoverMenu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "PopoverMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PopoverMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -popoverMenuOpenSubmenu _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_popover_menu_open_submenu _obj' name' - touchManagedPtr _obj - freeMem name' - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.PopoverMenu where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PopoverMenu = PopoverMenu (ForeignPtr PopoverMenu) -instance GObject PopoverMenu where -class GObject o => PopoverMenuK o -instance (GObject o, IsDescendantOf PopoverMenu o) => PopoverMenuK o -data PopoverMenuVisibleSubmenuPropertyInfo 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,416 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - printContextCreatePangoContext , - - --- ** printContextCreatePangoLayout - printContextCreatePangoLayout , - - --- ** printContextGetCairoContext - printContextGetCairoContext , - - --- ** printContextGetDpiX - printContextGetDpiX , - - --- ** printContextGetDpiY - printContextGetDpiY , - - --- ** printContextGetHardMargins - printContextGetHardMargins , - - --- ** printContextGetHeight - printContextGetHeight , - - --- ** printContextGetPageSetup - printContextGetPageSetup , - - --- ** printContextGetPangoFontmap - printContextGetPangoFontmap , - - --- ** printContextGetWidth - printContextGetWidth , - - --- ** printContextSetCairoContext - printContextSetCairoContext , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList PrintContext = PrintContextAttributeList -type PrintContextAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PrintContext = PrintContextSignalList -type PrintContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PrintContext::create_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintContext::create_pango_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintContext::get_cairo_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintContext::get_dpi_x --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printContextGetDpiX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_dpi_x _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintContext::get_dpi_y --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printContextGetDpiY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_dpi_y _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintContext::get_hard_margins --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "bottom", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "left", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "right", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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'') - --- method PrintContext::get_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printContextGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_height _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintContext::get_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintContext::get_pango_fontmap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintContext::get_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printContextGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_context_get_width _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintContext::set_cairo_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- dpi_x - Double -> -- dpi_y - m () -printContextSetCairoContext _obj cr dpi_x dpi_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - let dpi_x' = realToFrac dpi_x - let dpi_y' = realToFrac dpi_y - gtk_print_context_set_cairo_context _obj' cr' dpi_x' dpi_y' - touchManagedPtr _obj - touchManagedPtr cr - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.PrintContext where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PrintContext = PrintContext (ForeignPtr PrintContext) -instance GObject PrintContext where -class GObject o => PrintContextK o -instance (GObject o, IsDescendantOf PrintContext o) => PrintContextK o 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,2210 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - printOperationCancel , - - --- ** printOperationDrawPageFinish - printOperationDrawPageFinish , - - --- ** printOperationGetDefaultPageSetup - printOperationGetDefaultPageSetup , - - --- ** printOperationGetEmbedPageSetup - printOperationGetEmbedPageSetup , - - --- ** printOperationGetError - printOperationGetError , - - --- ** printOperationGetHasSelection - printOperationGetHasSelection , - - --- ** printOperationGetNPagesToPrint - printOperationGetNPagesToPrint , - - --- ** printOperationGetPrintSettings - printOperationGetPrintSettings , - - --- ** printOperationGetStatus - printOperationGetStatus , - - --- ** printOperationGetStatusString - printOperationGetStatusString , - - --- ** printOperationGetSupportSelection - printOperationGetSupportSelection , - - --- ** printOperationIsFinished - printOperationIsFinished , - - --- ** printOperationNew - printOperationNew , - - --- ** printOperationRun - printOperationRun , - - --- ** printOperationSetAllowAsync - printOperationSetAllowAsync , - - --- ** printOperationSetCurrentPage - printOperationSetCurrentPage , - - --- ** printOperationSetCustomTabLabel - printOperationSetCustomTabLabel , - - --- ** printOperationSetDefaultPageSetup - printOperationSetDefaultPageSetup , - - --- ** printOperationSetDeferDrawing - printOperationSetDeferDrawing , - - --- ** printOperationSetEmbedPageSetup - printOperationSetEmbedPageSetup , - - --- ** printOperationSetExportFilename - printOperationSetExportFilename , - - --- ** printOperationSetHasSelection - printOperationSetHasSelection , - - --- ** printOperationSetJobName - printOperationSetJobName , - - --- ** printOperationSetNPages - printOperationSetNPages , - - --- ** printOperationSetPrintSettings - printOperationSetPrintSettings , - - --- ** printOperationSetShowProgress - printOperationSetShowProgress , - - --- ** printOperationSetSupportSelection - printOperationSetSupportSelection , - - --- ** printOperationSetTrackPrintStatus - printOperationSetTrackPrintStatus , - - --- ** printOperationSetUnit - printOperationSetUnit , - - --- ** printOperationSetUseFullPage - printOperationSetUseFullPage , - - - - - -- * Properties --- ** AllowAsync - PrintOperationAllowAsyncPropertyInfo , - constructPrintOperationAllowAsync , - getPrintOperationAllowAsync , - setPrintOperationAllowAsync , - - --- ** CurrentPage - PrintOperationCurrentPagePropertyInfo , - constructPrintOperationCurrentPage , - getPrintOperationCurrentPage , - setPrintOperationCurrentPage , - - --- ** CustomTabLabel - PrintOperationCustomTabLabelPropertyInfo, - constructPrintOperationCustomTabLabel , - getPrintOperationCustomTabLabel , - setPrintOperationCustomTabLabel , - - --- ** DefaultPageSetup - PrintOperationDefaultPageSetupPropertyInfo, - constructPrintOperationDefaultPageSetup , - getPrintOperationDefaultPageSetup , - setPrintOperationDefaultPageSetup , - - --- ** EmbedPageSetup - PrintOperationEmbedPageSetupPropertyInfo, - constructPrintOperationEmbedPageSetup , - getPrintOperationEmbedPageSetup , - setPrintOperationEmbedPageSetup , - - --- ** ExportFilename - PrintOperationExportFilenamePropertyInfo, - constructPrintOperationExportFilename , - getPrintOperationExportFilename , - setPrintOperationExportFilename , - - --- ** HasSelection - PrintOperationHasSelectionPropertyInfo , - constructPrintOperationHasSelection , - getPrintOperationHasSelection , - setPrintOperationHasSelection , - - --- ** JobName - PrintOperationJobNamePropertyInfo , - constructPrintOperationJobName , - getPrintOperationJobName , - setPrintOperationJobName , - - --- ** NPages - PrintOperationNPagesPropertyInfo , - constructPrintOperationNPages , - getPrintOperationNPages , - setPrintOperationNPages , - - --- ** NPagesToPrint - PrintOperationNPagesToPrintPropertyInfo , - getPrintOperationNPagesToPrint , - - --- ** PrintSettings - PrintOperationPrintSettingsPropertyInfo , - constructPrintOperationPrintSettings , - getPrintOperationPrintSettings , - setPrintOperationPrintSettings , - - --- ** ShowProgress - PrintOperationShowProgressPropertyInfo , - constructPrintOperationShowProgress , - getPrintOperationShowProgress , - setPrintOperationShowProgress , - - --- ** Status - PrintOperationStatusPropertyInfo , - getPrintOperationStatus , - - --- ** StatusString - PrintOperationStatusStringPropertyInfo , - getPrintOperationStatusString , - - --- ** SupportSelection - PrintOperationSupportSelectionPropertyInfo, - constructPrintOperationSupportSelection , - getPrintOperationSupportSelection , - setPrintOperationSupportSelection , - - --- ** TrackPrintStatus - PrintOperationTrackPrintStatusPropertyInfo, - constructPrintOperationTrackPrintStatus , - getPrintOperationTrackPrintStatus , - setPrintOperationTrackPrintStatus , - - --- ** Unit - PrintOperationUnitPropertyInfo , - constructPrintOperationUnit , - getPrintOperationUnit , - setPrintOperationUnit , - - --- ** UseFullPage - PrintOperationUseFullPagePropertyInfo , - constructPrintOperationUseFullPage , - getPrintOperationUseFullPage , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 page_nr _ = do - context' <- (newObject PrintContext) context - _cb context' page_nr - -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 page_nr setup _ = do - context' <- (newObject PrintContext) context - setup' <- (newObject PageSetup) setup - _cb context' page_nr 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] - -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 = "PrintOperation::allow-async" - attrGet _ = getPrintOperationAllowAsync - attrSet _ = setPrintOperationAllowAsync - attrConstruct _ = constructPrintOperationAllowAsync - --- VVV Prop "current-page" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationCurrentPage obj = liftIO $ getObjectPropertyCInt obj "current-page" - -setPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m () -setPrintOperationCurrentPage obj val = liftIO $ setObjectPropertyCInt obj "current-page" val - -constructPrintOperationCurrentPage :: Int32 -> IO ([Char], GValue) -constructPrintOperationCurrentPage val = constructObjectPropertyCInt "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 = "PrintOperation::current-page" - attrGet _ = getPrintOperationCurrentPage - attrSet _ = setPrintOperationCurrentPage - attrConstruct _ = constructPrintOperationCurrentPage - --- VVV Prop "custom-tab-label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m 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" val - -constructPrintOperationCustomTabLabel :: T.Text -> IO ([Char], GValue) -constructPrintOperationCustomTabLabel val = constructObjectPropertyString "custom-tab-label" val - -data PrintOperationCustomTabLabelPropertyInfo -instance AttrInfo PrintOperationCustomTabLabelPropertyInfo where - type AttrAllowedOps PrintOperationCustomTabLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationCustomTabLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PrintOperationCustomTabLabelPropertyInfo = PrintOperationK - type AttrGetType PrintOperationCustomTabLabelPropertyInfo = T.Text - type AttrLabel PrintOperationCustomTabLabelPropertyInfo = "PrintOperation::custom-tab-label" - attrGet _ = getPrintOperationCustomTabLabel - attrSet _ = setPrintOperationCustomTabLabel - attrConstruct _ = constructPrintOperationCustomTabLabel - --- VVV Prop "default-page-setup" - -- Type: TInterface "Gtk" "PageSetup" - -- Flags: [PropertyReadable,PropertyWritable] - -getPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o) => o -> m PageSetup -getPrintOperationDefaultPageSetup obj = liftIO $ 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" val - -constructPrintOperationDefaultPageSetup :: (PageSetupK a) => a -> IO ([Char], GValue) -constructPrintOperationDefaultPageSetup val = constructObjectPropertyObject "default-page-setup" val - -data PrintOperationDefaultPageSetupPropertyInfo -instance AttrInfo PrintOperationDefaultPageSetupPropertyInfo where - type AttrAllowedOps PrintOperationDefaultPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PageSetupK - type AttrBaseTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PrintOperationK - type AttrGetType PrintOperationDefaultPageSetupPropertyInfo = PageSetup - type AttrLabel PrintOperationDefaultPageSetupPropertyInfo = "PrintOperation::default-page-setup" - attrGet _ = getPrintOperationDefaultPageSetup - attrSet _ = setPrintOperationDefaultPageSetup - attrConstruct _ = constructPrintOperationDefaultPageSetup - --- VVV Prop "embed-page-setup" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PrintOperation::embed-page-setup" - attrGet _ = getPrintOperationEmbedPageSetup - attrSet _ = setPrintOperationEmbedPageSetup - attrConstruct _ = constructPrintOperationEmbedPageSetup - --- VVV Prop "export-filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m 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" val - -constructPrintOperationExportFilename :: T.Text -> IO ([Char], GValue) -constructPrintOperationExportFilename val = constructObjectPropertyString "export-filename" val - -data PrintOperationExportFilenamePropertyInfo -instance AttrInfo PrintOperationExportFilenamePropertyInfo where - type AttrAllowedOps PrintOperationExportFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationExportFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PrintOperationExportFilenamePropertyInfo = PrintOperationK - type AttrGetType PrintOperationExportFilenamePropertyInfo = T.Text - type AttrLabel PrintOperationExportFilenamePropertyInfo = "PrintOperation::export-filename" - attrGet _ = getPrintOperationExportFilename - attrSet _ = setPrintOperationExportFilename - attrConstruct _ = constructPrintOperationExportFilename - --- VVV Prop "has-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PrintOperation::has-selection" - attrGet _ = getPrintOperationHasSelection - attrSet _ = setPrintOperationHasSelection - attrConstruct _ = constructPrintOperationHasSelection - --- VVV Prop "job-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> m 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" val - -constructPrintOperationJobName :: T.Text -> IO ([Char], GValue) -constructPrintOperationJobName val = constructObjectPropertyString "job-name" 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 = T.Text - type AttrLabel PrintOperationJobNamePropertyInfo = "PrintOperation::job-name" - attrGet _ = getPrintOperationJobName - attrSet _ = setPrintOperationJobName - attrConstruct _ = constructPrintOperationJobName - --- VVV Prop "n-pages" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationNPages obj = liftIO $ getObjectPropertyCInt obj "n-pages" - -setPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m () -setPrintOperationNPages obj val = liftIO $ setObjectPropertyCInt obj "n-pages" val - -constructPrintOperationNPages :: Int32 -> IO ([Char], GValue) -constructPrintOperationNPages val = constructObjectPropertyCInt "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 = "PrintOperation::n-pages" - attrGet _ = getPrintOperationNPages - attrSet _ = setPrintOperationNPages - attrConstruct _ = constructPrintOperationNPages - --- VVV Prop "n-pages-to-print" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getPrintOperationNPagesToPrint :: (MonadIO m, PrintOperationK o) => o -> m Int32 -getPrintOperationNPagesToPrint obj = liftIO $ getObjectPropertyCInt 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 = "PrintOperation::n-pages-to-print" - attrGet _ = getPrintOperationNPagesToPrint - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "print-settings" - -- Type: TInterface "Gtk" "PrintSettings" - -- Flags: [PropertyReadable,PropertyWritable] - -getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m PrintSettings -getPrintOperationPrintSettings obj = liftIO $ getObjectPropertyObject obj "print-settings" PrintSettings - -setPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o, PrintSettingsK a) => o -> a -> m () -setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" val - -constructPrintOperationPrintSettings :: (PrintSettingsK a) => a -> IO ([Char], GValue) -constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" val - -data PrintOperationPrintSettingsPropertyInfo -instance AttrInfo PrintOperationPrintSettingsPropertyInfo where - type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintSettingsK - type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK - type AttrGetType PrintOperationPrintSettingsPropertyInfo = PrintSettings - type AttrLabel PrintOperationPrintSettingsPropertyInfo = "PrintOperation::print-settings" - attrGet _ = getPrintOperationPrintSettings - attrSet _ = setPrintOperationPrintSettings - attrConstruct _ = constructPrintOperationPrintSettings - --- VVV Prop "show-progress" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PrintOperation::show-progress" - attrGet _ = getPrintOperationShowProgress - attrSet _ = setPrintOperationShowProgress - attrConstruct _ = constructPrintOperationShowProgress - --- VVV Prop "status" - -- Type: TInterface "Gtk" "PrintStatus" - -- Flags: [PropertyReadable] - -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 = "PrintOperation::status" - attrGet _ = getPrintOperationStatus - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "status-string" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getPrintOperationStatusString :: (MonadIO m, PrintOperationK o) => o -> m T.Text -getPrintOperationStatusString obj = liftIO $ getObjectPropertyString obj "status-string" - -data PrintOperationStatusStringPropertyInfo -instance AttrInfo PrintOperationStatusStringPropertyInfo where - type AttrAllowedOps PrintOperationStatusStringPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PrintOperationStatusStringPropertyInfo = (~) () - type AttrBaseTypeConstraint PrintOperationStatusStringPropertyInfo = PrintOperationK - type AttrGetType PrintOperationStatusStringPropertyInfo = T.Text - type AttrLabel PrintOperationStatusStringPropertyInfo = "PrintOperation::status-string" - attrGet _ = getPrintOperationStatusString - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "support-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PrintOperation::support-selection" - attrGet _ = getPrintOperationSupportSelection - attrSet _ = setPrintOperationSupportSelection - attrConstruct _ = constructPrintOperationSupportSelection - --- VVV Prop "track-print-status" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PrintOperation::track-print-status" - attrGet _ = getPrintOperationTrackPrintStatus - attrSet _ = setPrintOperationTrackPrintStatus - attrConstruct _ = constructPrintOperationTrackPrintStatus - --- VVV Prop "unit" - -- Type: TInterface "Gtk" "Unit" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PrintOperation::unit" - attrGet _ = getPrintOperationUnit - attrSet _ = setPrintOperationUnit - attrConstruct _ = constructPrintOperationUnit - --- VVV Prop "use-full-page" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "PrintOperation::use-full-page" - attrGet _ = getPrintOperationUseFullPage - attrSet _ = setPrintOperationUseFullPage - attrConstruct _ = constructPrintOperationUseFullPage - -type instance AttributeList PrintOperation = PrintOperationAttributeList -type PrintOperationAttributeList = ('[ '("allow-async", PrintOperationAllowAsyncPropertyInfo), '("current-page", PrintOperationCurrentPagePropertyInfo), '("custom-tab-label", PrintOperationCustomTabLabelPropertyInfo), '("default-page-setup", PrintOperationDefaultPageSetupPropertyInfo), '("embed-page-setup", PrintOperationEmbedPageSetupPropertyInfo), '("export-filename", PrintOperationExportFilenamePropertyInfo), '("has-selection", PrintOperationHasSelectionPropertyInfo), '("job-name", PrintOperationJobNamePropertyInfo), '("n-pages", PrintOperationNPagesPropertyInfo), '("n-pages-to-print", PrintOperationNPagesToPrintPropertyInfo), '("print-settings", PrintOperationPrintSettingsPropertyInfo), '("show-progress", PrintOperationShowProgressPropertyInfo), '("status", PrintOperationStatusPropertyInfo), '("status-string", PrintOperationStatusStringPropertyInfo), '("support-selection", PrintOperationSupportSelectionPropertyInfo), '("track-print-status", PrintOperationTrackPrintStatusPropertyInfo), '("unit", PrintOperationUnitPropertyInfo), '("use-full-page", PrintOperationUseFullPagePropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("begin-print", PrintOperationBeginPrintSignalInfo), '("create-custom-widget", PrintOperationCreateCustomWidgetSignalInfo), '("custom-widget-apply", PrintOperationCustomWidgetApplySignalInfo), '("done", PrintOperationDoneSignalInfo), '("draw-page", PrintOperationDrawPageSignalInfo), '("end-print", PrintOperationEndPrintSignalInfo), '("got-page-size", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paginate", PrintOperationPaginateSignalInfo), '("preview", PrintOperationPreviewSignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("request-page-setup", PrintOperationRequestPageSetupSignalInfo), '("status-changed", PrintOperationStatusChangedSignalInfo), '("update-custom-widget", PrintOperationUpdateCustomWidgetSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PrintOperation::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printOperationCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_cancel _obj' - touchManagedPtr _obj - return () - --- method PrintOperation::draw_page_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printOperationDrawPageFinish _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_draw_page_finish _obj' - touchManagedPtr _obj - return () - --- method PrintOperation::get_default_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintOperation::get_embed_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintOperation::get_error --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printOperationGetError _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - propagateGError $ gtk_print_operation_get_error _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - --- method PrintOperation::get_has_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printOperationGetHasSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_has_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintOperation::get_n_pages_to_print --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -printOperationGetNPagesToPrint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_n_pages_to_print _obj' - touchManagedPtr _obj - return result - --- method PrintOperation::get_print_settings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintOperation::get_status --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printOperationGetStatus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_status _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintOperation::get_status_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintOperation::get_support_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printOperationGetSupportSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_get_support_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintOperation::is_finished --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printOperationIsFinished _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_operation_is_finished _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintOperation::run --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gtk" "PrintOperationAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 () - ) - --- method PrintOperation::set_allow_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_async", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- allow_async - m () -printOperationSetAllowAsync _obj allow_async = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allow_async' = (fromIntegral . fromEnum) allow_async - gtk_print_operation_set_allow_async _obj' allow_async' - touchManagedPtr _obj - return () - --- method PrintOperation::set_current_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_page", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_set_current_page" gtk_print_operation_set_current_page :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Int32 -> -- current_page : TBasicType TInt32 - IO () - - -printOperationSetCurrentPage :: - (MonadIO m, PrintOperationK a) => - a -> -- _obj - Int32 -> -- current_page - m () -printOperationSetCurrentPage _obj current_page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_set_current_page _obj' current_page - touchManagedPtr _obj - return () - --- method PrintOperation::set_custom_tab_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintOperation::set_default_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_page_setup", argType = TInterface "Gtk" "PageSetup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- default_page_setup - m () -printOperationSetDefaultPageSetup _obj default_page_setup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDefault_page_setup <- case default_page_setup of - Nothing -> return nullPtr - Just jDefault_page_setup -> do - let jDefault_page_setup' = unsafeManagedPtrCastPtr jDefault_page_setup - return jDefault_page_setup' - gtk_print_operation_set_default_page_setup _obj' maybeDefault_page_setup - touchManagedPtr _obj - whenJust default_page_setup touchManagedPtr - return () - --- method PrintOperation::set_defer_drawing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printOperationSetDeferDrawing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_set_defer_drawing _obj' - touchManagedPtr _obj - return () - --- method PrintOperation::set_embed_page_setup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintOperation::set_export_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintOperation::set_has_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- has_selection - m () -printOperationSetHasSelection _obj has_selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_selection' = (fromIntegral . fromEnum) has_selection - gtk_print_operation_set_has_selection _obj' has_selection' - touchManagedPtr _obj - return () - --- method PrintOperation::set_job_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "job_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- job_name - m () -printOperationSetJobName _obj job_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - job_name' <- textToCString job_name - gtk_print_operation_set_job_name _obj' job_name' - touchManagedPtr _obj - freeMem job_name' - return () - --- method PrintOperation::set_n_pages --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_operation_set_n_pages" gtk_print_operation_set_n_pages :: - Ptr PrintOperation -> -- _obj : TInterface "Gtk" "PrintOperation" - Int32 -> -- n_pages : TBasicType TInt32 - IO () - - -printOperationSetNPages :: - (MonadIO m, PrintOperationK a) => - a -> -- _obj - Int32 -> -- n_pages - m () -printOperationSetNPages _obj n_pages = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_operation_set_n_pages _obj' n_pages - touchManagedPtr _obj - return () - --- method PrintOperation::set_print_settings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "print_settings", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- print_settings - m () -printOperationSetPrintSettings _obj print_settings = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePrint_settings <- case print_settings of - Nothing -> return nullPtr - Just jPrint_settings -> do - let jPrint_settings' = unsafeManagedPtrCastPtr jPrint_settings - return jPrint_settings' - gtk_print_operation_set_print_settings _obj' maybePrint_settings - touchManagedPtr _obj - whenJust print_settings touchManagedPtr - return () - --- method PrintOperation::set_show_progress --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_progress", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_progress - m () -printOperationSetShowProgress _obj show_progress = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_progress' = (fromIntegral . fromEnum) show_progress - gtk_print_operation_set_show_progress _obj' show_progress' - touchManagedPtr _obj - return () - --- method PrintOperation::set_support_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_selection", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- support_selection - m () -printOperationSetSupportSelection _obj support_selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let support_selection' = (fromIntegral . fromEnum) support_selection - gtk_print_operation_set_support_selection _obj' support_selection' - touchManagedPtr _obj - return () - --- method PrintOperation::set_track_print_status --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_status", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- track_status - m () -printOperationSetTrackPrintStatus _obj track_status = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let track_status' = (fromIntegral . fromEnum) track_status - gtk_print_operation_set_track_print_status _obj' track_status' - touchManagedPtr _obj - return () - --- method PrintOperation::set_unit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printOperationSetUnit _obj unit = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let unit' = (fromIntegral . fromEnum) unit - gtk_print_operation_set_unit _obj' unit' - touchManagedPtr _obj - return () - --- method PrintOperation::set_use_full_page --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_page", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- full_page - m () -printOperationSetUseFullPage _obj full_page = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let full_page' = (fromIntegral . fromEnum) full_page - gtk_print_operation_set_use_full_page _obj' full_page' - touchManagedPtr _obj - return () - - 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,42 +0,0 @@ -module GI.Gtk.Objects.PrintOperation where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,2430 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - printSettingsCopy , - - --- ** printSettingsForeach - printSettingsForeach , - - --- ** printSettingsGet - printSettingsGet , - - --- ** printSettingsGetBool - printSettingsGetBool , - - --- ** printSettingsGetCollate - printSettingsGetCollate , - - --- ** printSettingsGetDefaultSource - printSettingsGetDefaultSource , - - --- ** printSettingsGetDither - printSettingsGetDither , - - --- ** printSettingsGetDouble - printSettingsGetDouble , - - --- ** printSettingsGetDoubleWithDefault - printSettingsGetDoubleWithDefault , - - --- ** printSettingsGetDuplex - printSettingsGetDuplex , - - --- ** printSettingsGetFinishings - printSettingsGetFinishings , - - --- ** printSettingsGetInt - printSettingsGetInt , - - --- ** printSettingsGetIntWithDefault - printSettingsGetIntWithDefault , - - --- ** printSettingsGetLength - printSettingsGetLength , - - --- ** printSettingsGetMediaType - printSettingsGetMediaType , - - --- ** printSettingsGetNCopies - printSettingsGetNCopies , - - --- ** printSettingsGetNumberUp - printSettingsGetNumberUp , - - --- ** printSettingsGetNumberUpLayout - printSettingsGetNumberUpLayout , - - --- ** printSettingsGetOrientation - printSettingsGetOrientation , - - --- ** printSettingsGetOutputBin - printSettingsGetOutputBin , - - --- ** printSettingsGetPageRanges - printSettingsGetPageRanges , - - --- ** printSettingsGetPageSet - printSettingsGetPageSet , - - --- ** printSettingsGetPaperHeight - printSettingsGetPaperHeight , - - --- ** printSettingsGetPaperSize - printSettingsGetPaperSize , - - --- ** printSettingsGetPaperWidth - printSettingsGetPaperWidth , - - --- ** printSettingsGetPrintPages - printSettingsGetPrintPages , - - --- ** printSettingsGetPrinter - printSettingsGetPrinter , - - --- ** printSettingsGetPrinterLpi - printSettingsGetPrinterLpi , - - --- ** printSettingsGetQuality - printSettingsGetQuality , - - --- ** printSettingsGetResolution - printSettingsGetResolution , - - --- ** printSettingsGetResolutionX - printSettingsGetResolutionX , - - --- ** printSettingsGetResolutionY - printSettingsGetResolutionY , - - --- ** printSettingsGetReverse - printSettingsGetReverse , - - --- ** printSettingsGetScale - printSettingsGetScale , - - --- ** printSettingsGetUseColor - printSettingsGetUseColor , - - --- ** printSettingsHasKey - printSettingsHasKey , - - --- ** printSettingsLoadFile - printSettingsLoadFile , - - --- ** printSettingsLoadKeyFile - printSettingsLoadKeyFile , - - --- ** printSettingsNew - printSettingsNew , - - --- ** printSettingsNewFromFile - printSettingsNewFromFile , - - --- ** printSettingsNewFromKeyFile - printSettingsNewFromKeyFile , - - --- ** printSettingsSet - printSettingsSet , - - --- ** printSettingsSetBool - printSettingsSetBool , - - --- ** printSettingsSetCollate - printSettingsSetCollate , - - --- ** printSettingsSetDefaultSource - printSettingsSetDefaultSource , - - --- ** printSettingsSetDither - printSettingsSetDither , - - --- ** printSettingsSetDouble - printSettingsSetDouble , - - --- ** printSettingsSetDuplex - printSettingsSetDuplex , - - --- ** printSettingsSetFinishings - printSettingsSetFinishings , - - --- ** printSettingsSetInt - printSettingsSetInt , - - --- ** printSettingsSetLength - printSettingsSetLength , - - --- ** printSettingsSetMediaType - printSettingsSetMediaType , - - --- ** printSettingsSetNCopies - printSettingsSetNCopies , - - --- ** printSettingsSetNumberUp - printSettingsSetNumberUp , - - --- ** printSettingsSetNumberUpLayout - printSettingsSetNumberUpLayout , - - --- ** printSettingsSetOrientation - printSettingsSetOrientation , - - --- ** printSettingsSetOutputBin - printSettingsSetOutputBin , - - --- ** printSettingsSetPageRanges - printSettingsSetPageRanges , - - --- ** printSettingsSetPageSet - printSettingsSetPageSet , - - --- ** printSettingsSetPaperHeight - printSettingsSetPaperHeight , - - --- ** printSettingsSetPaperSize - printSettingsSetPaperSize , - - --- ** printSettingsSetPaperWidth - printSettingsSetPaperWidth , - - --- ** printSettingsSetPrintPages - printSettingsSetPrintPages , - - --- ** printSettingsSetPrinter - printSettingsSetPrinter , - - --- ** printSettingsSetPrinterLpi - printSettingsSetPrinterLpi , - - --- ** printSettingsSetQuality - printSettingsSetQuality , - - --- ** printSettingsSetResolution - printSettingsSetResolution , - - --- ** printSettingsSetResolutionXy - printSettingsSetResolutionXy , - - --- ** printSettingsSetReverse - printSettingsSetReverse , - - --- ** printSettingsSetScale - printSettingsSetScale , - - --- ** printSettingsSetUseColor - printSettingsSetUseColor , - - --- ** printSettingsToFile - printSettingsToFile , - - --- ** printSettingsToKeyFile - printSettingsToKeyFile , - - --- ** printSettingsUnset - printSettingsUnset , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList PrintSettings = PrintSettingsAttributeList -type PrintSettingsAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PrintSettings = PrintSettingsSignalList -type PrintSettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PrintSettings::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -> -- file_name - m PrintSettings -printSettingsNewFromFile file_name = liftIO $ do - file_name' <- stringToCString file_name - onException (do - result <- propagateGError $ gtk_print_settings_new_from_file file_name' - checkUnexpectedReturnNULL "gtk_print_settings_new_from_file" result - result' <- (wrapObject PrintSettings) result - freeMem file_name' - return result' - ) (do - freeMem file_name' - ) - --- method PrintSettings::new_from_key_file --- method type : Constructor --- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- key_file - Maybe (T.Text) -> -- group_name - m PrintSettings -printSettingsNewFromKeyFile key_file group_name = liftIO $ do - let key_file' = unsafeManagedPtrGetPtr key_file - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - onException (do - result <- propagateGError $ gtk_print_settings_new_from_key_file key_file' maybeGroup_name - checkUnexpectedReturnNULL "gtk_print_settings_new_from_key_file" result - result' <- (wrapObject PrintSettings) result - touchManagedPtr key_file - freeMem maybeGroup_name - return result' - ) (do - freeMem maybeGroup_name - ) - --- method PrintSettings::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "PrintSettingsFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -printSettingsForeach :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - PrintSettingsFunc -> -- func - m () -printSettingsForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - func' <- mkPrintSettingsFunc (printSettingsFuncWrapper Nothing func) - let user_data = nullPtr - gtk_print_settings_foreach _obj' func' user_data - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - --- method PrintSettings::get --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_bool --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method PrintSettings::get_collate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printSettingsGetCollate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_collate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_default_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_dither --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_double --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_double_with_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_duplex --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printSettingsGetDuplex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_duplex _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_finishings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_int --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method PrintSettings::get_int_with_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "def", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - IO Int32 - - -printSettingsGetIntWithDefault :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Int32 -> -- def - m Int32 -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 - --- method PrintSettings::get_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_media_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_n_copies --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -printSettingsGetNCopies _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_n_copies _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_number_up --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -printSettingsGetNumberUp _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_number_up _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_number_up_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printSettingsGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_output_bin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_page_ranges --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr PageRange) - - -printSettingsGetPageRanges :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - m [PageRange] -printSettingsGetPageRanges _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - num_ranges <- allocMem :: IO (Ptr Int32) - result <- gtk_print_settings_get_page_ranges _obj' num_ranges - num_ranges' <- peek num_ranges - checkUnexpectedReturnNULL "gtk_print_settings_get_page_ranges" result - result' <- (unpackBlockArrayWithLength 8 num_ranges') result - result'' <- mapM (wrapPtr PageRange) result' - freeMem result - touchManagedPtr _obj - freeMem num_ranges - return result'' - --- method PrintSettings::get_page_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_paper_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_paper_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_print_pages --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_printer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PrintSettings::get_printer_lpi --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printSettingsGetPrinterLpi _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_printer_lpi _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_quality --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printSettingsGetQuality _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_quality _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_resolution --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -printSettingsGetResolution _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_resolution_x --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -printSettingsGetResolutionX _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution_x _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_resolution_y --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -printSettingsGetResolutionY _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_resolution_y _obj' - touchManagedPtr _obj - return result - --- method PrintSettings::get_reverse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printSettingsGetReverse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_reverse _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printSettingsGetScale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_scale _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method PrintSettings::get_use_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -printSettingsGetUseColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_print_settings_get_use_color _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PrintSettings::has_key --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method PrintSettings::load_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -> -- file_name - m () -printSettingsLoadFile _obj file_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - file_name' <- stringToCString file_name - onException (do - _ <- propagateGError $ gtk_print_settings_load_file _obj' file_name' - touchManagedPtr _obj - freeMem file_name' - return () - ) (do - freeMem file_name' - ) - --- method PrintSettings::load_key_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- key_file - Maybe (T.Text) -> -- group_name - m () -printSettingsLoadKeyFile _obj key_file group_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - onException (do - _ <- propagateGError $ gtk_print_settings_load_key_file _obj' key_file' maybeGroup_name - touchManagedPtr _obj - touchManagedPtr key_file - freeMem maybeGroup_name - return () - ) (do - freeMem maybeGroup_name - ) - --- method PrintSettings::set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintSettings::set_bool --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintSettings::set_collate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printSettingsSetCollate _obj collate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let collate' = (fromIntegral . fromEnum) collate - gtk_print_settings_set_collate _obj' collate' - touchManagedPtr _obj - return () - --- method PrintSettings::set_default_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- default_source - m () -printSettingsSetDefaultSource _obj default_source = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - default_source' <- textToCString default_source - gtk_print_settings_set_default_source _obj' default_source' - touchManagedPtr _obj - freeMem default_source' - return () - --- method PrintSettings::set_dither --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dither", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -printSettingsSetDither _obj dither = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - dither' <- textToCString dither - gtk_print_settings_set_dither _obj' dither' - touchManagedPtr _obj - freeMem dither' - return () - --- method PrintSettings::set_double --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintSettings::set_duplex --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duplex", argType = TInterface "Gtk" "PrintDuplex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printSettingsSetDuplex _obj duplex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let duplex' = (fromIntegral . fromEnum) duplex - gtk_print_settings_set_duplex _obj' duplex' - touchManagedPtr _obj - return () - --- method PrintSettings::set_finishings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "finishings", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -printSettingsSetFinishings _obj finishings = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - finishings' <- textToCString finishings - gtk_print_settings_set_finishings _obj' finishings' - touchManagedPtr _obj - freeMem finishings' - return () - --- method PrintSettings::set_int --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_int" gtk_print_settings_set_int :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - CString -> -- key : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt32 - IO () - - -printSettingsSetInt :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - T.Text -> -- key - Int32 -> -- value - m () -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 () - --- method PrintSettings::set_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintSettings::set_media_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "media_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- media_type - m () -printSettingsSetMediaType _obj media_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - media_type' <- textToCString media_type - gtk_print_settings_set_media_type _obj' media_type' - touchManagedPtr _obj - freeMem media_type' - return () - --- method PrintSettings::set_n_copies --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_copies", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_n_copies" gtk_print_settings_set_n_copies :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- num_copies : TBasicType TInt32 - IO () - - -printSettingsSetNCopies :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Int32 -> -- num_copies - m () -printSettingsSetNCopies _obj num_copies = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_n_copies _obj' num_copies - touchManagedPtr _obj - return () - --- method PrintSettings::set_number_up --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_number_up" gtk_print_settings_set_number_up :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- number_up : TBasicType TInt32 - IO () - - -printSettingsSetNumberUp :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Int32 -> -- number_up - m () -printSettingsSetNumberUp _obj number_up = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_number_up _obj' number_up - touchManagedPtr _obj - return () - --- method PrintSettings::set_number_up_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "number_up_layout", argType = TInterface "Gtk" "NumberUpLayout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- number_up_layout - m () -printSettingsSetNumberUpLayout _obj number_up_layout = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let number_up_layout' = (fromIntegral . fromEnum) number_up_layout - gtk_print_settings_set_number_up_layout _obj' number_up_layout' - touchManagedPtr _obj - return () - --- method PrintSettings::set_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "PageOrientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printSettingsSetOrientation _obj orientation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let orientation' = (fromIntegral . fromEnum) orientation - gtk_print_settings_set_orientation _obj' orientation' - touchManagedPtr _obj - return () - --- method PrintSettings::set_output_bin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "output_bin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- output_bin - m () -printSettingsSetOutputBin _obj output_bin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - output_bin' <- textToCString output_bin - gtk_print_settings_set_output_bin _obj' output_bin' - touchManagedPtr _obj - freeMem output_bin' - return () - --- method PrintSettings::set_page_ranges --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "num_ranges", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_ranges", argType = TCArray False (-1) 2 (TInterface "Gtk" "PageRange"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -printSettingsSetPageRanges :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - [PageRange] -> -- page_ranges - m () -printSettingsSetPageRanges _obj page_ranges = liftIO $ do - let num_ranges = fromIntegral $ length page_ranges - let _obj' = unsafeManagedPtrCastPtr _obj - let page_ranges' = map unsafeManagedPtrGetPtr page_ranges - page_ranges'' <- packBlockArray 8 page_ranges' - gtk_print_settings_set_page_ranges _obj' page_ranges'' num_ranges - touchManagedPtr _obj - mapM_ touchManagedPtr page_ranges - freeMem page_ranges'' - return () - --- method PrintSettings::set_page_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page_set", argType = TInterface "Gtk" "PageSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- page_set - m () -printSettingsSetPageSet _obj page_set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let page_set' = (fromIntegral . fromEnum) page_set - gtk_print_settings_set_page_set _obj' page_set' - touchManagedPtr _obj - return () - --- method PrintSettings::set_paper_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintSettings::set_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paper_size", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- paper_size - m () -printSettingsSetPaperSize _obj paper_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let paper_size' = unsafeManagedPtrGetPtr paper_size - gtk_print_settings_set_paper_size _obj' paper_size' - touchManagedPtr _obj - touchManagedPtr paper_size - return () - --- method PrintSettings::set_paper_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintSettings::set_print_pages --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pages", argType = TInterface "Gtk" "PrintPages", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PrintSettings::set_printer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -printSettingsSetPrinter _obj printer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - printer' <- textToCString printer - gtk_print_settings_set_printer _obj' printer' - touchManagedPtr _obj - freeMem printer' - return () - --- method PrintSettings::set_printer_lpi --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printSettingsSetPrinterLpi _obj lpi = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let lpi' = realToFrac lpi - gtk_print_settings_set_printer_lpi _obj' lpi' - touchManagedPtr _obj - return () - --- method PrintSettings::set_quality --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quality", argType = TInterface "Gtk" "PrintQuality", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printSettingsSetQuality _obj quality = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let quality' = (fromIntegral . fromEnum) quality - gtk_print_settings_set_quality _obj' quality' - touchManagedPtr _obj - return () - --- method PrintSettings::set_resolution --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_resolution" gtk_print_settings_set_resolution :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- resolution : TBasicType TInt32 - IO () - - -printSettingsSetResolution :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Int32 -> -- resolution - m () -printSettingsSetResolution _obj resolution = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_resolution _obj' resolution - touchManagedPtr _obj - return () - --- method PrintSettings::set_resolution_xy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolution_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_print_settings_set_resolution_xy" gtk_print_settings_set_resolution_xy :: - Ptr PrintSettings -> -- _obj : TInterface "Gtk" "PrintSettings" - Int32 -> -- resolution_x : TBasicType TInt32 - Int32 -> -- resolution_y : TBasicType TInt32 - IO () - - -printSettingsSetResolutionXy :: - (MonadIO m, PrintSettingsK a) => - a -> -- _obj - Int32 -> -- resolution_x - Int32 -> -- resolution_y - m () -printSettingsSetResolutionXy _obj resolution_x resolution_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_print_settings_set_resolution_xy _obj' resolution_x resolution_y - touchManagedPtr _obj - return () - --- method PrintSettings::set_reverse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reverse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printSettingsSetReverse _obj reverse = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reverse' = (fromIntegral . fromEnum) reverse - gtk_print_settings_set_reverse _obj' reverse' - touchManagedPtr _obj - return () - --- method PrintSettings::set_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -printSettingsSetScale _obj scale = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let scale' = realToFrac scale - gtk_print_settings_set_scale _obj' scale' - touchManagedPtr _obj - return () - --- method PrintSettings::set_use_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_color - m () -printSettingsSetUseColor _obj use_color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_color' = (fromIntegral . fromEnum) use_color - gtk_print_settings_set_use_color _obj' use_color' - touchManagedPtr _obj - return () - --- method PrintSettings::to_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -> -- file_name - m () -printSettingsToFile _obj file_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - file_name' <- stringToCString file_name - onException (do - _ <- propagateGError $ gtk_print_settings_to_file _obj' file_name' - touchManagedPtr _obj - freeMem file_name' - return () - ) (do - freeMem file_name' - ) - --- method PrintSettings::to_key_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- key_file - T.Text -> -- group_name - m () -printSettingsToKeyFile _obj key_file group_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - group_name' <- textToCString group_name - gtk_print_settings_to_key_file _obj' key_file' group_name' - touchManagedPtr _obj - touchManagedPtr key_file - freeMem group_name' - return () - --- method PrintSettings::unset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PrintSettings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -printSettingsUnset _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - gtk_print_settings_unset _obj' key' - touchManagedPtr _obj - freeMem key' - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.PrintSettings where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PrintSettings = PrintSettings (ForeignPtr PrintSettings) -instance GObject PrintSettings where -class GObject o => PrintSettingsK o -instance (GObject o, IsDescendantOf PrintSettings o) => PrintSettingsK o 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,672 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - progressBarGetEllipsize , - - --- ** progressBarGetFraction - progressBarGetFraction , - - --- ** progressBarGetInverted - progressBarGetInverted , - - --- ** progressBarGetPulseStep - progressBarGetPulseStep , - - --- ** progressBarGetShowText - progressBarGetShowText , - - --- ** progressBarGetText - progressBarGetText , - - --- ** progressBarNew - progressBarNew , - - --- ** progressBarPulse - progressBarPulse , - - --- ** progressBarSetEllipsize - progressBarSetEllipsize , - - --- ** progressBarSetFraction - progressBarSetFraction , - - --- ** progressBarSetInverted - progressBarSetInverted , - - --- ** progressBarSetPulseStep - progressBarSetPulseStep , - - --- ** progressBarSetShowText - progressBarSetShowText , - - --- ** progressBarSetText - progressBarSetText , - - - - - -- * Properties --- ** Ellipsize - ProgressBarEllipsizePropertyInfo , - constructProgressBarEllipsize , - getProgressBarEllipsize , - setProgressBarEllipsize , - - --- ** Fraction - ProgressBarFractionPropertyInfo , - constructProgressBarFraction , - getProgressBarFraction , - setProgressBarFraction , - - --- ** Inverted - ProgressBarInvertedPropertyInfo , - constructProgressBarInverted , - getProgressBarInverted , - setProgressBarInverted , - - --- ** PulseStep - ProgressBarPulseStepPropertyInfo , - constructProgressBarPulseStep , - getProgressBarPulseStep , - setProgressBarPulseStep , - - --- ** ShowText - ProgressBarShowTextPropertyInfo , - constructProgressBarShowText , - getProgressBarShowText , - setProgressBarShowText , - - --- ** Text - ProgressBarTextPropertyInfo , - constructProgressBarText , - getProgressBarText , - setProgressBarText , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ProgressBar::ellipsize" - attrGet _ = getProgressBarEllipsize - attrSet _ = setProgressBarEllipsize - attrConstruct _ = constructProgressBarEllipsize - --- VVV Prop "fraction" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ProgressBar::fraction" - attrGet _ = getProgressBarFraction - attrSet _ = setProgressBarFraction - attrConstruct _ = constructProgressBarFraction - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ProgressBar::inverted" - attrGet _ = getProgressBarInverted - attrSet _ = setProgressBarInverted - attrConstruct _ = constructProgressBarInverted - --- VVV Prop "pulse-step" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ProgressBar::pulse-step" - attrGet _ = getProgressBarPulseStep - attrSet _ = setProgressBarPulseStep - attrConstruct _ = constructProgressBarPulseStep - --- VVV Prop "show-text" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ProgressBar::show-text" - attrGet _ = getProgressBarShowText - attrSet _ = setProgressBarShowText - attrConstruct _ = constructProgressBarShowText - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getProgressBarText :: (MonadIO m, ProgressBarK o) => o -> m T.Text -getProgressBarText obj = liftIO $ getObjectPropertyString obj "text" - -setProgressBarText :: (MonadIO m, ProgressBarK o) => o -> T.Text -> m () -setProgressBarText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructProgressBarText :: T.Text -> IO ([Char], GValue) -constructProgressBarText val = constructObjectPropertyString "text" val - -data ProgressBarTextPropertyInfo -instance AttrInfo ProgressBarTextPropertyInfo where - type AttrAllowedOps ProgressBarTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ProgressBarTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProgressBarTextPropertyInfo = ProgressBarK - type AttrGetType ProgressBarTextPropertyInfo = T.Text - type AttrLabel ProgressBarTextPropertyInfo = "ProgressBar::text" - attrGet _ = getProgressBarText - attrSet _ = setProgressBarText - attrConstruct _ = constructProgressBarText - -type instance AttributeList ProgressBar = ProgressBarAttributeList -type ProgressBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ProgressBarEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fraction", ProgressBarFractionPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", ProgressBarInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pulse-step", ProgressBarPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-text", ProgressBarShowTextPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ProgressBarTextPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ProgressBar = ProgressBarSignalList -type ProgressBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ProgressBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -progressBarGetEllipsize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_ellipsize _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method ProgressBar::get_fraction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -progressBarGetFraction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_fraction _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method ProgressBar::get_inverted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -progressBarGetInverted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_inverted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ProgressBar::get_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -progressBarGetPulseStep _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_pulse_step _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method ProgressBar::get_show_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -progressBarGetShowText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_progress_bar_get_show_text _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ProgressBar::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ProgressBar::pulse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -progressBarPulse _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_progress_bar_pulse _obj' - touchManagedPtr _obj - return () - --- method ProgressBar::set_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -progressBarSetEllipsize _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_progress_bar_set_ellipsize _obj' mode' - touchManagedPtr _obj - return () - --- method ProgressBar::set_fraction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -progressBarSetFraction _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_progress_bar_set_fraction _obj' fraction' - touchManagedPtr _obj - return () - --- method ProgressBar::set_inverted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -progressBarSetInverted _obj inverted = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let inverted' = (fromIntegral . fromEnum) inverted - gtk_progress_bar_set_inverted _obj' inverted' - touchManagedPtr _obj - return () - --- method ProgressBar::set_pulse_step --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fraction", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -progressBarSetPulseStep _obj fraction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fraction' = realToFrac fraction - gtk_progress_bar_set_pulse_step _obj' fraction' - touchManagedPtr _obj - return () - --- method ProgressBar::set_show_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_text", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_text - m () -progressBarSetShowText _obj show_text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_text' = (fromIntegral . fromEnum) show_text - gtk_progress_bar_set_show_text _obj' show_text' - touchManagedPtr _obj - return () - --- method ProgressBar::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ProgressBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,19 +0,0 @@ -module GI.Gtk.Objects.ProgressBar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ProgressBarAccessible = ProgressBarAccessibleAttributeList -type ProgressBarAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ProgressBarAccessible = ProgressBarAccessibleSignalList -type ProgressBarAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.RadioAction - ( - --- * Exported types - RadioAction(..) , - RadioActionK , - toRadioAction , - noRadioAction , - - - -- * Methods --- ** radioActionGetCurrentValue - radioActionGetCurrentValue , - - --- ** radioActionGetGroup - radioActionGetGroup , - - --- ** radioActionJoinGroup - radioActionJoinGroup , - - --- ** radioActionNew - radioActionNew , - - --- ** radioActionSetCurrentValue - radioActionSetCurrentValue , - - --- ** radioActionSetGroup - radioActionSetGroup , - - - - - -- * Properties --- ** CurrentValue - RadioActionCurrentValuePropertyInfo , - constructRadioActionCurrentValue , - getRadioActionCurrentValue , - setRadioActionCurrentValue , - - --- ** Group - RadioActionGroupPropertyInfo , - constructRadioActionGroup , - setRadioActionGroup , - - --- ** Value - RadioActionValuePropertyInfo , - constructRadioActionValue , - getRadioActionValue , - setRadioActionValue , - - - - - -- * Signals --- ** Changed - RadioActionChangedCallback , - RadioActionChangedCallbackC , - RadioActionChangedSignalInfo , - afterRadioActionChanged , - mkRadioActionChangedCallback , - noRadioActionChangedCallback , - onRadioActionChanged , - radioActionChangedCallbackWrapper , - radioActionChangedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> m Int32 -getRadioActionCurrentValue obj = liftIO $ getObjectPropertyCInt obj "current-value" - -setRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m () -setRadioActionCurrentValue obj val = liftIO $ setObjectPropertyCInt obj "current-value" val - -constructRadioActionCurrentValue :: Int32 -> IO ([Char], GValue) -constructRadioActionCurrentValue val = constructObjectPropertyCInt "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 = "RadioAction::current-value" - attrGet _ = getRadioActionCurrentValue - attrSet _ = setRadioActionCurrentValue - attrConstruct _ = constructRadioActionCurrentValue - --- VVV Prop "group" - -- Type: TInterface "Gtk" "RadioAction" - -- Flags: [PropertyWritable] - -setRadioActionGroup :: (MonadIO m, RadioActionK o, RadioActionK a) => o -> a -> m () -setRadioActionGroup obj val = liftIO $ setObjectPropertyObject obj "group" val - -constructRadioActionGroup :: (RadioActionK a) => a -> IO ([Char], GValue) -constructRadioActionGroup val = constructObjectPropertyObject "group" val - -data RadioActionGroupPropertyInfo -instance AttrInfo RadioActionGroupPropertyInfo where - type AttrAllowedOps RadioActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint RadioActionGroupPropertyInfo = RadioActionK - type AttrBaseTypeConstraint RadioActionGroupPropertyInfo = RadioActionK - type AttrGetType RadioActionGroupPropertyInfo = () - type AttrLabel RadioActionGroupPropertyInfo = "RadioAction::group" - attrGet _ = undefined - attrSet _ = setRadioActionGroup - attrConstruct _ = constructRadioActionGroup - --- VVV Prop "value" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getRadioActionValue :: (MonadIO m, RadioActionK o) => o -> m Int32 -getRadioActionValue obj = liftIO $ getObjectPropertyCInt obj "value" - -setRadioActionValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m () -setRadioActionValue obj val = liftIO $ setObjectPropertyCInt obj "value" val - -constructRadioActionValue :: Int32 -> IO ([Char], GValue) -constructRadioActionValue val = constructObjectPropertyCInt "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 = "RadioAction::value" - attrGet _ = getRadioActionValue - attrSet _ = setRadioActionValue - attrConstruct _ = constructRadioActionValue - -type instance AttributeList RadioAction = RadioActionAttributeList -type RadioActionAttributeList = ('[ '("action-group", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("current-value", RadioActionCurrentValuePropertyInfo), '("draw-as-radio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("group", RadioActionGroupPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("value", RadioActionValuePropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) - -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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RadioAction::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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) -> -- stock_id - Int32 -> -- value - m RadioAction -radioActionNew name label tooltip stock_id 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' - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - result <- gtk_radio_action_new name' maybeLabel maybeTooltip maybeStock_id value - checkUnexpectedReturnNULL "gtk_radio_action_new" result - result' <- (wrapObject RadioAction) result - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStock_id - return result' - --- method RadioAction::get_current_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -radioActionGetCurrentValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_action_get_current_value _obj' - touchManagedPtr _obj - return result - --- method RadioAction::get_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -radioActionGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_action_get_group _obj' - checkUnexpectedReturnNULL "gtk_radio_action_get_group" result - result' <- unpackGSList result - result'' <- mapM (newObject RadioAction) result' - touchManagedPtr _obj - return result'' - --- method RadioAction::join_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- group_source - m () -radioActionJoinGroup _obj group_source = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroup_source <- case group_source of - Nothing -> return nullPtr - Just jGroup_source -> do - let jGroup_source' = unsafeManagedPtrCastPtr jGroup_source - return jGroup_source' - gtk_radio_action_join_group _obj' maybeGroup_source - touchManagedPtr _obj - whenJust group_source touchManagedPtr - return () - --- method RadioAction::set_current_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_radio_action_set_current_value" gtk_radio_action_set_current_value :: - Ptr RadioAction -> -- _obj : TInterface "Gtk" "RadioAction" - Int32 -> -- current_value : TBasicType TInt32 - IO () - -{-# DEPRECATED radioActionSetCurrentValue ["(Since version 3.10)"]#-} -radioActionSetCurrentValue :: - (MonadIO m, RadioActionK a) => - a -> -- _obj - Int32 -> -- current_value - m () -radioActionSetCurrentValue _obj current_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_radio_action_set_current_value _obj' current_value - touchManagedPtr _obj - return () - --- method RadioAction::set_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioAction"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.RadioAction where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,465 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - radioButtonGetGroup , - - --- ** radioButtonJoinGroup - radioButtonJoinGroup , - - --- ** radioButtonNew - radioButtonNew , - - --- ** radioButtonNewFromWidget - radioButtonNewFromWidget , - - --- ** radioButtonNewWithLabel - radioButtonNewWithLabel , - - --- ** radioButtonNewWithLabelFromWidget - radioButtonNewWithLabelFromWidget , - - --- ** radioButtonNewWithMnemonic - radioButtonNewWithMnemonic , - - --- ** radioButtonNewWithMnemonicFromWidget - radioButtonNewWithMnemonicFromWidget , - - --- ** radioButtonSetGroup - radioButtonSetGroup , - - - - - -- * Properties --- ** Group - RadioButtonGroupPropertyInfo , - constructRadioButtonGroup , - setRadioButtonGroup , - - - - - -- * Signals --- ** GroupChanged - RadioButtonGroupChangedCallback , - RadioButtonGroupChangedCallbackC , - RadioButtonGroupChangedSignalInfo , - afterRadioButtonGroupChanged , - mkRadioButtonGroupChangedCallback , - noRadioButtonGroupChangedCallback , - onRadioButtonGroupChanged , - radioButtonGroupChangedCallbackWrapper , - radioButtonGroupChangedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -setRadioButtonGroup :: (MonadIO m, RadioButtonK o, RadioButtonK a) => o -> a -> m () -setRadioButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" val - -constructRadioButtonGroup :: (RadioButtonK a) => a -> IO ([Char], GValue) -constructRadioButtonGroup val = constructObjectPropertyObject "group" val - -data RadioButtonGroupPropertyInfo -instance AttrInfo RadioButtonGroupPropertyInfo where - type AttrAllowedOps RadioButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK - type AttrBaseTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK - type AttrGetType RadioButtonGroupPropertyInfo = () - type AttrLabel RadioButtonGroupPropertyInfo = "RadioButton::group" - attrGet _ = undefined - attrSet _ = setRadioButtonGroup - attrConstruct _ = constructRadioButtonGroup - -type instance AttributeList RadioButton = RadioButtonAttributeList -type RadioButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -data RadioButtonGroupChangedSignalInfo -instance SignalInfo RadioButtonGroupChangedSignalInfo where - type HaskellCallbackType RadioButtonGroupChangedSignalInfo = RadioButtonGroupChangedCallback - connectSignal _ = connectRadioButtonGroupChanged - -type instance SignalList RadioButton = RadioButtonSignalList -type RadioButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("group-changed", RadioButtonGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RadioButton::new --- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- radio_group_member - m RadioButton -radioButtonNewFromWidget radio_group_member = liftIO $ do - maybeRadio_group_member <- case radio_group_member of - Nothing -> return nullPtr - Just jRadio_group_member -> do - let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member - return jRadio_group_member' - result <- gtk_radio_button_new_from_widget maybeRadio_group_member - checkUnexpectedReturnNULL "gtk_radio_button_new_from_widget" result - result' <- (newObject RadioButton) result - whenJust radio_group_member touchManagedPtr - return result' - --- method RadioButton::new_with_label --- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- radio_group_member - T.Text -> -- label - m RadioButton -radioButtonNewWithLabelFromWidget radio_group_member label = liftIO $ do - maybeRadio_group_member <- case radio_group_member of - Nothing -> return nullPtr - Just jRadio_group_member -> do - let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member - return jRadio_group_member' - label' <- textToCString label - result <- gtk_radio_button_new_with_label_from_widget maybeRadio_group_member label' - checkUnexpectedReturnNULL "gtk_radio_button_new_with_label_from_widget" result - result' <- (newObject RadioButton) result - whenJust radio_group_member touchManagedPtr - freeMem label' - return result' - --- method RadioButton::new_with_mnemonic --- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "radio_group_member", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- radio_group_member - T.Text -> -- label - m RadioButton -radioButtonNewWithMnemonicFromWidget radio_group_member label = liftIO $ do - maybeRadio_group_member <- case radio_group_member of - Nothing -> return nullPtr - Just jRadio_group_member -> do - let jRadio_group_member' = unsafeManagedPtrCastPtr jRadio_group_member - return jRadio_group_member' - label' <- textToCString label - result <- gtk_radio_button_new_with_mnemonic_from_widget maybeRadio_group_member label' - checkUnexpectedReturnNULL "gtk_radio_button_new_with_mnemonic_from_widget" result - result' <- (newObject RadioButton) result - whenJust radio_group_member touchManagedPtr - freeMem label' - return result' - --- method RadioButton::get_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -radioButtonGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_button_get_group _obj' - checkUnexpectedReturnNULL "gtk_radio_button_get_group" result - result' <- unpackGSList result - result'' <- mapM (newObject RadioButton) result' - touchManagedPtr _obj - return result'' - --- method RadioButton::join_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_source", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- group_source - m () -radioButtonJoinGroup _obj group_source = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGroup_source <- case group_source of - Nothing -> return nullPtr - Just jGroup_source -> do - let jGroup_source' = unsafeManagedPtrCastPtr jGroup_source - return jGroup_source' - gtk_radio_button_join_group _obj' maybeGroup_source - touchManagedPtr _obj - whenJust group_source touchManagedPtr - return () - --- method RadioButton::set_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.RadioButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList RadioButtonAccessible = RadioButtonAccessibleAttributeList -type RadioButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RadioButtonAccessible = RadioButtonAccessibleSignalList -type RadioButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,437 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - radioMenuItemGetGroup , - - --- ** radioMenuItemNew - radioMenuItemNew , - - --- ** radioMenuItemNewFromWidget - radioMenuItemNewFromWidget , - - --- ** radioMenuItemNewWithLabel - radioMenuItemNewWithLabel , - - --- ** radioMenuItemNewWithLabelFromWidget - radioMenuItemNewWithLabelFromWidget , - - --- ** radioMenuItemNewWithMnemonic - radioMenuItemNewWithMnemonic , - - --- ** radioMenuItemNewWithMnemonicFromWidget - radioMenuItemNewWithMnemonicFromWidget , - - --- ** radioMenuItemSetGroup - radioMenuItemSetGroup , - - - - - -- * Properties --- ** Group - RadioMenuItemGroupPropertyInfo , - constructRadioMenuItemGroup , - setRadioMenuItemGroup , - - - - - -- * Signals --- ** GroupChanged - RadioMenuItemGroupChangedCallback , - RadioMenuItemGroupChangedCallbackC , - RadioMenuItemGroupChangedSignalInfo , - afterRadioMenuItemGroupChanged , - mkRadioMenuItemGroupChangedCallback , - noRadioMenuItemGroupChangedCallback , - onRadioMenuItemGroupChanged , - radioMenuItemGroupChangedCallbackWrapper, - radioMenuItemGroupChangedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -setRadioMenuItemGroup :: (MonadIO m, RadioMenuItemK o, RadioMenuItemK a) => o -> a -> m () -setRadioMenuItemGroup obj val = liftIO $ setObjectPropertyObject obj "group" val - -constructRadioMenuItemGroup :: (RadioMenuItemK a) => a -> IO ([Char], GValue) -constructRadioMenuItemGroup val = constructObjectPropertyObject "group" val - -data RadioMenuItemGroupPropertyInfo -instance AttrInfo RadioMenuItemGroupPropertyInfo where - type AttrAllowedOps RadioMenuItemGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK - type AttrBaseTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK - type AttrGetType RadioMenuItemGroupPropertyInfo = () - type AttrLabel RadioMenuItemGroupPropertyInfo = "RadioMenuItem::group" - attrGet _ = undefined - attrSet _ = setRadioMenuItemGroup - attrConstruct _ = constructRadioMenuItemGroup - -type instance AttributeList RadioMenuItem = RadioMenuItemAttributeList -type RadioMenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-as-radio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioMenuItemGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data RadioMenuItemGroupChangedSignalInfo -instance SignalInfo RadioMenuItemGroupChangedSignalInfo where - type HaskellCallbackType RadioMenuItemGroupChangedSignalInfo = RadioMenuItemGroupChangedCallback - connectSignal _ = connectRadioMenuItemGroupChanged - -type instance SignalList RadioMenuItem = RadioMenuItemSignalList -type RadioMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("group-changed", RadioMenuItemGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RadioMenuItem::new --- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -radioMenuItemGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_menu_item_get_group _obj' - checkUnexpectedReturnNULL "gtk_radio_menu_item_get_group" result - result' <- unpackGSList result - result'' <- mapM (newObject RadioMenuItem) result' - touchManagedPtr _obj - return result'' - --- method RadioMenuItem::set_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioMenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioMenuItem"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.RadioMenuItem where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList RadioMenuItemAccessible = RadioMenuItemAccessibleAttributeList -type RadioMenuItemAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RadioMenuItemAccessible = RadioMenuItemAccessibleSignalList -type RadioMenuItemAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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) --} - -module GI.Gtk.Objects.RadioToolButton - ( - --- * Exported types - RadioToolButton(..) , - RadioToolButtonK , - toRadioToolButton , - noRadioToolButton , - - - -- * Methods --- ** radioToolButtonGetGroup - radioToolButtonGetGroup , - - --- ** radioToolButtonNew - radioToolButtonNew , - - --- ** radioToolButtonNewFromStock - radioToolButtonNewFromStock , - - --- ** radioToolButtonNewFromWidget - radioToolButtonNewFromWidget , - - --- ** radioToolButtonNewWithStockFromWidget - radioToolButtonNewWithStockFromWidget , - - --- ** radioToolButtonSetGroup - radioToolButtonSetGroup , - - - - - -- * Properties --- ** Group - RadioToolButtonGroupPropertyInfo , - constructRadioToolButtonGroup , - setRadioToolButtonGroup , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "group" - -- Type: TInterface "Gtk" "RadioToolButton" - -- Flags: [PropertyWritable] - -setRadioToolButtonGroup :: (MonadIO m, RadioToolButtonK o, RadioToolButtonK a) => o -> a -> m () -setRadioToolButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" val - -constructRadioToolButtonGroup :: (RadioToolButtonK a) => a -> IO ([Char], GValue) -constructRadioToolButtonGroup val = constructObjectPropertyObject "group" val - -data RadioToolButtonGroupPropertyInfo -instance AttrInfo RadioToolButtonGroupPropertyInfo where - type AttrAllowedOps RadioToolButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK - type AttrBaseTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK - type AttrGetType RadioToolButtonGroupPropertyInfo = () - type AttrLabel RadioToolButtonGroupPropertyInfo = "RadioToolButton::group" - attrGet _ = undefined - attrSet _ = setRadioToolButtonGroup - attrConstruct _ = constructRadioToolButtonGroup - -type instance AttributeList RadioToolButton = RadioToolButtonAttributeList -type RadioToolButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioToolButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RadioToolButton = RadioToolButtonSignalList -type RadioToolButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RadioToolButton::new --- method type : Constructor --- Args : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m RadioToolButton -radioToolButtonNewFromStock group stock_id = liftIO $ do - let group' = map unsafeManagedPtrCastPtr group - group'' <- packGSList group' - stock_id' <- textToCString stock_id - result <- gtk_radio_tool_button_new_from_stock group'' stock_id' - checkUnexpectedReturnNULL "gtk_radio_tool_button_new_from_stock" result - result' <- (newObject RadioToolButton) result - mapM_ touchManagedPtr group - g_slist_free group'' - freeMem stock_id' - return result' - --- method RadioToolButton::new_from_widget --- method type : Constructor --- Args : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "group", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m RadioToolButton -radioToolButtonNewWithStockFromWidget group stock_id = liftIO $ do - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrCastPtr jGroup - return jGroup' - stock_id' <- textToCString stock_id - result <- gtk_radio_tool_button_new_with_stock_from_widget maybeGroup stock_id' - checkUnexpectedReturnNULL "gtk_radio_tool_button_new_with_stock_from_widget" result - result' <- (newObject RadioToolButton) result - whenJust group touchManagedPtr - freeMem stock_id' - return result' - --- method RadioToolButton::get_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -radioToolButtonGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_radio_tool_button_get_group _obj' - checkUnexpectedReturnNULL "gtk_radio_tool_button_get_group" result - result' <- unpackGSList result - result'' <- mapM (newObject RadioButton) result' - touchManagedPtr _obj - return result'' - --- method RadioToolButton::set_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RadioToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TGSList (TInterface "Gtk" "RadioButton"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.RadioToolButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RadioToolButton = RadioToolButton (ForeignPtr RadioToolButton) -instance GObject RadioToolButton where -class GObject o => RadioToolButtonK o -instance (GObject o, IsDescendantOf RadioToolButton o) => RadioToolButtonK o -data RadioToolButtonGroupPropertyInfo 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,1408 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - rangeGetAdjustment , - - --- ** rangeGetFillLevel - rangeGetFillLevel , - - --- ** rangeGetFlippable - rangeGetFlippable , - - --- ** rangeGetInverted - rangeGetInverted , - - --- ** rangeGetLowerStepperSensitivity - rangeGetLowerStepperSensitivity , - - --- ** rangeGetMinSliderSize - rangeGetMinSliderSize , - - --- ** rangeGetRangeRect - rangeGetRangeRect , - - --- ** rangeGetRestrictToFillLevel - rangeGetRestrictToFillLevel , - - --- ** rangeGetRoundDigits - rangeGetRoundDigits , - - --- ** rangeGetShowFillLevel - rangeGetShowFillLevel , - - --- ** rangeGetSliderRange - rangeGetSliderRange , - - --- ** rangeGetSliderSizeFixed - rangeGetSliderSizeFixed , - - --- ** rangeGetUpperStepperSensitivity - rangeGetUpperStepperSensitivity , - - --- ** rangeGetValue - rangeGetValue , - - --- ** rangeSetAdjustment - rangeSetAdjustment , - - --- ** rangeSetFillLevel - rangeSetFillLevel , - - --- ** rangeSetFlippable - rangeSetFlippable , - - --- ** rangeSetIncrements - rangeSetIncrements , - - --- ** rangeSetInverted - rangeSetInverted , - - --- ** rangeSetLowerStepperSensitivity - rangeSetLowerStepperSensitivity , - - --- ** rangeSetMinSliderSize - rangeSetMinSliderSize , - - --- ** rangeSetRange - rangeSetRange , - - --- ** rangeSetRestrictToFillLevel - rangeSetRestrictToFillLevel , - - --- ** rangeSetRoundDigits - rangeSetRoundDigits , - - --- ** rangeSetShowFillLevel - rangeSetShowFillLevel , - - --- ** rangeSetSliderSizeFixed - rangeSetSliderSizeFixed , - - --- ** rangeSetUpperStepperSensitivity - rangeSetUpperStepperSensitivity , - - --- ** rangeSetValue - rangeSetValue , - - - - - -- * Properties --- ** Adjustment - RangeAdjustmentPropertyInfo , - constructRangeAdjustment , - getRangeAdjustment , - setRangeAdjustment , - - --- ** FillLevel - RangeFillLevelPropertyInfo , - constructRangeFillLevel , - getRangeFillLevel , - setRangeFillLevel , - - --- ** Inverted - RangeInvertedPropertyInfo , - constructRangeInverted , - getRangeInverted , - setRangeInverted , - - --- ** LowerStepperSensitivity - RangeLowerStepperSensitivityPropertyInfo, - constructRangeLowerStepperSensitivity , - getRangeLowerStepperSensitivity , - setRangeLowerStepperSensitivity , - - --- ** RestrictToFillLevel - RangeRestrictToFillLevelPropertyInfo , - constructRangeRestrictToFillLevel , - getRangeRestrictToFillLevel , - setRangeRestrictToFillLevel , - - --- ** RoundDigits - RangeRoundDigitsPropertyInfo , - constructRangeRoundDigits , - getRangeRoundDigits , - setRangeRoundDigits , - - --- ** ShowFillLevel - RangeShowFillLevelPropertyInfo , - constructRangeShowFillLevel , - getRangeShowFillLevel , - setRangeShowFillLevel , - - --- ** UpperStepperSensitivity - RangeUpperStepperSensitivityPropertyInfo, - constructRangeUpperStepperSensitivity , - getRangeUpperStepperSensitivity , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Cairo as Cairo - -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 - --- 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] - -getRangeAdjustment :: (MonadIO m, RangeK o) => o -> m Adjustment -getRangeAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment - -setRangeAdjustment :: (MonadIO m, RangeK o, AdjustmentK a) => o -> a -> m () -setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val - -constructRangeAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructRangeAdjustment val = constructObjectPropertyObject "adjustment" 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 = "Range::adjustment" - attrGet _ = getRangeAdjustment - attrSet _ = setRangeAdjustment - attrConstruct _ = constructRangeAdjustment - --- VVV Prop "fill-level" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Range::fill-level" - attrGet _ = getRangeFillLevel - attrSet _ = setRangeFillLevel - attrConstruct _ = constructRangeFillLevel - --- VVV Prop "inverted" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Range::inverted" - attrGet _ = getRangeInverted - attrSet _ = setRangeInverted - attrConstruct _ = constructRangeInverted - --- VVV Prop "lower-stepper-sensitivity" - -- Type: TInterface "Gtk" "SensitivityType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Range::lower-stepper-sensitivity" - attrGet _ = getRangeLowerStepperSensitivity - attrSet _ = setRangeLowerStepperSensitivity - attrConstruct _ = constructRangeLowerStepperSensitivity - --- VVV Prop "restrict-to-fill-level" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Range::restrict-to-fill-level" - attrGet _ = getRangeRestrictToFillLevel - attrSet _ = setRangeRestrictToFillLevel - attrConstruct _ = constructRangeRestrictToFillLevel - --- VVV Prop "round-digits" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getRangeRoundDigits :: (MonadIO m, RangeK o) => o -> m Int32 -getRangeRoundDigits obj = liftIO $ getObjectPropertyCInt obj "round-digits" - -setRangeRoundDigits :: (MonadIO m, RangeK o) => o -> Int32 -> m () -setRangeRoundDigits obj val = liftIO $ setObjectPropertyCInt obj "round-digits" val - -constructRangeRoundDigits :: Int32 -> IO ([Char], GValue) -constructRangeRoundDigits val = constructObjectPropertyCInt "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 = "Range::round-digits" - attrGet _ = getRangeRoundDigits - attrSet _ = setRangeRoundDigits - attrConstruct _ = constructRangeRoundDigits - --- VVV Prop "show-fill-level" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Range::show-fill-level" - attrGet _ = getRangeShowFillLevel - attrSet _ = setRangeShowFillLevel - attrConstruct _ = constructRangeShowFillLevel - --- VVV Prop "upper-stepper-sensitivity" - -- Type: TInterface "Gtk" "SensitivityType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Range::upper-stepper-sensitivity" - attrGet _ = getRangeUpperStepperSensitivity - attrSet _ = setRangeUpperStepperSensitivity - attrConstruct _ = constructRangeUpperStepperSensitivity - -type instance AttributeList Range = RangeAttributeList -type RangeAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Range::get_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Range::get_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -rangeGetFillLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_fill_level _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Range::get_flippable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -rangeGetFlippable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_flippable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Range::get_inverted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -rangeGetInverted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_inverted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Range::get_lower_stepper_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Range::get_min_slider_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -rangeGetMinSliderSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_min_slider_size _obj' - touchManagedPtr _obj - return result - --- method Range::get_range_rect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- range_rect : TInterface "cairo" "RectangleInt" - IO () - - -rangeGetRangeRect :: - (MonadIO m, RangeK a) => - a -> -- _obj - m (Cairo.RectangleInt) -rangeGetRangeRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - range_rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_range_get_range_rect _obj' range_rect - range_rect' <- (wrapBoxed Cairo.RectangleInt) range_rect - touchManagedPtr _obj - return range_rect' - --- method Range::get_restrict_to_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Range::get_round_digits --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -rangeGetRoundDigits _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_round_digits _obj' - touchManagedPtr _obj - return result - --- method Range::get_show_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -rangeGetShowFillLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_show_fill_level _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Range::get_slider_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slider_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "slider_end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- slider_end : TBasicType TInt32 - IO () - - -rangeGetSliderRange :: - (MonadIO m, RangeK a) => - a -> -- _obj - m (Int32,Int32) -rangeGetSliderRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - slider_start <- allocMem :: IO (Ptr Int32) - slider_end <- allocMem :: IO (Ptr Int32) - gtk_range_get_slider_range _obj' slider_start slider_end - slider_start' <- peek slider_start - slider_end' <- peek slider_end - touchManagedPtr _obj - freeMem slider_start - freeMem slider_end - return (slider_start', slider_end') - --- method Range::get_slider_size_fixed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -rangeGetSliderSizeFixed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_slider_size_fixed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Range::get_upper_stepper_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Range::get_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -rangeGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_range_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Range::set_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -rangeSetAdjustment _obj adjustment = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let adjustment' = unsafeManagedPtrCastPtr adjustment - gtk_range_set_adjustment _obj' adjustment' - touchManagedPtr _obj - touchManagedPtr adjustment - return () - --- method Range::set_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_level", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- fill_level - m () -rangeSetFillLevel _obj fill_level = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let fill_level' = realToFrac fill_level - gtk_range_set_fill_level _obj' fill_level' - touchManagedPtr _obj - return () - --- method Range::set_flippable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flippable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -rangeSetFlippable _obj flippable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flippable' = (fromIntegral . fromEnum) flippable - gtk_range_set_flippable _obj' flippable' - touchManagedPtr _obj - return () - --- method Range::set_increments --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Range::set_inverted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -rangeSetInverted _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_range_set_inverted _obj' setting' - touchManagedPtr _obj - return () - --- method Range::set_lower_stepper_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Range::set_min_slider_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_range_set_min_slider_size" gtk_range_set_min_slider_size :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Int32 -> -- min_size : TBasicType TInt32 - IO () - - -rangeSetMinSliderSize :: - (MonadIO m, RangeK a) => - a -> -- _obj - Int32 -> -- min_size - m () -rangeSetMinSliderSize _obj min_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_range_set_min_slider_size _obj' min_size - touchManagedPtr _obj - return () - --- method Range::set_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Range::set_restrict_to_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "restrict_to_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- restrict_to_fill_level - m () -rangeSetRestrictToFillLevel _obj restrict_to_fill_level = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let restrict_to_fill_level' = (fromIntegral . fromEnum) restrict_to_fill_level - gtk_range_set_restrict_to_fill_level _obj' restrict_to_fill_level' - touchManagedPtr _obj - return () - --- method Range::set_round_digits --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "round_digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_range_set_round_digits" gtk_range_set_round_digits :: - Ptr Range -> -- _obj : TInterface "Gtk" "Range" - Int32 -> -- round_digits : TBasicType TInt32 - IO () - - -rangeSetRoundDigits :: - (MonadIO m, RangeK a) => - a -> -- _obj - Int32 -> -- round_digits - m () -rangeSetRoundDigits _obj round_digits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_range_set_round_digits _obj' round_digits - touchManagedPtr _obj - return () - --- method Range::set_show_fill_level --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_fill_level", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_fill_level - m () -rangeSetShowFillLevel _obj show_fill_level = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_fill_level' = (fromIntegral . fromEnum) show_fill_level - gtk_range_set_show_fill_level _obj' show_fill_level' - touchManagedPtr _obj - return () - --- method Range::set_slider_size_fixed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size_fixed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- size_fixed - m () -rangeSetSliderSizeFixed _obj size_fixed = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let size_fixed' = (fromIntegral . fromEnum) size_fixed - gtk_range_set_slider_size_fixed _obj' size_fixed' - touchManagedPtr _obj - return () - --- method Range::set_upper_stepper_sensitivity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitivity", argType = TInterface "Gtk" "SensitivityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Range::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -rangeSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_range_set_value _obj' value' - touchManagedPtr _obj - return () - - 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,25 +0,0 @@ -module GI.Gtk.Objects.Range where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList RangeAccessible = RangeAccessibleAttributeList -type RangeAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RangeAccessible = RangeAccessibleSignalList -type RangeAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.Objects.RcStyle - ( - --- * Exported types - RcStyle(..) , - RcStyleK , - toRcStyle , - noRcStyle , - - - -- * Methods --- ** rcStyleCopy - rcStyleCopy , - - --- ** rcStyleNew - rcStyleNew , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList RcStyle = RcStyleAttributeList -type RcStyleAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList RcStyle = RcStyleSignalList -type RcStyleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RcStyle::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,13 +0,0 @@ -module GI.Gtk.Objects.RcStyle where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RcStyle = RcStyle (ForeignPtr RcStyle) -instance GObject RcStyle where -class GObject o => RcStyleK o -instance (GObject o, IsDescendantOf RcStyle o) => RcStyleK o 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,271 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - recentActionGetShowNumbers , - - --- ** recentActionNew - recentActionNew , - - --- ** recentActionNewForManager - recentActionNewForManager , - - --- ** recentActionSetShowNumbers - recentActionSetShowNumbers , - - - - - -- * Properties --- ** ShowNumbers - RecentActionShowNumbersPropertyInfo , - constructRecentActionShowNumbers , - getRecentActionShowNumbers , - setRecentActionShowNumbers , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "show-numbers" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentAction::show-numbers" - attrGet _ = getRecentActionShowNumbers - attrSet _ = setRecentActionShowNumbers - attrConstruct _ = constructRecentActionShowNumbers - -type instance AttributeList RecentAction = RecentActionAttributeList -type RecentActionAttributeList = ('[ '("action-group", ActionActionGroupPropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("name", ActionNamePropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-numbers", RecentActionShowNumbersPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RecentAction = RecentActionSignalList -type RecentActionSignalList = ('[ '("activate", ActionActivateSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RecentAction::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- stock_id - m RecentAction -recentActionNew name label tooltip stock_id = 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' - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - result <- gtk_recent_action_new name' maybeLabel maybeTooltip maybeStock_id - checkUnexpectedReturnNULL "gtk_recent_action_new" result - result' <- (wrapObject RecentAction) result - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStock_id - return result' - --- method RecentAction::new_for_manager --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- stock_id - Maybe (a) -> -- manager - m RecentAction -recentActionNewForManager name label tooltip stock_id 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' - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - 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 maybeStock_id maybeManager - checkUnexpectedReturnNULL "gtk_recent_action_new_for_manager" result - result' <- (wrapObject RecentAction) result - whenJust manager touchManagedPtr - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStock_id - return result' - --- method RecentAction::get_show_numbers --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentActionGetShowNumbers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_action_get_show_numbers _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentAction::set_show_numbers --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_numbers - m () -recentActionSetShowNumbers _obj show_numbers = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_numbers' = (fromIntegral . fromEnum) show_numbers - gtk_recent_action_set_show_numbers _obj' show_numbers' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.RecentAction where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RecentAction = RecentAction (ForeignPtr RecentAction) -instance GObject RecentAction where -class GObject o => RecentActionK o -instance (GObject o, IsDescendantOf RecentAction o) => RecentActionK o -data RecentActionShowNumbersPropertyInfo 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList RecentChooserDialog = RecentChooserDialogAttributeList -type RecentChooserDialogAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RecentChooserDialog = RecentChooserDialogSignalList -type RecentChooserDialogSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,212 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - recentChooserMenuGetShowNumbers , - - --- ** recentChooserMenuNew - recentChooserMenuNew , - - --- ** recentChooserMenuNewForManager - recentChooserMenuNewForManager , - - --- ** recentChooserMenuSetShowNumbers - recentChooserMenuSetShowNumbers , - - - - - -- * Properties --- ** ShowNumbers - RecentChooserMenuShowNumbersPropertyInfo, - constructRecentChooserMenuShowNumbers , - getRecentChooserMenuShowNumbers , - setRecentChooserMenuShowNumbers , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "show-numbers" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "RecentChooserMenu::show-numbers" - attrGet _ = getRecentChooserMenuShowNumbers - attrSet _ = setRecentChooserMenuShowNumbers - attrConstruct _ = constructRecentChooserMenuShowNumbers - -type instance AttributeList RecentChooserMenu = RecentChooserMenuAttributeList -type RecentChooserMenuAttributeList = ('[ '("accel-group", MenuAccelGroupPropertyInfo), '("accel-path", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attach-widget", MenuAttachWidgetPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("reserve-toggle-size", MenuReserveToggleSizePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-numbers", RecentChooserMenuShowNumbersPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tearoff-state", MenuTearoffStatePropertyInfo), '("tearoff-title", MenuTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RecentChooserMenu = RecentChooserMenuSignalList -type RecentChooserMenuSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-scroll", MenuMoveScrollSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RecentChooserMenu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentChooserMenu::set_show_numbers --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentChooserMenu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_numbers", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_numbers - m () -recentChooserMenuSetShowNumbers _obj show_numbers = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_numbers' = (fromIntegral . fromEnum) show_numbers - gtk_recent_chooser_menu_set_show_numbers _obj' show_numbers' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.RecentChooserMenu where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RecentChooserMenu = RecentChooserMenu (ForeignPtr RecentChooserMenu) -instance GObject RecentChooserMenu where -class GObject o => RecentChooserMenuK o -instance (GObject o, IsDescendantOf RecentChooserMenu o) => RecentChooserMenuK o -data RecentChooserMenuShowNumbersPropertyInfo 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,118 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList RecentChooserWidget = RecentChooserWidgetAttributeList -type RecentChooserWidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RecentChooserWidget = RecentChooserWidgetSignalList -type RecentChooserWidgetSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RecentChooserWidget::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "manager", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.RecentFilter - ( - --- * Exported types - RecentFilter(..) , - RecentFilterK , - toRecentFilter , - noRecentFilter , - - - -- * Methods --- ** recentFilterAddAge - recentFilterAddAge , - - --- ** recentFilterAddApplication - recentFilterAddApplication , - - --- ** recentFilterAddCustom - recentFilterAddCustom , - - --- ** recentFilterAddGroup - recentFilterAddGroup , - - --- ** recentFilterAddMimeType - recentFilterAddMimeType , - - --- ** recentFilterAddPattern - recentFilterAddPattern , - - --- ** recentFilterAddPixbufFormats - recentFilterAddPixbufFormats , - - --- ** recentFilterFilter - recentFilterFilter , - - --- ** recentFilterGetName - recentFilterGetName , - - --- ** recentFilterGetNeeded - recentFilterGetNeeded , - - --- ** recentFilterNew - recentFilterNew , - - --- ** recentFilterSetName - recentFilterSetName , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList RecentFilter = RecentFilterAttributeList -type RecentFilterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList RecentFilter = RecentFilterSignalList -type RecentFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RecentFilter::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_recent_filter_add_age" gtk_recent_filter_add_age :: - Ptr RecentFilter -> -- _obj : TInterface "Gtk" "RecentFilter" - Int32 -> -- days : TBasicType TInt32 - IO () - - -recentFilterAddAge :: - (MonadIO m, RecentFilterK a) => - a -> -- _obj - Int32 -> -- days - m () -recentFilterAddAge _obj days = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_filter_add_age _obj' days - touchManagedPtr _obj - return () - --- method RecentFilter::add_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -recentFilterAddApplication _obj application = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - application' <- textToCString application - gtk_recent_filter_add_application _obj' application' - touchManagedPtr _obj - freeMem application' - return () - --- method RecentFilter::add_custom --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needed", argType = TInterface "Gtk" "RecentFilterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "RecentFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- data_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -recentFilterAddCustom :: - (MonadIO m, RecentFilterK a) => - a -> -- _obj - [RecentFilterFlags] -> -- needed - RecentFilterFunc -> -- func - m () -recentFilterAddCustom _obj needed func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let needed' = gflagsToWord needed - func' <- mkRecentFilterFunc (recentFilterFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let data_destroy = safeFreeFunPtrPtr - gtk_recent_filter_add_custom _obj' needed' func' data_ data_destroy - touchManagedPtr _obj - return () - --- method RecentFilter::add_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -recentFilterAddGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - group' <- textToCString group - gtk_recent_filter_add_group _obj' group' - touchManagedPtr _obj - freeMem group' - return () - --- method RecentFilter::add_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- mime_type - m () -recentFilterAddMimeType _obj mime_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - gtk_recent_filter_add_mime_type _obj' mime_type' - touchManagedPtr _obj - freeMem mime_type' - return () - --- method RecentFilter::add_pattern --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -recentFilterAddPattern _obj pattern = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - pattern' <- textToCString pattern - gtk_recent_filter_add_pattern _obj' pattern' - touchManagedPtr _obj - freeMem pattern' - return () - --- method RecentFilter::add_pixbuf_formats --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -recentFilterAddPixbufFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_recent_filter_add_pixbuf_formats _obj' - touchManagedPtr _obj - return () - --- method RecentFilter::filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_info", argType = TInterface "Gtk" "RecentFilterInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- filter_info - m Bool -recentFilterFilter _obj filter_info = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter_info' = unsafeManagedPtrGetPtr filter_info - result <- gtk_recent_filter_filter _obj' filter_info' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr filter_info - return result' - --- method RecentFilter::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentFilter::get_needed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -recentFilterGetNeeded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_filter_get_needed _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method RecentFilter::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -recentFilterSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_recent_filter_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.RecentFilter where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RecentFilter = RecentFilter (ForeignPtr RecentFilter) -instance GObject RecentFilter where -class GObject o => RecentFilterK o -instance (GObject o, IsDescendantOf RecentFilter o) => RecentFilterK o 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,514 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - recentManagerAddFull , - - --- ** recentManagerAddItem - recentManagerAddItem , - - --- ** recentManagerGetDefault - recentManagerGetDefault , - - --- ** recentManagerGetItems - recentManagerGetItems , - - --- ** recentManagerHasItem - recentManagerHasItem , - - --- ** recentManagerLookupItem - recentManagerLookupItem , - - --- ** recentManagerMoveItem - recentManagerMoveItem , - - --- ** recentManagerNew - recentManagerNew , - - --- ** recentManagerPurgeItems - recentManagerPurgeItems , - - --- ** recentManagerRemoveItem - recentManagerRemoveItem , - - - - - -- * Properties --- ** Filename - RecentManagerFilenamePropertyInfo , - constructRecentManagerFilename , - getRecentManagerFilename , - - --- ** Size - RecentManagerSizePropertyInfo , - getRecentManagerSize , - - - - - -- * Signals --- ** Changed - RecentManagerChangedCallback , - RecentManagerChangedCallbackC , - RecentManagerChangedSignalInfo , - afterRecentManagerChanged , - mkRecentManagerChangedCallback , - noRecentManagerChangedCallback , - onRecentManagerChanged , - recentManagerChangedCallbackWrapper , - recentManagerChangedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getRecentManagerFilename :: (MonadIO m, RecentManagerK o) => o -> m T.Text -getRecentManagerFilename obj = liftIO $ getObjectPropertyString obj "filename" - -constructRecentManagerFilename :: T.Text -> IO ([Char], GValue) -constructRecentManagerFilename val = constructObjectPropertyString "filename" val - -data RecentManagerFilenamePropertyInfo -instance AttrInfo RecentManagerFilenamePropertyInfo where - type AttrAllowedOps RecentManagerFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RecentManagerFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint RecentManagerFilenamePropertyInfo = RecentManagerK - type AttrGetType RecentManagerFilenamePropertyInfo = T.Text - type AttrLabel RecentManagerFilenamePropertyInfo = "RecentManager::filename" - attrGet _ = getRecentManagerFilename - attrSet _ = undefined - attrConstruct _ = constructRecentManagerFilename - --- VVV Prop "size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getRecentManagerSize :: (MonadIO m, RecentManagerK o) => o -> m Int32 -getRecentManagerSize obj = liftIO $ getObjectPropertyCInt 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 = "RecentManager::size" - attrGet _ = getRecentManagerSize - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList RecentManager = RecentManagerAttributeList -type RecentManagerAttributeList = ('[ '("filename", RecentManagerFilenamePropertyInfo), '("size", RecentManagerSizePropertyInfo)] :: [(Symbol, *)]) - -data RecentManagerChangedSignalInfo -instance SignalInfo RecentManagerChangedSignalInfo where - type HaskellCallbackType RecentManagerChangedSignalInfo = RecentManagerChangedCallback - connectSignal _ = connectRecentManagerChanged - -type instance SignalList RecentManager = RecentManagerSignalList -type RecentManagerSignalList = ('[ '("changed", RecentManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RecentManager::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recent_data", argType = TInterface "Gtk" "RecentData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "recent_data", argType = TInterface "Gtk" "RecentData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- recent_data - m Bool -recentManagerAddFull _obj uri recent_data = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - let recent_data' = unsafeManagedPtrGetPtr recent_data - result <- gtk_recent_manager_add_full _obj' uri' recent_data' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr recent_data - freeMem uri' - return result' - --- method RecentManager::add_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method RecentManager::get_items --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -recentManagerGetItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_recent_manager_get_items _obj' - checkUnexpectedReturnNULL "gtk_recent_manager_get_items" result - result' <- unpackGList result - result'' <- mapM (wrapBoxed RecentInfo) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method RecentManager::has_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method RecentManager::lookup_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - ) - --- method RecentManager::move_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- new_uri - m () -recentManagerMoveItem _obj uri new_uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - maybeNew_uri <- case new_uri of - Nothing -> return nullPtr - Just jNew_uri -> do - jNew_uri' <- textToCString jNew_uri - return jNew_uri' - onException (do - _ <- propagateGError $ gtk_recent_manager_move_item _obj' uri' maybeNew_uri - touchManagedPtr _obj - freeMem uri' - freeMem maybeNew_uri - return () - ) (do - freeMem uri' - freeMem maybeNew_uri - ) - --- method RecentManager::purge_items --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -recentManagerPurgeItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ gtk_recent_manager_purge_items _obj' - touchManagedPtr _obj - return result - ) (do - return () - ) - --- method RecentManager::remove_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method RecentManager::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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,16 +0,0 @@ -module GI.Gtk.Objects.RecentManager where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,122 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "renderer" - -- Type: TInterface "Gtk" "CellRenderer" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getRendererCellAccessibleRenderer :: (MonadIO m, RendererCellAccessibleK o) => o -> m CellRenderer -getRendererCellAccessibleRenderer obj = liftIO $ getObjectPropertyObject obj "renderer" CellRenderer - -constructRendererCellAccessibleRenderer :: (CellRendererK a) => a -> IO ([Char], GValue) -constructRendererCellAccessibleRenderer val = constructObjectPropertyObject "renderer" val - -data RendererCellAccessibleRendererPropertyInfo -instance AttrInfo RendererCellAccessibleRendererPropertyInfo where - type AttrAllowedOps RendererCellAccessibleRendererPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RendererCellAccessibleRendererPropertyInfo = CellRendererK - type AttrBaseTypeConstraint RendererCellAccessibleRendererPropertyInfo = RendererCellAccessibleK - type AttrGetType RendererCellAccessibleRendererPropertyInfo = CellRenderer - type AttrLabel RendererCellAccessibleRendererPropertyInfo = "RendererCellAccessible::renderer" - attrGet _ = getRendererCellAccessibleRenderer - attrSet _ = undefined - attrConstruct _ = constructRendererCellAccessibleRenderer - -type instance AttributeList RendererCellAccessible = RendererCellAccessibleAttributeList -type RendererCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RendererCellAccessible = RendererCellAccessibleSignalList -type RendererCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RendererCellAccessible::new --- method type : Constructor --- Args : [Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,414 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - revealerGetChildRevealed , - - --- ** revealerGetRevealChild - revealerGetRevealChild , - - --- ** revealerGetTransitionDuration - revealerGetTransitionDuration , - - --- ** revealerGetTransitionType - revealerGetTransitionType , - - --- ** revealerNew - revealerNew , - - --- ** revealerSetRevealChild - revealerSetRevealChild , - - --- ** revealerSetTransitionDuration - revealerSetTransitionDuration , - - --- ** revealerSetTransitionType - revealerSetTransitionType , - - - - - -- * Properties --- ** ChildRevealed - RevealerChildRevealedPropertyInfo , - getRevealerChildRevealed , - - --- ** RevealChild - RevealerRevealChildPropertyInfo , - constructRevealerRevealChild , - getRevealerRevealChild , - setRevealerRevealChild , - - --- ** TransitionDuration - RevealerTransitionDurationPropertyInfo , - constructRevealerTransitionDuration , - getRevealerTransitionDuration , - setRevealerTransitionDuration , - - --- ** TransitionType - RevealerTransitionTypePropertyInfo , - constructRevealerTransitionType , - getRevealerTransitionType , - setRevealerTransitionType , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "child-revealed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "Revealer::child-revealed" - attrGet _ = getRevealerChildRevealed - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "reveal-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Revealer::reveal-child" - attrGet _ = getRevealerRevealChild - attrSet _ = setRevealerRevealChild - attrConstruct _ = constructRevealerRevealChild - --- VVV Prop "transition-duration" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getRevealerTransitionDuration :: (MonadIO m, RevealerK o) => o -> m Word32 -getRevealerTransitionDuration obj = liftIO $ getObjectPropertyCUInt obj "transition-duration" - -setRevealerTransitionDuration :: (MonadIO m, RevealerK o) => o -> Word32 -> m () -setRevealerTransitionDuration obj val = liftIO $ setObjectPropertyCUInt obj "transition-duration" val - -constructRevealerTransitionDuration :: Word32 -> IO ([Char], GValue) -constructRevealerTransitionDuration val = constructObjectPropertyCUInt "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 = "Revealer::transition-duration" - attrGet _ = getRevealerTransitionDuration - attrSet _ = setRevealerTransitionDuration - attrConstruct _ = constructRevealerTransitionDuration - --- VVV Prop "transition-type" - -- Type: TInterface "Gtk" "RevealerTransitionType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Revealer::transition-type" - attrGet _ = getRevealerTransitionType - attrSet _ = setRevealerTransitionType - attrConstruct _ = constructRevealerTransitionType - -type instance AttributeList Revealer = RevealerAttributeList -type RevealerAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-revealed", RevealerChildRevealedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("reveal-child", RevealerRevealChildPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transition-duration", RevealerTransitionDurationPropertyInfo), '("transition-type", RevealerTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Revealer = RevealerSignalList -type RevealerSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Revealer::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -revealerGetChildRevealed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_revealer_get_child_revealed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Revealer::get_reveal_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -revealerGetRevealChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_revealer_get_reveal_child _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Revealer::get_transition_duration --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -revealerGetTransitionDuration _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_revealer_get_transition_duration _obj' - touchManagedPtr _obj - return result - --- method Revealer::get_transition_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -revealerGetTransitionType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_revealer_get_transition_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Revealer::set_reveal_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reveal_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reveal_child", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- reveal_child - m () -revealerSetRevealChild _obj reveal_child = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reveal_child' = (fromIntegral . fromEnum) reveal_child - gtk_revealer_set_reveal_child _obj' reveal_child' - touchManagedPtr _obj - return () - --- method Revealer::set_transition_duration --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -revealerSetTransitionDuration :: - (MonadIO m, RevealerK a) => - a -> -- _obj - Word32 -> -- duration - m () -revealerSetTransitionDuration _obj duration = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_revealer_set_transition_duration _obj' duration - touchManagedPtr _obj - return () - --- method Revealer::set_transition_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Revealer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "RevealerTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -revealerSetTransitionType _obj transition = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let transition' = (fromIntegral . fromEnum) transition - gtk_revealer_set_transition_type _obj' transition' - touchManagedPtr _obj - return () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.Revealer where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,703 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - scaleAddMark , - - --- ** scaleClearMarks - scaleClearMarks , - - --- ** scaleGetDigits - scaleGetDigits , - - --- ** scaleGetDrawValue - scaleGetDrawValue , - - --- ** scaleGetHasOrigin - scaleGetHasOrigin , - - --- ** scaleGetLayout - scaleGetLayout , - - --- ** scaleGetLayoutOffsets - scaleGetLayoutOffsets , - - --- ** scaleGetValuePos - scaleGetValuePos , - - --- ** scaleNew - scaleNew , - - --- ** scaleNewWithRange - scaleNewWithRange , - - --- ** scaleSetDigits - scaleSetDigits , - - --- ** scaleSetDrawValue - scaleSetDrawValue , - - --- ** scaleSetHasOrigin - scaleSetHasOrigin , - - --- ** scaleSetValuePos - scaleSetValuePos , - - - - - -- * Properties --- ** Digits - ScaleDigitsPropertyInfo , - constructScaleDigits , - getScaleDigits , - setScaleDigits , - - --- ** DrawValue - ScaleDrawValuePropertyInfo , - constructScaleDrawValue , - getScaleDrawValue , - setScaleDrawValue , - - --- ** HasOrigin - ScaleHasOriginPropertyInfo , - constructScaleHasOrigin , - getScaleHasOrigin , - setScaleHasOrigin , - - --- ** ValuePos - ScaleValuePosPropertyInfo , - constructScaleValuePos , - getScaleValuePos , - setScaleValuePos , - - - - - -- * Signals --- ** FormatValue - ScaleFormatValueCallback , - ScaleFormatValueCallbackC , - ScaleFormatValueSignalInfo , - afterScaleFormatValue , - mkScaleFormatValueCallback , - noScaleFormatValueCallback , - onScaleFormatValue , - scaleFormatValueCallbackWrapper , - scaleFormatValueClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getScaleDigits :: (MonadIO m, ScaleK o) => o -> m Int32 -getScaleDigits obj = liftIO $ getObjectPropertyCInt obj "digits" - -setScaleDigits :: (MonadIO m, ScaleK o) => o -> Int32 -> m () -setScaleDigits obj val = liftIO $ setObjectPropertyCInt obj "digits" val - -constructScaleDigits :: Int32 -> IO ([Char], GValue) -constructScaleDigits val = constructObjectPropertyCInt "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 = "Scale::digits" - attrGet _ = getScaleDigits - attrSet _ = setScaleDigits - attrConstruct _ = constructScaleDigits - --- VVV Prop "draw-value" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Scale::draw-value" - attrGet _ = getScaleDrawValue - attrSet _ = setScaleDrawValue - attrConstruct _ = constructScaleDrawValue - --- VVV Prop "has-origin" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Scale::has-origin" - attrGet _ = getScaleHasOrigin - attrSet _ = setScaleHasOrigin - attrConstruct _ = constructScaleHasOrigin - --- VVV Prop "value-pos" - -- Type: TInterface "Gtk" "PositionType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Scale::value-pos" - attrGet _ = getScaleValuePos - attrSet _ = setScaleValuePos - attrConstruct _ = constructScaleValuePos - -type instance AttributeList Scale = ScaleAttributeList -type ScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data ScaleFormatValueSignalInfo -instance SignalInfo ScaleFormatValueSignalInfo where - type HaskellCallbackType ScaleFormatValueSignalInfo = ScaleFormatValueCallback - connectSignal _ = connectScaleFormatValue - -type instance SignalList Scale = ScaleSignalList -type ScaleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Scale::new --- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Scale::clear_marks --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -scaleClearMarks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scale_clear_marks _obj' - touchManagedPtr _obj - return () - --- method Scale::get_digits --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -scaleGetDigits _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_digits _obj' - touchManagedPtr _obj - return result - --- method Scale::get_draw_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scaleGetDrawValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_draw_value _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Scale::get_has_origin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scaleGetHasOrigin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_has_origin _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Scale::get_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Scale::get_layout_offsets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - IO () - - -scaleGetLayoutOffsets :: - (MonadIO m, ScaleK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method Scale::get_value_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scaleGetValuePos _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_get_value_pos _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Scale::set_digits --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_set_digits" gtk_scale_set_digits :: - Ptr Scale -> -- _obj : TInterface "Gtk" "Scale" - Int32 -> -- digits : TBasicType TInt32 - IO () - - -scaleSetDigits :: - (MonadIO m, ScaleK a) => - a -> -- _obj - Int32 -> -- digits - m () -scaleSetDigits _obj digits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scale_set_digits _obj' digits - touchManagedPtr _obj - return () - --- method Scale::set_draw_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- draw_value - m () -scaleSetDrawValue _obj draw_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let draw_value' = (fromIntegral . fromEnum) draw_value - gtk_scale_set_draw_value _obj' draw_value' - touchManagedPtr _obj - return () - --- method Scale::set_has_origin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_origin", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_origin", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- has_origin - m () -scaleSetHasOrigin _obj has_origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_origin' = (fromIntegral . fromEnum) has_origin - gtk_scale_set_has_origin _obj' has_origin' - touchManagedPtr _obj - return () - --- method Scale::set_value_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Scale", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "PositionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -scaleSetValuePos _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pos' = (fromIntegral . fromEnum) pos - gtk_scale_set_value_pos _obj' pos' - touchManagedPtr _obj - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.Scale where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ScaleAccessible = ScaleAccessibleAttributeList -type ScaleAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ScaleAccessible = ScaleAccessibleSignalList -type ScaleAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.ScaleButton - ( - --- * Exported types - ScaleButton(..) , - ScaleButtonK , - toScaleButton , - noScaleButton , - - - -- * Methods --- ** scaleButtonGetAdjustment - scaleButtonGetAdjustment , - - --- ** scaleButtonGetMinusButton - scaleButtonGetMinusButton , - - --- ** scaleButtonGetPlusButton - scaleButtonGetPlusButton , - - --- ** scaleButtonGetPopup - scaleButtonGetPopup , - - --- ** scaleButtonGetValue - scaleButtonGetValue , - - --- ** scaleButtonNew - scaleButtonNew , - - --- ** scaleButtonSetAdjustment - scaleButtonSetAdjustment , - - --- ** scaleButtonSetIcons - scaleButtonSetIcons , - - --- ** scaleButtonSetValue - scaleButtonSetValue , - - - - - -- * Properties --- ** Adjustment - ScaleButtonAdjustmentPropertyInfo , - constructScaleButtonAdjustment , - getScaleButtonAdjustment , - setScaleButtonAdjustment , - - --- ** Icons - ScaleButtonIconsPropertyInfo , - constructScaleButtonIcons , - getScaleButtonIcons , - setScaleButtonIcons , - - --- ** Size - ScaleButtonSizePropertyInfo , - constructScaleButtonSize , - getScaleButtonSize , - setScaleButtonSize , - - --- ** Value - ScaleButtonValuePropertyInfo , - constructScaleButtonValue , - getScaleButtonValue , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getScaleButtonAdjustment :: (MonadIO m, ScaleButtonK o) => o -> m Adjustment -getScaleButtonAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment - -setScaleButtonAdjustment :: (MonadIO m, ScaleButtonK o, AdjustmentK a) => o -> a -> m () -setScaleButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val - -constructScaleButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScaleButtonAdjustment val = constructObjectPropertyObject "adjustment" 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 = "ScaleButton::adjustment" - attrGet _ = getScaleButtonAdjustment - attrSet _ = setScaleButtonAdjustment - attrConstruct _ = constructScaleButtonAdjustment - --- VVV Prop "icons" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -getScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> m [T.Text] -getScaleButtonIcons obj = liftIO $ getObjectPropertyStringArray obj "icons" - -setScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> [T.Text] -> m () -setScaleButtonIcons obj val = liftIO $ setObjectPropertyStringArray obj "icons" val - -constructScaleButtonIcons :: [T.Text] -> IO ([Char], GValue) -constructScaleButtonIcons val = constructObjectPropertyStringArray "icons" 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 = [T.Text] - type AttrLabel ScaleButtonIconsPropertyInfo = "ScaleButton::icons" - attrGet _ = getScaleButtonIcons - attrSet _ = setScaleButtonIcons - attrConstruct _ = constructScaleButtonIcons - --- VVV Prop "size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScaleButton::size" - attrGet _ = getScaleButtonSize - attrSet _ = setScaleButtonSize - attrConstruct _ = constructScaleButtonSize - --- VVV Prop "value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScaleButton::value" - attrGet _ = getScaleButtonValue - attrSet _ = setScaleButtonValue - attrConstruct _ = constructScaleButtonValue - -type instance AttributeList ScaleButton = ScaleButtonAttributeList -type ScaleButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", ScaleButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ScaleButton::new --- method type : Constructor --- Args : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "ScaleButton" --- throws : False --- Skip return : False - -foreign import ccall "gtk_scale_button_new" gtk_scale_button_new :: - Int32 -> -- size : TBasicType TInt32 - 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ScaleButton::get_minus_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- 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 Widget) - - -scaleButtonGetMinusButton :: - (MonadIO m, ScaleButtonK a) => - a -> -- _obj - m Widget -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 Widget) result - touchManagedPtr _obj - return result' - --- method ScaleButton::get_plus_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Widget" --- 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 Widget) - - -scaleButtonGetPlusButton :: - (MonadIO m, ScaleButtonK a) => - a -> -- _obj - m Widget -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 Widget) result - touchManagedPtr _obj - return result' - --- method ScaleButton::get_popup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ScaleButton::get_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scaleButtonGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scale_button_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method ScaleButton::set_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ScaleButton::set_icons --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icons", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method ScaleButton::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScaleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -scaleButtonSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_scale_button_set_value _obj' value' - touchManagedPtr _obj - return () - - 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,20 +0,0 @@ -module GI.Gtk.Objects.ScaleButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ScaleButtonAccessible = ScaleButtonAccessibleAttributeList -type ScaleButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ScaleButtonAccessible = ScaleButtonAccessibleSignalList -type ScaleButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,99 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList Scrollbar = ScrollbarAttributeList -type ScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Scrollbar = ScrollbarSignalList -type ScrollbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Scrollbar::new --- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,1425 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - scrolledWindowAddWithViewport , - - --- ** scrolledWindowGetCaptureButtonPress - scrolledWindowGetCaptureButtonPress , - - --- ** scrolledWindowGetHadjustment - scrolledWindowGetHadjustment , - - --- ** scrolledWindowGetHscrollbar - scrolledWindowGetHscrollbar , - - --- ** scrolledWindowGetKineticScrolling - scrolledWindowGetKineticScrolling , - - --- ** scrolledWindowGetMinContentHeight - scrolledWindowGetMinContentHeight , - - --- ** scrolledWindowGetMinContentWidth - scrolledWindowGetMinContentWidth , - - --- ** scrolledWindowGetOverlayScrolling - scrolledWindowGetOverlayScrolling , - - --- ** scrolledWindowGetPlacement - scrolledWindowGetPlacement , - - --- ** scrolledWindowGetPolicy - scrolledWindowGetPolicy , - - --- ** scrolledWindowGetShadowType - scrolledWindowGetShadowType , - - --- ** scrolledWindowGetVadjustment - scrolledWindowGetVadjustment , - - --- ** scrolledWindowGetVscrollbar - scrolledWindowGetVscrollbar , - - --- ** scrolledWindowNew - scrolledWindowNew , - - --- ** scrolledWindowSetCaptureButtonPress - scrolledWindowSetCaptureButtonPress , - - --- ** scrolledWindowSetHadjustment - scrolledWindowSetHadjustment , - - --- ** scrolledWindowSetKineticScrolling - scrolledWindowSetKineticScrolling , - - --- ** scrolledWindowSetMinContentHeight - scrolledWindowSetMinContentHeight , - - --- ** scrolledWindowSetMinContentWidth - scrolledWindowSetMinContentWidth , - - --- ** scrolledWindowSetOverlayScrolling - scrolledWindowSetOverlayScrolling , - - --- ** scrolledWindowSetPlacement - scrolledWindowSetPlacement , - - --- ** scrolledWindowSetPolicy - scrolledWindowSetPolicy , - - --- ** scrolledWindowSetShadowType - scrolledWindowSetShadowType , - - --- ** scrolledWindowSetVadjustment - scrolledWindowSetVadjustment , - - --- ** scrolledWindowUnsetPlacement - scrolledWindowUnsetPlacement , - - - - - -- * Properties --- ** Hadjustment - ScrolledWindowHadjustmentPropertyInfo , - constructScrolledWindowHadjustment , - getScrolledWindowHadjustment , - setScrolledWindowHadjustment , - - --- ** HscrollbarPolicy - ScrolledWindowHscrollbarPolicyPropertyInfo, - constructScrolledWindowHscrollbarPolicy , - getScrolledWindowHscrollbarPolicy , - setScrolledWindowHscrollbarPolicy , - - --- ** KineticScrolling - ScrolledWindowKineticScrollingPropertyInfo, - constructScrolledWindowKineticScrolling , - getScrolledWindowKineticScrolling , - setScrolledWindowKineticScrolling , - - --- ** MinContentHeight - ScrolledWindowMinContentHeightPropertyInfo, - constructScrolledWindowMinContentHeight , - getScrolledWindowMinContentHeight , - setScrolledWindowMinContentHeight , - - --- ** MinContentWidth - ScrolledWindowMinContentWidthPropertyInfo, - constructScrolledWindowMinContentWidth , - getScrolledWindowMinContentWidth , - setScrolledWindowMinContentWidth , - - --- ** OverlayScrolling - ScrolledWindowOverlayScrollingPropertyInfo, - constructScrolledWindowOverlayScrolling , - getScrolledWindowOverlayScrolling , - setScrolledWindowOverlayScrolling , - - --- ** ShadowType - ScrolledWindowShadowTypePropertyInfo , - constructScrolledWindowShadowType , - getScrolledWindowShadowType , - setScrolledWindowShadowType , - - --- ** Vadjustment - ScrolledWindowVadjustmentPropertyInfo , - constructScrolledWindowVadjustment , - getScrolledWindowVadjustment , - setScrolledWindowVadjustment , - - --- ** VscrollbarPolicy - ScrolledWindowVscrollbarPolicyPropertyInfo, - constructScrolledWindowVscrollbarPolicy , - getScrolledWindowVscrollbarPolicy , - setScrolledWindowVscrollbarPolicy , - - --- ** WindowPlacement - ScrolledWindowWindowPlacementPropertyInfo, - constructScrolledWindowWindowPlacement , - getScrolledWindowWindowPlacement , - setScrolledWindowWindowPlacement , - - --- ** WindowPlacementSet - ScrolledWindowWindowPlacementSetPropertyInfo, - constructScrolledWindowWindowPlacementSet, - getScrolledWindowWindowPlacementSet , - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ direction_type _ = do - let direction_type' = (toEnum . fromIntegral) direction_type - _cb direction_type' - -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] - -getScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment -getScrolledWindowHadjustment obj = liftIO $ getObjectPropertyObject obj "hadjustment" Adjustment - -setScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m () -setScrolledWindowHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" val - -constructScrolledWindowHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrolledWindowHadjustment val = constructObjectPropertyObject "hadjustment" 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 = "ScrolledWindow::hadjustment" - attrGet _ = getScrolledWindowHadjustment - attrSet _ = setScrolledWindowHadjustment - attrConstruct _ = constructScrolledWindowHadjustment - --- VVV Prop "hscrollbar-policy" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScrolledWindow::hscrollbar-policy" - attrGet _ = getScrolledWindowHscrollbarPolicy - attrSet _ = setScrolledWindowHscrollbarPolicy - attrConstruct _ = constructScrolledWindowHscrollbarPolicy - --- VVV Prop "kinetic-scrolling" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScrolledWindow::kinetic-scrolling" - attrGet _ = getScrolledWindowKineticScrolling - attrSet _ = setScrolledWindowKineticScrolling - attrConstruct _ = constructScrolledWindowKineticScrolling - --- VVV Prop "min-content-height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> m Int32 -getScrolledWindowMinContentHeight obj = liftIO $ getObjectPropertyCInt obj "min-content-height" - -setScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m () -setScrolledWindowMinContentHeight obj val = liftIO $ setObjectPropertyCInt obj "min-content-height" val - -constructScrolledWindowMinContentHeight :: Int32 -> IO ([Char], GValue) -constructScrolledWindowMinContentHeight val = constructObjectPropertyCInt "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 = "ScrolledWindow::min-content-height" - attrGet _ = getScrolledWindowMinContentHeight - attrSet _ = setScrolledWindowMinContentHeight - attrConstruct _ = constructScrolledWindowMinContentHeight - --- VVV Prop "min-content-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> m Int32 -getScrolledWindowMinContentWidth obj = liftIO $ getObjectPropertyCInt obj "min-content-width" - -setScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m () -setScrolledWindowMinContentWidth obj val = liftIO $ setObjectPropertyCInt obj "min-content-width" val - -constructScrolledWindowMinContentWidth :: Int32 -> IO ([Char], GValue) -constructScrolledWindowMinContentWidth val = constructObjectPropertyCInt "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 = "ScrolledWindow::min-content-width" - attrGet _ = getScrolledWindowMinContentWidth - attrSet _ = setScrolledWindowMinContentWidth - attrConstruct _ = constructScrolledWindowMinContentWidth - --- VVV Prop "overlay-scrolling" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScrolledWindow::overlay-scrolling" - attrGet _ = getScrolledWindowOverlayScrolling - attrSet _ = setScrolledWindowOverlayScrolling - attrConstruct _ = constructScrolledWindowOverlayScrolling - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScrolledWindow::shadow-type" - attrGet _ = getScrolledWindowShadowType - attrSet _ = setScrolledWindowShadowType - attrConstruct _ = constructScrolledWindowShadowType - --- VVV Prop "vadjustment" - -- Type: TInterface "Gtk" "Adjustment" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment -getScrolledWindowVadjustment obj = liftIO $ getObjectPropertyObject obj "vadjustment" Adjustment - -setScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m () -setScrolledWindowVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" val - -constructScrolledWindowVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructScrolledWindowVadjustment val = constructObjectPropertyObject "vadjustment" 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 = "ScrolledWindow::vadjustment" - attrGet _ = getScrolledWindowVadjustment - attrSet _ = setScrolledWindowVadjustment - attrConstruct _ = constructScrolledWindowVadjustment - --- VVV Prop "vscrollbar-policy" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScrolledWindow::vscrollbar-policy" - attrGet _ = getScrolledWindowVscrollbarPolicy - attrSet _ = setScrolledWindowVscrollbarPolicy - attrConstruct _ = constructScrolledWindowVscrollbarPolicy - --- VVV Prop "window-placement" - -- Type: TInterface "Gtk" "CornerType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScrolledWindow::window-placement" - attrGet _ = getScrolledWindowWindowPlacement - attrSet _ = setScrolledWindowWindowPlacement - attrConstruct _ = constructScrolledWindowWindowPlacement - --- VVV Prop "window-placement-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ScrolledWindow::window-placement-set" - attrGet _ = getScrolledWindowWindowPlacementSet - attrSet _ = setScrolledWindowWindowPlacementSet - attrConstruct _ = constructScrolledWindowWindowPlacementSet - -type instance AttributeList ScrolledWindow = ScrolledWindowAttributeList -type ScrolledWindowAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscrollbar-policy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("kinetic-scrolling", ScrolledWindowKineticScrollingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("min-content-height", ScrolledWindowMinContentHeightPropertyInfo), '("min-content-width", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overlay-scrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ScrolledWindowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbar-policy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-placement", ScrolledWindowWindowPlacementPropertyInfo), '("window-placement-set", ScrolledWindowWindowPlacementSetPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("edge-overshot", ScrolledWindowEdgeOvershotSignalInfo), '("edge-reached", ScrolledWindowEdgeReachedSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-child", ScrolledWindowScrollChildSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ScrolledWindow::new --- method type : Constructor --- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ScrolledWindow::get_capture_button_press --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ScrolledWindow::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ScrolledWindow::get_hscrollbar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ScrolledWindow::get_kinetic_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scrolledWindowGetKineticScrolling _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_kinetic_scrolling _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ScrolledWindow::get_min_content_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -scrolledWindowGetMinContentHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_min_content_height _obj' - touchManagedPtr _obj - return result - --- method ScrolledWindow::get_min_content_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -scrolledWindowGetMinContentWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_min_content_width _obj' - touchManagedPtr _obj - return result - --- method ScrolledWindow::get_overlay_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scrolledWindowGetOverlayScrolling _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_overlay_scrolling _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ScrolledWindow::get_placement --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -scrolledWindowGetPlacement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_scrolled_window_get_placement _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method ScrolledWindow::get_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -scrolledWindowGetPolicy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - hscrollbar_policy <- allocMem :: IO (Ptr CUInt) - vscrollbar_policy <- allocMem :: IO (Ptr CUInt) - gtk_scrolled_window_get_policy _obj' hscrollbar_policy vscrollbar_policy - hscrollbar_policy' <- peek hscrollbar_policy - let hscrollbar_policy'' = (toEnum . fromIntegral) hscrollbar_policy' - vscrollbar_policy' <- peek vscrollbar_policy - let vscrollbar_policy'' = (toEnum . fromIntegral) vscrollbar_policy' - touchManagedPtr _obj - freeMem hscrollbar_policy - freeMem vscrollbar_policy - return (hscrollbar_policy'', vscrollbar_policy'') - --- method ScrolledWindow::get_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ScrolledWindow::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ScrolledWindow::get_vscrollbar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ScrolledWindow::set_capture_button_press --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capture_button_press", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "capture_button_press", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- capture_button_press - m () -scrolledWindowSetCaptureButtonPress _obj capture_button_press = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let capture_button_press' = (fromIntegral . fromEnum) capture_button_press - gtk_scrolled_window_set_capture_button_press _obj' capture_button_press' - touchManagedPtr _obj - return () - --- method ScrolledWindow::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ScrolledWindow::set_kinetic_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kinetic_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "kinetic_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- kinetic_scrolling - m () -scrolledWindowSetKineticScrolling _obj kinetic_scrolling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let kinetic_scrolling' = (fromIntegral . fromEnum) kinetic_scrolling - gtk_scrolled_window_set_kinetic_scrolling _obj' kinetic_scrolling' - touchManagedPtr _obj - return () - --- method ScrolledWindow::set_min_content_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -scrolledWindowSetMinContentHeight :: - (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - Int32 -> -- height - m () -scrolledWindowSetMinContentHeight _obj height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scrolled_window_set_min_content_height _obj' height - touchManagedPtr _obj - return () - --- method ScrolledWindow::set_min_content_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -scrolledWindowSetMinContentWidth :: - (MonadIO m, ScrolledWindowK a) => - a -> -- _obj - Int32 -> -- width - m () -scrolledWindowSetMinContentWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scrolled_window_set_min_content_width _obj' width - touchManagedPtr _obj - return () - --- method ScrolledWindow::set_overlay_scrolling --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overlay_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overlay_scrolling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- overlay_scrolling - m () -scrolledWindowSetOverlayScrolling _obj overlay_scrolling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overlay_scrolling' = (fromIntegral . fromEnum) overlay_scrolling - gtk_scrolled_window_set_overlay_scrolling _obj' overlay_scrolling' - touchManagedPtr _obj - return () - --- method ScrolledWindow::set_placement --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_placement", argType = TInterface "Gtk" "CornerType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_placement", argType = TInterface "Gtk" "CornerType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- window_placement - m () -scrolledWindowSetPlacement _obj window_placement = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window_placement' = (fromIntegral . fromEnum) window_placement - gtk_scrolled_window_set_placement _obj' window_placement' - touchManagedPtr _obj - return () - --- method ScrolledWindow::set_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vscrollbar_policy", argType = TInterface "Gtk" "PolicyType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- hscrollbar_policy - PolicyType -> -- vscrollbar_policy - m () -scrolledWindowSetPolicy _obj hscrollbar_policy vscrollbar_policy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hscrollbar_policy' = (fromIntegral . fromEnum) hscrollbar_policy - let vscrollbar_policy' = (fromIntegral . fromEnum) vscrollbar_policy - gtk_scrolled_window_set_policy _obj' hscrollbar_policy' vscrollbar_policy' - touchManagedPtr _obj - return () - --- method ScrolledWindow::set_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ScrolledWindow::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ScrolledWindow::unset_placement --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ScrolledWindow", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -scrolledWindowUnsetPlacement _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_scrolled_window_unset_placement _obj' - touchManagedPtr _obj - return () - - 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,28 +0,0 @@ -module GI.Gtk.Objects.ScrolledWindow where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ScrolledWindowAccessible = ScrolledWindowAccessibleAttributeList -type ScrolledWindowAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ScrolledWindowAccessible = ScrolledWindowAccessibleSignalList -type ScrolledWindowAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,339 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - searchBarConnectEntry , - - --- ** searchBarGetSearchMode - searchBarGetSearchMode , - - --- ** searchBarGetShowCloseButton - searchBarGetShowCloseButton , - - --- ** searchBarHandleEvent - searchBarHandleEvent , - - --- ** searchBarNew - searchBarNew , - - --- ** searchBarSetSearchMode - searchBarSetSearchMode , - - --- ** searchBarSetShowCloseButton - searchBarSetShowCloseButton , - - - - - -- * Properties --- ** SearchModeEnabled - SearchBarSearchModeEnabledPropertyInfo , - constructSearchBarSearchModeEnabled , - getSearchBarSearchModeEnabled , - setSearchBarSearchModeEnabled , - - --- ** ShowCloseButton - SearchBarShowCloseButtonPropertyInfo , - constructSearchBarShowCloseButton , - getSearchBarShowCloseButton , - setSearchBarShowCloseButton , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "search-mode-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SearchBar::search-mode-enabled" - attrGet _ = getSearchBarSearchModeEnabled - attrSet _ = setSearchBarSearchModeEnabled - attrConstruct _ = constructSearchBarSearchModeEnabled - --- VVV Prop "show-close-button" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "SearchBar::show-close-button" - attrGet _ = getSearchBarShowCloseButton - attrSet _ = setSearchBarShowCloseButton - attrConstruct _ = constructSearchBarShowCloseButton - -type instance AttributeList SearchBar = SearchBarAttributeList -type SearchBarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-mode-enabled", SearchBarSearchModeEnabledPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", SearchBarShowCloseButtonPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SearchBar = SearchBarSignalList -type SearchBarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SearchBar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method SearchBar::get_search_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -searchBarGetSearchMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_search_bar_get_search_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SearchBar::get_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SearchBar::handle_event --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SearchBar::set_search_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_mode", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- search_mode - m () -searchBarSetSearchMode _obj search_mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let search_mode' = (fromIntegral . fromEnum) search_mode - gtk_search_bar_set_search_mode _obj' search_mode' - touchManagedPtr _obj - return () - --- method SearchBar::set_show_close_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchBar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.SearchBar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.SearchEntry - ( - --- * Exported types - SearchEntry(..) , - SearchEntryK , - toSearchEntry , - noSearchEntry , - - - -- * Methods --- ** searchEntryHandleEvent - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 = ('[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", 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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("next-match", SearchEntryNextMatchSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("previous-match", SearchEntryPreviousMatchSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("search-changed", SearchEntrySearchChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("stop-search", SearchEntryStopSearchSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SearchEntry::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "SearchEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SearchEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,17 +0,0 @@ -module GI.Gtk.Objects.SearchEntry where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,91 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList Separator = SeparatorAttributeList -type SeparatorAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Separator = SeparatorSignalList -type SeparatorSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Separator::new --- method type : Constructor --- Args : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList SeparatorMenuItem = SeparatorMenuItemAttributeList -type SeparatorMenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SeparatorMenuItem = SeparatorMenuItemSignalList -type SeparatorMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SeparatorMenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,182 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Objects.SeparatorToolItem - ( - --- * Exported types - SeparatorToolItem(..) , - SeparatorToolItemK , - toSeparatorToolItem , - noSeparatorToolItem , - - - -- * Methods --- ** separatorToolItemGetDraw - separatorToolItemGetDraw , - - --- ** separatorToolItemNew - separatorToolItemNew , - - --- ** separatorToolItemSetDraw - separatorToolItemSetDraw , - - - - - -- * Properties --- ** Draw - SeparatorToolItemDrawPropertyInfo , - constructSeparatorToolItemDraw , - getSeparatorToolItemDraw , - setSeparatorToolItemDraw , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "draw" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SeparatorToolItem::draw" - attrGet _ = getSeparatorToolItemDraw - attrSet _ = setSeparatorToolItemDraw - attrConstruct _ = constructSeparatorToolItemDraw - -type instance AttributeList SeparatorToolItem = SeparatorToolItemAttributeList -type SeparatorToolItemAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw", SeparatorToolItemDrawPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SeparatorToolItem = SeparatorToolItemSignalList -type SeparatorToolItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SeparatorToolItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -separatorToolItemGetDraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_separator_tool_item_get_draw _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SeparatorToolItem::set_draw --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SeparatorToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.SeparatorToolItem where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SeparatorToolItem = SeparatorToolItem (ForeignPtr SeparatorToolItem) -instance GObject SeparatorToolItem where -class GObject o => SeparatorToolItemK o -instance (GObject o, IsDescendantOf SeparatorToolItem o) => SeparatorToolItemK o -data SeparatorToolItemDrawPropertyInfo 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,2859 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - settingsSetDoubleProperty , - - --- ** settingsSetLongProperty - settingsSetLongProperty , - - --- ** settingsSetPropertyValue - settingsSetPropertyValue , - - --- ** settingsSetStringProperty - settingsSetStringProperty , - - - - - -- * Properties --- ** ColorHash - SettingsColorHashPropertyInfo , - - --- ** GtkAlternativeButtonOrder - SettingsGtkAlternativeButtonOrderPropertyInfo, - constructSettingsGtkAlternativeButtonOrder, - getSettingsGtkAlternativeButtonOrder , - setSettingsGtkAlternativeButtonOrder , - - --- ** GtkAlternativeSortArrows - SettingsGtkAlternativeSortArrowsPropertyInfo, - constructSettingsGtkAlternativeSortArrows, - getSettingsGtkAlternativeSortArrows , - setSettingsGtkAlternativeSortArrows , - - --- ** GtkApplicationPreferDarkTheme - SettingsGtkApplicationPreferDarkThemePropertyInfo, - constructSettingsGtkApplicationPreferDarkTheme, - getSettingsGtkApplicationPreferDarkTheme, - setSettingsGtkApplicationPreferDarkTheme, - - --- ** GtkAutoMnemonics - SettingsGtkAutoMnemonicsPropertyInfo , - constructSettingsGtkAutoMnemonics , - getSettingsGtkAutoMnemonics , - setSettingsGtkAutoMnemonics , - - --- ** GtkButtonImages - SettingsGtkButtonImagesPropertyInfo , - constructSettingsGtkButtonImages , - getSettingsGtkButtonImages , - setSettingsGtkButtonImages , - - --- ** GtkCanChangeAccels - SettingsGtkCanChangeAccelsPropertyInfo , - constructSettingsGtkCanChangeAccels , - getSettingsGtkCanChangeAccels , - setSettingsGtkCanChangeAccels , - - --- ** GtkColorPalette - SettingsGtkColorPalettePropertyInfo , - constructSettingsGtkColorPalette , - getSettingsGtkColorPalette , - setSettingsGtkColorPalette , - - --- ** GtkColorScheme - SettingsGtkColorSchemePropertyInfo , - constructSettingsGtkColorScheme , - getSettingsGtkColorScheme , - setSettingsGtkColorScheme , - - --- ** GtkCursorBlink - SettingsGtkCursorBlinkPropertyInfo , - constructSettingsGtkCursorBlink , - getSettingsGtkCursorBlink , - setSettingsGtkCursorBlink , - - --- ** GtkCursorBlinkTime - SettingsGtkCursorBlinkTimePropertyInfo , - constructSettingsGtkCursorBlinkTime , - getSettingsGtkCursorBlinkTime , - setSettingsGtkCursorBlinkTime , - - --- ** GtkCursorBlinkTimeout - SettingsGtkCursorBlinkTimeoutPropertyInfo, - constructSettingsGtkCursorBlinkTimeout , - getSettingsGtkCursorBlinkTimeout , - setSettingsGtkCursorBlinkTimeout , - - --- ** GtkCursorThemeName - SettingsGtkCursorThemeNamePropertyInfo , - constructSettingsGtkCursorThemeName , - getSettingsGtkCursorThemeName , - setSettingsGtkCursorThemeName , - - --- ** GtkCursorThemeSize - SettingsGtkCursorThemeSizePropertyInfo , - constructSettingsGtkCursorThemeSize , - getSettingsGtkCursorThemeSize , - setSettingsGtkCursorThemeSize , - - --- ** GtkDecorationLayout - SettingsGtkDecorationLayoutPropertyInfo , - constructSettingsGtkDecorationLayout , - getSettingsGtkDecorationLayout , - setSettingsGtkDecorationLayout , - - --- ** GtkDialogsUseHeader - SettingsGtkDialogsUseHeaderPropertyInfo , - constructSettingsGtkDialogsUseHeader , - getSettingsGtkDialogsUseHeader , - setSettingsGtkDialogsUseHeader , - - --- ** GtkDndDragThreshold - SettingsGtkDndDragThresholdPropertyInfo , - constructSettingsGtkDndDragThreshold , - getSettingsGtkDndDragThreshold , - setSettingsGtkDndDragThreshold , - - --- ** GtkDoubleClickDistance - SettingsGtkDoubleClickDistancePropertyInfo, - constructSettingsGtkDoubleClickDistance , - getSettingsGtkDoubleClickDistance , - setSettingsGtkDoubleClickDistance , - - --- ** GtkDoubleClickTime - SettingsGtkDoubleClickTimePropertyInfo , - constructSettingsGtkDoubleClickTime , - getSettingsGtkDoubleClickTime , - setSettingsGtkDoubleClickTime , - - --- ** GtkEnableAccels - SettingsGtkEnableAccelsPropertyInfo , - constructSettingsGtkEnableAccels , - getSettingsGtkEnableAccels , - setSettingsGtkEnableAccels , - - --- ** GtkEnableAnimations - SettingsGtkEnableAnimationsPropertyInfo , - constructSettingsGtkEnableAnimations , - getSettingsGtkEnableAnimations , - setSettingsGtkEnableAnimations , - - --- ** GtkEnableEventSounds - SettingsGtkEnableEventSoundsPropertyInfo, - constructSettingsGtkEnableEventSounds , - getSettingsGtkEnableEventSounds , - setSettingsGtkEnableEventSounds , - - --- ** GtkEnableInputFeedbackSounds - SettingsGtkEnableInputFeedbackSoundsPropertyInfo, - constructSettingsGtkEnableInputFeedbackSounds, - getSettingsGtkEnableInputFeedbackSounds , - setSettingsGtkEnableInputFeedbackSounds , - - --- ** GtkEnableMnemonics - SettingsGtkEnableMnemonicsPropertyInfo , - constructSettingsGtkEnableMnemonics , - getSettingsGtkEnableMnemonics , - setSettingsGtkEnableMnemonics , - - --- ** GtkEnablePrimaryPaste - SettingsGtkEnablePrimaryPastePropertyInfo, - constructSettingsGtkEnablePrimaryPaste , - getSettingsGtkEnablePrimaryPaste , - setSettingsGtkEnablePrimaryPaste , - - --- ** GtkEnableTooltips - SettingsGtkEnableTooltipsPropertyInfo , - constructSettingsGtkEnableTooltips , - getSettingsGtkEnableTooltips , - setSettingsGtkEnableTooltips , - - --- ** GtkEntryPasswordHintTimeout - SettingsGtkEntryPasswordHintTimeoutPropertyInfo, - constructSettingsGtkEntryPasswordHintTimeout, - getSettingsGtkEntryPasswordHintTimeout , - setSettingsGtkEntryPasswordHintTimeout , - - --- ** GtkEntrySelectOnFocus - SettingsGtkEntrySelectOnFocusPropertyInfo, - constructSettingsGtkEntrySelectOnFocus , - getSettingsGtkEntrySelectOnFocus , - setSettingsGtkEntrySelectOnFocus , - - --- ** GtkErrorBell - SettingsGtkErrorBellPropertyInfo , - constructSettingsGtkErrorBell , - getSettingsGtkErrorBell , - setSettingsGtkErrorBell , - - --- ** GtkFallbackIconTheme - SettingsGtkFallbackIconThemePropertyInfo, - constructSettingsGtkFallbackIconTheme , - getSettingsGtkFallbackIconTheme , - setSettingsGtkFallbackIconTheme , - - --- ** GtkFileChooserBackend - SettingsGtkFileChooserBackendPropertyInfo, - constructSettingsGtkFileChooserBackend , - getSettingsGtkFileChooserBackend , - setSettingsGtkFileChooserBackend , - - --- ** GtkFontName - SettingsGtkFontNamePropertyInfo , - constructSettingsGtkFontName , - getSettingsGtkFontName , - setSettingsGtkFontName , - - --- ** GtkFontconfigTimestamp - SettingsGtkFontconfigTimestampPropertyInfo, - constructSettingsGtkFontconfigTimestamp , - getSettingsGtkFontconfigTimestamp , - setSettingsGtkFontconfigTimestamp , - - --- ** GtkIconSizes - SettingsGtkIconSizesPropertyInfo , - constructSettingsGtkIconSizes , - getSettingsGtkIconSizes , - setSettingsGtkIconSizes , - - --- ** GtkIconThemeName - SettingsGtkIconThemeNamePropertyInfo , - constructSettingsGtkIconThemeName , - getSettingsGtkIconThemeName , - setSettingsGtkIconThemeName , - - --- ** GtkImModule - SettingsGtkImModulePropertyInfo , - constructSettingsGtkImModule , - getSettingsGtkImModule , - setSettingsGtkImModule , - - --- ** GtkImPreeditStyle - SettingsGtkImPreeditStylePropertyInfo , - constructSettingsGtkImPreeditStyle , - getSettingsGtkImPreeditStyle , - setSettingsGtkImPreeditStyle , - - --- ** GtkImStatusStyle - SettingsGtkImStatusStylePropertyInfo , - constructSettingsGtkImStatusStyle , - getSettingsGtkImStatusStyle , - setSettingsGtkImStatusStyle , - - --- ** GtkKeyThemeName - SettingsGtkKeyThemeNamePropertyInfo , - constructSettingsGtkKeyThemeName , - getSettingsGtkKeyThemeName , - setSettingsGtkKeyThemeName , - - --- ** GtkKeynavCursorOnly - SettingsGtkKeynavCursorOnlyPropertyInfo , - constructSettingsGtkKeynavCursorOnly , - getSettingsGtkKeynavCursorOnly , - setSettingsGtkKeynavCursorOnly , - - --- ** GtkKeynavWrapAround - SettingsGtkKeynavWrapAroundPropertyInfo , - constructSettingsGtkKeynavWrapAround , - getSettingsGtkKeynavWrapAround , - setSettingsGtkKeynavWrapAround , - - --- ** GtkLabelSelectOnFocus - SettingsGtkLabelSelectOnFocusPropertyInfo, - constructSettingsGtkLabelSelectOnFocus , - getSettingsGtkLabelSelectOnFocus , - setSettingsGtkLabelSelectOnFocus , - - --- ** GtkLongPressTime - SettingsGtkLongPressTimePropertyInfo , - constructSettingsGtkLongPressTime , - getSettingsGtkLongPressTime , - setSettingsGtkLongPressTime , - - --- ** GtkMenuBarAccel - SettingsGtkMenuBarAccelPropertyInfo , - constructSettingsGtkMenuBarAccel , - getSettingsGtkMenuBarAccel , - setSettingsGtkMenuBarAccel , - - --- ** GtkMenuBarPopupDelay - SettingsGtkMenuBarPopupDelayPropertyInfo, - constructSettingsGtkMenuBarPopupDelay , - getSettingsGtkMenuBarPopupDelay , - setSettingsGtkMenuBarPopupDelay , - - --- ** GtkMenuImages - SettingsGtkMenuImagesPropertyInfo , - constructSettingsGtkMenuImages , - getSettingsGtkMenuImages , - setSettingsGtkMenuImages , - - --- ** GtkMenuPopdownDelay - SettingsGtkMenuPopdownDelayPropertyInfo , - constructSettingsGtkMenuPopdownDelay , - getSettingsGtkMenuPopdownDelay , - setSettingsGtkMenuPopdownDelay , - - --- ** GtkMenuPopupDelay - SettingsGtkMenuPopupDelayPropertyInfo , - constructSettingsGtkMenuPopupDelay , - getSettingsGtkMenuPopupDelay , - setSettingsGtkMenuPopupDelay , - - --- ** GtkModules - SettingsGtkModulesPropertyInfo , - constructSettingsGtkModules , - getSettingsGtkModules , - setSettingsGtkModules , - - --- ** GtkPrimaryButtonWarpsSlider - SettingsGtkPrimaryButtonWarpsSliderPropertyInfo, - constructSettingsGtkPrimaryButtonWarpsSlider, - getSettingsGtkPrimaryButtonWarpsSlider , - setSettingsGtkPrimaryButtonWarpsSlider , - - --- ** GtkPrintBackends - SettingsGtkPrintBackendsPropertyInfo , - constructSettingsGtkPrintBackends , - getSettingsGtkPrintBackends , - setSettingsGtkPrintBackends , - - --- ** GtkPrintPreviewCommand - SettingsGtkPrintPreviewCommandPropertyInfo, - constructSettingsGtkPrintPreviewCommand , - getSettingsGtkPrintPreviewCommand , - setSettingsGtkPrintPreviewCommand , - - --- ** GtkRecentFilesEnabled - SettingsGtkRecentFilesEnabledPropertyInfo, - constructSettingsGtkRecentFilesEnabled , - getSettingsGtkRecentFilesEnabled , - setSettingsGtkRecentFilesEnabled , - - --- ** GtkRecentFilesLimit - SettingsGtkRecentFilesLimitPropertyInfo , - constructSettingsGtkRecentFilesLimit , - getSettingsGtkRecentFilesLimit , - setSettingsGtkRecentFilesLimit , - - --- ** GtkRecentFilesMaxAge - SettingsGtkRecentFilesMaxAgePropertyInfo, - constructSettingsGtkRecentFilesMaxAge , - getSettingsGtkRecentFilesMaxAge , - setSettingsGtkRecentFilesMaxAge , - - --- ** GtkScrolledWindowPlacement - SettingsGtkScrolledWindowPlacementPropertyInfo, - constructSettingsGtkScrolledWindowPlacement, - getSettingsGtkScrolledWindowPlacement , - setSettingsGtkScrolledWindowPlacement , - - --- ** GtkShellShowsAppMenu - SettingsGtkShellShowsAppMenuPropertyInfo, - constructSettingsGtkShellShowsAppMenu , - getSettingsGtkShellShowsAppMenu , - setSettingsGtkShellShowsAppMenu , - - --- ** GtkShellShowsDesktop - SettingsGtkShellShowsDesktopPropertyInfo, - constructSettingsGtkShellShowsDesktop , - getSettingsGtkShellShowsDesktop , - setSettingsGtkShellShowsDesktop , - - --- ** GtkShellShowsMenubar - SettingsGtkShellShowsMenubarPropertyInfo, - constructSettingsGtkShellShowsMenubar , - getSettingsGtkShellShowsMenubar , - setSettingsGtkShellShowsMenubar , - - --- ** GtkShowInputMethodMenu - SettingsGtkShowInputMethodMenuPropertyInfo, - constructSettingsGtkShowInputMethodMenu , - getSettingsGtkShowInputMethodMenu , - setSettingsGtkShowInputMethodMenu , - - --- ** GtkShowUnicodeMenu - SettingsGtkShowUnicodeMenuPropertyInfo , - constructSettingsGtkShowUnicodeMenu , - getSettingsGtkShowUnicodeMenu , - setSettingsGtkShowUnicodeMenu , - - --- ** GtkSoundThemeName - SettingsGtkSoundThemeNamePropertyInfo , - constructSettingsGtkSoundThemeName , - getSettingsGtkSoundThemeName , - setSettingsGtkSoundThemeName , - - --- ** GtkSplitCursor - SettingsGtkSplitCursorPropertyInfo , - constructSettingsGtkSplitCursor , - getSettingsGtkSplitCursor , - setSettingsGtkSplitCursor , - - --- ** GtkThemeName - SettingsGtkThemeNamePropertyInfo , - constructSettingsGtkThemeName , - getSettingsGtkThemeName , - setSettingsGtkThemeName , - - --- ** GtkTimeoutExpand - SettingsGtkTimeoutExpandPropertyInfo , - constructSettingsGtkTimeoutExpand , - getSettingsGtkTimeoutExpand , - setSettingsGtkTimeoutExpand , - - --- ** GtkTimeoutInitial - SettingsGtkTimeoutInitialPropertyInfo , - constructSettingsGtkTimeoutInitial , - getSettingsGtkTimeoutInitial , - setSettingsGtkTimeoutInitial , - - --- ** GtkTimeoutRepeat - SettingsGtkTimeoutRepeatPropertyInfo , - constructSettingsGtkTimeoutRepeat , - getSettingsGtkTimeoutRepeat , - setSettingsGtkTimeoutRepeat , - - --- ** GtkTitlebarDoubleClick - SettingsGtkTitlebarDoubleClickPropertyInfo, - constructSettingsGtkTitlebarDoubleClick , - getSettingsGtkTitlebarDoubleClick , - setSettingsGtkTitlebarDoubleClick , - - --- ** GtkTitlebarMiddleClick - SettingsGtkTitlebarMiddleClickPropertyInfo, - constructSettingsGtkTitlebarMiddleClick , - getSettingsGtkTitlebarMiddleClick , - setSettingsGtkTitlebarMiddleClick , - - --- ** GtkTitlebarRightClick - SettingsGtkTitlebarRightClickPropertyInfo, - constructSettingsGtkTitlebarRightClick , - getSettingsGtkTitlebarRightClick , - setSettingsGtkTitlebarRightClick , - - --- ** GtkToolbarIconSize - SettingsGtkToolbarIconSizePropertyInfo , - constructSettingsGtkToolbarIconSize , - getSettingsGtkToolbarIconSize , - setSettingsGtkToolbarIconSize , - - --- ** GtkToolbarStyle - SettingsGtkToolbarStylePropertyInfo , - constructSettingsGtkToolbarStyle , - getSettingsGtkToolbarStyle , - setSettingsGtkToolbarStyle , - - --- ** GtkTooltipBrowseModeTimeout - SettingsGtkTooltipBrowseModeTimeoutPropertyInfo, - constructSettingsGtkTooltipBrowseModeTimeout, - getSettingsGtkTooltipBrowseModeTimeout , - setSettingsGtkTooltipBrowseModeTimeout , - - --- ** GtkTooltipBrowseTimeout - SettingsGtkTooltipBrowseTimeoutPropertyInfo, - constructSettingsGtkTooltipBrowseTimeout, - getSettingsGtkTooltipBrowseTimeout , - setSettingsGtkTooltipBrowseTimeout , - - --- ** GtkTooltipTimeout - SettingsGtkTooltipTimeoutPropertyInfo , - constructSettingsGtkTooltipTimeout , - getSettingsGtkTooltipTimeout , - setSettingsGtkTooltipTimeout , - - --- ** GtkTouchscreenMode - SettingsGtkTouchscreenModePropertyInfo , - constructSettingsGtkTouchscreenMode , - getSettingsGtkTouchscreenMode , - setSettingsGtkTouchscreenMode , - - --- ** GtkVisibleFocus - SettingsGtkVisibleFocusPropertyInfo , - constructSettingsGtkVisibleFocus , - getSettingsGtkVisibleFocus , - setSettingsGtkVisibleFocus , - - --- ** GtkXftAntialias - SettingsGtkXftAntialiasPropertyInfo , - constructSettingsGtkXftAntialias , - getSettingsGtkXftAntialias , - setSettingsGtkXftAntialias , - - --- ** GtkXftDpi - SettingsGtkXftDpiPropertyInfo , - constructSettingsGtkXftDpi , - getSettingsGtkXftDpi , - setSettingsGtkXftDpi , - - --- ** GtkXftHinting - SettingsGtkXftHintingPropertyInfo , - constructSettingsGtkXftHinting , - getSettingsGtkXftHinting , - setSettingsGtkXftHinting , - - --- ** GtkXftHintstyle - SettingsGtkXftHintstylePropertyInfo , - constructSettingsGtkXftHintstyle , - getSettingsGtkXftHintstyle , - setSettingsGtkXftHintstyle , - - --- ** GtkXftRgba - SettingsGtkXftRgbaPropertyInfo , - constructSettingsGtkXftRgba , - getSettingsGtkXftRgba , - setSettingsGtkXftRgba , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 --- VVV Prop "gtk-alternative-button-order" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-alternative-button-order" - attrGet _ = getSettingsGtkAlternativeButtonOrder - attrSet _ = setSettingsGtkAlternativeButtonOrder - attrConstruct _ = constructSettingsGtkAlternativeButtonOrder - --- VVV Prop "gtk-alternative-sort-arrows" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-alternative-sort-arrows" - attrGet _ = getSettingsGtkAlternativeSortArrows - attrSet _ = setSettingsGtkAlternativeSortArrows - attrConstruct _ = constructSettingsGtkAlternativeSortArrows - --- VVV Prop "gtk-application-prefer-dark-theme" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-application-prefer-dark-theme" - attrGet _ = getSettingsGtkApplicationPreferDarkTheme - attrSet _ = setSettingsGtkApplicationPreferDarkTheme - attrConstruct _ = constructSettingsGtkApplicationPreferDarkTheme - --- VVV Prop "gtk-auto-mnemonics" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-auto-mnemonics" - attrGet _ = getSettingsGtkAutoMnemonics - attrSet _ = setSettingsGtkAutoMnemonics - attrConstruct _ = constructSettingsGtkAutoMnemonics - --- VVV Prop "gtk-button-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-button-images" - attrGet _ = getSettingsGtkButtonImages - attrSet _ = setSettingsGtkButtonImages - attrConstruct _ = constructSettingsGtkButtonImages - --- VVV Prop "gtk-can-change-accels" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-can-change-accels" - attrGet _ = getSettingsGtkCanChangeAccels - attrSet _ = setSettingsGtkCanChangeAccels - attrConstruct _ = constructSettingsGtkCanChangeAccels - --- VVV Prop "gtk-color-palette" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkColorPalette :: T.Text -> IO ([Char], GValue) -constructSettingsGtkColorPalette val = constructObjectPropertyString "gtk-color-palette" val - -data SettingsGtkColorPalettePropertyInfo -instance AttrInfo SettingsGtkColorPalettePropertyInfo where - type AttrAllowedOps SettingsGtkColorPalettePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkColorPalettePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkColorPalettePropertyInfo = SettingsK - type AttrGetType SettingsGtkColorPalettePropertyInfo = T.Text - type AttrLabel SettingsGtkColorPalettePropertyInfo = "Settings::gtk-color-palette" - attrGet _ = getSettingsGtkColorPalette - attrSet _ = setSettingsGtkColorPalette - attrConstruct _ = constructSettingsGtkColorPalette - --- VVV Prop "gtk-color-scheme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkColorScheme :: T.Text -> IO ([Char], GValue) -constructSettingsGtkColorScheme val = constructObjectPropertyString "gtk-color-scheme" val - -data SettingsGtkColorSchemePropertyInfo -instance AttrInfo SettingsGtkColorSchemePropertyInfo where - type AttrAllowedOps SettingsGtkColorSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkColorSchemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkColorSchemePropertyInfo = SettingsK - type AttrGetType SettingsGtkColorSchemePropertyInfo = T.Text - type AttrLabel SettingsGtkColorSchemePropertyInfo = "Settings::gtk-color-scheme" - attrGet _ = getSettingsGtkColorScheme - attrSet _ = setSettingsGtkColorScheme - attrConstruct _ = constructSettingsGtkColorScheme - --- VVV Prop "gtk-cursor-blink" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-cursor-blink" - attrGet _ = getSettingsGtkCursorBlink - attrSet _ = setSettingsGtkCursorBlink - attrConstruct _ = constructSettingsGtkCursorBlink - --- VVV Prop "gtk-cursor-blink-time" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorBlinkTime obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-blink-time" - -setSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorBlinkTime obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-blink-time" val - -constructSettingsGtkCursorBlinkTime :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorBlinkTime val = constructObjectPropertyCInt "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 = "Settings::gtk-cursor-blink-time" - attrGet _ = getSettingsGtkCursorBlinkTime - attrSet _ = setSettingsGtkCursorBlinkTime - attrConstruct _ = constructSettingsGtkCursorBlinkTime - --- VVV Prop "gtk-cursor-blink-timeout" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorBlinkTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-blink-timeout" - -setSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorBlinkTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-blink-timeout" val - -constructSettingsGtkCursorBlinkTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorBlinkTimeout val = constructObjectPropertyCInt "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 = "Settings::gtk-cursor-blink-timeout" - attrGet _ = getSettingsGtkCursorBlinkTimeout - attrSet _ = setSettingsGtkCursorBlinkTimeout - attrConstruct _ = constructSettingsGtkCursorBlinkTimeout - --- VVV Prop "gtk-cursor-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkCursorThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkCursorThemeName val = constructObjectPropertyString "gtk-cursor-theme-name" val - -data SettingsGtkCursorThemeNamePropertyInfo -instance AttrInfo SettingsGtkCursorThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkCursorThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkCursorThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkCursorThemeNamePropertyInfo = "Settings::gtk-cursor-theme-name" - attrGet _ = getSettingsGtkCursorThemeName - attrSet _ = setSettingsGtkCursorThemeName - attrConstruct _ = constructSettingsGtkCursorThemeName - --- VVV Prop "gtk-cursor-theme-size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkCursorThemeSize obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-theme-size" - -setSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkCursorThemeSize obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-theme-size" val - -constructSettingsGtkCursorThemeSize :: Int32 -> IO ([Char], GValue) -constructSettingsGtkCursorThemeSize val = constructObjectPropertyCInt "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 = "Settings::gtk-cursor-theme-size" - attrGet _ = getSettingsGtkCursorThemeSize - attrSet _ = setSettingsGtkCursorThemeSize - attrConstruct _ = constructSettingsGtkCursorThemeSize - --- VVV Prop "gtk-decoration-layout" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkDecorationLayout :: T.Text -> IO ([Char], GValue) -constructSettingsGtkDecorationLayout val = constructObjectPropertyString "gtk-decoration-layout" val - -data SettingsGtkDecorationLayoutPropertyInfo -instance AttrInfo SettingsGtkDecorationLayoutPropertyInfo where - type AttrAllowedOps SettingsGtkDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = SettingsK - type AttrGetType SettingsGtkDecorationLayoutPropertyInfo = T.Text - type AttrLabel SettingsGtkDecorationLayoutPropertyInfo = "Settings::gtk-decoration-layout" - attrGet _ = getSettingsGtkDecorationLayout - attrSet _ = setSettingsGtkDecorationLayout - attrConstruct _ = constructSettingsGtkDecorationLayout - --- VVV Prop "gtk-dialogs-use-header" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-dialogs-use-header" - attrGet _ = getSettingsGtkDialogsUseHeader - attrSet _ = setSettingsGtkDialogsUseHeader - attrConstruct _ = constructSettingsGtkDialogsUseHeader - --- VVV Prop "gtk-dnd-drag-threshold" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDndDragThreshold obj = liftIO $ getObjectPropertyCInt obj "gtk-dnd-drag-threshold" - -setSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDndDragThreshold obj val = liftIO $ setObjectPropertyCInt obj "gtk-dnd-drag-threshold" val - -constructSettingsGtkDndDragThreshold :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDndDragThreshold val = constructObjectPropertyCInt "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 = "Settings::gtk-dnd-drag-threshold" - attrGet _ = getSettingsGtkDndDragThreshold - attrSet _ = setSettingsGtkDndDragThreshold - attrConstruct _ = constructSettingsGtkDndDragThreshold - --- VVV Prop "gtk-double-click-distance" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDoubleClickDistance obj = liftIO $ getObjectPropertyCInt obj "gtk-double-click-distance" - -setSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDoubleClickDistance obj val = liftIO $ setObjectPropertyCInt obj "gtk-double-click-distance" val - -constructSettingsGtkDoubleClickDistance :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDoubleClickDistance val = constructObjectPropertyCInt "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 = "Settings::gtk-double-click-distance" - attrGet _ = getSettingsGtkDoubleClickDistance - attrSet _ = setSettingsGtkDoubleClickDistance - attrConstruct _ = constructSettingsGtkDoubleClickDistance - --- VVV Prop "gtk-double-click-time" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkDoubleClickTime obj = liftIO $ getObjectPropertyCInt obj "gtk-double-click-time" - -setSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkDoubleClickTime obj val = liftIO $ setObjectPropertyCInt obj "gtk-double-click-time" val - -constructSettingsGtkDoubleClickTime :: Int32 -> IO ([Char], GValue) -constructSettingsGtkDoubleClickTime val = constructObjectPropertyCInt "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 = "Settings::gtk-double-click-time" - attrGet _ = getSettingsGtkDoubleClickTime - attrSet _ = setSettingsGtkDoubleClickTime - attrConstruct _ = constructSettingsGtkDoubleClickTime - --- VVV Prop "gtk-enable-accels" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-enable-accels" - attrGet _ = getSettingsGtkEnableAccels - attrSet _ = setSettingsGtkEnableAccels - attrConstruct _ = constructSettingsGtkEnableAccels - --- VVV Prop "gtk-enable-animations" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-enable-animations" - attrGet _ = getSettingsGtkEnableAnimations - attrSet _ = setSettingsGtkEnableAnimations - attrConstruct _ = constructSettingsGtkEnableAnimations - --- VVV Prop "gtk-enable-event-sounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-enable-event-sounds" - attrGet _ = getSettingsGtkEnableEventSounds - attrSet _ = setSettingsGtkEnableEventSounds - attrConstruct _ = constructSettingsGtkEnableEventSounds - --- VVV Prop "gtk-enable-input-feedback-sounds" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-enable-input-feedback-sounds" - attrGet _ = getSettingsGtkEnableInputFeedbackSounds - attrSet _ = setSettingsGtkEnableInputFeedbackSounds - attrConstruct _ = constructSettingsGtkEnableInputFeedbackSounds - --- VVV Prop "gtk-enable-mnemonics" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-enable-mnemonics" - attrGet _ = getSettingsGtkEnableMnemonics - attrSet _ = setSettingsGtkEnableMnemonics - attrConstruct _ = constructSettingsGtkEnableMnemonics - --- VVV Prop "gtk-enable-primary-paste" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-enable-primary-paste" - attrGet _ = getSettingsGtkEnablePrimaryPaste - attrSet _ = setSettingsGtkEnablePrimaryPaste - attrConstruct _ = constructSettingsGtkEnablePrimaryPaste - --- VVV Prop "gtk-enable-tooltips" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-enable-tooltips" - attrGet _ = getSettingsGtkEnableTooltips - attrSet _ = setSettingsGtkEnableTooltips - attrConstruct _ = constructSettingsGtkEnableTooltips - --- VVV Prop "gtk-entry-password-hint-timeout" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkEntryPasswordHintTimeout obj = liftIO $ getObjectPropertyCUInt obj "gtk-entry-password-hint-timeout" - -setSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkEntryPasswordHintTimeout obj val = liftIO $ setObjectPropertyCUInt obj "gtk-entry-password-hint-timeout" val - -constructSettingsGtkEntryPasswordHintTimeout :: Word32 -> IO ([Char], GValue) -constructSettingsGtkEntryPasswordHintTimeout val = constructObjectPropertyCUInt "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 = "Settings::gtk-entry-password-hint-timeout" - attrGet _ = getSettingsGtkEntryPasswordHintTimeout - attrSet _ = setSettingsGtkEntryPasswordHintTimeout - attrConstruct _ = constructSettingsGtkEntryPasswordHintTimeout - --- VVV Prop "gtk-entry-select-on-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-entry-select-on-focus" - attrGet _ = getSettingsGtkEntrySelectOnFocus - attrSet _ = setSettingsGtkEntrySelectOnFocus - attrConstruct _ = constructSettingsGtkEntrySelectOnFocus - --- VVV Prop "gtk-error-bell" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-error-bell" - attrGet _ = getSettingsGtkErrorBell - attrSet _ = setSettingsGtkErrorBell - attrConstruct _ = constructSettingsGtkErrorBell - --- VVV Prop "gtk-fallback-icon-theme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkFallbackIconTheme :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFallbackIconTheme val = constructObjectPropertyString "gtk-fallback-icon-theme" val - -data SettingsGtkFallbackIconThemePropertyInfo -instance AttrInfo SettingsGtkFallbackIconThemePropertyInfo where - type AttrAllowedOps SettingsGtkFallbackIconThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = SettingsK - type AttrGetType SettingsGtkFallbackIconThemePropertyInfo = T.Text - type AttrLabel SettingsGtkFallbackIconThemePropertyInfo = "Settings::gtk-fallback-icon-theme" - attrGet _ = getSettingsGtkFallbackIconTheme - attrSet _ = setSettingsGtkFallbackIconTheme - attrConstruct _ = constructSettingsGtkFallbackIconTheme - --- VVV Prop "gtk-file-chooser-backend" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkFileChooserBackend :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFileChooserBackend val = constructObjectPropertyString "gtk-file-chooser-backend" val - -data SettingsGtkFileChooserBackendPropertyInfo -instance AttrInfo SettingsGtkFileChooserBackendPropertyInfo where - type AttrAllowedOps SettingsGtkFileChooserBackendPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = SettingsK - type AttrGetType SettingsGtkFileChooserBackendPropertyInfo = T.Text - type AttrLabel SettingsGtkFileChooserBackendPropertyInfo = "Settings::gtk-file-chooser-backend" - attrGet _ = getSettingsGtkFileChooserBackend - attrSet _ = setSettingsGtkFileChooserBackend - attrConstruct _ = constructSettingsGtkFileChooserBackend - --- VVV Prop "gtk-font-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkFontName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkFontName val = constructObjectPropertyString "gtk-font-name" val - -data SettingsGtkFontNamePropertyInfo -instance AttrInfo SettingsGtkFontNamePropertyInfo where - type AttrAllowedOps SettingsGtkFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkFontNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkFontNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkFontNamePropertyInfo = T.Text - type AttrLabel SettingsGtkFontNamePropertyInfo = "Settings::gtk-font-name" - attrGet _ = getSettingsGtkFontName - attrSet _ = setSettingsGtkFontName - attrConstruct _ = constructSettingsGtkFontName - --- VVV Prop "gtk-fontconfig-timestamp" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkFontconfigTimestamp obj = liftIO $ getObjectPropertyCUInt obj "gtk-fontconfig-timestamp" - -setSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkFontconfigTimestamp obj val = liftIO $ setObjectPropertyCUInt obj "gtk-fontconfig-timestamp" val - -constructSettingsGtkFontconfigTimestamp :: Word32 -> IO ([Char], GValue) -constructSettingsGtkFontconfigTimestamp val = constructObjectPropertyCUInt "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 = "Settings::gtk-fontconfig-timestamp" - attrGet _ = getSettingsGtkFontconfigTimestamp - attrSet _ = setSettingsGtkFontconfigTimestamp - attrConstruct _ = constructSettingsGtkFontconfigTimestamp - --- VVV Prop "gtk-icon-sizes" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkIconSizes :: T.Text -> IO ([Char], GValue) -constructSettingsGtkIconSizes val = constructObjectPropertyString "gtk-icon-sizes" val - -data SettingsGtkIconSizesPropertyInfo -instance AttrInfo SettingsGtkIconSizesPropertyInfo where - type AttrAllowedOps SettingsGtkIconSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkIconSizesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkIconSizesPropertyInfo = SettingsK - type AttrGetType SettingsGtkIconSizesPropertyInfo = T.Text - type AttrLabel SettingsGtkIconSizesPropertyInfo = "Settings::gtk-icon-sizes" - attrGet _ = getSettingsGtkIconSizes - attrSet _ = setSettingsGtkIconSizes - attrConstruct _ = constructSettingsGtkIconSizes - --- VVV Prop "gtk-icon-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkIconThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkIconThemeName val = constructObjectPropertyString "gtk-icon-theme-name" val - -data SettingsGtkIconThemeNamePropertyInfo -instance AttrInfo SettingsGtkIconThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkIconThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkIconThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkIconThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkIconThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkIconThemeNamePropertyInfo = "Settings::gtk-icon-theme-name" - attrGet _ = getSettingsGtkIconThemeName - attrSet _ = setSettingsGtkIconThemeName - attrConstruct _ = constructSettingsGtkIconThemeName - --- VVV Prop "gtk-im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkImModule :: T.Text -> IO ([Char], GValue) -constructSettingsGtkImModule val = constructObjectPropertyString "gtk-im-module" val - -data SettingsGtkImModulePropertyInfo -instance AttrInfo SettingsGtkImModulePropertyInfo where - type AttrAllowedOps SettingsGtkImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkImModulePropertyInfo = SettingsK - type AttrGetType SettingsGtkImModulePropertyInfo = T.Text - type AttrLabel SettingsGtkImModulePropertyInfo = "Settings::gtk-im-module" - attrGet _ = getSettingsGtkImModule - attrSet _ = setSettingsGtkImModule - attrConstruct _ = constructSettingsGtkImModule - --- VVV Prop "gtk-im-preedit-style" - -- Type: TInterface "Gtk" "IMPreeditStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-im-preedit-style" - attrGet _ = getSettingsGtkImPreeditStyle - attrSet _ = setSettingsGtkImPreeditStyle - attrConstruct _ = constructSettingsGtkImPreeditStyle - --- VVV Prop "gtk-im-status-style" - -- Type: TInterface "Gtk" "IMStatusStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-im-status-style" - attrGet _ = getSettingsGtkImStatusStyle - attrSet _ = setSettingsGtkImStatusStyle - attrConstruct _ = constructSettingsGtkImStatusStyle - --- VVV Prop "gtk-key-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkKeyThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkKeyThemeName val = constructObjectPropertyString "gtk-key-theme-name" val - -data SettingsGtkKeyThemeNamePropertyInfo -instance AttrInfo SettingsGtkKeyThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkKeyThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkKeyThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkKeyThemeNamePropertyInfo = "Settings::gtk-key-theme-name" - attrGet _ = getSettingsGtkKeyThemeName - attrSet _ = setSettingsGtkKeyThemeName - attrConstruct _ = constructSettingsGtkKeyThemeName - --- VVV Prop "gtk-keynav-cursor-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-keynav-cursor-only" - attrGet _ = getSettingsGtkKeynavCursorOnly - attrSet _ = setSettingsGtkKeynavCursorOnly - attrConstruct _ = constructSettingsGtkKeynavCursorOnly - --- VVV Prop "gtk-keynav-wrap-around" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-keynav-wrap-around" - attrGet _ = getSettingsGtkKeynavWrapAround - attrSet _ = setSettingsGtkKeynavWrapAround - attrConstruct _ = constructSettingsGtkKeynavWrapAround - --- VVV Prop "gtk-label-select-on-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-label-select-on-focus" - attrGet _ = getSettingsGtkLabelSelectOnFocus - attrSet _ = setSettingsGtkLabelSelectOnFocus - attrConstruct _ = constructSettingsGtkLabelSelectOnFocus - --- VVV Prop "gtk-long-press-time" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> m Word32 -getSettingsGtkLongPressTime obj = liftIO $ getObjectPropertyCUInt obj "gtk-long-press-time" - -setSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> Word32 -> m () -setSettingsGtkLongPressTime obj val = liftIO $ setObjectPropertyCUInt obj "gtk-long-press-time" val - -constructSettingsGtkLongPressTime :: Word32 -> IO ([Char], GValue) -constructSettingsGtkLongPressTime val = constructObjectPropertyCUInt "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 = "Settings::gtk-long-press-time" - attrGet _ = getSettingsGtkLongPressTime - attrSet _ = setSettingsGtkLongPressTime - attrConstruct _ = constructSettingsGtkLongPressTime - --- VVV Prop "gtk-menu-bar-accel" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkMenuBarAccel :: T.Text -> IO ([Char], GValue) -constructSettingsGtkMenuBarAccel val = constructObjectPropertyString "gtk-menu-bar-accel" val - -data SettingsGtkMenuBarAccelPropertyInfo -instance AttrInfo SettingsGtkMenuBarAccelPropertyInfo where - type AttrAllowedOps SettingsGtkMenuBarAccelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = SettingsK - type AttrGetType SettingsGtkMenuBarAccelPropertyInfo = T.Text - type AttrLabel SettingsGtkMenuBarAccelPropertyInfo = "Settings::gtk-menu-bar-accel" - attrGet _ = getSettingsGtkMenuBarAccel - attrSet _ = setSettingsGtkMenuBarAccel - attrConstruct _ = constructSettingsGtkMenuBarAccel - --- VVV Prop "gtk-menu-bar-popup-delay" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuBarPopupDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-bar-popup-delay" - -setSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuBarPopupDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-bar-popup-delay" val - -constructSettingsGtkMenuBarPopupDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuBarPopupDelay val = constructObjectPropertyCInt "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 = "Settings::gtk-menu-bar-popup-delay" - attrGet _ = getSettingsGtkMenuBarPopupDelay - attrSet _ = setSettingsGtkMenuBarPopupDelay - attrConstruct _ = constructSettingsGtkMenuBarPopupDelay - --- VVV Prop "gtk-menu-images" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-menu-images" - attrGet _ = getSettingsGtkMenuImages - attrSet _ = setSettingsGtkMenuImages - attrConstruct _ = constructSettingsGtkMenuImages - --- VVV Prop "gtk-menu-popdown-delay" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuPopdownDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-popdown-delay" - -setSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuPopdownDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-popdown-delay" val - -constructSettingsGtkMenuPopdownDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuPopdownDelay val = constructObjectPropertyCInt "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 = "Settings::gtk-menu-popdown-delay" - attrGet _ = getSettingsGtkMenuPopdownDelay - attrSet _ = setSettingsGtkMenuPopdownDelay - attrConstruct _ = constructSettingsGtkMenuPopdownDelay - --- VVV Prop "gtk-menu-popup-delay" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkMenuPopupDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-popup-delay" - -setSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkMenuPopupDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-popup-delay" val - -constructSettingsGtkMenuPopupDelay :: Int32 -> IO ([Char], GValue) -constructSettingsGtkMenuPopupDelay val = constructObjectPropertyCInt "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 = "Settings::gtk-menu-popup-delay" - attrGet _ = getSettingsGtkMenuPopupDelay - attrSet _ = setSettingsGtkMenuPopupDelay - attrConstruct _ = constructSettingsGtkMenuPopupDelay - --- VVV Prop "gtk-modules" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkModules :: T.Text -> IO ([Char], GValue) -constructSettingsGtkModules val = constructObjectPropertyString "gtk-modules" val - -data SettingsGtkModulesPropertyInfo -instance AttrInfo SettingsGtkModulesPropertyInfo where - type AttrAllowedOps SettingsGtkModulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkModulesPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkModulesPropertyInfo = SettingsK - type AttrGetType SettingsGtkModulesPropertyInfo = T.Text - type AttrLabel SettingsGtkModulesPropertyInfo = "Settings::gtk-modules" - attrGet _ = getSettingsGtkModules - attrSet _ = setSettingsGtkModules - attrConstruct _ = constructSettingsGtkModules - --- VVV Prop "gtk-primary-button-warps-slider" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-primary-button-warps-slider" - attrGet _ = getSettingsGtkPrimaryButtonWarpsSlider - attrSet _ = setSettingsGtkPrimaryButtonWarpsSlider - attrConstruct _ = constructSettingsGtkPrimaryButtonWarpsSlider - --- VVV Prop "gtk-print-backends" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkPrintBackends :: T.Text -> IO ([Char], GValue) -constructSettingsGtkPrintBackends val = constructObjectPropertyString "gtk-print-backends" val - -data SettingsGtkPrintBackendsPropertyInfo -instance AttrInfo SettingsGtkPrintBackendsPropertyInfo where - type AttrAllowedOps SettingsGtkPrintBackendsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkPrintBackendsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkPrintBackendsPropertyInfo = SettingsK - type AttrGetType SettingsGtkPrintBackendsPropertyInfo = T.Text - type AttrLabel SettingsGtkPrintBackendsPropertyInfo = "Settings::gtk-print-backends" - attrGet _ = getSettingsGtkPrintBackends - attrSet _ = setSettingsGtkPrintBackends - attrConstruct _ = constructSettingsGtkPrintBackends - --- VVV Prop "gtk-print-preview-command" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkPrintPreviewCommand :: T.Text -> IO ([Char], GValue) -constructSettingsGtkPrintPreviewCommand val = constructObjectPropertyString "gtk-print-preview-command" val - -data SettingsGtkPrintPreviewCommandPropertyInfo -instance AttrInfo SettingsGtkPrintPreviewCommandPropertyInfo where - type AttrAllowedOps SettingsGtkPrintPreviewCommandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = SettingsK - type AttrGetType SettingsGtkPrintPreviewCommandPropertyInfo = T.Text - type AttrLabel SettingsGtkPrintPreviewCommandPropertyInfo = "Settings::gtk-print-preview-command" - attrGet _ = getSettingsGtkPrintPreviewCommand - attrSet _ = setSettingsGtkPrintPreviewCommand - attrConstruct _ = constructSettingsGtkPrintPreviewCommand - --- VVV Prop "gtk-recent-files-enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-recent-files-enabled" - attrGet _ = getSettingsGtkRecentFilesEnabled - attrSet _ = setSettingsGtkRecentFilesEnabled - attrConstruct _ = constructSettingsGtkRecentFilesEnabled - --- VVV Prop "gtk-recent-files-limit" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkRecentFilesLimit obj = liftIO $ getObjectPropertyCInt obj "gtk-recent-files-limit" - -setSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkRecentFilesLimit obj val = liftIO $ setObjectPropertyCInt obj "gtk-recent-files-limit" val - -constructSettingsGtkRecentFilesLimit :: Int32 -> IO ([Char], GValue) -constructSettingsGtkRecentFilesLimit val = constructObjectPropertyCInt "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 = "Settings::gtk-recent-files-limit" - attrGet _ = getSettingsGtkRecentFilesLimit - attrSet _ = setSettingsGtkRecentFilesLimit - attrConstruct _ = constructSettingsGtkRecentFilesLimit - --- VVV Prop "gtk-recent-files-max-age" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkRecentFilesMaxAge obj = liftIO $ getObjectPropertyCInt obj "gtk-recent-files-max-age" - -setSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkRecentFilesMaxAge obj val = liftIO $ setObjectPropertyCInt obj "gtk-recent-files-max-age" val - -constructSettingsGtkRecentFilesMaxAge :: Int32 -> IO ([Char], GValue) -constructSettingsGtkRecentFilesMaxAge val = constructObjectPropertyCInt "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 = "Settings::gtk-recent-files-max-age" - attrGet _ = getSettingsGtkRecentFilesMaxAge - attrSet _ = setSettingsGtkRecentFilesMaxAge - attrConstruct _ = constructSettingsGtkRecentFilesMaxAge - --- VVV Prop "gtk-scrolled-window-placement" - -- Type: TInterface "Gtk" "CornerType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-scrolled-window-placement" - attrGet _ = getSettingsGtkScrolledWindowPlacement - attrSet _ = setSettingsGtkScrolledWindowPlacement - attrConstruct _ = constructSettingsGtkScrolledWindowPlacement - --- VVV Prop "gtk-shell-shows-app-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-shell-shows-app-menu" - attrGet _ = getSettingsGtkShellShowsAppMenu - attrSet _ = setSettingsGtkShellShowsAppMenu - attrConstruct _ = constructSettingsGtkShellShowsAppMenu - --- VVV Prop "gtk-shell-shows-desktop" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-shell-shows-desktop" - attrGet _ = getSettingsGtkShellShowsDesktop - attrSet _ = setSettingsGtkShellShowsDesktop - attrConstruct _ = constructSettingsGtkShellShowsDesktop - --- VVV Prop "gtk-shell-shows-menubar" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-shell-shows-menubar" - attrGet _ = getSettingsGtkShellShowsMenubar - attrSet _ = setSettingsGtkShellShowsMenubar - attrConstruct _ = constructSettingsGtkShellShowsMenubar - --- VVV Prop "gtk-show-input-method-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-show-input-method-menu" - attrGet _ = getSettingsGtkShowInputMethodMenu - attrSet _ = setSettingsGtkShowInputMethodMenu - attrConstruct _ = constructSettingsGtkShowInputMethodMenu - --- VVV Prop "gtk-show-unicode-menu" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-show-unicode-menu" - attrGet _ = getSettingsGtkShowUnicodeMenu - attrSet _ = setSettingsGtkShowUnicodeMenu - attrConstruct _ = constructSettingsGtkShowUnicodeMenu - --- VVV Prop "gtk-sound-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkSoundThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkSoundThemeName val = constructObjectPropertyString "gtk-sound-theme-name" val - -data SettingsGtkSoundThemeNamePropertyInfo -instance AttrInfo SettingsGtkSoundThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkSoundThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkSoundThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkSoundThemeNamePropertyInfo = "Settings::gtk-sound-theme-name" - attrGet _ = getSettingsGtkSoundThemeName - attrSet _ = setSettingsGtkSoundThemeName - attrConstruct _ = constructSettingsGtkSoundThemeName - --- VVV Prop "gtk-split-cursor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-split-cursor" - attrGet _ = getSettingsGtkSplitCursor - attrSet _ = setSettingsGtkSplitCursor - attrConstruct _ = constructSettingsGtkSplitCursor - --- VVV Prop "gtk-theme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkThemeName :: T.Text -> IO ([Char], GValue) -constructSettingsGtkThemeName val = constructObjectPropertyString "gtk-theme-name" val - -data SettingsGtkThemeNamePropertyInfo -instance AttrInfo SettingsGtkThemeNamePropertyInfo where - type AttrAllowedOps SettingsGtkThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkThemeNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkThemeNamePropertyInfo = SettingsK - type AttrGetType SettingsGtkThemeNamePropertyInfo = T.Text - type AttrLabel SettingsGtkThemeNamePropertyInfo = "Settings::gtk-theme-name" - attrGet _ = getSettingsGtkThemeName - attrSet _ = setSettingsGtkThemeName - attrConstruct _ = constructSettingsGtkThemeName - --- VVV Prop "gtk-timeout-expand" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutExpand obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-expand" - -setSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutExpand obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-expand" val - -constructSettingsGtkTimeoutExpand :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutExpand val = constructObjectPropertyCInt "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 = "Settings::gtk-timeout-expand" - attrGet _ = getSettingsGtkTimeoutExpand - attrSet _ = setSettingsGtkTimeoutExpand - attrConstruct _ = constructSettingsGtkTimeoutExpand - --- VVV Prop "gtk-timeout-initial" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutInitial obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-initial" - -setSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutInitial obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-initial" val - -constructSettingsGtkTimeoutInitial :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutInitial val = constructObjectPropertyCInt "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 = "Settings::gtk-timeout-initial" - attrGet _ = getSettingsGtkTimeoutInitial - attrSet _ = setSettingsGtkTimeoutInitial - attrConstruct _ = constructSettingsGtkTimeoutInitial - --- VVV Prop "gtk-timeout-repeat" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTimeoutRepeat obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-repeat" - -setSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTimeoutRepeat obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-repeat" val - -constructSettingsGtkTimeoutRepeat :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTimeoutRepeat val = constructObjectPropertyCInt "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 = "Settings::gtk-timeout-repeat" - attrGet _ = getSettingsGtkTimeoutRepeat - attrSet _ = setSettingsGtkTimeoutRepeat - attrConstruct _ = constructSettingsGtkTimeoutRepeat - --- VVV Prop "gtk-titlebar-double-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkTitlebarDoubleClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarDoubleClick val = constructObjectPropertyString "gtk-titlebar-double-click" val - -data SettingsGtkTitlebarDoubleClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarDoubleClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarDoubleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarDoubleClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarDoubleClickPropertyInfo = "Settings::gtk-titlebar-double-click" - attrGet _ = getSettingsGtkTitlebarDoubleClick - attrSet _ = setSettingsGtkTitlebarDoubleClick - attrConstruct _ = constructSettingsGtkTitlebarDoubleClick - --- VVV Prop "gtk-titlebar-middle-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkTitlebarMiddleClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarMiddleClick val = constructObjectPropertyString "gtk-titlebar-middle-click" val - -data SettingsGtkTitlebarMiddleClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarMiddleClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarMiddleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarMiddleClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarMiddleClickPropertyInfo = "Settings::gtk-titlebar-middle-click" - attrGet _ = getSettingsGtkTitlebarMiddleClick - attrSet _ = setSettingsGtkTitlebarMiddleClick - attrConstruct _ = constructSettingsGtkTitlebarMiddleClick - --- VVV Prop "gtk-titlebar-right-click" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkTitlebarRightClick :: T.Text -> IO ([Char], GValue) -constructSettingsGtkTitlebarRightClick val = constructObjectPropertyString "gtk-titlebar-right-click" val - -data SettingsGtkTitlebarRightClickPropertyInfo -instance AttrInfo SettingsGtkTitlebarRightClickPropertyInfo where - type AttrAllowedOps SettingsGtkTitlebarRightClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = SettingsK - type AttrGetType SettingsGtkTitlebarRightClickPropertyInfo = T.Text - type AttrLabel SettingsGtkTitlebarRightClickPropertyInfo = "Settings::gtk-titlebar-right-click" - attrGet _ = getSettingsGtkTitlebarRightClick - attrSet _ = setSettingsGtkTitlebarRightClick - attrConstruct _ = constructSettingsGtkTitlebarRightClick - --- VVV Prop "gtk-toolbar-icon-size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-toolbar-icon-size" - attrGet _ = getSettingsGtkToolbarIconSize - attrSet _ = setSettingsGtkToolbarIconSize - attrConstruct _ = constructSettingsGtkToolbarIconSize - --- VVV Prop "gtk-toolbar-style" - -- Type: TInterface "Gtk" "ToolbarStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-toolbar-style" - attrGet _ = getSettingsGtkToolbarStyle - attrSet _ = setSettingsGtkToolbarStyle - attrConstruct _ = constructSettingsGtkToolbarStyle - --- VVV Prop "gtk-tooltip-browse-mode-timeout" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipBrowseModeTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-browse-mode-timeout" - -setSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipBrowseModeTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-browse-mode-timeout" val - -constructSettingsGtkTooltipBrowseModeTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipBrowseModeTimeout val = constructObjectPropertyCInt "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 = "Settings::gtk-tooltip-browse-mode-timeout" - attrGet _ = getSettingsGtkTooltipBrowseModeTimeout - attrSet _ = setSettingsGtkTooltipBrowseModeTimeout - attrConstruct _ = constructSettingsGtkTooltipBrowseModeTimeout - --- VVV Prop "gtk-tooltip-browse-timeout" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipBrowseTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-browse-timeout" - -setSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipBrowseTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-browse-timeout" val - -constructSettingsGtkTooltipBrowseTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipBrowseTimeout val = constructObjectPropertyCInt "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 = "Settings::gtk-tooltip-browse-timeout" - attrGet _ = getSettingsGtkTooltipBrowseTimeout - attrSet _ = setSettingsGtkTooltipBrowseTimeout - attrConstruct _ = constructSettingsGtkTooltipBrowseTimeout - --- VVV Prop "gtk-tooltip-timeout" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkTooltipTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-timeout" - -setSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkTooltipTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-timeout" val - -constructSettingsGtkTooltipTimeout :: Int32 -> IO ([Char], GValue) -constructSettingsGtkTooltipTimeout val = constructObjectPropertyCInt "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 = "Settings::gtk-tooltip-timeout" - attrGet _ = getSettingsGtkTooltipTimeout - attrSet _ = setSettingsGtkTooltipTimeout - attrConstruct _ = constructSettingsGtkTooltipTimeout - --- VVV Prop "gtk-touchscreen-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-touchscreen-mode" - attrGet _ = getSettingsGtkTouchscreenMode - attrSet _ = setSettingsGtkTouchscreenMode - attrConstruct _ = constructSettingsGtkTouchscreenMode - --- VVV Prop "gtk-visible-focus" - -- Type: TInterface "Gtk" "PolicyType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Settings::gtk-visible-focus" - attrGet _ = getSettingsGtkVisibleFocus - attrSet _ = setSettingsGtkVisibleFocus - attrConstruct _ = constructSettingsGtkVisibleFocus - --- VVV Prop "gtk-xft-antialias" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftAntialias obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-antialias" - -setSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftAntialias obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-antialias" val - -constructSettingsGtkXftAntialias :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftAntialias val = constructObjectPropertyCInt "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 = "Settings::gtk-xft-antialias" - attrGet _ = getSettingsGtkXftAntialias - attrSet _ = setSettingsGtkXftAntialias - attrConstruct _ = constructSettingsGtkXftAntialias - --- VVV Prop "gtk-xft-dpi" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftDpi obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-dpi" - -setSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftDpi obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-dpi" val - -constructSettingsGtkXftDpi :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftDpi val = constructObjectPropertyCInt "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 = "Settings::gtk-xft-dpi" - attrGet _ = getSettingsGtkXftDpi - attrSet _ = setSettingsGtkXftDpi - attrConstruct _ = constructSettingsGtkXftDpi - --- VVV Prop "gtk-xft-hinting" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> m Int32 -getSettingsGtkXftHinting obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-hinting" - -setSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> Int32 -> m () -setSettingsGtkXftHinting obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-hinting" val - -constructSettingsGtkXftHinting :: Int32 -> IO ([Char], GValue) -constructSettingsGtkXftHinting val = constructObjectPropertyCInt "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 = "Settings::gtk-xft-hinting" - attrGet _ = getSettingsGtkXftHinting - attrSet _ = setSettingsGtkXftHinting - attrConstruct _ = constructSettingsGtkXftHinting - --- VVV Prop "gtk-xft-hintstyle" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkXftHintstyle :: T.Text -> IO ([Char], GValue) -constructSettingsGtkXftHintstyle val = constructObjectPropertyString "gtk-xft-hintstyle" val - -data SettingsGtkXftHintstylePropertyInfo -instance AttrInfo SettingsGtkXftHintstylePropertyInfo where - type AttrAllowedOps SettingsGtkXftHintstylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftHintstylePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkXftHintstylePropertyInfo = SettingsK - type AttrGetType SettingsGtkXftHintstylePropertyInfo = T.Text - type AttrLabel SettingsGtkXftHintstylePropertyInfo = "Settings::gtk-xft-hintstyle" - attrGet _ = getSettingsGtkXftHintstyle - attrSet _ = setSettingsGtkXftHintstyle - attrConstruct _ = constructSettingsGtkXftHintstyle - --- VVV Prop "gtk-xft-rgba" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> m 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" val - -constructSettingsGtkXftRgba :: T.Text -> IO ([Char], GValue) -constructSettingsGtkXftRgba val = constructObjectPropertyString "gtk-xft-rgba" val - -data SettingsGtkXftRgbaPropertyInfo -instance AttrInfo SettingsGtkXftRgbaPropertyInfo where - type AttrAllowedOps SettingsGtkXftRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SettingsGtkXftRgbaPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsGtkXftRgbaPropertyInfo = SettingsK - type AttrGetType SettingsGtkXftRgbaPropertyInfo = T.Text - type AttrLabel SettingsGtkXftRgbaPropertyInfo = "Settings::gtk-xft-rgba" - attrGet _ = getSettingsGtkXftRgba - attrSet _ = setSettingsGtkXftRgba - attrConstruct _ = constructSettingsGtkXftRgba - -type instance AttributeList Settings = SettingsAttributeList -type SettingsAttributeList = ('[ '("color-hash", SettingsColorHashPropertyInfo), '("gtk-alternative-button-order", SettingsGtkAlternativeButtonOrderPropertyInfo), '("gtk-alternative-sort-arrows", SettingsGtkAlternativeSortArrowsPropertyInfo), '("gtk-application-prefer-dark-theme", SettingsGtkApplicationPreferDarkThemePropertyInfo), '("gtk-auto-mnemonics", SettingsGtkAutoMnemonicsPropertyInfo), '("gtk-button-images", SettingsGtkButtonImagesPropertyInfo), '("gtk-can-change-accels", SettingsGtkCanChangeAccelsPropertyInfo), '("gtk-color-palette", SettingsGtkColorPalettePropertyInfo), '("gtk-color-scheme", SettingsGtkColorSchemePropertyInfo), '("gtk-cursor-blink", SettingsGtkCursorBlinkPropertyInfo), '("gtk-cursor-blink-time", SettingsGtkCursorBlinkTimePropertyInfo), '("gtk-cursor-blink-timeout", SettingsGtkCursorBlinkTimeoutPropertyInfo), '("gtk-cursor-theme-name", SettingsGtkCursorThemeNamePropertyInfo), '("gtk-cursor-theme-size", SettingsGtkCursorThemeSizePropertyInfo), '("gtk-decoration-layout", SettingsGtkDecorationLayoutPropertyInfo), '("gtk-dialogs-use-header", SettingsGtkDialogsUseHeaderPropertyInfo), '("gtk-dnd-drag-threshold", SettingsGtkDndDragThresholdPropertyInfo), '("gtk-double-click-distance", SettingsGtkDoubleClickDistancePropertyInfo), '("gtk-double-click-time", SettingsGtkDoubleClickTimePropertyInfo), '("gtk-enable-accels", SettingsGtkEnableAccelsPropertyInfo), '("gtk-enable-animations", SettingsGtkEnableAnimationsPropertyInfo), '("gtk-enable-event-sounds", SettingsGtkEnableEventSoundsPropertyInfo), '("gtk-enable-input-feedback-sounds", SettingsGtkEnableInputFeedbackSoundsPropertyInfo), '("gtk-enable-mnemonics", SettingsGtkEnableMnemonicsPropertyInfo), '("gtk-enable-primary-paste", SettingsGtkEnablePrimaryPastePropertyInfo), '("gtk-enable-tooltips", SettingsGtkEnableTooltipsPropertyInfo), '("gtk-entry-password-hint-timeout", SettingsGtkEntryPasswordHintTimeoutPropertyInfo), '("gtk-entry-select-on-focus", SettingsGtkEntrySelectOnFocusPropertyInfo), '("gtk-error-bell", SettingsGtkErrorBellPropertyInfo), '("gtk-fallback-icon-theme", SettingsGtkFallbackIconThemePropertyInfo), '("gtk-file-chooser-backend", SettingsGtkFileChooserBackendPropertyInfo), '("gtk-font-name", SettingsGtkFontNamePropertyInfo), '("gtk-fontconfig-timestamp", SettingsGtkFontconfigTimestampPropertyInfo), '("gtk-icon-sizes", SettingsGtkIconSizesPropertyInfo), '("gtk-icon-theme-name", SettingsGtkIconThemeNamePropertyInfo), '("gtk-im-module", SettingsGtkImModulePropertyInfo), '("gtk-im-preedit-style", SettingsGtkImPreeditStylePropertyInfo), '("gtk-im-status-style", SettingsGtkImStatusStylePropertyInfo), '("gtk-key-theme-name", SettingsGtkKeyThemeNamePropertyInfo), '("gtk-keynav-cursor-only", SettingsGtkKeynavCursorOnlyPropertyInfo), '("gtk-keynav-wrap-around", SettingsGtkKeynavWrapAroundPropertyInfo), '("gtk-label-select-on-focus", SettingsGtkLabelSelectOnFocusPropertyInfo), '("gtk-long-press-time", SettingsGtkLongPressTimePropertyInfo), '("gtk-menu-bar-accel", SettingsGtkMenuBarAccelPropertyInfo), '("gtk-menu-bar-popup-delay", SettingsGtkMenuBarPopupDelayPropertyInfo), '("gtk-menu-images", SettingsGtkMenuImagesPropertyInfo), '("gtk-menu-popdown-delay", SettingsGtkMenuPopdownDelayPropertyInfo), '("gtk-menu-popup-delay", SettingsGtkMenuPopupDelayPropertyInfo), '("gtk-modules", SettingsGtkModulesPropertyInfo), '("gtk-primary-button-warps-slider", SettingsGtkPrimaryButtonWarpsSliderPropertyInfo), '("gtk-print-backends", SettingsGtkPrintBackendsPropertyInfo), '("gtk-print-preview-command", SettingsGtkPrintPreviewCommandPropertyInfo), '("gtk-recent-files-enabled", SettingsGtkRecentFilesEnabledPropertyInfo), '("gtk-recent-files-limit", SettingsGtkRecentFilesLimitPropertyInfo), '("gtk-recent-files-max-age", SettingsGtkRecentFilesMaxAgePropertyInfo), '("gtk-scrolled-window-placement", SettingsGtkScrolledWindowPlacementPropertyInfo), '("gtk-shell-shows-app-menu", SettingsGtkShellShowsAppMenuPropertyInfo), '("gtk-shell-shows-desktop", SettingsGtkShellShowsDesktopPropertyInfo), '("gtk-shell-shows-menubar", SettingsGtkShellShowsMenubarPropertyInfo), '("gtk-show-input-method-menu", SettingsGtkShowInputMethodMenuPropertyInfo), '("gtk-show-unicode-menu", SettingsGtkShowUnicodeMenuPropertyInfo), '("gtk-sound-theme-name", SettingsGtkSoundThemeNamePropertyInfo), '("gtk-split-cursor", SettingsGtkSplitCursorPropertyInfo), '("gtk-theme-name", SettingsGtkThemeNamePropertyInfo), '("gtk-timeout-expand", SettingsGtkTimeoutExpandPropertyInfo), '("gtk-timeout-initial", SettingsGtkTimeoutInitialPropertyInfo), '("gtk-timeout-repeat", SettingsGtkTimeoutRepeatPropertyInfo), '("gtk-titlebar-double-click", SettingsGtkTitlebarDoubleClickPropertyInfo), '("gtk-titlebar-middle-click", SettingsGtkTitlebarMiddleClickPropertyInfo), '("gtk-titlebar-right-click", SettingsGtkTitlebarRightClickPropertyInfo), '("gtk-toolbar-icon-size", SettingsGtkToolbarIconSizePropertyInfo), '("gtk-toolbar-style", SettingsGtkToolbarStylePropertyInfo), '("gtk-tooltip-browse-mode-timeout", SettingsGtkTooltipBrowseModeTimeoutPropertyInfo), '("gtk-tooltip-browse-timeout", SettingsGtkTooltipBrowseTimeoutPropertyInfo), '("gtk-tooltip-timeout", SettingsGtkTooltipTimeoutPropertyInfo), '("gtk-touchscreen-mode", SettingsGtkTouchscreenModePropertyInfo), '("gtk-visible-focus", SettingsGtkVisibleFocusPropertyInfo), '("gtk-xft-antialias", SettingsGtkXftAntialiasPropertyInfo), '("gtk-xft-dpi", SettingsGtkXftDpiPropertyInfo), '("gtk-xft-hinting", SettingsGtkXftHintingPropertyInfo), '("gtk-xft-hintstyle", SettingsGtkXftHintstylePropertyInfo), '("gtk-xft-rgba", SettingsGtkXftRgbaPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Settings = SettingsSignalList -type SettingsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Settings::set_double_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_double", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- v_double - T.Text -> -- origin - m () -settingsSetDoubleProperty _obj name v_double origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let v_double' = realToFrac v_double - origin' <- textToCString origin - gtk_settings_set_double_property _obj' name' v_double' origin' - touchManagedPtr _obj - freeMem name' - freeMem origin' - return () - --- method Settings::set_long_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_long", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_long", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_settings_set_long_property" gtk_settings_set_long_property :: - Ptr Settings -> -- _obj : TInterface "Gtk" "Settings" - CString -> -- name : TBasicType TUTF8 - Int64 -> -- v_long : TBasicType TInt64 - 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 - Int64 -> -- v_long - T.Text -> -- origin - m () -settingsSetLongProperty _obj name v_long origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - origin' <- textToCString origin - gtk_settings_set_long_property _obj' name' v_long origin' - touchManagedPtr _obj - freeMem name' - freeMem origin' - return () - --- method Settings::set_property_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "svalue", argType = TInterface "Gtk" "SettingsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "svalue", argType = TInterface "Gtk" "SettingsValue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Settings::set_string_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- v_string - T.Text -> -- origin - m () -settingsSetStringProperty _obj name v_string origin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - v_string' <- textToCString v_string - origin' <- textToCString origin - gtk_settings_set_string_property _obj' name' v_string' origin' - touchManagedPtr _obj - freeMem name' - freeMem v_string' - freeMem origin' - return () - --- method Settings::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -settingsInstallProperty pspec = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - gtk_settings_install_property pspec' - return () - --- method Settings::install_property_parser --- method type : MemberFunction --- Args : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TParamSpec, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "Gtk" "RcPropertyParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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,94 +0,0 @@ -module GI.Gtk.Objects.Settings where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,370 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - sizeGroupAddWidget , - - --- ** sizeGroupGetIgnoreHidden - sizeGroupGetIgnoreHidden , - - --- ** sizeGroupGetMode - sizeGroupGetMode , - - --- ** sizeGroupGetWidgets - sizeGroupGetWidgets , - - --- ** sizeGroupNew - sizeGroupNew , - - --- ** sizeGroupRemoveWidget - sizeGroupRemoveWidget , - - --- ** sizeGroupSetIgnoreHidden - sizeGroupSetIgnoreHidden , - - --- ** sizeGroupSetMode - sizeGroupSetMode , - - - - - -- * Properties --- ** IgnoreHidden - SizeGroupIgnoreHiddenPropertyInfo , - constructSizeGroupIgnoreHidden , - getSizeGroupIgnoreHidden , - setSizeGroupIgnoreHidden , - - --- ** Mode - SizeGroupModePropertyInfo , - constructSizeGroupMode , - getSizeGroupMode , - setSizeGroupMode , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "ignore-hidden" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SizeGroup::ignore-hidden" - attrGet _ = getSizeGroupIgnoreHidden - attrSet _ = setSizeGroupIgnoreHidden - attrConstruct _ = constructSizeGroupIgnoreHidden - --- VVV Prop "mode" - -- Type: TInterface "Gtk" "SizeGroupMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SizeGroup::mode" - attrGet _ = getSizeGroupMode - attrSet _ = setSizeGroupMode - attrConstruct _ = constructSizeGroupMode - -type instance AttributeList SizeGroup = SizeGroupAttributeList -type SizeGroupAttributeList = ('[ '("ignore-hidden", SizeGroupIgnoreHiddenPropertyInfo), '("mode", SizeGroupModePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SizeGroup = SizeGroupSignalList -type SizeGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SizeGroup::new --- method type : Constructor --- Args : [Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method SizeGroup::get_ignore_hidden --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -sizeGroupGetIgnoreHidden _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_size_group_get_ignore_hidden _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SizeGroup::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -sizeGroupGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_size_group_get_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method SizeGroup::get_widgets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -sizeGroupGetWidgets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_size_group_get_widgets _obj' - checkUnexpectedReturnNULL "gtk_size_group_get_widgets" result - result' <- unpackGSList result - result'' <- mapM (newObject Widget) result' - touchManagedPtr _obj - return result'' - --- method SizeGroup::remove_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method SizeGroup::set_ignore_hidden --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- ignore_hidden - m () -sizeGroupSetIgnoreHidden _obj ignore_hidden = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let ignore_hidden' = (fromIntegral . fromEnum) ignore_hidden - gtk_size_group_set_ignore_hidden _obj' ignore_hidden' - touchManagedPtr _obj - return () - --- method SizeGroup::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SizeGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gtk" "SizeGroupMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -sizeGroupSetMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gtk_size_group_set_mode _obj' mode' - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.SizeGroup where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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) --} - -module GI.Gtk.Objects.Socket - ( - --- * Exported types - Socket(..) , - SocketK , - toSocket , - noSocket , - - - -- * Methods --- ** socketAddId - socketAddId , - - --- ** socketGetId - socketGetId , - - --- ** socketGetPlugWindow - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", 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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("plug-added", SocketPlugAddedSignalInfo), '("plug-removed", SocketPlugRemovedSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Socket::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_socket_add_id" gtk_socket_add_id :: - Ptr Socket -> -- _obj : TInterface "Gtk" "Socket" - Word64 -> -- window : TBasicType TUInt64 - IO () - - -socketAddId :: - (MonadIO m, SocketK a) => - a -> -- _obj - Word64 -> -- window - m () -socketAddId _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_socket_add_id _obj' window - touchManagedPtr _obj - return () - --- method Socket::get_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "gtk_socket_get_id" gtk_socket_get_id :: - Ptr Socket -> -- _obj : TInterface "Gtk" "Socket" - IO Word64 - - -socketGetId :: - (MonadIO m, SocketK a) => - a -> -- _obj - m Word64 -socketGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_socket_get_id _obj' - touchManagedPtr _obj - return result - --- method Socket::get_plug_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,15 +0,0 @@ -module GI.Gtk.Objects.Socket where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1371 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - spinButtonConfigure , - - --- ** spinButtonGetAdjustment - spinButtonGetAdjustment , - - --- ** spinButtonGetDigits - spinButtonGetDigits , - - --- ** spinButtonGetIncrements - spinButtonGetIncrements , - - --- ** spinButtonGetNumeric - spinButtonGetNumeric , - - --- ** spinButtonGetRange - spinButtonGetRange , - - --- ** spinButtonGetSnapToTicks - spinButtonGetSnapToTicks , - - --- ** spinButtonGetUpdatePolicy - spinButtonGetUpdatePolicy , - - --- ** spinButtonGetValue - spinButtonGetValue , - - --- ** spinButtonGetValueAsInt - spinButtonGetValueAsInt , - - --- ** spinButtonGetWrap - spinButtonGetWrap , - - --- ** spinButtonNew - spinButtonNew , - - --- ** spinButtonNewWithRange - spinButtonNewWithRange , - - --- ** spinButtonSetAdjustment - spinButtonSetAdjustment , - - --- ** spinButtonSetDigits - spinButtonSetDigits , - - --- ** spinButtonSetIncrements - spinButtonSetIncrements , - - --- ** spinButtonSetNumeric - spinButtonSetNumeric , - - --- ** spinButtonSetRange - spinButtonSetRange , - - --- ** spinButtonSetSnapToTicks - spinButtonSetSnapToTicks , - - --- ** spinButtonSetUpdatePolicy - spinButtonSetUpdatePolicy , - - --- ** spinButtonSetValue - spinButtonSetValue , - - --- ** spinButtonSetWrap - spinButtonSetWrap , - - --- ** spinButtonSpin - spinButtonSpin , - - --- ** spinButtonUpdate - spinButtonUpdate , - - - - - -- * Properties --- ** Adjustment - SpinButtonAdjustmentPropertyInfo , - constructSpinButtonAdjustment , - getSpinButtonAdjustment , - setSpinButtonAdjustment , - - --- ** ClimbRate - SpinButtonClimbRatePropertyInfo , - constructSpinButtonClimbRate , - getSpinButtonClimbRate , - setSpinButtonClimbRate , - - --- ** Digits - SpinButtonDigitsPropertyInfo , - constructSpinButtonDigits , - getSpinButtonDigits , - setSpinButtonDigits , - - --- ** Numeric - SpinButtonNumericPropertyInfo , - constructSpinButtonNumeric , - getSpinButtonNumeric , - setSpinButtonNumeric , - - --- ** SnapToTicks - SpinButtonSnapToTicksPropertyInfo , - constructSpinButtonSnapToTicks , - getSpinButtonSnapToTicks , - setSpinButtonSnapToTicks , - - --- ** UpdatePolicy - SpinButtonUpdatePolicyPropertyInfo , - constructSpinButtonUpdatePolicy , - getSpinButtonUpdatePolicy , - setSpinButtonUpdatePolicy , - - --- ** Value - SpinButtonValuePropertyInfo , - constructSpinButtonValue , - getSpinButtonValue , - setSpinButtonValue , - - --- ** Wrap - SpinButtonWrapPropertyInfo , - constructSpinButtonWrap , - getSpinButtonWrap , - setSpinButtonWrap , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ new_value _ = do - (result, outnew_value) <- _cb - let outnew_value' = realToFrac outnew_value - poke new_value outnew_value' - 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] - -getSpinButtonAdjustment :: (MonadIO m, SpinButtonK o) => o -> m Adjustment -getSpinButtonAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment - -setSpinButtonAdjustment :: (MonadIO m, SpinButtonK o, AdjustmentK a) => o -> a -> m () -setSpinButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val - -constructSpinButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) -constructSpinButtonAdjustment val = constructObjectPropertyObject "adjustment" 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 = "SpinButton::adjustment" - attrGet _ = getSpinButtonAdjustment - attrSet _ = setSpinButtonAdjustment - attrConstruct _ = constructSpinButtonAdjustment - --- VVV Prop "climb-rate" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SpinButton::climb-rate" - attrGet _ = getSpinButtonClimbRate - attrSet _ = setSpinButtonClimbRate - attrConstruct _ = constructSpinButtonClimbRate - --- VVV Prop "digits" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> m Word32 -getSpinButtonDigits obj = liftIO $ getObjectPropertyCUInt obj "digits" - -setSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> Word32 -> m () -setSpinButtonDigits obj val = liftIO $ setObjectPropertyCUInt obj "digits" val - -constructSpinButtonDigits :: Word32 -> IO ([Char], GValue) -constructSpinButtonDigits val = constructObjectPropertyCUInt "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 = "SpinButton::digits" - attrGet _ = getSpinButtonDigits - attrSet _ = setSpinButtonDigits - attrConstruct _ = constructSpinButtonDigits - --- VVV Prop "numeric" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SpinButton::numeric" - attrGet _ = getSpinButtonNumeric - attrSet _ = setSpinButtonNumeric - attrConstruct _ = constructSpinButtonNumeric - --- VVV Prop "snap-to-ticks" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SpinButton::snap-to-ticks" - attrGet _ = getSpinButtonSnapToTicks - attrSet _ = setSpinButtonSnapToTicks - attrConstruct _ = constructSpinButtonSnapToTicks - --- VVV Prop "update-policy" - -- Type: TInterface "Gtk" "SpinButtonUpdatePolicy" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SpinButton::update-policy" - attrGet _ = getSpinButtonUpdatePolicy - attrSet _ = setSpinButtonUpdatePolicy - attrConstruct _ = constructSpinButtonUpdatePolicy - --- VVV Prop "value" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SpinButton::value" - attrGet _ = getSpinButtonValue - attrSet _ = setSpinButtonValue - attrConstruct _ = constructSpinButtonValue - --- VVV Prop "wrap" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "SpinButton::wrap" - attrGet _ = getSpinButtonWrap - attrSet _ = setSpinButtonWrap - attrConstruct _ = constructSpinButtonWrap - -type instance AttributeList SpinButton = SpinButtonAttributeList -type SpinButtonAttributeList = ('[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("adjustment", SpinButtonAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("climb-rate", SpinButtonClimbRatePropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("digits", SpinButtonDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("numeric", SpinButtonNumericPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("snap-to-ticks", SpinButtonSnapToTicksPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("update-policy", SpinButtonUpdatePolicyPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", SpinButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", SpinButtonWrapPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", SpinButtonChangeValueSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("input", SpinButtonInputSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("output", SpinButtonOutputSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", SpinButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("wrapped", SpinButtonWrappedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SpinButton::new --- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - IO (Ptr SpinButton) - - -spinButtonNew :: - (MonadIO m, AdjustmentK a) => - Maybe (a) -> -- adjustment - Double -> -- climb_rate - Word32 -> -- digits - m SpinButton -spinButtonNew adjustment climb_rate digits = liftIO $ do - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - let climb_rate' = realToFrac climb_rate - result <- gtk_spin_button_new maybeAdjustment climb_rate' 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 {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "climb_rate", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -spinButtonConfigure :: - (MonadIO m, SpinButtonK a, AdjustmentK b) => - a -> -- _obj - Maybe (b) -> -- adjustment - Double -> -- climb_rate - Word32 -> -- digits - m () -spinButtonConfigure _obj adjustment climb_rate digits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAdjustment <- case adjustment of - Nothing -> return nullPtr - Just jAdjustment -> do - let jAdjustment' = unsafeManagedPtrCastPtr jAdjustment - return jAdjustment' - let climb_rate' = realToFrac climb_rate - gtk_spin_button_configure _obj' maybeAdjustment climb_rate' digits - touchManagedPtr _obj - whenJust adjustment touchManagedPtr - return () - --- method SpinButton::get_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SpinButton::get_digits --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -spinButtonGetDigits _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_digits _obj' - touchManagedPtr _obj - return result - --- method SpinButton::get_increments --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method SpinButton::get_numeric --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -spinButtonGetNumeric _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_numeric _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SpinButton::get_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method SpinButton::get_snap_to_ticks --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SpinButton::get_update_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SpinButton::get_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -spinButtonGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_value _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method SpinButton::get_value_as_int --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -spinButtonGetValueAsInt _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_value_as_int _obj' - touchManagedPtr _obj - return result - --- method SpinButton::get_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -spinButtonGetWrap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_spin_button_get_wrap _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SpinButton::set_adjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method SpinButton::set_digits --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digits", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -spinButtonSetDigits :: - (MonadIO m, SpinButtonK a) => - a -> -- _obj - Word32 -> -- digits - m () -spinButtonSetDigits _obj digits = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_spin_button_set_digits _obj' digits - touchManagedPtr _obj - return () - --- method SpinButton::set_increments --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "page", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method SpinButton::set_numeric --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "numeric", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -spinButtonSetNumeric _obj numeric = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let numeric' = (fromIntegral . fromEnum) numeric - gtk_spin_button_set_numeric _obj' numeric' - touchManagedPtr _obj - return () - --- method SpinButton::set_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method SpinButton::set_snap_to_ticks --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "snap_to_ticks", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- snap_to_ticks - m () -spinButtonSetSnapToTicks _obj snap_to_ticks = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let snap_to_ticks' = (fromIntegral . fromEnum) snap_to_ticks - gtk_spin_button_set_snap_to_ticks _obj' snap_to_ticks' - touchManagedPtr _obj - return () - --- method SpinButton::set_update_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Gtk" "SpinButtonUpdatePolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method SpinButton::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -spinButtonSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = realToFrac value - gtk_spin_button_set_value _obj' value' - touchManagedPtr _obj - return () - --- method SpinButton::set_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -spinButtonSetWrap _obj wrap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap' = (fromIntegral . fromEnum) wrap - gtk_spin_button_set_wrap _obj' wrap' - touchManagedPtr _obj - return () - --- method SpinButton::spin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "SpinType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "increment", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method SpinButton::update --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SpinButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -spinButtonUpdate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_spin_button_update _obj' - touchManagedPtr _obj - return () - - 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,26 +0,0 @@ -module GI.Gtk.Objects.SpinButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList SpinButtonAccessible = SpinButtonAccessibleAttributeList -type SpinButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SpinButtonAccessible = SpinButtonAccessibleSignalList -type SpinButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,178 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - spinnerStart , - - --- ** spinnerStop - spinnerStop , - - - - - -- * Properties --- ** Active - SpinnerActivePropertyInfo , - constructSpinnerActive , - getSpinnerActive , - setSpinnerActive , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Spinner::active" - attrGet _ = getSpinnerActive - attrSet _ = setSpinnerActive - attrConstruct _ = constructSpinnerActive - -type instance AttributeList Spinner = SpinnerAttributeList -type SpinnerAttributeList = ('[ '("active", SpinnerActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Spinner = SpinnerSignalList -type SpinnerSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Spinner::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -spinnerStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_spinner_start _obj' - touchManagedPtr _obj - return () - --- method Spinner::stop --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Spinner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -spinnerStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_spinner_stop _obj' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.Spinner where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Spinner = Spinner (ForeignPtr Spinner) -instance GObject Spinner where -class GObject o => SpinnerK o -instance (GObject o, IsDescendantOf Spinner o) => SpinnerK o -data SpinnerActivePropertyInfo 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList SpinnerAccessible = SpinnerAccessibleAttributeList -type SpinnerAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SpinnerAccessible = SpinnerAccessibleSignalList -type SpinnerAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,927 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - stackAddNamed , - - --- ** stackAddTitled - stackAddTitled , - - --- ** stackGetChildByName - stackGetChildByName , - - --- ** stackGetHhomogeneous - stackGetHhomogeneous , - - --- ** stackGetHomogeneous - stackGetHomogeneous , - - --- ** stackGetTransitionDuration - stackGetTransitionDuration , - - --- ** stackGetTransitionRunning - stackGetTransitionRunning , - - --- ** stackGetTransitionType - stackGetTransitionType , - - --- ** stackGetVhomogeneous - stackGetVhomogeneous , - - --- ** stackGetVisibleChild - stackGetVisibleChild , - - --- ** stackGetVisibleChildName - stackGetVisibleChildName , - - --- ** stackNew - stackNew , - - --- ** stackSetHhomogeneous - stackSetHhomogeneous , - - --- ** stackSetHomogeneous - stackSetHomogeneous , - - --- ** stackSetTransitionDuration - stackSetTransitionDuration , - - --- ** stackSetTransitionType - stackSetTransitionType , - - --- ** stackSetVhomogeneous - stackSetVhomogeneous , - - --- ** stackSetVisibleChild - stackSetVisibleChild , - - --- ** stackSetVisibleChildFull - stackSetVisibleChildFull , - - --- ** stackSetVisibleChildName - stackSetVisibleChildName , - - - - - -- * Properties --- ** Hhomogeneous - StackHhomogeneousPropertyInfo , - constructStackHhomogeneous , - getStackHhomogeneous , - setStackHhomogeneous , - - --- ** Homogeneous - StackHomogeneousPropertyInfo , - constructStackHomogeneous , - getStackHomogeneous , - setStackHomogeneous , - - --- ** TransitionDuration - StackTransitionDurationPropertyInfo , - constructStackTransitionDuration , - getStackTransitionDuration , - setStackTransitionDuration , - - --- ** TransitionRunning - StackTransitionRunningPropertyInfo , - getStackTransitionRunning , - - --- ** TransitionType - StackTransitionTypePropertyInfo , - constructStackTransitionType , - getStackTransitionType , - setStackTransitionType , - - --- ** Vhomogeneous - StackVhomogeneousPropertyInfo , - constructStackVhomogeneous , - getStackVhomogeneous , - setStackVhomogeneous , - - --- ** VisibleChild - StackVisibleChildPropertyInfo , - constructStackVisibleChild , - getStackVisibleChild , - setStackVisibleChild , - - --- ** VisibleChildName - StackVisibleChildNamePropertyInfo , - constructStackVisibleChildName , - getStackVisibleChildName , - setStackVisibleChildName , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "hhomogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Stack::hhomogeneous" - attrGet _ = getStackHhomogeneous - attrSet _ = setStackHhomogeneous - attrConstruct _ = constructStackHhomogeneous - --- VVV Prop "homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Stack::homogeneous" - attrGet _ = getStackHomogeneous - attrSet _ = setStackHomogeneous - attrConstruct _ = constructStackHomogeneous - --- VVV Prop "transition-duration" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getStackTransitionDuration :: (MonadIO m, StackK o) => o -> m Word32 -getStackTransitionDuration obj = liftIO $ getObjectPropertyCUInt obj "transition-duration" - -setStackTransitionDuration :: (MonadIO m, StackK o) => o -> Word32 -> m () -setStackTransitionDuration obj val = liftIO $ setObjectPropertyCUInt obj "transition-duration" val - -constructStackTransitionDuration :: Word32 -> IO ([Char], GValue) -constructStackTransitionDuration val = constructObjectPropertyCUInt "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 = "Stack::transition-duration" - attrGet _ = getStackTransitionDuration - attrSet _ = setStackTransitionDuration - attrConstruct _ = constructStackTransitionDuration - --- VVV Prop "transition-running" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "Stack::transition-running" - attrGet _ = getStackTransitionRunning - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "transition-type" - -- Type: TInterface "Gtk" "StackTransitionType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Stack::transition-type" - attrGet _ = getStackTransitionType - attrSet _ = setStackTransitionType - attrConstruct _ = constructStackTransitionType - --- VVV Prop "vhomogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "Stack::vhomogeneous" - attrGet _ = getStackVhomogeneous - attrSet _ = setStackVhomogeneous - attrConstruct _ = constructStackVhomogeneous - --- VVV Prop "visible-child" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getStackVisibleChild :: (MonadIO m, StackK o) => o -> m Widget -getStackVisibleChild obj = liftIO $ getObjectPropertyObject obj "visible-child" Widget - -setStackVisibleChild :: (MonadIO m, StackK o, WidgetK a) => o -> a -> m () -setStackVisibleChild obj val = liftIO $ setObjectPropertyObject obj "visible-child" val - -constructStackVisibleChild :: (WidgetK a) => a -> IO ([Char], GValue) -constructStackVisibleChild val = constructObjectPropertyObject "visible-child" 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 = "Stack::visible-child" - attrGet _ = getStackVisibleChild - attrSet _ = setStackVisibleChild - attrConstruct _ = constructStackVisibleChild - --- VVV Prop "visible-child-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getStackVisibleChildName :: (MonadIO m, StackK o) => o -> m T.Text -getStackVisibleChildName obj = liftIO $ getObjectPropertyString obj "visible-child-name" - -setStackVisibleChildName :: (MonadIO m, StackK o) => o -> T.Text -> m () -setStackVisibleChildName obj val = liftIO $ setObjectPropertyString obj "visible-child-name" val - -constructStackVisibleChildName :: T.Text -> IO ([Char], GValue) -constructStackVisibleChildName val = constructObjectPropertyString "visible-child-name" 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 = "Stack::visible-child-name" - attrGet _ = getStackVisibleChildName - attrSet _ = setStackVisibleChildName - attrConstruct _ = constructStackVisibleChildName - -type instance AttributeList Stack = StackAttributeList -type StackAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hhomogeneous", StackHhomogeneousPropertyInfo), '("homogeneous", StackHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transition-duration", StackTransitionDurationPropertyInfo), '("transition-running", StackTransitionRunningPropertyInfo), '("transition-type", StackTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("vhomogeneous", StackVhomogeneousPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-child", StackVisibleChildPropertyInfo), '("visible-child-name", StackVisibleChildNamePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Stack = StackSignalList -type StackSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Stack::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method Stack::add_titled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method Stack::get_child_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Stack::get_hhomogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -stackGetHhomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_hhomogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Stack::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -stackGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Stack::get_transition_duration --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -stackGetTransitionDuration _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_transition_duration _obj' - touchManagedPtr _obj - return result - --- method Stack::get_transition_running --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -stackGetTransitionRunning _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_transition_running _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Stack::get_transition_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -stackGetTransitionType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_transition_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Stack::get_vhomogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -stackGetVhomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_stack_get_vhomogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Stack::get_visible_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Stack::get_visible_child_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Stack::set_hhomogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -stackSetHhomogeneous _obj hhomogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hhomogeneous' = (fromIntegral . fromEnum) hhomogeneous - gtk_stack_set_hhomogeneous _obj' hhomogeneous' - touchManagedPtr _obj - return () - --- method Stack::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -stackSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_stack_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - --- method Stack::set_transition_duration --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "duration", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -stackSetTransitionDuration :: - (MonadIO m, StackK a) => - a -> -- _obj - Word32 -> -- duration - m () -stackSetTransitionDuration _obj duration = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_stack_set_transition_duration _obj' duration - touchManagedPtr _obj - return () - --- method Stack::set_transition_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -stackSetTransitionType _obj transition = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let transition' = (fromIntegral . fromEnum) transition - gtk_stack_set_transition_type _obj' transition' - touchManagedPtr _obj - return () - --- method Stack::set_vhomogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vhomogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -stackSetVhomogeneous _obj vhomogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let vhomogeneous' = (fromIntegral . fromEnum) vhomogeneous - gtk_stack_set_vhomogeneous _obj' vhomogeneous' - touchManagedPtr _obj - return () - --- method Stack::set_visible_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Stack::set_visible_child_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "transition", argType = TInterface "Gtk" "StackTransitionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Stack::set_visible_child_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.Stack where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 StackTransitionDurationPropertyInfo -data StackTransitionRunningPropertyInfo -data StackTransitionTypePropertyInfo -data StackVhomogeneousPropertyInfo -data StackVisibleChildPropertyInfo -data StackVisibleChildNamePropertyInfo 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,184 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - stackSidebarGetStack , - - --- ** stackSidebarNew - stackSidebarNew , - - --- ** stackSidebarSetStack - stackSidebarSetStack , - - - - - -- * Properties --- ** Stack - StackSidebarStackPropertyInfo , - constructStackSidebarStack , - getStackSidebarStack , - setStackSidebarStack , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "stack" - -- Type: TInterface "Gtk" "Stack" - -- Flags: [PropertyReadable,PropertyWritable] - -getStackSidebarStack :: (MonadIO m, StackSidebarK o) => o -> m 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" val - -constructStackSidebarStack :: (StackK a) => a -> IO ([Char], GValue) -constructStackSidebarStack val = constructObjectPropertyObject "stack" val - -data StackSidebarStackPropertyInfo -instance AttrInfo StackSidebarStackPropertyInfo where - type AttrAllowedOps StackSidebarStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackSidebarStackPropertyInfo = StackK - type AttrBaseTypeConstraint StackSidebarStackPropertyInfo = StackSidebarK - type AttrGetType StackSidebarStackPropertyInfo = Stack - type AttrLabel StackSidebarStackPropertyInfo = "StackSidebar::stack" - attrGet _ = getStackSidebarStack - attrSet _ = setStackSidebarStack - attrConstruct _ = constructStackSidebarStack - -type instance AttributeList StackSidebar = StackSidebarAttributeList -type StackSidebarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stack", StackSidebarStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList StackSidebar = StackSidebarSignalList -type StackSidebarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method StackSidebar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StackSidebar::set_stack --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSidebar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.StackSidebar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StackSidebar = StackSidebar (ForeignPtr StackSidebar) -instance GObject StackSidebar where -class GObject o => StackSidebarK o -instance (GObject o, IsDescendantOf StackSidebar o) => StackSidebarK o -data StackSidebarStackPropertyInfo 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,188 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Objects.StackSwitcher - ( - --- * Exported types - StackSwitcher(..) , - StackSwitcherK , - toStackSwitcher , - noStackSwitcher , - - - -- * Methods --- ** stackSwitcherGetStack - stackSwitcherGetStack , - - --- ** stackSwitcherNew - stackSwitcherNew , - - --- ** stackSwitcherSetStack - stackSwitcherSetStack , - - - - - -- * Properties --- ** Stack - StackSwitcherStackPropertyInfo , - constructStackSwitcherStack , - getStackSwitcherStack , - setStackSwitcherStack , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "stack" - -- Type: TInterface "Gtk" "Stack" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getStackSwitcherStack :: (MonadIO m, StackSwitcherK o) => o -> m Stack -getStackSwitcherStack obj = liftIO $ getObjectPropertyObject obj "stack" Stack - -setStackSwitcherStack :: (MonadIO m, StackSwitcherK o, StackK a) => o -> a -> m () -setStackSwitcherStack obj val = liftIO $ setObjectPropertyObject obj "stack" val - -constructStackSwitcherStack :: (StackK a) => a -> IO ([Char], GValue) -constructStackSwitcherStack val = constructObjectPropertyObject "stack" val - -data StackSwitcherStackPropertyInfo -instance AttrInfo StackSwitcherStackPropertyInfo where - type AttrAllowedOps StackSwitcherStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StackSwitcherStackPropertyInfo = StackK - type AttrBaseTypeConstraint StackSwitcherStackPropertyInfo = StackSwitcherK - type AttrGetType StackSwitcherStackPropertyInfo = Stack - type AttrLabel StackSwitcherStackPropertyInfo = "StackSwitcher::stack" - attrGet _ = getStackSwitcherStack - attrSet _ = setStackSwitcherStack - attrConstruct _ = constructStackSwitcherStack - -type instance AttributeList StackSwitcher = StackSwitcherAttributeList -type StackSwitcherAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("stack", StackSwitcherStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList StackSwitcher = StackSwitcherSignalList -type StackSwitcherSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method StackSwitcher::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StackSwitcher::set_stack --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StackSwitcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stack", argType = TInterface "Gtk" "Stack", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.StackSwitcher where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StackSwitcher = StackSwitcher (ForeignPtr StackSwitcher) -instance GObject StackSwitcher where -class GObject o => StackSwitcherK o -instance (GObject o, IsDescendantOf StackSwitcher o) => StackSwitcherK o -data StackSwitcherStackPropertyInfo 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,2001 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - statusIconGetGeometry , - - --- ** statusIconGetGicon - statusIconGetGicon , - - --- ** statusIconGetHasTooltip - statusIconGetHasTooltip , - - --- ** statusIconGetIconName - statusIconGetIconName , - - --- ** statusIconGetPixbuf - statusIconGetPixbuf , - - --- ** statusIconGetScreen - statusIconGetScreen , - - --- ** statusIconGetSize - statusIconGetSize , - - --- ** statusIconGetStock - statusIconGetStock , - - --- ** statusIconGetStorageType - statusIconGetStorageType , - - --- ** statusIconGetTitle - statusIconGetTitle , - - --- ** statusIconGetTooltipMarkup - statusIconGetTooltipMarkup , - - --- ** statusIconGetTooltipText - statusIconGetTooltipText , - - --- ** statusIconGetVisible - statusIconGetVisible , - - --- ** statusIconGetX11WindowId - statusIconGetX11WindowId , - - --- ** statusIconIsEmbedded - statusIconIsEmbedded , - - --- ** statusIconNew - statusIconNew , - - --- ** statusIconNewFromFile - statusIconNewFromFile , - - --- ** statusIconNewFromGicon - statusIconNewFromGicon , - - --- ** statusIconNewFromIconName - statusIconNewFromIconName , - - --- ** statusIconNewFromPixbuf - statusIconNewFromPixbuf , - - --- ** statusIconNewFromStock - statusIconNewFromStock , - - --- ** statusIconPositionMenu - statusIconPositionMenu , - - --- ** statusIconSetFromFile - statusIconSetFromFile , - - --- ** statusIconSetFromGicon - statusIconSetFromGicon , - - --- ** statusIconSetFromIconName - statusIconSetFromIconName , - - --- ** statusIconSetFromPixbuf - statusIconSetFromPixbuf , - - --- ** statusIconSetFromStock - statusIconSetFromStock , - - --- ** statusIconSetHasTooltip - statusIconSetHasTooltip , - - --- ** statusIconSetName - statusIconSetName , - - --- ** statusIconSetScreen - statusIconSetScreen , - - --- ** statusIconSetTitle - statusIconSetTitle , - - --- ** statusIconSetTooltipMarkup - statusIconSetTooltipMarkup , - - --- ** statusIconSetTooltipText - statusIconSetTooltipText , - - --- ** statusIconSetVisible - statusIconSetVisible , - - - - - -- * Properties --- ** Embedded - StatusIconEmbeddedPropertyInfo , - getStatusIconEmbedded , - - --- ** File - StatusIconFilePropertyInfo , - constructStatusIconFile , - setStatusIconFile , - - --- ** Gicon - StatusIconGiconPropertyInfo , - constructStatusIconGicon , - getStatusIconGicon , - setStatusIconGicon , - - --- ** HasTooltip - StatusIconHasTooltipPropertyInfo , - constructStatusIconHasTooltip , - getStatusIconHasTooltip , - setStatusIconHasTooltip , - - --- ** IconName - StatusIconIconNamePropertyInfo , - constructStatusIconIconName , - getStatusIconIconName , - setStatusIconIconName , - - --- ** Orientation - StatusIconOrientationPropertyInfo , - getStatusIconOrientation , - - --- ** Pixbuf - StatusIconPixbufPropertyInfo , - constructStatusIconPixbuf , - getStatusIconPixbuf , - setStatusIconPixbuf , - - --- ** Screen - StatusIconScreenPropertyInfo , - constructStatusIconScreen , - getStatusIconScreen , - setStatusIconScreen , - - --- ** Size - StatusIconSizePropertyInfo , - getStatusIconSize , - - --- ** Stock - StatusIconStockPropertyInfo , - constructStatusIconStock , - getStatusIconStock , - setStatusIconStock , - - --- ** StorageType - StatusIconStorageTypePropertyInfo , - getStatusIconStorageType , - - --- ** Title - StatusIconTitlePropertyInfo , - constructStatusIconTitle , - getStatusIconTitle , - setStatusIconTitle , - - --- ** TooltipMarkup - StatusIconTooltipMarkupPropertyInfo , - constructStatusIconTooltipMarkup , - getStatusIconTooltipMarkup , - setStatusIconTooltipMarkup , - - --- ** TooltipText - StatusIconTooltipTextPropertyInfo , - constructStatusIconTooltipText , - getStatusIconTooltipText , - setStatusIconTooltipText , - - --- ** Visible - StatusIconVisiblePropertyInfo , - constructStatusIconVisible , - getStatusIconVisible , - setStatusIconVisible , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 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 - --- 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 80 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 80 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 activate_time _ = do - _cb button activate_time - -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 keyboard_mode tooltip _ = do - let keyboard_mode' = (/= 0) keyboard_mode - tooltip' <- (newObject Tooltip) tooltip - result <- _cb x y keyboard_mode' 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 88 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] - -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 = "StatusIcon::embedded" - attrGet _ = getStatusIconEmbedded - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setStatusIconFile :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconFile obj val = liftIO $ setObjectPropertyString obj "file" val - -constructStatusIconFile :: T.Text -> IO ([Char], GValue) -constructStatusIconFile val = constructObjectPropertyString "file" val - -data StatusIconFilePropertyInfo -instance AttrInfo StatusIconFilePropertyInfo where - type AttrAllowedOps StatusIconFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint StatusIconFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconFilePropertyInfo = StatusIconK - type AttrGetType StatusIconFilePropertyInfo = () - type AttrLabel StatusIconFilePropertyInfo = "StatusIcon::file" - attrGet _ = undefined - attrSet _ = setStatusIconFile - attrConstruct _ = constructStatusIconFile - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable] - -getStatusIconGicon :: (MonadIO m, StatusIconK o) => o -> m Gio.Icon -getStatusIconGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon - -setStatusIconGicon :: (MonadIO m, StatusIconK o, Gio.IconK a) => o -> a -> m () -setStatusIconGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val - -constructStatusIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) -constructStatusIconGicon val = constructObjectPropertyObject "gicon" val - -data StatusIconGiconPropertyInfo -instance AttrInfo StatusIconGiconPropertyInfo where - type AttrAllowedOps StatusIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconGiconPropertyInfo = Gio.IconK - type AttrBaseTypeConstraint StatusIconGiconPropertyInfo = StatusIconK - type AttrGetType StatusIconGiconPropertyInfo = Gio.Icon - type AttrLabel StatusIconGiconPropertyInfo = "StatusIcon::gicon" - attrGet _ = getStatusIconGicon - attrSet _ = setStatusIconGicon - attrConstruct _ = constructStatusIconGicon - --- VVV Prop "has-tooltip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "StatusIcon::has-tooltip" - attrGet _ = getStatusIconHasTooltip - attrSet _ = setStatusIconHasTooltip - attrConstruct _ = constructStatusIconHasTooltip - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconIconName obj = liftIO $ getObjectPropertyString obj "icon-name" - -setStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val - -constructStatusIconIconName :: T.Text -> IO ([Char], GValue) -constructStatusIconIconName val = constructObjectPropertyString "icon-name" val - -data StatusIconIconNamePropertyInfo -instance AttrInfo StatusIconIconNamePropertyInfo where - type AttrAllowedOps StatusIconIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconIconNamePropertyInfo = StatusIconK - type AttrGetType StatusIconIconNamePropertyInfo = T.Text - type AttrLabel StatusIconIconNamePropertyInfo = "StatusIcon::icon-name" - attrGet _ = getStatusIconIconName - attrSet _ = setStatusIconIconName - attrConstruct _ = constructStatusIconIconName - --- VVV Prop "orientation" - -- Type: TInterface "Gtk" "Orientation" - -- Flags: [PropertyReadable] - -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 = "StatusIcon::orientation" - attrGet _ = getStatusIconOrientation - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "pixbuf" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getStatusIconPixbuf :: (MonadIO m, StatusIconK o) => o -> m GdkPixbuf.Pixbuf -getStatusIconPixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf - -setStatusIconPixbuf :: (MonadIO m, StatusIconK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setStatusIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val - -constructStatusIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructStatusIconPixbuf val = constructObjectPropertyObject "pixbuf" val - -data StatusIconPixbufPropertyInfo -instance AttrInfo StatusIconPixbufPropertyInfo where - type AttrAllowedOps StatusIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconPixbufPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint StatusIconPixbufPropertyInfo = StatusIconK - type AttrGetType StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel StatusIconPixbufPropertyInfo = "StatusIcon::pixbuf" - attrGet _ = getStatusIconPixbuf - attrSet _ = setStatusIconPixbuf - attrConstruct _ = constructStatusIconPixbuf - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -getStatusIconScreen :: (MonadIO m, StatusIconK o) => o -> m Gdk.Screen -getStatusIconScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen - -setStatusIconScreen :: (MonadIO m, StatusIconK o, Gdk.ScreenK a) => o -> a -> m () -setStatusIconScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val - -constructStatusIconScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructStatusIconScreen val = constructObjectPropertyObject "screen" 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 = "StatusIcon::screen" - attrGet _ = getStatusIconScreen - attrSet _ = setStatusIconScreen - attrConstruct _ = constructStatusIconScreen - --- VVV Prop "size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getStatusIconSize :: (MonadIO m, StatusIconK o) => o -> m Int32 -getStatusIconSize obj = liftIO $ getObjectPropertyCInt 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 = "StatusIcon::size" - attrGet _ = getStatusIconSize - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "stock" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getStatusIconStock :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconStock obj = liftIO $ getObjectPropertyString obj "stock" - -setStatusIconStock :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconStock obj val = liftIO $ setObjectPropertyString obj "stock" val - -constructStatusIconStock :: T.Text -> IO ([Char], GValue) -constructStatusIconStock val = constructObjectPropertyString "stock" val - -data StatusIconStockPropertyInfo -instance AttrInfo StatusIconStockPropertyInfo where - type AttrAllowedOps StatusIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconStockPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconStockPropertyInfo = StatusIconK - type AttrGetType StatusIconStockPropertyInfo = T.Text - type AttrLabel StatusIconStockPropertyInfo = "StatusIcon::stock" - attrGet _ = getStatusIconStock - attrSet _ = setStatusIconStock - attrConstruct _ = constructStatusIconStock - --- VVV Prop "storage-type" - -- Type: TInterface "Gtk" "ImageType" - -- Flags: [PropertyReadable] - -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 = "StatusIcon::storage-type" - attrGet _ = getStatusIconStorageType - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getStatusIconTitle :: (MonadIO m, StatusIconK o) => o -> m T.Text -getStatusIconTitle obj = liftIO $ getObjectPropertyString obj "title" - -setStatusIconTitle :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () -setStatusIconTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructStatusIconTitle :: T.Text -> IO ([Char], GValue) -constructStatusIconTitle val = constructObjectPropertyString "title" 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 = "StatusIcon::title" - attrGet _ = getStatusIconTitle - attrSet _ = setStatusIconTitle - attrConstruct _ = constructStatusIconTitle - --- VVV Prop "tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> m 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" val - -constructStatusIconTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructStatusIconTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val - -data StatusIconTooltipMarkupPropertyInfo -instance AttrInfo StatusIconTooltipMarkupPropertyInfo where - type AttrAllowedOps StatusIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StatusIconTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint StatusIconTooltipMarkupPropertyInfo = StatusIconK - type AttrGetType StatusIconTooltipMarkupPropertyInfo = T.Text - type AttrLabel StatusIconTooltipMarkupPropertyInfo = "StatusIcon::tooltip-markup" - attrGet _ = getStatusIconTooltipMarkup - attrSet _ = setStatusIconTooltipMarkup - attrConstruct _ = constructStatusIconTooltipMarkup - --- VVV Prop "tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getStatusIconTooltipText :: (MonadIO m, StatusIconK o) => o -> m 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" val - -constructStatusIconTooltipText :: T.Text -> IO ([Char], GValue) -constructStatusIconTooltipText val = constructObjectPropertyString "tooltip-text" 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 = T.Text - type AttrLabel StatusIconTooltipTextPropertyInfo = "StatusIcon::tooltip-text" - attrGet _ = getStatusIconTooltipText - attrSet _ = setStatusIconTooltipText - attrConstruct _ = constructStatusIconTooltipText - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "StatusIcon::visible" - attrGet _ = getStatusIconVisible - attrSet _ = setStatusIconVisible - attrConstruct _ = constructStatusIconVisible - -type instance AttributeList StatusIcon = StatusIconAttributeList -type StatusIconAttributeList = ('[ '("embedded", StatusIconEmbeddedPropertyInfo), '("file", StatusIconFilePropertyInfo), '("gicon", StatusIconGiconPropertyInfo), '("has-tooltip", StatusIconHasTooltipPropertyInfo), '("icon-name", StatusIconIconNamePropertyInfo), '("orientation", StatusIconOrientationPropertyInfo), '("pixbuf", StatusIconPixbufPropertyInfo), '("screen", StatusIconScreenPropertyInfo), '("size", StatusIconSizePropertyInfo), '("stock", StatusIconStockPropertyInfo), '("storage-type", StatusIconStorageTypePropertyInfo), '("title", StatusIconTitlePropertyInfo), '("tooltip-markup", StatusIconTooltipMarkupPropertyInfo), '("tooltip-text", StatusIconTooltipTextPropertyInfo), '("visible", StatusIconVisiblePropertyInfo)] :: [(Symbol, *)]) - -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), '("button-press-event", StatusIconButtonPressEventSignalInfo), '("button-release-event", StatusIconButtonReleaseEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("popup-menu", StatusIconPopupMenuSignalInfo), '("query-tooltip", StatusIconQueryTooltipSignalInfo), '("scroll-event", StatusIconScrollEventSignalInfo), '("size-changed", StatusIconSizeChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method StatusIcon::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- icon_name - m StatusIcon -statusIconNewFromIconName icon_name = liftIO $ do - icon_name' <- textToCString icon_name - result <- gtk_status_icon_new_from_icon_name icon_name' - checkUnexpectedReturnNULL "gtk_status_icon_new_from_icon_name" result - result' <- (wrapObject StatusIcon) result - freeMem icon_name' - return result' - --- method StatusIcon::new_from_pixbuf --- method type : Constructor --- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m StatusIcon -statusIconNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_status_icon_new_from_stock stock_id' - checkUnexpectedReturnNULL "gtk_status_icon_new_from_stock" result - result' <- (wrapObject StatusIcon) result - freeMem stock_id' - return result' - --- method StatusIcon::get_geometry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- area : TInterface "cairo" "RectangleInt" - 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,Cairo.RectangleInt,Orientation) -statusIconGetGeometry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - screen <- allocMem :: IO (Ptr (Ptr Gdk.Screen)) - area <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - 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 Cairo.RectangleInt) area - orientation' <- peek orientation - let orientation'' = (toEnum . fromIntegral) orientation' - touchManagedPtr _obj - freeMem screen - freeMem orientation - return (result', screen'', area', orientation'') - --- method StatusIcon::get_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -statusIconGetHasTooltip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_has_tooltip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method StatusIcon::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -statusIconGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_size _obj' - touchManagedPtr _obj - return result - --- method StatusIcon::get_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_storage_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StatusIcon::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -statusIconGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method StatusIcon::get_x11_window_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -statusIconGetX11WindowId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_get_x11_window_id _obj' - touchManagedPtr _obj - return result - --- method StatusIcon::is_embedded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -statusIconIsEmbedded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_status_icon_is_embedded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method StatusIcon::set_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StatusIcon::set_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StatusIcon::set_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- icon_name - m () -statusIconSetFromIconName _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - gtk_status_icon_set_from_icon_name _obj' icon_name' - touchManagedPtr _obj - freeMem icon_name' - return () - --- method StatusIcon::set_from_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StatusIcon::set_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- stock_id - m () -statusIconSetFromStock _obj stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - gtk_status_icon_set_from_stock _obj' stock_id' - touchManagedPtr _obj - freeMem stock_id' - return () - --- method StatusIcon::set_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- has_tooltip - m () -statusIconSetHasTooltip _obj has_tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_tooltip' = (fromIntegral . fromEnum) has_tooltip - gtk_status_icon_set_has_tooltip _obj' has_tooltip' - touchManagedPtr _obj - return () - --- method StatusIcon::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -statusIconSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_status_icon_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method StatusIcon::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StatusIcon::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -statusIconSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_status_icon_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - --- method StatusIcon::set_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StatusIcon::set_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method StatusIcon::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -statusIconSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_status_icon_set_visible _obj' visible' - touchManagedPtr _obj - return () - --- method StatusIcon::position_menu --- method type : MemberFunction --- Args : [Arg {argName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "menu", argType = TInterface "Gtk" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "user_data", argType = TInterface "Gtk" "StatusIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - 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 -> -- user_data - m (Int32,Int32,Bool) -statusIconPositionMenu menu x y user_data = liftIO $ do - let menu' = unsafeManagedPtrCastPtr menu - x' <- allocMem :: IO (Ptr Int32) - poke x' x - y' <- allocMem :: IO (Ptr Int32) - poke y' y - push_in <- allocMem :: IO (Ptr CInt) - let user_data' = unsafeManagedPtrCastPtr user_data - gtk_status_icon_position_menu menu' x' y' push_in user_data' - x'' <- peek x' - y'' <- peek y' - push_in' <- peek push_in - let push_in'' = (/= 0) push_in' - touchManagedPtr menu - touchManagedPtr user_data - freeMem x' - freeMem y' - freeMem push_in - return (x'', y'', push_in'') - - 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,35 +0,0 @@ -module GI.Gtk.Objects.StatusIcon where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,403 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - statusbarGetContextId , - - --- ** statusbarGetMessageArea - statusbarGetMessageArea , - - --- ** statusbarNew - statusbarNew , - - --- ** statusbarPop - statusbarPop , - - --- ** statusbarPush - statusbarPush , - - --- ** statusbarRemove - statusbarRemove , - - --- ** statusbarRemoveAll - statusbarRemoveAll , - - - - - -- * Signals --- ** TextPopped - StatusbarTextPoppedCallback , - StatusbarTextPoppedCallbackC , - StatusbarTextPoppedSignalInfo , - afterStatusbarTextPopped , - mkStatusbarTextPoppedCallback , - noStatusbarTextPoppedCallback , - onStatusbarTextPopped , - statusbarTextPoppedCallbackWrapper , - statusbarTextPoppedClosure , - - --- ** TextPushed - StatusbarTextPushedCallback , - StatusbarTextPushedCallbackC , - StatusbarTextPushedSignalInfo , - afterStatusbarTextPushed , - mkStatusbarTextPushedCallback , - noStatusbarTextPushedCallback , - onStatusbarTextPushed , - statusbarTextPushedCallbackWrapper , - statusbarTextPushedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ context_id text _ = do - text' <- cstringToText text - _cb context_id 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 _ context_id text _ = do - text' <- cstringToText text - _cb context_id 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 = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", 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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("text-popped", StatusbarTextPoppedSignalInfo), '("text-pushed", StatusbarTextPushedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Statusbar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -> -- context_description - m Word32 -statusbarGetContextId _obj context_description = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - context_description' <- textToCString context_description - result <- gtk_statusbar_get_context_id _obj' context_description' - touchManagedPtr _obj - freeMem context_description' - return result - --- method Statusbar::get_message_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Statusbar::pop --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_statusbar_pop" gtk_statusbar_pop :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt32 - IO () - - -statusbarPop :: - (MonadIO m, StatusbarK a) => - a -> -- _obj - Word32 -> -- context_id - m () -statusbarPop _obj context_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_pop _obj' context_id - touchManagedPtr _obj - return () - --- method Statusbar::push --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_statusbar_push" gtk_statusbar_push :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt32 - CString -> -- text : TBasicType TUTF8 - IO Word32 - - -statusbarPush :: - (MonadIO m, StatusbarK a) => - a -> -- _obj - Word32 -> -- context_id - T.Text -> -- text - m Word32 -statusbarPush _obj context_id text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - result <- gtk_statusbar_push _obj' context_id text' - touchManagedPtr _obj - freeMem text' - return result - --- method Statusbar::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "message_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_statusbar_remove" gtk_statusbar_remove :: - Ptr Statusbar -> -- _obj : TInterface "Gtk" "Statusbar" - Word32 -> -- context_id : TBasicType TUInt32 - Word32 -> -- message_id : TBasicType TUInt32 - IO () - - -statusbarRemove :: - (MonadIO m, StatusbarK a) => - a -> -- _obj - Word32 -> -- context_id - Word32 -> -- message_id - m () -statusbarRemove _obj context_id message_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_remove _obj' context_id message_id - touchManagedPtr _obj - return () - --- method Statusbar::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Statusbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -statusbarRemoveAll :: - (MonadIO m, StatusbarK a) => - a -> -- _obj - Word32 -> -- context_id - m () -statusbarRemoveAll _obj context_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_statusbar_remove_all _obj' context_id - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.Statusbar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList StatusbarAccessible = StatusbarAccessibleAttributeList -type StatusbarAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList StatusbarAccessible = StatusbarAccessibleSignalList -type StatusbarAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,568 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - styleApplyDefaultBackground , - - --- ** styleCopy - styleCopy , - - --- ** styleDetach - styleDetach , - - --- ** styleGetStyleProperty - styleGetStyleProperty , - - --- ** styleHasContext - styleHasContext , - - --- ** styleLookupColor - styleLookupColor , - - --- ** styleLookupIconSet - styleLookupIconSet , - - --- ** styleNew - styleNew , - - --- ** styleRenderIcon - styleRenderIcon , - - --- ** styleSetBackground - styleSetBackground , - - - - - -- * Properties --- ** Context - StyleContextPropertyInfo , - constructStyleContext , - getStyleContext , - - - - - -- * Signals --- ** Realize - StyleRealizeCallback , - StyleRealizeCallbackC , - StyleRealizeSignalInfo , - afterStyleRealize , - mkStyleRealizeCallback , - noStyleRealizeCallback , - onStyleRealize , - styleRealizeCallbackWrapper , - styleRealizeClosure , - - --- ** Unrealize - StyleUnrealizeCallback , - StyleUnrealizeCallbackC , - StyleUnrealizeSignalInfo , - afterStyleUnrealize , - mkStyleUnrealizeCallback , - noStyleUnrealizeCallback , - onStyleUnrealize , - styleUnrealizeCallbackWrapper , - styleUnrealizeClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getStyleContext :: (MonadIO m, StyleK o) => o -> m StyleContext -getStyleContext obj = liftIO $ getObjectPropertyObject obj "context" StyleContext - -constructStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue) -constructStyleContext val = constructObjectPropertyObject "context" val - -data StyleContextPropertyInfo -instance AttrInfo StyleContextPropertyInfo where - type AttrAllowedOps StyleContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StyleContextPropertyInfo = StyleContextK - type AttrBaseTypeConstraint StyleContextPropertyInfo = StyleK - type AttrGetType StyleContextPropertyInfo = StyleContext - type AttrLabel StyleContextPropertyInfo = "Style::context" - attrGet _ = getStyleContext - attrSet _ = undefined - attrConstruct _ = constructStyleContext - -type instance AttributeList Style = StyleAttributeList -type StyleAttributeList = ('[ '("context", StyleContextPropertyInfo)] :: [(Symbol, *)]) - -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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Style::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - 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 -> -- state_type - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -styleApplyDefaultBackground _obj cr window state_type x y width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - let window' = unsafeManagedPtrCastPtr window - let state_type' = (fromIntegral . fromEnum) state_type - gtk_style_apply_default_background _obj' cr' window' state_type' x y width height - touchManagedPtr _obj - touchManagedPtr cr - touchManagedPtr window - return () - --- method Style::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Style::detach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -styleDetach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_detach _obj' - touchManagedPtr _obj - return () - --- method Style::get_style_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- widget_type - T.Text -> -- property_name - m (GValue) -styleGetStyleProperty _obj widget_type property_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget_type' = gtypeToCGType widget_type - property_name' <- textToCString property_name - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_style_get_style_property _obj' widget_type' property_name' value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem property_name' - return value' - --- method Style::has_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -styleHasContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_has_context _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Style::lookup_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- color_name - m (Bool,Gdk.Color) -styleLookupColor _obj color_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - color_name' <- textToCString color_name - color <- callocBoxedBytes 12 :: IO (Ptr Gdk.Color) - result <- gtk_style_lookup_color _obj' color_name' color - let result' = (/= 0) result - color' <- (wrapBoxed Gdk.Color) color - touchManagedPtr _obj - freeMem color_name' - return (result', color') - --- method Style::lookup_icon_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m IconSet -styleLookupIconSet _obj stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - result <- gtk_style_lookup_icon_set _obj' stock_id' - checkUnexpectedReturnNULL "gtk_style_lookup_icon_set" result - result' <- (newBoxed IconSet) result - touchManagedPtr _obj - freeMem stock_id' - return result' - --- method Style::render_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -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' - --- method Style::set_background --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_type", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- state_type - m () -styleSetBackground _obj window state_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - let state_type' = (fromIntegral . fromEnum) state_type - gtk_style_set_background _obj' window' state_type' - touchManagedPtr _obj - touchManagedPtr window - return () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.Style where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1930 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - styleContextAddClass , - - --- ** styleContextAddProvider - styleContextAddProvider , - - --- ** styleContextAddProviderForScreen - styleContextAddProviderForScreen , - - --- ** styleContextAddRegion - styleContextAddRegion , - - --- ** styleContextCancelAnimations - styleContextCancelAnimations , - - --- ** styleContextGetBackgroundColor - styleContextGetBackgroundColor , - - --- ** styleContextGetBorder - styleContextGetBorder , - - --- ** styleContextGetBorderColor - styleContextGetBorderColor , - - --- ** styleContextGetColor - styleContextGetColor , - - --- ** styleContextGetDirection - styleContextGetDirection , - - --- ** styleContextGetFont - styleContextGetFont , - - --- ** styleContextGetFrameClock - styleContextGetFrameClock , - - --- ** styleContextGetJunctionSides - styleContextGetJunctionSides , - - --- ** styleContextGetMargin - styleContextGetMargin , - - --- ** styleContextGetPadding - styleContextGetPadding , - - --- ** styleContextGetParent - styleContextGetParent , - - --- ** styleContextGetPath - styleContextGetPath , - - --- ** styleContextGetProperty - styleContextGetProperty , - - --- ** styleContextGetScale - styleContextGetScale , - - --- ** styleContextGetScreen - styleContextGetScreen , - - --- ** styleContextGetSection - styleContextGetSection , - - --- ** styleContextGetState - styleContextGetState , - - --- ** styleContextGetStyleProperty - styleContextGetStyleProperty , - - --- ** styleContextHasClass - styleContextHasClass , - - --- ** styleContextHasRegion - styleContextHasRegion , - - --- ** styleContextInvalidate - styleContextInvalidate , - - --- ** styleContextListClasses - styleContextListClasses , - - --- ** styleContextListRegions - styleContextListRegions , - - --- ** styleContextLookupColor - styleContextLookupColor , - - --- ** styleContextLookupIconSet - styleContextLookupIconSet , - - --- ** styleContextNew - styleContextNew , - - --- ** styleContextNotifyStateChange - styleContextNotifyStateChange , - - --- ** styleContextPopAnimatableRegion - styleContextPopAnimatableRegion , - - --- ** styleContextPushAnimatableRegion - styleContextPushAnimatableRegion , - - --- ** styleContextRemoveClass - styleContextRemoveClass , - - --- ** styleContextRemoveProvider - styleContextRemoveProvider , - - --- ** styleContextRemoveProviderForScreen - styleContextRemoveProviderForScreen , - - --- ** styleContextRemoveRegion - styleContextRemoveRegion , - - --- ** styleContextResetWidgets - styleContextResetWidgets , - - --- ** styleContextRestore - styleContextRestore , - - --- ** styleContextSave - styleContextSave , - - --- ** styleContextScrollAnimations - styleContextScrollAnimations , - - --- ** styleContextSetBackground - styleContextSetBackground , - - --- ** styleContextSetDirection - styleContextSetDirection , - - --- ** styleContextSetFrameClock - styleContextSetFrameClock , - - --- ** styleContextSetJunctionSides - styleContextSetJunctionSides , - - --- ** styleContextSetParent - styleContextSetParent , - - --- ** styleContextSetPath - styleContextSetPath , - - --- ** styleContextSetScale - styleContextSetScale , - - --- ** styleContextSetScreen - styleContextSetScreen , - - --- ** styleContextSetState - styleContextSetState , - - --- ** styleContextStateIsRunning - styleContextStateIsRunning , - - - - - -- * Properties --- ** Direction - StyleContextDirectionPropertyInfo , - constructStyleContextDirection , - getStyleContextDirection , - setStyleContextDirection , - - --- ** PaintClock - StyleContextPaintClockPropertyInfo , - constructStyleContextPaintClock , - getStyleContextPaintClock , - setStyleContextPaintClock , - - --- ** Parent - StyleContextParentPropertyInfo , - constructStyleContextParent , - getStyleContextParent , - setStyleContextParent , - - --- ** Screen - StyleContextScreenPropertyInfo , - constructStyleContextScreen , - getStyleContextScreen , - setStyleContextScreen , - - - - - -- * Signals --- ** Changed - StyleContextChangedCallback , - StyleContextChangedCallbackC , - StyleContextChangedSignalInfo , - afterStyleContextChanged , - mkStyleContextChangedCallback , - noStyleContextChangedCallback , - onStyleContextChanged , - styleContextChangedCallbackWrapper , - styleContextChangedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "StyleContext::direction" - attrGet _ = getStyleContextDirection - attrSet _ = setStyleContextDirection - attrConstruct _ = constructStyleContextDirection - --- VVV Prop "paint-clock" - -- Type: TInterface "Gdk" "FrameClock" - -- Flags: [PropertyReadable,PropertyWritable] - -getStyleContextPaintClock :: (MonadIO m, StyleContextK o) => o -> m 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" val - -constructStyleContextPaintClock :: (Gdk.FrameClockK a) => a -> IO ([Char], GValue) -constructStyleContextPaintClock val = constructObjectPropertyObject "paint-clock" val - -data StyleContextPaintClockPropertyInfo -instance AttrInfo StyleContextPaintClockPropertyInfo where - type AttrAllowedOps StyleContextPaintClockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StyleContextPaintClockPropertyInfo = Gdk.FrameClockK - type AttrBaseTypeConstraint StyleContextPaintClockPropertyInfo = StyleContextK - type AttrGetType StyleContextPaintClockPropertyInfo = Gdk.FrameClock - type AttrLabel StyleContextPaintClockPropertyInfo = "StyleContext::paint-clock" - attrGet _ = getStyleContextPaintClock - attrSet _ = setStyleContextPaintClock - attrConstruct _ = constructStyleContextPaintClock - --- VVV Prop "parent" - -- Type: TInterface "Gtk" "StyleContext" - -- Flags: [PropertyReadable,PropertyWritable] - -getStyleContextParent :: (MonadIO m, StyleContextK o) => o -> m StyleContext -getStyleContextParent obj = liftIO $ getObjectPropertyObject obj "parent" StyleContext - -setStyleContextParent :: (MonadIO m, StyleContextK o, StyleContextK a) => o -> a -> m () -setStyleContextParent obj val = liftIO $ setObjectPropertyObject obj "parent" val - -constructStyleContextParent :: (StyleContextK a) => a -> IO ([Char], GValue) -constructStyleContextParent val = constructObjectPropertyObject "parent" val - -data StyleContextParentPropertyInfo -instance AttrInfo StyleContextParentPropertyInfo where - type AttrAllowedOps StyleContextParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint StyleContextParentPropertyInfo = StyleContextK - type AttrBaseTypeConstraint StyleContextParentPropertyInfo = StyleContextK - type AttrGetType StyleContextParentPropertyInfo = StyleContext - type AttrLabel StyleContextParentPropertyInfo = "StyleContext::parent" - attrGet _ = getStyleContextParent - attrSet _ = setStyleContextParent - attrConstruct _ = constructStyleContextParent - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -getStyleContextScreen :: (MonadIO m, StyleContextK o) => o -> m Gdk.Screen -getStyleContextScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen - -setStyleContextScreen :: (MonadIO m, StyleContextK o, Gdk.ScreenK a) => o -> a -> m () -setStyleContextScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val - -constructStyleContextScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructStyleContextScreen val = constructObjectPropertyObject "screen" 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 = "StyleContext::screen" - attrGet _ = getStyleContextScreen - attrSet _ = setStyleContextScreen - attrConstruct _ = constructStyleContextScreen - -type instance AttributeList StyleContext = StyleContextAttributeList -type StyleContextAttributeList = ('[ '("direction", StyleContextDirectionPropertyInfo), '("paint-clock", StyleContextPaintClockPropertyInfo), '("parent", StyleContextParentPropertyInfo), '("screen", StyleContextScreenPropertyInfo)] :: [(Symbol, *)]) - -data StyleContextChangedSignalInfo -instance SignalInfo StyleContextChangedSignalInfo where - type HaskellCallbackType StyleContextChangedSignalInfo = StyleContextChangedCallback - connectSignal _ = connectStyleContextChanged - -type instance SignalList StyleContext = StyleContextSignalList -type StyleContextSignalList = ('[ '("changed", StyleContextChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method StyleContext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- class_name - m () -styleContextAddClass _obj class_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - class_name' <- textToCString class_name - gtk_style_context_add_class _obj' class_name' - touchManagedPtr _obj - freeMem class_name' - return () - --- method StyleContext::add_provider --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -styleContextAddProvider :: - (MonadIO m, StyleContextK a, StyleProviderK b) => - a -> -- _obj - b -> -- provider - Word32 -> -- priority - m () -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 () - --- method StyleContext::add_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- region_name - [RegionFlags] -> -- flags - m () -styleContextAddRegion _obj region_name flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - region_name' <- textToCString region_name - let flags' = gflagsToWord flags - gtk_style_context_add_region _obj' region_name' flags' - touchManagedPtr _obj - freeMem region_name' - return () - --- method StyleContext::cancel_animations --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - -{-# DEPRECATED styleContextCancelAnimations ["(Since version 3.6)","This function does nothing."]#-} -styleContextCancelAnimations :: - (MonadIO m, StyleContextK a) => - a -> -- _obj - Maybe (Ptr ()) -> -- region_id - m () -styleContextCancelAnimations _obj region_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion_id <- case region_id of - Nothing -> return nullPtr - Just jRegion_id -> do - return jRegion_id - gtk_style_context_cancel_animations _obj' maybeRegion_id - touchManagedPtr _obj - return () - --- method StyleContext::get_background_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method StyleContext::get_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method StyleContext::get_border_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method StyleContext::get_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method StyleContext::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -styleContextGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method StyleContext::get_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StyleContext::get_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StyleContext::get_junction_sides --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -styleContextGetJunctionSides _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_junction_sides _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method StyleContext::get_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method StyleContext::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method StyleContext::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StyleContext::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method StyleContext::get_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method StyleContext::get_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -styleContextGetScale _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_scale _obj' - touchManagedPtr _obj - return result - --- method StyleContext::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StyleContext::get_section --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StyleContext::get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "StateFlags" --- throws : False --- Skip return : False - -foreign import ccall "gtk_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] -styleContextGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_get_state _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method StyleContext::get_style_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 -> -- property_name - GValue -> -- value - m () -styleContextGetStyleProperty _obj property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - gtk_style_context_get_style_property _obj' property_name' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem property_name' - return () - --- method StyleContext::has_class --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- class_name - m Bool -styleContextHasClass _obj class_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - class_name' <- textToCString class_name - result <- gtk_style_context_has_class _obj' class_name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem class_name' - return result' - --- method StyleContext::has_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags_return", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- region_name - m (Bool,[RegionFlags]) -styleContextHasRegion _obj region_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - region_name' <- textToCString region_name - flags_return <- allocMem :: IO (Ptr CUInt) - result <- gtk_style_context_has_region _obj' region_name' flags_return - let result' = (/= 0) result - flags_return' <- peek flags_return - let flags_return'' = wordToGFlags flags_return' - touchManagedPtr _obj - freeMem region_name' - freeMem flags_return - return (result', flags_return'') - --- method StyleContext::invalidate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -styleContextInvalidate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_invalidate _obj' - touchManagedPtr _obj - return () - --- method StyleContext::list_classes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -styleContextListClasses _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_list_classes _obj' - checkUnexpectedReturnNULL "gtk_style_context_list_classes" result - result' <- unpackGList result - result'' <- mapM cstringToText result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method StyleContext::list_regions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -styleContextListRegions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_style_context_list_regions _obj' - checkUnexpectedReturnNULL "gtk_style_context_list_regions" result - result' <- unpackGList result - result'' <- mapM cstringToText result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method StyleContext::lookup_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- color_name - m (Bool,Gdk.RGBA) -styleContextLookupColor _obj color_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - color_name' <- textToCString color_name - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_style_context_lookup_color _obj' color_name' color - let result' = (/= 0) result - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - freeMem color_name' - return (result', color') - --- method StyleContext::lookup_icon_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m IconSet -styleContextLookupIconSet _obj stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - result <- gtk_style_context_lookup_icon_set _obj' stock_id' - checkUnexpectedReturnNULL "gtk_style_context_lookup_icon_set" result - result' <- (newBoxed IconSet) result - touchManagedPtr _obj - freeMem stock_id' - return result' - --- method StyleContext::notify_state_change --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - 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 - Maybe (Ptr ()) -> -- region_id - StateType -> -- state - Bool -> -- state_value - m () -styleContextNotifyStateChange _obj window region_id state state_value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - maybeRegion_id <- case region_id of - Nothing -> return nullPtr - Just jRegion_id -> do - return jRegion_id - let state' = (fromIntegral . fromEnum) state - let state_value' = (fromIntegral . fromEnum) state_value - gtk_style_context_notify_state_change _obj' window' maybeRegion_id state' state_value' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method StyleContext::pop_animatable_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -styleContextPopAnimatableRegion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_pop_animatable_region _obj' - touchManagedPtr _obj - return () - --- method StyleContext::push_animatable_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_id", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_push_animatable_region" gtk_style_context_push_animatable_region :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Ptr () -> -- region_id : TBasicType TVoid - IO () - -{-# DEPRECATED styleContextPushAnimatableRegion ["(Since version 3.6)","This function does nothing."]#-} -styleContextPushAnimatableRegion :: - (MonadIO m, StyleContextK a) => - a -> -- _obj - Ptr () -> -- region_id - m () -styleContextPushAnimatableRegion _obj region_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_push_animatable_region _obj' region_id - touchManagedPtr _obj - return () - --- method StyleContext::remove_class --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "class_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- class_name - m () -styleContextRemoveClass _obj class_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - class_name' <- textToCString class_name - gtk_style_context_remove_class _obj' class_name' - touchManagedPtr _obj - freeMem class_name' - return () - --- method StyleContext::remove_provider --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StyleContext::remove_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- region_name - m () -styleContextRemoveRegion _obj region_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - region_name' <- textToCString region_name - gtk_style_context_remove_region _obj' region_name' - touchManagedPtr _obj - freeMem region_name' - return () - --- method StyleContext::restore --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -styleContextRestore _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_restore _obj' - touchManagedPtr _obj - return () - --- method StyleContext::save --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -styleContextSave _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_save _obj' - touchManagedPtr _obj - return () - --- method StyleContext::scroll_animations --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- dy : TBasicType TInt32 - 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 () -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 () - --- method StyleContext::set_background --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () - - -styleContextSetBackground :: - (MonadIO m, StyleContextK a, Gdk.WindowK b) => - a -> -- _obj - b -> -- window - m () -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 () - --- method StyleContext::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -styleContextSetDirection _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let direction' = (fromIntegral . fromEnum) direction - gtk_style_context_set_direction _obj' direction' - touchManagedPtr _obj - return () - --- method StyleContext::set_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_clock", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_clock", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- frame_clock - m () -styleContextSetFrameClock _obj frame_clock = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let frame_clock' = unsafeManagedPtrCastPtr frame_clock - gtk_style_context_set_frame_clock _obj' frame_clock' - touchManagedPtr _obj - touchManagedPtr frame_clock - return () - --- method StyleContext::set_junction_sides --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sides", argType = TInterface "Gtk" "JunctionSides", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sides", argType = TInterface "Gtk" "JunctionSides", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -styleContextSetJunctionSides _obj sides = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sides' = gflagsToWord sides - gtk_style_context_set_junction_sides _obj' sides' - touchManagedPtr _obj - return () - --- method StyleContext::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StyleContext::set_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method StyleContext::set_scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_style_context_set_scale" gtk_style_context_set_scale :: - Ptr StyleContext -> -- _obj : TInterface "Gtk" "StyleContext" - Int32 -> -- scale : TBasicType TInt32 - IO () - - -styleContextSetScale :: - (MonadIO m, StyleContextK a) => - a -> -- _obj - Int32 -> -- scale - m () -styleContextSetScale _obj scale = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_context_set_scale _obj' scale - touchManagedPtr _obj - return () - --- method StyleContext::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StyleContext::set_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -styleContextSetState _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_style_context_set_state _obj' flags' - touchManagedPtr _obj - return () - --- method StyleContext::state_is_running --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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'') - --- method StyleContext::add_provider_for_screen --- method type : MemberFunction --- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -styleContextAddProviderForScreen :: - (MonadIO m, Gdk.ScreenK a, StyleProviderK b) => - a -> -- screen - b -> -- provider - Word32 -> -- priority - m () -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 {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "provider", argType = TInterface "Gtk" "StyleProvider", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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,18 +0,0 @@ -module GI.Gtk.Objects.StyleContext where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.Objects.StyleProperties - ( - --- * Exported types - StyleProperties(..) , - StylePropertiesK , - toStyleProperties , - noStyleProperties , - - - -- * Methods --- ** stylePropertiesClear - stylePropertiesClear , - - --- ** stylePropertiesGetProperty - stylePropertiesGetProperty , - - --- ** stylePropertiesLookupColor - stylePropertiesLookupColor , - - --- ** stylePropertiesMapColor - stylePropertiesMapColor , - - --- ** stylePropertiesMerge - stylePropertiesMerge , - - --- ** stylePropertiesNew - stylePropertiesNew , - - --- ** stylePropertiesSetProperty - stylePropertiesSetProperty , - - --- ** stylePropertiesUnsetProperty - stylePropertiesUnsetProperty , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList StyleProperties = StylePropertiesAttributeList -type StylePropertiesAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList StyleProperties = StylePropertiesSignalList -type StylePropertiesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method StyleProperties::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -stylePropertiesClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_style_properties_clear _obj' - touchManagedPtr _obj - return () - --- method StyleProperties::get_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType 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) -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') - --- method StyleProperties::lookup_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method StyleProperties::map_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method StyleProperties::merge --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props_to_merge", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- props_to_merge - Bool -> -- replace - m () -stylePropertiesMerge _obj props_to_merge replace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let props_to_merge' = unsafeManagedPtrCastPtr props_to_merge - let replace' = (fromIntegral . fromEnum) replace - gtk_style_properties_merge _obj' props_to_merge' replace' - touchManagedPtr _obj - touchManagedPtr props_to_merge - return () - --- method StyleProperties::set_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 () -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 () - --- method StyleProperties::unset_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.StyleProperties where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StyleProperties = StyleProperties (ForeignPtr StyleProperties) -instance GObject StyleProperties where -class GObject o => StylePropertiesK o -instance (GObject o, IsDescendantOf StyleProperties o) => StylePropertiesK o 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,392 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - switchGetActive , - - --- ** switchGetState - switchGetState , - - --- ** switchNew - switchNew , - - --- ** switchSetActive - switchSetActive , - - --- ** switchSetState - switchSetState , - - - - - -- * Properties --- ** Active - SwitchActivePropertyInfo , - constructSwitchActive , - getSwitchActive , - setSwitchActive , - - --- ** State - SwitchStatePropertyInfo , - constructSwitchState , - getSwitchState , - setSwitchState , - - - - - -- * Signals --- ** Activate - SwitchActivateCallback , - SwitchActivateCallbackC , - SwitchActivateSignalInfo , - afterSwitchActivate , - mkSwitchActivateCallback , - noSwitchActivateCallback , - onSwitchActivate , - switchActivateCallbackWrapper , - switchActivateClosure , - - --- ** StateSet - SwitchStateSetCallback , - SwitchStateSetCallbackC , - SwitchStateSetSignalInfo , - afterSwitchStateSet , - mkSwitchStateSetCallback , - noSwitchStateSetCallback , - onSwitchStateSet , - switchStateSetCallbackWrapper , - switchStateSetClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "Switch::active" - attrGet _ = getSwitchActive - attrSet _ = setSwitchActive - attrConstruct _ = constructSwitchActive - --- VVV Prop "state" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Switch::state" - attrGet _ = getSwitchState - attrSet _ = setSwitchState - attrConstruct _ = constructSwitchState - -type instance AttributeList Switch = SwitchAttributeList -type SwitchAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", SwitchActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("state", SwitchStatePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", SwitchActivateSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("state-set", SwitchStateSetSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Switch::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -switchGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_switch_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Switch::get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -switchGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_switch_get_state _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Switch::set_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_active - m () -switchSetActive _obj is_active = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_switch_set_active _obj' is_active' - touchManagedPtr _obj - return () - --- method Switch::set_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Switch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -switchSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - gtk_switch_set_state _obj' state' - touchManagedPtr _obj - return () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.Switch where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList SwitchAccessible = SwitchAccessibleAttributeList -type SwitchAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SwitchAccessible = SwitchAccessibleSignalList -type SwitchAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,711 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - tableAttach , - - --- ** tableAttachDefaults - tableAttachDefaults , - - --- ** tableGetColSpacing - tableGetColSpacing , - - --- ** tableGetDefaultColSpacing - tableGetDefaultColSpacing , - - --- ** tableGetDefaultRowSpacing - tableGetDefaultRowSpacing , - - --- ** tableGetHomogeneous - tableGetHomogeneous , - - --- ** tableGetRowSpacing - tableGetRowSpacing , - - --- ** tableGetSize - tableGetSize , - - --- ** tableNew - tableNew , - - --- ** tableResize - tableResize , - - --- ** tableSetColSpacing - tableSetColSpacing , - - --- ** tableSetColSpacings - tableSetColSpacings , - - --- ** tableSetHomogeneous - tableSetHomogeneous , - - --- ** tableSetRowSpacing - tableSetRowSpacing , - - --- ** tableSetRowSpacings - tableSetRowSpacings , - - - - - -- * Properties --- ** ColumnSpacing - TableColumnSpacingPropertyInfo , - constructTableColumnSpacing , - getTableColumnSpacing , - setTableColumnSpacing , - - --- ** Homogeneous - TableHomogeneousPropertyInfo , - constructTableHomogeneous , - getTableHomogeneous , - setTableHomogeneous , - - --- ** NColumns - TableNColumnsPropertyInfo , - constructTableNColumns , - getTableNColumns , - setTableNColumns , - - --- ** NRows - TableNRowsPropertyInfo , - constructTableNRows , - getTableNRows , - setTableNRows , - - --- ** RowSpacing - TableRowSpacingPropertyInfo , - constructTableRowSpacing , - getTableRowSpacing , - setTableRowSpacing , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "column-spacing" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTableColumnSpacing :: (MonadIO m, TableK o) => o -> m Word32 -getTableColumnSpacing obj = liftIO $ getObjectPropertyCUInt obj "column-spacing" - -setTableColumnSpacing :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableColumnSpacing obj val = liftIO $ setObjectPropertyCUInt obj "column-spacing" val - -constructTableColumnSpacing :: Word32 -> IO ([Char], GValue) -constructTableColumnSpacing val = constructObjectPropertyCUInt "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 = "Table::column-spacing" - attrGet _ = getTableColumnSpacing - attrSet _ = setTableColumnSpacing - attrConstruct _ = constructTableColumnSpacing - --- VVV Prop "homogeneous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Table::homogeneous" - attrGet _ = getTableHomogeneous - attrSet _ = setTableHomogeneous - attrConstruct _ = constructTableHomogeneous - --- VVV Prop "n-columns" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTableNColumns :: (MonadIO m, TableK o) => o -> m Word32 -getTableNColumns obj = liftIO $ getObjectPropertyCUInt obj "n-columns" - -setTableNColumns :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableNColumns obj val = liftIO $ setObjectPropertyCUInt obj "n-columns" val - -constructTableNColumns :: Word32 -> IO ([Char], GValue) -constructTableNColumns val = constructObjectPropertyCUInt "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 = "Table::n-columns" - attrGet _ = getTableNColumns - attrSet _ = setTableNColumns - attrConstruct _ = constructTableNColumns - --- VVV Prop "n-rows" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTableNRows :: (MonadIO m, TableK o) => o -> m Word32 -getTableNRows obj = liftIO $ getObjectPropertyCUInt obj "n-rows" - -setTableNRows :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableNRows obj val = liftIO $ setObjectPropertyCUInt obj "n-rows" val - -constructTableNRows :: Word32 -> IO ([Char], GValue) -constructTableNRows val = constructObjectPropertyCUInt "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 = "Table::n-rows" - attrGet _ = getTableNRows - attrSet _ = setTableNRows - attrConstruct _ = constructTableNRows - --- VVV Prop "row-spacing" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTableRowSpacing :: (MonadIO m, TableK o) => o -> m Word32 -getTableRowSpacing obj = liftIO $ getObjectPropertyCUInt obj "row-spacing" - -setTableRowSpacing :: (MonadIO m, TableK o) => o -> Word32 -> m () -setTableRowSpacing obj val = liftIO $ setObjectPropertyCUInt obj "row-spacing" val - -constructTableRowSpacing :: Word32 -> IO ([Char], GValue) -constructTableRowSpacing val = constructObjectPropertyCUInt "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 = "Table::row-spacing" - attrGet _ = getTableRowSpacing - attrSet _ = setTableRowSpacing - attrConstruct _ = constructTableRowSpacing - -type instance AttributeList Table = TableAttributeList -type TableAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", TableColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", TableHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("n-columns", TableNColumnsPropertyInfo), '("n-rows", TableNRowsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", TableRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Table = TableSignalList -type TableSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Table::new --- method type : Constructor --- Args : [Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "Table" --- throws : False --- Skip return : False - -foreign import ccall "gtk_table_new" gtk_table_new :: - Word32 -> -- rows : TBasicType TUInt32 - Word32 -> -- columns : TBasicType TUInt32 - 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yoptions", argType = TInterface "Gtk" "AttachOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypadding", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- right_attach : TBasicType TUInt32 - Word32 -> -- top_attach : TBasicType TUInt32 - Word32 -> -- bottom_attach : TBasicType TUInt32 - CUInt -> -- xoptions : TInterface "Gtk" "AttachOptions" - CUInt -> -- yoptions : TInterface "Gtk" "AttachOptions" - Word32 -> -- xpadding : TBasicType TUInt32 - Word32 -> -- ypadding : TBasicType TUInt32 - 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 -> -- left_attach - Word32 -> -- right_attach - Word32 -> -- top_attach - Word32 -> -- bottom_attach - [AttachOptions] -> -- xoptions - [AttachOptions] -> -- yoptions - Word32 -> -- xpadding - Word32 -> -- ypadding - m () -tableAttach _obj child left_attach right_attach top_attach bottom_attach 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' left_attach right_attach top_attach bottom_attach xoptions' yoptions' xpadding ypadding - touchManagedPtr _obj - touchManagedPtr child - return () - --- method Table::attach_defaults --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom_attach", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- right_attach : TBasicType TUInt32 - Word32 -> -- top_attach : TBasicType TUInt32 - Word32 -> -- bottom_attach : TBasicType TUInt32 - 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 -> -- left_attach - Word32 -> -- right_attach - Word32 -> -- top_attach - Word32 -> -- bottom_attach - m () -tableAttachDefaults _obj widget left_attach right_attach top_attach bottom_attach = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - gtk_table_attach_defaults _obj' widget' left_attach right_attach top_attach bottom_attach - touchManagedPtr _obj - touchManagedPtr widget - return () - --- method Table::get_col_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 TUInt32 - 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 -tableGetColSpacing _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_col_spacing _obj' column - touchManagedPtr _obj - return result - --- method Table::get_default_col_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -tableGetDefaultColSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_default_col_spacing _obj' - touchManagedPtr _obj - return result - --- method Table::get_default_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -tableGetDefaultRowSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_default_row_spacing _obj' - touchManagedPtr _obj - return result - --- method Table::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -tableGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Table::get_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 TUInt32 - 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 -tableGetRowSpacing _obj row = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_table_get_row_spacing _obj' row - touchManagedPtr _obj - return result - --- method Table::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr Word32 -> -- columns : TBasicType TUInt32 - 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) -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') - --- method Table::resize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rows", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_table_resize" gtk_table_resize :: - Ptr Table -> -- _obj : TInterface "Gtk" "Table" - Word32 -> -- rows : TBasicType TUInt32 - Word32 -> -- columns : TBasicType TUInt32 - IO () - -{-# DEPRECATED tableResize ["(Since version 3.4)","#GtkGrid resizes automatically."]#-} -tableResize :: - (MonadIO m, TableK a) => - a -> -- _obj - Word32 -> -- rows - Word32 -> -- columns - m () -tableResize _obj rows columns = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_resize _obj' rows columns - touchManagedPtr _obj - return () - --- method Table::set_col_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- spacing : TBasicType TUInt32 - 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 () -tableSetColSpacing _obj column spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_set_col_spacing _obj' column spacing - touchManagedPtr _obj - return () - --- method Table::set_col_spacings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - 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 () -tableSetColSpacings _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_set_col_spacings _obj' spacing - touchManagedPtr _obj - return () - --- method Table::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -tableSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_table_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - --- method Table::set_row_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- spacing : TBasicType TUInt32 - 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 () -tableSetRowSpacing _obj row spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_set_row_spacing _obj' row spacing - touchManagedPtr _obj - return () - --- method Table::set_row_spacings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Table", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - 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 () -tableSetRowSpacings _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_table_set_row_spacings _obj' spacing - touchManagedPtr _obj - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.Table where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList TearoffMenuItem = TearoffMenuItemAttributeList -type TearoffMenuItemAttributeList = ('[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TearoffMenuItem = TearoffMenuItemSignalList -type TearoffMenuItemSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TearoffMenuItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,3539 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - textBufferAddMark , - - --- ** textBufferAddSelectionClipboard - textBufferAddSelectionClipboard , - - --- ** textBufferApplyTag - textBufferApplyTag , - - --- ** textBufferApplyTagByName - textBufferApplyTagByName , - - --- ** textBufferBackspace - textBufferBackspace , - - --- ** textBufferBeginUserAction - textBufferBeginUserAction , - - --- ** textBufferCopyClipboard - textBufferCopyClipboard , - - --- ** textBufferCreateChildAnchor - textBufferCreateChildAnchor , - - --- ** textBufferCreateMark - textBufferCreateMark , - - --- ** textBufferCutClipboard - textBufferCutClipboard , - - --- ** textBufferDelete - textBufferDelete , - - --- ** textBufferDeleteInteractive - textBufferDeleteInteractive , - - --- ** textBufferDeleteMark - textBufferDeleteMark , - - --- ** textBufferDeleteMarkByName - textBufferDeleteMarkByName , - - --- ** textBufferDeleteSelection - textBufferDeleteSelection , - - --- ** textBufferDeserialize - textBufferDeserialize , - - --- ** textBufferDeserializeGetCanCreateTags - textBufferDeserializeGetCanCreateTags , - - --- ** textBufferDeserializeSetCanCreateTags - textBufferDeserializeSetCanCreateTags , - - --- ** textBufferEndUserAction - textBufferEndUserAction , - - --- ** textBufferGetBounds - textBufferGetBounds , - - --- ** textBufferGetCharCount - textBufferGetCharCount , - - --- ** textBufferGetCopyTargetList - textBufferGetCopyTargetList , - - --- ** textBufferGetDeserializeFormats - textBufferGetDeserializeFormats , - - --- ** textBufferGetEndIter - textBufferGetEndIter , - - --- ** textBufferGetHasSelection - textBufferGetHasSelection , - - --- ** textBufferGetInsert - textBufferGetInsert , - - --- ** textBufferGetIterAtChildAnchor - textBufferGetIterAtChildAnchor , - - --- ** textBufferGetIterAtLine - textBufferGetIterAtLine , - - --- ** textBufferGetIterAtLineIndex - textBufferGetIterAtLineIndex , - - --- ** textBufferGetIterAtLineOffset - textBufferGetIterAtLineOffset , - - --- ** textBufferGetIterAtMark - textBufferGetIterAtMark , - - --- ** textBufferGetIterAtOffset - textBufferGetIterAtOffset , - - --- ** textBufferGetLineCount - textBufferGetLineCount , - - --- ** textBufferGetMark - textBufferGetMark , - - --- ** textBufferGetModified - textBufferGetModified , - - --- ** textBufferGetPasteTargetList - textBufferGetPasteTargetList , - - --- ** textBufferGetSelectionBound - textBufferGetSelectionBound , - - --- ** textBufferGetSelectionBounds - textBufferGetSelectionBounds , - - --- ** textBufferGetSerializeFormats - textBufferGetSerializeFormats , - - --- ** textBufferGetSlice - textBufferGetSlice , - - --- ** textBufferGetStartIter - textBufferGetStartIter , - - --- ** textBufferGetTagTable - textBufferGetTagTable , - - --- ** textBufferGetText - textBufferGetText , - - --- ** textBufferInsert - textBufferInsert , - - --- ** textBufferInsertAtCursor - textBufferInsertAtCursor , - - --- ** textBufferInsertChildAnchor - textBufferInsertChildAnchor , - - --- ** textBufferInsertInteractive - textBufferInsertInteractive , - - --- ** textBufferInsertInteractiveAtCursor - textBufferInsertInteractiveAtCursor , - - --- ** textBufferInsertMarkup - textBufferInsertMarkup , - - --- ** textBufferInsertPixbuf - textBufferInsertPixbuf , - - --- ** textBufferInsertRange - textBufferInsertRange , - - --- ** textBufferInsertRangeInteractive - textBufferInsertRangeInteractive , - - --- ** textBufferMoveMark - textBufferMoveMark , - - --- ** textBufferMoveMarkByName - textBufferMoveMarkByName , - - --- ** textBufferNew - textBufferNew , - - --- ** textBufferPasteClipboard - textBufferPasteClipboard , - - --- ** textBufferPlaceCursor - textBufferPlaceCursor , - - --- ** textBufferRegisterDeserializeFormat - textBufferRegisterDeserializeFormat , - - --- ** textBufferRegisterDeserializeTagset - textBufferRegisterDeserializeTagset , - - --- ** textBufferRegisterSerializeFormat - textBufferRegisterSerializeFormat , - - --- ** textBufferRegisterSerializeTagset - textBufferRegisterSerializeTagset , - - --- ** textBufferRemoveAllTags - textBufferRemoveAllTags , - - --- ** textBufferRemoveSelectionClipboard - textBufferRemoveSelectionClipboard , - - --- ** textBufferRemoveTag - textBufferRemoveTag , - - --- ** textBufferRemoveTagByName - textBufferRemoveTagByName , - - --- ** textBufferSelectRange - textBufferSelectRange , - - --- ** textBufferSerialize - textBufferSerialize , - - --- ** textBufferSetModified - textBufferSetModified , - - --- ** textBufferSetText - textBufferSetText , - - --- ** textBufferUnregisterDeserializeFormat - textBufferUnregisterDeserializeFormat , - - --- ** textBufferUnregisterSerializeFormat - textBufferUnregisterSerializeFormat , - - - - - -- * Properties --- ** CopyTargetList - TextBufferCopyTargetListPropertyInfo , - getTextBufferCopyTargetList , - - --- ** CursorPosition - TextBufferCursorPositionPropertyInfo , - getTextBufferCursorPosition , - - --- ** HasSelection - TextBufferHasSelectionPropertyInfo , - getTextBufferHasSelection , - - --- ** PasteTargetList - TextBufferPasteTargetListPropertyInfo , - getTextBufferPasteTargetList , - - --- ** TagTable - TextBufferTagTablePropertyInfo , - constructTextBufferTagTable , - getTextBufferTagTable , - - --- ** Text - TextBufferTextPropertyInfo , - constructTextBufferText , - getTextBufferText , - setTextBufferText , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getTextBufferCopyTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList -getTextBufferCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" TargetList - -data TextBufferCopyTargetListPropertyInfo -instance AttrInfo TextBufferCopyTargetListPropertyInfo where - type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferCopyTargetListPropertyInfo = TextBufferK - type AttrGetType TextBufferCopyTargetListPropertyInfo = TargetList - type AttrLabel TextBufferCopyTargetListPropertyInfo = "TextBuffer::copy-target-list" - attrGet _ = getTextBufferCopyTargetList - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "cursor-position" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getTextBufferCursorPosition :: (MonadIO m, TextBufferK o) => o -> m Int32 -getTextBufferCursorPosition obj = liftIO $ getObjectPropertyCInt 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 = "TextBuffer::cursor-position" - attrGet _ = getTextBufferCursorPosition - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "has-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "TextBuffer::has-selection" - attrGet _ = getTextBufferHasSelection - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "paste-target-list" - -- Type: TInterface "Gtk" "TargetList" - -- Flags: [PropertyReadable] - -getTextBufferPasteTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList -getTextBufferPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" TargetList - -data TextBufferPasteTargetListPropertyInfo -instance AttrInfo TextBufferPasteTargetListPropertyInfo where - type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) () - type AttrBaseTypeConstraint TextBufferPasteTargetListPropertyInfo = TextBufferK - type AttrGetType TextBufferPasteTargetListPropertyInfo = TargetList - type AttrLabel TextBufferPasteTargetListPropertyInfo = "TextBuffer::paste-target-list" - attrGet _ = getTextBufferPasteTargetList - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "tag-table" - -- Type: TInterface "Gtk" "TextTagTable" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getTextBufferTagTable :: (MonadIO m, TextBufferK o) => o -> m TextTagTable -getTextBufferTagTable obj = liftIO $ getObjectPropertyObject obj "tag-table" TextTagTable - -constructTextBufferTagTable :: (TextTagTableK a) => a -> IO ([Char], GValue) -constructTextBufferTagTable val = constructObjectPropertyObject "tag-table" val - -data TextBufferTagTablePropertyInfo -instance AttrInfo TextBufferTagTablePropertyInfo where - type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextBufferTagTablePropertyInfo = TextTagTableK - type AttrBaseTypeConstraint TextBufferTagTablePropertyInfo = TextBufferK - type AttrGetType TextBufferTagTablePropertyInfo = TextTagTable - type AttrLabel TextBufferTagTablePropertyInfo = "TextBuffer::tag-table" - attrGet _ = getTextBufferTagTable - attrSet _ = undefined - attrConstruct _ = constructTextBufferTagTable - --- VVV Prop "text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextBufferText :: (MonadIO m, TextBufferK o) => o -> m T.Text -getTextBufferText obj = liftIO $ getObjectPropertyString obj "text" - -setTextBufferText :: (MonadIO m, TextBufferK o) => o -> T.Text -> m () -setTextBufferText obj val = liftIO $ setObjectPropertyString obj "text" val - -constructTextBufferText :: T.Text -> IO ([Char], GValue) -constructTextBufferText val = constructObjectPropertyString "text" val - -data TextBufferTextPropertyInfo -instance AttrInfo TextBufferTextPropertyInfo where - type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextBufferTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextBufferTextPropertyInfo = TextBufferK - type AttrGetType TextBufferTextPropertyInfo = T.Text - type AttrLabel TextBufferTextPropertyInfo = "TextBuffer::text" - attrGet _ = getTextBufferText - attrSet _ = setTextBufferText - attrConstruct _ = constructTextBufferText - -type instance AttributeList TextBuffer = TextBufferAttributeList -type TextBufferAttributeList = ('[ '("copy-target-list", TextBufferCopyTargetListPropertyInfo), '("cursor-position", TextBufferCursorPositionPropertyInfo), '("has-selection", TextBufferHasSelectionPropertyInfo), '("paste-target-list", TextBufferPasteTargetListPropertyInfo), '("tag-table", TextBufferTagTablePropertyInfo), '("text", TextBufferTextPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("apply-tag", TextBufferApplyTagSignalInfo), '("begin-user-action", TextBufferBeginUserActionSignalInfo), '("changed", TextBufferChangedSignalInfo), '("delete-range", TextBufferDeleteRangeSignalInfo), '("end-user-action", TextBufferEndUserActionSignalInfo), '("insert-child-anchor", TextBufferInsertChildAnchorSignalInfo), '("insert-pixbuf", TextBufferInsertPixbufSignalInfo), '("insert-text", TextBufferInsertTextSignalInfo), '("mark-deleted", TextBufferMarkDeletedSignalInfo), '("mark-set", TextBufferMarkSetSignalInfo), '("modified-changed", TextBufferModifiedChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paste-done", TextBufferPasteDoneSignalInfo), '("remove-tag", TextBufferRemoveTagSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextBuffer::new --- method type : Constructor --- Args : [Arg {argName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "table", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::add_selection_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::apply_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::apply_tag_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::backspace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- default_editable - m Bool -textBufferBackspace _obj iter interactive default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let interactive' = (fromIntegral . fromEnum) interactive - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_backspace _obj' iter' interactive' default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextBuffer::begin_user_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textBufferBeginUserAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_buffer_begin_user_action _obj' - touchManagedPtr _obj - return () - --- method TextBuffer::copy_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::create_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextBuffer::create_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- mark_name - TextIter -> -- where - Bool -> -- left_gravity - m TextMark -textBufferCreateMark _obj mark_name where_ left_gravity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeMark_name <- case mark_name of - Nothing -> return nullPtr - Just jMark_name -> do - jMark_name' <- textToCString jMark_name - return jMark_name' - let where_' = unsafeManagedPtrGetPtr where_ - let left_gravity' = (fromIntegral . fromEnum) left_gravity - result <- gtk_text_buffer_create_mark _obj' maybeMark_name where_' left_gravity' - checkUnexpectedReturnNULL "gtk_text_buffer_create_mark" result - result' <- (newObject TextMark) result - touchManagedPtr _obj - touchManagedPtr where_ - freeMem maybeMark_name - return result' - --- method TextBuffer::cut_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- default_editable - m () -textBufferCutClipboard _obj clipboard default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - let default_editable' = (fromIntegral . fromEnum) default_editable - gtk_text_buffer_cut_clipboard _obj' clipboard' default_editable' - touchManagedPtr _obj - touchManagedPtr clipboard - return () - --- method TextBuffer::delete --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::delete_interactive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- start_iter - TextIter -> -- end_iter - Bool -> -- default_editable - m Bool -textBufferDeleteInteractive _obj start_iter end_iter default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start_iter' = unsafeManagedPtrGetPtr start_iter - let end_iter' = unsafeManagedPtrGetPtr end_iter - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_delete_interactive _obj' start_iter' end_iter' default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr start_iter - touchManagedPtr end_iter - return result' - --- method TextBuffer::delete_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::delete_mark_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method TextBuffer::delete_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interactive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- default_editable - m Bool -textBufferDeleteSelection _obj interactive default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let interactive' = (fromIntegral . fromEnum) interactive - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_delete_selection _obj' interactive' default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextBuffer::deserialize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 5 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_buffer - Gdk.Atom -> -- format - TextIter -> -- iter - ByteString -> -- data - m () -textBufferDeserialize _obj content_buffer format iter data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrCastPtr _obj - let content_buffer' = unsafeManagedPtrCastPtr content_buffer - let format' = unsafeManagedPtrGetPtr format - let iter' = unsafeManagedPtrGetPtr iter - data_' <- packByteString data_ - onException (do - _ <- propagateGError $ gtk_text_buffer_deserialize _obj' content_buffer' format' iter' data_' length_ - touchManagedPtr _obj - touchManagedPtr content_buffer - touchManagedPtr format - touchManagedPtr iter - freeMem data_' - return () - ) (do - freeMem data_' - ) - --- method TextBuffer::deserialize_get_can_create_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextBuffer::deserialize_set_can_create_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_create_tags", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- can_create_tags - m () -textBufferDeserializeSetCanCreateTags _obj format can_create_tags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let format' = unsafeManagedPtrGetPtr format - let can_create_tags' = (fromIntegral . fromEnum) can_create_tags - gtk_text_buffer_deserialize_set_can_create_tags _obj' format' can_create_tags' - touchManagedPtr _obj - touchManagedPtr format - return () - --- method TextBuffer::end_user_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textBufferEndUserAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_buffer_end_user_action _obj' - touchManagedPtr _obj - return () - --- method TextBuffer::get_bounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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') - --- method TextBuffer::get_char_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textBufferGetCharCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_char_count _obj' - touchManagedPtr _obj - return result - --- method TextBuffer::get_copy_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextBuffer::get_deserialize_formats --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr (Ptr Gdk.Atom)) - - -textBufferGetDeserializeFormats :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m [Gdk.Atom] -textBufferGetDeserializeFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - n_formats <- allocMem :: IO (Ptr Int32) - result <- gtk_text_buffer_get_deserialize_formats _obj' n_formats - n_formats' <- peek n_formats - checkUnexpectedReturnNULL "gtk_text_buffer_get_deserialize_formats" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (unpackPtrArrayWithLength n_formats') result - result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result' - freeMem result - touchManagedPtr _obj - freeMem n_formats - return result'' - --- method TextBuffer::get_end_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method TextBuffer::get_has_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textBufferGetHasSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_has_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextBuffer::get_iter_at_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method TextBuffer::get_iter_at_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -textBufferGetIterAtLine :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Int32 -> -- line_number - m (TextIter) -textBufferGetIterAtLine _obj line_number = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line _obj' iter line_number - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_iter_at_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- byte_index : TBasicType TInt32 - IO () - - -textBufferGetIterAtLineIndex :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Int32 -> -- line_number - Int32 -> -- byte_index - m (TextIter) -textBufferGetIterAtLineIndex _obj line_number byte_index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line_index _obj' iter line_number byte_index - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_iter_at_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- char_offset : TBasicType TInt32 - IO () - - -textBufferGetIterAtLineOffset :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Int32 -> -- line_number - Int32 -> -- char_offset - m (TextIter) -textBufferGetIterAtLineOffset _obj line_number char_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_line_offset _obj' iter line_number char_offset - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_iter_at_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method TextBuffer::get_iter_at_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -textBufferGetIterAtOffset :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - Int32 -> -- char_offset - m (TextIter) -textBufferGetIterAtOffset _obj char_offset = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - gtk_text_buffer_get_iter_at_offset _obj' iter char_offset - iter' <- (wrapBoxed TextIter) iter - touchManagedPtr _obj - return iter' - --- method TextBuffer::get_line_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textBufferGetLineCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_line_count _obj' - touchManagedPtr _obj - return result - --- method TextBuffer::get_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextBuffer::get_modified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textBufferGetModified _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_buffer_get_modified _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextBuffer::get_paste_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextBuffer::get_selection_bound --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextBuffer::get_selection_bounds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - --- method TextBuffer::get_serialize_formats --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_formats", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr (Ptr Gdk.Atom)) - - -textBufferGetSerializeFormats :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - m [Gdk.Atom] -textBufferGetSerializeFormats _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - n_formats <- allocMem :: IO (Ptr Int32) - result <- gtk_text_buffer_get_serialize_formats _obj' n_formats - n_formats' <- peek n_formats - checkUnexpectedReturnNULL "gtk_text_buffer_get_serialize_formats" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (unpackPtrArrayWithLength n_formats') result - result'' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) result' - freeMem result - touchManagedPtr _obj - freeMem n_formats - return result'' - --- method TextBuffer::get_slice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- include_hidden_chars - m T.Text -textBufferGetSlice _obj start end include_hidden_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let include_hidden_chars' = (fromIntegral . fromEnum) include_hidden_chars - result <- gtk_text_buffer_get_slice _obj' start' end' include_hidden_chars' - checkUnexpectedReturnNULL "gtk_text_buffer_get_slice" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return result' - --- method TextBuffer::get_start_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method TextBuffer::get_tag_table --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextBuffer::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "include_hidden_chars", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- include_hidden_chars - m T.Text -textBufferGetText _obj start end include_hidden_chars = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let include_hidden_chars' = (fromIntegral . fromEnum) include_hidden_chars - result <- gtk_text_buffer_get_text _obj' start' end' include_hidden_chars' - checkUnexpectedReturnNULL "gtk_text_buffer_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return result' - --- method TextBuffer::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -textBufferInsert :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - T.Text -> -- text - Int32 -> -- len - m () -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 () - --- method TextBuffer::insert_at_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_insert_at_cursor" gtk_text_buffer_insert_at_cursor :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - IO () - - -textBufferInsertAtCursor :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - m () -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 () - --- method TextBuffer::insert_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::insert_interactive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferInsertInteractive :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - T.Text -> -- text - Int32 -> -- len - Bool -> -- default_editable - m Bool -textBufferInsertInteractive _obj iter text len default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - text' <- textToCString text - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_insert_interactive _obj' iter' text' len default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - freeMem text' - return result' - --- method TextBuffer::insert_interactive_at_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - CInt -> -- default_editable : TBasicType TBoolean - IO CInt - - -textBufferInsertInteractiveAtCursor :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - Bool -> -- default_editable - m Bool -textBufferInsertInteractiveAtCursor _obj text len default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_insert_interactive_at_cursor _obj' text' len default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem text' - return result' - --- method TextBuffer::insert_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -textBufferInsertMarkup :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - TextIter -> -- iter - T.Text -> -- markup - Int32 -> -- len - m () -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 () - --- method TextBuffer::insert_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::insert_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::insert_range_interactive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- default_editable - m Bool -textBufferInsertRangeInteractive _obj iter start end default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - let default_editable' = (fromIntegral . fromEnum) default_editable - result <- gtk_text_buffer_insert_range_interactive _obj' iter' start' end' default_editable' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - touchManagedPtr start - touchManagedPtr end - return result' - --- method TextBuffer::move_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::move_mark_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::paste_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_location", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- override_location - Bool -> -- default_editable - m () -textBufferPasteClipboard _obj clipboard override_location default_editable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboard' = unsafeManagedPtrCastPtr clipboard - maybeOverride_location <- case override_location of - Nothing -> return nullPtr - Just jOverride_location -> do - let jOverride_location' = unsafeManagedPtrGetPtr jOverride_location - return jOverride_location' - let default_editable' = (fromIntegral . fromEnum) default_editable - gtk_text_buffer_paste_clipboard _obj' clipboard' maybeOverride_location default_editable' - touchManagedPtr _obj - touchManagedPtr clipboard - whenJust override_location touchManagedPtr - return () - --- method TextBuffer::place_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "where", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::register_deserialize_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferDeserializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr Gdk.Atom) - - -textBufferRegisterDeserializeFormat :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- mime_type - TextBufferDeserializeFunc -> -- function - m Gdk.Atom -textBufferRegisterDeserializeFormat _obj mime_type function = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - function' <- mkTextBufferDeserializeFunc (textBufferDeserializeFuncWrapper Nothing function) - let user_data = castFunPtrToPtr function' - let user_data_destroy = safeFreeFunPtrPtr - result <- gtk_text_buffer_register_deserialize_format _obj' mime_type' function' user_data user_data_destroy - checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_format" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - freeMem mime_type' - return result' - --- method TextBuffer::register_deserialize_tagset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- tagset_name - m Gdk.Atom -textBufferRegisterDeserializeTagset _obj tagset_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTagset_name <- case tagset_name of - Nothing -> return nullPtr - Just jTagset_name -> do - jTagset_name' <- textToCString jTagset_name - return jTagset_name' - result <- gtk_text_buffer_register_deserialize_tagset _obj' maybeTagset_name - checkUnexpectedReturnNULL "gtk_text_buffer_register_deserialize_tagset" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - freeMem maybeTagset_name - return result' - --- method TextBuffer::register_serialize_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "Gtk" "TextBufferSerializeFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- user_data_destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr Gdk.Atom) - - -textBufferRegisterSerializeFormat :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- mime_type - TextBufferSerializeFunc -> -- function - m Gdk.Atom -textBufferRegisterSerializeFormat _obj mime_type function = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mime_type' <- textToCString mime_type - function' <- mkTextBufferSerializeFunc (textBufferSerializeFuncWrapper Nothing function) - let user_data = castFunPtrToPtr function' - let user_data_destroy = safeFreeFunPtrPtr - result <- gtk_text_buffer_register_serialize_format _obj' mime_type' function' user_data user_data_destroy - checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_format" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - freeMem mime_type' - return result' - --- method TextBuffer::register_serialize_tagset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tagset_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- tagset_name - m Gdk.Atom -textBufferRegisterSerializeTagset _obj tagset_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTagset_name <- case tagset_name of - Nothing -> return nullPtr - Just jTagset_name -> do - jTagset_name' <- textToCString jTagset_name - return jTagset_name' - result <- gtk_text_buffer_register_serialize_tagset _obj' maybeTagset_name - checkUnexpectedReturnNULL "gtk_text_buffer_register_serialize_tagset" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - freeMem maybeTagset_name - return result' - --- method TextBuffer::remove_all_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::remove_selection_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard", argType = TInterface "Gtk" "Clipboard", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::remove_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::remove_tag_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::select_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ins", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bound", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::serialize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- content_buffer - Gdk.Atom -> -- format - TextIter -> -- start - TextIter -> -- end - m ByteString -textBufferSerialize _obj content_buffer format start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let content_buffer' = unsafeManagedPtrCastPtr content_buffer - let format' = unsafeManagedPtrGetPtr format - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - length_ <- allocMem :: IO (Ptr Word64) - result <- gtk_text_buffer_serialize _obj' content_buffer' format' start' end' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "gtk_text_buffer_serialize" result - result' <- (unpackByteStringWithLength length_') result - freeMem result - touchManagedPtr _obj - touchManagedPtr content_buffer - touchManagedPtr format - touchManagedPtr start - touchManagedPtr end - freeMem length_ - return result' - --- method TextBuffer::set_modified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textBufferSetModified _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_buffer_set_modified _obj' setting' - touchManagedPtr _obj - return () - --- method TextBuffer::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_buffer_set_text" gtk_text_buffer_set_text :: - Ptr TextBuffer -> -- _obj : TInterface "Gtk" "TextBuffer" - CString -> -- text : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - IO () - - -textBufferSetText :: - (MonadIO m, TextBufferK a) => - a -> -- _obj - T.Text -> -- text - Int32 -> -- len - m () -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 () - --- method TextBuffer::unregister_deserialize_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextBuffer::unregister_serialize_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,32 +0,0 @@ -module GI.Gtk.Objects.TextBuffer where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList TextCellAccessible = TextCellAccessibleAttributeList -type TextCellAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TextCellAccessible = TextCellAccessibleSignalList -type TextCellAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,148 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - textChildAnchorGetDeleted , - - --- ** textChildAnchorGetWidgets - textChildAnchorGetWidgets , - - --- ** textChildAnchorNew - textChildAnchorNew , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList TextChildAnchor = TextChildAnchorAttributeList -type TextChildAnchorAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TextChildAnchor = TextChildAnchorSignalList -type TextChildAnchorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextChildAnchor::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textChildAnchorGetDeleted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_child_anchor_get_deleted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextChildAnchor::get_widgets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -textChildAnchorGetWidgets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_child_anchor_get_widgets _obj' - checkUnexpectedReturnNULL "gtk_text_child_anchor_get_widgets" result - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - touchManagedPtr _obj - return result'' - - 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,13 +0,0 @@ -module GI.Gtk.Objects.TextChildAnchor where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TextChildAnchor = TextChildAnchor (ForeignPtr TextChildAnchor) -instance GObject TextChildAnchor where -class GObject o => TextChildAnchorK o -instance (GObject o, IsDescendantOf TextChildAnchor o) => TextChildAnchorK o 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,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.Objects.TextMark - ( - --- * Exported types - TextMark(..) , - TextMarkK , - toTextMark , - noTextMark , - - - -- * Methods --- ** textMarkGetBuffer - textMarkGetBuffer , - - --- ** textMarkGetDeleted - textMarkGetDeleted , - - --- ** textMarkGetLeftGravity - textMarkGetLeftGravity , - - --- ** textMarkGetName - textMarkGetName , - - --- ** textMarkGetVisible - textMarkGetVisible , - - --- ** textMarkNew - textMarkNew , - - --- ** textMarkSetVisible - textMarkSetVisible , - - - - - -- * Properties --- ** LeftGravity - TextMarkLeftGravityPropertyInfo , - constructTextMarkLeftGravity , - getTextMarkLeftGravity , - - --- ** Name - TextMarkNamePropertyInfo , - constructTextMarkName , - getTextMarkName , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "left-gravity" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -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 = "TextMark::left-gravity" - attrGet _ = getTextMarkLeftGravity - attrSet _ = undefined - attrConstruct _ = constructTextMarkLeftGravity - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getTextMarkName :: (MonadIO m, TextMarkK o) => o -> m T.Text -getTextMarkName obj = liftIO $ getObjectPropertyString obj "name" - -constructTextMarkName :: T.Text -> IO ([Char], GValue) -constructTextMarkName val = constructObjectPropertyString "name" val - -data TextMarkNamePropertyInfo -instance AttrInfo TextMarkNamePropertyInfo where - type AttrAllowedOps TextMarkNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextMarkNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextMarkNamePropertyInfo = TextMarkK - type AttrGetType TextMarkNamePropertyInfo = T.Text - type AttrLabel TextMarkNamePropertyInfo = "TextMark::name" - attrGet _ = getTextMarkName - attrSet _ = undefined - attrConstruct _ = constructTextMarkName - -type instance AttributeList TextMark = TextMarkAttributeList -type TextMarkAttributeList = ('[ '("left-gravity", TextMarkLeftGravityPropertyInfo), '("name", TextMarkNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TextMark = TextMarkSignalList -type TextMarkSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextMark::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_gravity", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- left_gravity - m TextMark -textMarkNew name left_gravity = liftIO $ do - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - let left_gravity' = (fromIntegral . fromEnum) left_gravity - result <- gtk_text_mark_new maybeName left_gravity' - checkUnexpectedReturnNULL "gtk_text_mark_new" result - result' <- (wrapObject TextMark) result - freeMem maybeName - return result' - --- method TextMark::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextMark::get_deleted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textMarkGetDeleted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_mark_get_deleted _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextMark::get_left_gravity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textMarkGetLeftGravity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_mark_get_left_gravity _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextMark::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextMark::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textMarkGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_mark_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextMark::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textMarkSetVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_mark_set_visible _obj' setting' - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.TextMark where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,2487 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - textTagEvent , - - --- ** textTagGetPriority - textTagGetPriority , - - --- ** textTagNew - textTagNew , - - --- ** textTagSetPriority - textTagSetPriority , - - - - - -- * Properties --- ** AccumulativeMargin - TextTagAccumulativeMarginPropertyInfo , - constructTextTagAccumulativeMargin , - getTextTagAccumulativeMargin , - setTextTagAccumulativeMargin , - - --- ** Background - TextTagBackgroundPropertyInfo , - constructTextTagBackground , - setTextTagBackground , - - --- ** BackgroundFullHeight - TextTagBackgroundFullHeightPropertyInfo , - constructTextTagBackgroundFullHeight , - getTextTagBackgroundFullHeight , - setTextTagBackgroundFullHeight , - - --- ** BackgroundFullHeightSet - TextTagBackgroundFullHeightSetPropertyInfo, - constructTextTagBackgroundFullHeightSet , - getTextTagBackgroundFullHeightSet , - setTextTagBackgroundFullHeightSet , - - --- ** BackgroundGdk - TextTagBackgroundGdkPropertyInfo , - constructTextTagBackgroundGdk , - getTextTagBackgroundGdk , - setTextTagBackgroundGdk , - - --- ** BackgroundRgba - TextTagBackgroundRgbaPropertyInfo , - constructTextTagBackgroundRgba , - getTextTagBackgroundRgba , - setTextTagBackgroundRgba , - - --- ** BackgroundSet - TextTagBackgroundSetPropertyInfo , - constructTextTagBackgroundSet , - getTextTagBackgroundSet , - setTextTagBackgroundSet , - - --- ** Direction - TextTagDirectionPropertyInfo , - constructTextTagDirection , - getTextTagDirection , - setTextTagDirection , - - --- ** Editable - TextTagEditablePropertyInfo , - constructTextTagEditable , - getTextTagEditable , - setTextTagEditable , - - --- ** EditableSet - TextTagEditableSetPropertyInfo , - constructTextTagEditableSet , - getTextTagEditableSet , - setTextTagEditableSet , - - --- ** Fallback - TextTagFallbackPropertyInfo , - constructTextTagFallback , - getTextTagFallback , - setTextTagFallback , - - --- ** FallbackSet - TextTagFallbackSetPropertyInfo , - constructTextTagFallbackSet , - getTextTagFallbackSet , - setTextTagFallbackSet , - - --- ** Family - TextTagFamilyPropertyInfo , - constructTextTagFamily , - getTextTagFamily , - setTextTagFamily , - - --- ** FamilySet - TextTagFamilySetPropertyInfo , - constructTextTagFamilySet , - getTextTagFamilySet , - setTextTagFamilySet , - - --- ** Font - TextTagFontPropertyInfo , - constructTextTagFont , - getTextTagFont , - setTextTagFont , - - --- ** FontDesc - TextTagFontDescPropertyInfo , - constructTextTagFontDesc , - getTextTagFontDesc , - setTextTagFontDesc , - - --- ** Foreground - TextTagForegroundPropertyInfo , - constructTextTagForeground , - setTextTagForeground , - - --- ** ForegroundGdk - TextTagForegroundGdkPropertyInfo , - constructTextTagForegroundGdk , - getTextTagForegroundGdk , - setTextTagForegroundGdk , - - --- ** ForegroundRgba - TextTagForegroundRgbaPropertyInfo , - constructTextTagForegroundRgba , - getTextTagForegroundRgba , - setTextTagForegroundRgba , - - --- ** ForegroundSet - TextTagForegroundSetPropertyInfo , - constructTextTagForegroundSet , - getTextTagForegroundSet , - setTextTagForegroundSet , - - --- ** Indent - TextTagIndentPropertyInfo , - constructTextTagIndent , - getTextTagIndent , - setTextTagIndent , - - --- ** IndentSet - TextTagIndentSetPropertyInfo , - constructTextTagIndentSet , - getTextTagIndentSet , - setTextTagIndentSet , - - --- ** Invisible - TextTagInvisiblePropertyInfo , - constructTextTagInvisible , - getTextTagInvisible , - setTextTagInvisible , - - --- ** InvisibleSet - TextTagInvisibleSetPropertyInfo , - constructTextTagInvisibleSet , - getTextTagInvisibleSet , - setTextTagInvisibleSet , - - --- ** Justification - TextTagJustificationPropertyInfo , - constructTextTagJustification , - getTextTagJustification , - setTextTagJustification , - - --- ** JustificationSet - TextTagJustificationSetPropertyInfo , - constructTextTagJustificationSet , - getTextTagJustificationSet , - setTextTagJustificationSet , - - --- ** Language - TextTagLanguagePropertyInfo , - constructTextTagLanguage , - getTextTagLanguage , - setTextTagLanguage , - - --- ** LanguageSet - TextTagLanguageSetPropertyInfo , - constructTextTagLanguageSet , - getTextTagLanguageSet , - setTextTagLanguageSet , - - --- ** LeftMargin - TextTagLeftMarginPropertyInfo , - constructTextTagLeftMargin , - getTextTagLeftMargin , - setTextTagLeftMargin , - - --- ** LeftMarginSet - TextTagLeftMarginSetPropertyInfo , - constructTextTagLeftMarginSet , - getTextTagLeftMarginSet , - setTextTagLeftMarginSet , - - --- ** LetterSpacing - TextTagLetterSpacingPropertyInfo , - constructTextTagLetterSpacing , - getTextTagLetterSpacing , - setTextTagLetterSpacing , - - --- ** LetterSpacingSet - TextTagLetterSpacingSetPropertyInfo , - constructTextTagLetterSpacingSet , - getTextTagLetterSpacingSet , - setTextTagLetterSpacingSet , - - --- ** Name - TextTagNamePropertyInfo , - constructTextTagName , - getTextTagName , - - --- ** ParagraphBackground - TextTagParagraphBackgroundPropertyInfo , - constructTextTagParagraphBackground , - setTextTagParagraphBackground , - - --- ** ParagraphBackgroundGdk - TextTagParagraphBackgroundGdkPropertyInfo, - constructTextTagParagraphBackgroundGdk , - getTextTagParagraphBackgroundGdk , - setTextTagParagraphBackgroundGdk , - - --- ** ParagraphBackgroundRgba - TextTagParagraphBackgroundRgbaPropertyInfo, - constructTextTagParagraphBackgroundRgba , - getTextTagParagraphBackgroundRgba , - setTextTagParagraphBackgroundRgba , - - --- ** ParagraphBackgroundSet - TextTagParagraphBackgroundSetPropertyInfo, - constructTextTagParagraphBackgroundSet , - getTextTagParagraphBackgroundSet , - setTextTagParagraphBackgroundSet , - - --- ** PixelsAboveLines - TextTagPixelsAboveLinesPropertyInfo , - constructTextTagPixelsAboveLines , - getTextTagPixelsAboveLines , - setTextTagPixelsAboveLines , - - --- ** PixelsAboveLinesSet - TextTagPixelsAboveLinesSetPropertyInfo , - constructTextTagPixelsAboveLinesSet , - getTextTagPixelsAboveLinesSet , - setTextTagPixelsAboveLinesSet , - - --- ** PixelsBelowLines - TextTagPixelsBelowLinesPropertyInfo , - constructTextTagPixelsBelowLines , - getTextTagPixelsBelowLines , - setTextTagPixelsBelowLines , - - --- ** PixelsBelowLinesSet - TextTagPixelsBelowLinesSetPropertyInfo , - constructTextTagPixelsBelowLinesSet , - getTextTagPixelsBelowLinesSet , - setTextTagPixelsBelowLinesSet , - - --- ** PixelsInsideWrap - TextTagPixelsInsideWrapPropertyInfo , - constructTextTagPixelsInsideWrap , - getTextTagPixelsInsideWrap , - setTextTagPixelsInsideWrap , - - --- ** PixelsInsideWrapSet - TextTagPixelsInsideWrapSetPropertyInfo , - constructTextTagPixelsInsideWrapSet , - getTextTagPixelsInsideWrapSet , - setTextTagPixelsInsideWrapSet , - - --- ** RightMargin - TextTagRightMarginPropertyInfo , - constructTextTagRightMargin , - getTextTagRightMargin , - setTextTagRightMargin , - - --- ** RightMarginSet - TextTagRightMarginSetPropertyInfo , - constructTextTagRightMarginSet , - getTextTagRightMarginSet , - setTextTagRightMarginSet , - - --- ** Rise - TextTagRisePropertyInfo , - constructTextTagRise , - getTextTagRise , - setTextTagRise , - - --- ** RiseSet - TextTagRiseSetPropertyInfo , - constructTextTagRiseSet , - getTextTagRiseSet , - setTextTagRiseSet , - - --- ** Scale - TextTagScalePropertyInfo , - constructTextTagScale , - getTextTagScale , - setTextTagScale , - - --- ** ScaleSet - TextTagScaleSetPropertyInfo , - constructTextTagScaleSet , - getTextTagScaleSet , - setTextTagScaleSet , - - --- ** Size - TextTagSizePropertyInfo , - constructTextTagSize , - getTextTagSize , - setTextTagSize , - - --- ** SizePoints - TextTagSizePointsPropertyInfo , - constructTextTagSizePoints , - getTextTagSizePoints , - setTextTagSizePoints , - - --- ** SizeSet - TextTagSizeSetPropertyInfo , - constructTextTagSizeSet , - getTextTagSizeSet , - setTextTagSizeSet , - - --- ** Stretch - TextTagStretchPropertyInfo , - constructTextTagStretch , - getTextTagStretch , - setTextTagStretch , - - --- ** StretchSet - TextTagStretchSetPropertyInfo , - constructTextTagStretchSet , - getTextTagStretchSet , - setTextTagStretchSet , - - --- ** Strikethrough - TextTagStrikethroughPropertyInfo , - constructTextTagStrikethrough , - getTextTagStrikethrough , - setTextTagStrikethrough , - - --- ** StrikethroughRgba - TextTagStrikethroughRgbaPropertyInfo , - constructTextTagStrikethroughRgba , - getTextTagStrikethroughRgba , - setTextTagStrikethroughRgba , - - --- ** StrikethroughRgbaSet - TextTagStrikethroughRgbaSetPropertyInfo , - constructTextTagStrikethroughRgbaSet , - getTextTagStrikethroughRgbaSet , - setTextTagStrikethroughRgbaSet , - - --- ** StrikethroughSet - TextTagStrikethroughSetPropertyInfo , - constructTextTagStrikethroughSet , - getTextTagStrikethroughSet , - setTextTagStrikethroughSet , - - --- ** Style - TextTagStylePropertyInfo , - constructTextTagStyle , - getTextTagStyle , - setTextTagStyle , - - --- ** StyleSet - TextTagStyleSetPropertyInfo , - constructTextTagStyleSet , - getTextTagStyleSet , - setTextTagStyleSet , - - --- ** Tabs - TextTagTabsPropertyInfo , - constructTextTagTabs , - getTextTagTabs , - setTextTagTabs , - - --- ** TabsSet - TextTagTabsSetPropertyInfo , - constructTextTagTabsSet , - getTextTagTabsSet , - setTextTagTabsSet , - - --- ** Underline - TextTagUnderlinePropertyInfo , - constructTextTagUnderline , - getTextTagUnderline , - setTextTagUnderline , - - --- ** UnderlineRgba - TextTagUnderlineRgbaPropertyInfo , - constructTextTagUnderlineRgba , - getTextTagUnderlineRgba , - setTextTagUnderlineRgba , - - --- ** UnderlineRgbaSet - TextTagUnderlineRgbaSetPropertyInfo , - constructTextTagUnderlineRgbaSet , - getTextTagUnderlineRgbaSet , - setTextTagUnderlineRgbaSet , - - --- ** UnderlineSet - TextTagUnderlineSetPropertyInfo , - constructTextTagUnderlineSet , - getTextTagUnderlineSet , - setTextTagUnderlineSet , - - --- ** Variant - TextTagVariantPropertyInfo , - constructTextTagVariant , - getTextTagVariant , - setTextTagVariant , - - --- ** VariantSet - TextTagVariantSetPropertyInfo , - constructTextTagVariantSet , - getTextTagVariantSet , - setTextTagVariantSet , - - --- ** Weight - TextTagWeightPropertyInfo , - constructTextTagWeight , - getTextTagWeight , - setTextTagWeight , - - --- ** WeightSet - TextTagWeightSetPropertyInfo , - constructTextTagWeightSet , - getTextTagWeightSet , - setTextTagWeightSet , - - --- ** WrapMode - TextTagWrapModePropertyInfo , - constructTextTagWrapMode , - getTextTagWrapMode , - setTextTagWrapMode , - - --- ** WrapModeSet - TextTagWrapModeSetPropertyInfo , - constructTextTagWrapModeSet , - getTextTagWrapModeSet , - setTextTagWrapModeSet , - - - - - -- * Signals --- ** Event - TextTagEventCallback , - TextTagEventCallbackC , - TextTagEventSignalInfo , - afterTextTagEvent , - mkTextTagEventCallback , - noTextTagEventCallback , - onTextTagEvent , - textTagEventCallbackWrapper , - textTagEventClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "TextTag::accumulative-margin" - attrGet _ = getTextTagAccumulativeMargin - attrSet _ = setTextTagAccumulativeMargin - attrConstruct _ = constructTextTagAccumulativeMargin - --- VVV Prop "background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setTextTagBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagBackground obj val = liftIO $ setObjectPropertyString obj "background" val - -constructTextTagBackground :: T.Text -> IO ([Char], GValue) -constructTextTagBackground val = constructObjectPropertyString "background" val - -data TextTagBackgroundPropertyInfo -instance AttrInfo TextTagBackgroundPropertyInfo where - type AttrAllowedOps TextTagBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint TextTagBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagBackgroundPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundPropertyInfo = () - type AttrLabel TextTagBackgroundPropertyInfo = "TextTag::background" - attrGet _ = undefined - attrSet _ = setTextTagBackground - attrConstruct _ = constructTextTagBackground - --- VVV Prop "background-full-height" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::background-full-height" - attrGet _ = getTextTagBackgroundFullHeight - attrSet _ = setTextTagBackgroundFullHeight - attrConstruct _ = constructTextTagBackgroundFullHeight - --- VVV Prop "background-full-height-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::background-full-height-set" - attrGet _ = getTextTagBackgroundFullHeightSet - attrSet _ = setTextTagBackgroundFullHeightSet - attrConstruct _ = constructTextTagBackgroundFullHeightSet - --- VVV Prop "background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val - -data TextTagBackgroundGdkPropertyInfo -instance AttrInfo TextTagBackgroundGdkPropertyInfo where - type AttrAllowedOps TextTagBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint TextTagBackgroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel TextTagBackgroundGdkPropertyInfo = "TextTag::background-gdk" - attrGet _ = getTextTagBackgroundGdk - attrSet _ = setTextTagBackgroundGdk - attrConstruct _ = constructTextTagBackgroundGdk - --- VVV Prop "background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val - -data TextTagBackgroundRgbaPropertyInfo -instance AttrInfo TextTagBackgroundRgbaPropertyInfo where - type AttrAllowedOps TextTagBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagBackgroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagBackgroundRgbaPropertyInfo = "TextTag::background-rgba" - attrGet _ = getTextTagBackgroundRgba - attrSet _ = setTextTagBackgroundRgba - attrConstruct _ = constructTextTagBackgroundRgba - --- VVV Prop "background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::background-set" - attrGet _ = getTextTagBackgroundSet - attrSet _ = setTextTagBackgroundSet - attrConstruct _ = constructTextTagBackgroundSet - --- VVV Prop "direction" - -- Type: TInterface "Gtk" "TextDirection" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::direction" - attrGet _ = getTextTagDirection - attrSet _ = setTextTagDirection - attrConstruct _ = constructTextTagDirection - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::editable" - attrGet _ = getTextTagEditable - attrSet _ = setTextTagEditable - attrConstruct _ = constructTextTagEditable - --- VVV Prop "editable-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::editable-set" - attrGet _ = getTextTagEditableSet - attrSet _ = setTextTagEditableSet - attrConstruct _ = constructTextTagEditableSet - --- VVV Prop "fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::fallback" - attrGet _ = getTextTagFallback - attrSet _ = setTextTagFallback - attrConstruct _ = constructTextTagFallback - --- VVV Prop "fallback-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::fallback-set" - attrGet _ = getTextTagFallbackSet - attrSet _ = setTextTagFallbackSet - attrConstruct _ = constructTextTagFallbackSet - --- VVV Prop "family" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagFamily :: (MonadIO m, TextTagK o) => o -> m T.Text -getTextTagFamily obj = liftIO $ getObjectPropertyString obj "family" - -setTextTagFamily :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagFamily obj val = liftIO $ setObjectPropertyString obj "family" val - -constructTextTagFamily :: T.Text -> IO ([Char], GValue) -constructTextTagFamily val = constructObjectPropertyString "family" val - -data TextTagFamilyPropertyInfo -instance AttrInfo TextTagFamilyPropertyInfo where - type AttrAllowedOps TextTagFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagFamilyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagFamilyPropertyInfo = TextTagK - type AttrGetType TextTagFamilyPropertyInfo = T.Text - type AttrLabel TextTagFamilyPropertyInfo = "TextTag::family" - attrGet _ = getTextTagFamily - attrSet _ = setTextTagFamily - attrConstruct _ = constructTextTagFamily - --- VVV Prop "family-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::family-set" - attrGet _ = getTextTagFamilySet - attrSet _ = setTextTagFamilySet - attrConstruct _ = constructTextTagFamilySet - --- VVV Prop "font" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagFont :: (MonadIO m, TextTagK o) => o -> m T.Text -getTextTagFont obj = liftIO $ getObjectPropertyString obj "font" - -setTextTagFont :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagFont obj val = liftIO $ setObjectPropertyString obj "font" val - -constructTextTagFont :: T.Text -> IO ([Char], GValue) -constructTextTagFont val = constructObjectPropertyString "font" val - -data TextTagFontPropertyInfo -instance AttrInfo TextTagFontPropertyInfo where - type AttrAllowedOps TextTagFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagFontPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagFontPropertyInfo = TextTagK - type AttrGetType TextTagFontPropertyInfo = T.Text - type AttrLabel TextTagFontPropertyInfo = "TextTag::font" - attrGet _ = getTextTagFont - attrSet _ = setTextTagFont - attrConstruct _ = constructTextTagFont - --- VVV Prop "font-desc" - -- Type: TInterface "Pango" "FontDescription" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagFontDesc :: Pango.FontDescription -> IO ([Char], GValue) -constructTextTagFontDesc val = constructObjectPropertyBoxed "font-desc" val - -data TextTagFontDescPropertyInfo -instance AttrInfo TextTagFontDescPropertyInfo where - type AttrAllowedOps TextTagFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagFontDescPropertyInfo = (~) Pango.FontDescription - type AttrBaseTypeConstraint TextTagFontDescPropertyInfo = TextTagK - type AttrGetType TextTagFontDescPropertyInfo = Pango.FontDescription - type AttrLabel TextTagFontDescPropertyInfo = "TextTag::font-desc" - attrGet _ = getTextTagFontDesc - attrSet _ = setTextTagFontDesc - attrConstruct _ = constructTextTagFontDesc - --- VVV Prop "foreground" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setTextTagForeground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagForeground obj val = liftIO $ setObjectPropertyString obj "foreground" val - -constructTextTagForeground :: T.Text -> IO ([Char], GValue) -constructTextTagForeground val = constructObjectPropertyString "foreground" val - -data TextTagForegroundPropertyInfo -instance AttrInfo TextTagForegroundPropertyInfo where - type AttrAllowedOps TextTagForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint TextTagForegroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagForegroundPropertyInfo = TextTagK - type AttrGetType TextTagForegroundPropertyInfo = () - type AttrLabel TextTagForegroundPropertyInfo = "TextTag::foreground" - attrGet _ = undefined - attrSet _ = setTextTagForeground - attrConstruct _ = constructTextTagForeground - --- VVV Prop "foreground-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagForegroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" val - -data TextTagForegroundGdkPropertyInfo -instance AttrInfo TextTagForegroundGdkPropertyInfo where - type AttrAllowedOps TextTagForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagForegroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint TextTagForegroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagForegroundGdkPropertyInfo = Gdk.Color - type AttrLabel TextTagForegroundGdkPropertyInfo = "TextTag::foreground-gdk" - attrGet _ = getTextTagForegroundGdk - attrSet _ = setTextTagForegroundGdk - attrConstruct _ = constructTextTagForegroundGdk - --- VVV Prop "foreground-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" val - -data TextTagForegroundRgbaPropertyInfo -instance AttrInfo TextTagForegroundRgbaPropertyInfo where - type AttrAllowedOps TextTagForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagForegroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagForegroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagForegroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagForegroundRgbaPropertyInfo = "TextTag::foreground-rgba" - attrGet _ = getTextTagForegroundRgba - attrSet _ = setTextTagForegroundRgba - attrConstruct _ = constructTextTagForegroundRgba - --- VVV Prop "foreground-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::foreground-set" - attrGet _ = getTextTagForegroundSet - attrSet _ = setTextTagForegroundSet - attrConstruct _ = constructTextTagForegroundSet - --- VVV Prop "indent" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagIndent :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagIndent obj = liftIO $ getObjectPropertyCInt obj "indent" - -setTextTagIndent :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val - -constructTextTagIndent :: Int32 -> IO ([Char], GValue) -constructTextTagIndent val = constructObjectPropertyCInt "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 = "TextTag::indent" - attrGet _ = getTextTagIndent - attrSet _ = setTextTagIndent - attrConstruct _ = constructTextTagIndent - --- VVV Prop "indent-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::indent-set" - attrGet _ = getTextTagIndentSet - attrSet _ = setTextTagIndentSet - attrConstruct _ = constructTextTagIndentSet - --- VVV Prop "invisible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::invisible" - attrGet _ = getTextTagInvisible - attrSet _ = setTextTagInvisible - attrConstruct _ = constructTextTagInvisible - --- VVV Prop "invisible-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::invisible-set" - attrGet _ = getTextTagInvisibleSet - attrSet _ = setTextTagInvisibleSet - attrConstruct _ = constructTextTagInvisibleSet - --- VVV Prop "justification" - -- Type: TInterface "Gtk" "Justification" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::justification" - attrGet _ = getTextTagJustification - attrSet _ = setTextTagJustification - attrConstruct _ = constructTextTagJustification - --- VVV Prop "justification-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::justification-set" - attrGet _ = getTextTagJustificationSet - attrSet _ = setTextTagJustificationSet - attrConstruct _ = constructTextTagJustificationSet - --- VVV Prop "language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagLanguage :: (MonadIO m, TextTagK o) => o -> m T.Text -getTextTagLanguage obj = liftIO $ getObjectPropertyString obj "language" - -setTextTagLanguage :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagLanguage obj val = liftIO $ setObjectPropertyString obj "language" val - -constructTextTagLanguage :: T.Text -> IO ([Char], GValue) -constructTextTagLanguage val = constructObjectPropertyString "language" val - -data TextTagLanguagePropertyInfo -instance AttrInfo TextTagLanguagePropertyInfo where - type AttrAllowedOps TextTagLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagLanguagePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagLanguagePropertyInfo = TextTagK - type AttrGetType TextTagLanguagePropertyInfo = T.Text - type AttrLabel TextTagLanguagePropertyInfo = "TextTag::language" - attrGet _ = getTextTagLanguage - attrSet _ = setTextTagLanguage - attrConstruct _ = constructTextTagLanguage - --- VVV Prop "language-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::language-set" - attrGet _ = getTextTagLanguageSet - attrSet _ = setTextTagLanguageSet - attrConstruct _ = constructTextTagLanguageSet - --- VVV Prop "left-margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin" - -setTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val - -constructTextTagLeftMargin :: Int32 -> IO ([Char], GValue) -constructTextTagLeftMargin val = constructObjectPropertyCInt "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 = "TextTag::left-margin" - attrGet _ = getTextTagLeftMargin - attrSet _ = setTextTagLeftMargin - attrConstruct _ = constructTextTagLeftMargin - --- VVV Prop "left-margin-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::left-margin-set" - attrGet _ = getTextTagLeftMarginSet - attrSet _ = setTextTagLeftMarginSet - attrConstruct _ = constructTextTagLeftMarginSet - --- VVV Prop "letter-spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagLetterSpacing obj = liftIO $ getObjectPropertyCInt obj "letter-spacing" - -setTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagLetterSpacing obj val = liftIO $ setObjectPropertyCInt obj "letter-spacing" val - -constructTextTagLetterSpacing :: Int32 -> IO ([Char], GValue) -constructTextTagLetterSpacing val = constructObjectPropertyCInt "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 = "TextTag::letter-spacing" - attrGet _ = getTextTagLetterSpacing - attrSet _ = setTextTagLetterSpacing - attrConstruct _ = constructTextTagLetterSpacing - --- VVV Prop "letter-spacing-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::letter-spacing-set" - attrGet _ = getTextTagLetterSpacingSet - attrSet _ = setTextTagLetterSpacingSet - attrConstruct _ = constructTextTagLetterSpacingSet - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getTextTagName :: (MonadIO m, TextTagK o) => o -> m T.Text -getTextTagName obj = liftIO $ getObjectPropertyString obj "name" - -constructTextTagName :: T.Text -> IO ([Char], GValue) -constructTextTagName val = constructObjectPropertyString "name" val - -data TextTagNamePropertyInfo -instance AttrInfo TextTagNamePropertyInfo where - type AttrAllowedOps TextTagNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagNamePropertyInfo = TextTagK - type AttrGetType TextTagNamePropertyInfo = T.Text - type AttrLabel TextTagNamePropertyInfo = "TextTag::name" - attrGet _ = getTextTagName - attrSet _ = undefined - attrConstruct _ = constructTextTagName - --- VVV Prop "paragraph-background" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setTextTagParagraphBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () -setTextTagParagraphBackground obj val = liftIO $ setObjectPropertyString obj "paragraph-background" val - -constructTextTagParagraphBackground :: T.Text -> IO ([Char], GValue) -constructTextTagParagraphBackground val = constructObjectPropertyString "paragraph-background" val - -data TextTagParagraphBackgroundPropertyInfo -instance AttrInfo TextTagParagraphBackgroundPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint TextTagParagraphBackgroundPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextTagParagraphBackgroundPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundPropertyInfo = () - type AttrLabel TextTagParagraphBackgroundPropertyInfo = "TextTag::paragraph-background" - attrGet _ = undefined - attrSet _ = setTextTagParagraphBackground - attrConstruct _ = constructTextTagParagraphBackground - --- VVV Prop "paragraph-background-gdk" - -- Type: TInterface "Gdk" "Color" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagParagraphBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) -constructTextTagParagraphBackgroundGdk val = constructObjectPropertyBoxed "paragraph-background-gdk" val - -data TextTagParagraphBackgroundGdkPropertyInfo -instance AttrInfo TextTagParagraphBackgroundGdkPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = (~) Gdk.Color - type AttrBaseTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundGdkPropertyInfo = Gdk.Color - type AttrLabel TextTagParagraphBackgroundGdkPropertyInfo = "TextTag::paragraph-background-gdk" - attrGet _ = getTextTagParagraphBackgroundGdk - attrSet _ = setTextTagParagraphBackgroundGdk - attrConstruct _ = constructTextTagParagraphBackgroundGdk - --- VVV Prop "paragraph-background-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagParagraphBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagParagraphBackgroundRgba val = constructObjectPropertyBoxed "paragraph-background-rgba" val - -data TextTagParagraphBackgroundRgbaPropertyInfo -instance AttrInfo TextTagParagraphBackgroundRgbaPropertyInfo where - type AttrAllowedOps TextTagParagraphBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = TextTagK - type AttrGetType TextTagParagraphBackgroundRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagParagraphBackgroundRgbaPropertyInfo = "TextTag::paragraph-background-rgba" - attrGet _ = getTextTagParagraphBackgroundRgba - attrSet _ = setTextTagParagraphBackgroundRgba - attrConstruct _ = constructTextTagParagraphBackgroundRgba - --- VVV Prop "paragraph-background-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::paragraph-background-set" - attrGet _ = getTextTagParagraphBackgroundSet - attrSet _ = setTextTagParagraphBackgroundSet - attrConstruct _ = constructTextTagParagraphBackgroundSet - --- VVV Prop "pixels-above-lines" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines" - -setTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val - -constructTextTagPixelsAboveLines :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsAboveLines val = constructObjectPropertyCInt "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 = "TextTag::pixels-above-lines" - attrGet _ = getTextTagPixelsAboveLines - attrSet _ = setTextTagPixelsAboveLines - attrConstruct _ = constructTextTagPixelsAboveLines - --- VVV Prop "pixels-above-lines-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::pixels-above-lines-set" - attrGet _ = getTextTagPixelsAboveLinesSet - attrSet _ = setTextTagPixelsAboveLinesSet - attrConstruct _ = constructTextTagPixelsAboveLinesSet - --- VVV Prop "pixels-below-lines" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines" - -setTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val - -constructTextTagPixelsBelowLines :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsBelowLines val = constructObjectPropertyCInt "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 = "TextTag::pixels-below-lines" - attrGet _ = getTextTagPixelsBelowLines - attrSet _ = setTextTagPixelsBelowLines - attrConstruct _ = constructTextTagPixelsBelowLines - --- VVV Prop "pixels-below-lines-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::pixels-below-lines-set" - attrGet _ = getTextTagPixelsBelowLinesSet - attrSet _ = setTextTagPixelsBelowLinesSet - attrConstruct _ = constructTextTagPixelsBelowLinesSet - --- VVV Prop "pixels-inside-wrap" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap" - -setTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val - -constructTextTagPixelsInsideWrap :: Int32 -> IO ([Char], GValue) -constructTextTagPixelsInsideWrap val = constructObjectPropertyCInt "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 = "TextTag::pixels-inside-wrap" - attrGet _ = getTextTagPixelsInsideWrap - attrSet _ = setTextTagPixelsInsideWrap - attrConstruct _ = constructTextTagPixelsInsideWrap - --- VVV Prop "pixels-inside-wrap-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::pixels-inside-wrap-set" - attrGet _ = getTextTagPixelsInsideWrapSet - attrSet _ = setTextTagPixelsInsideWrapSet - attrConstruct _ = constructTextTagPixelsInsideWrapSet - --- VVV Prop "right-margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin" - -setTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val - -constructTextTagRightMargin :: Int32 -> IO ([Char], GValue) -constructTextTagRightMargin val = constructObjectPropertyCInt "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 = "TextTag::right-margin" - attrGet _ = getTextTagRightMargin - attrSet _ = setTextTagRightMargin - attrConstruct _ = constructTextTagRightMargin - --- VVV Prop "right-margin-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::right-margin-set" - attrGet _ = getTextTagRightMarginSet - attrSet _ = setTextTagRightMarginSet - attrConstruct _ = constructTextTagRightMarginSet - --- VVV Prop "rise" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagRise :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagRise obj = liftIO $ getObjectPropertyCInt obj "rise" - -setTextTagRise :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagRise obj val = liftIO $ setObjectPropertyCInt obj "rise" val - -constructTextTagRise :: Int32 -> IO ([Char], GValue) -constructTextTagRise val = constructObjectPropertyCInt "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 = "TextTag::rise" - attrGet _ = getTextTagRise - attrSet _ = setTextTagRise - attrConstruct _ = constructTextTagRise - --- VVV Prop "rise-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::rise-set" - attrGet _ = getTextTagRiseSet - attrSet _ = setTextTagRiseSet - attrConstruct _ = constructTextTagRiseSet - --- VVV Prop "scale" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::scale" - attrGet _ = getTextTagScale - attrSet _ = setTextTagScale - attrConstruct _ = constructTextTagScale - --- VVV Prop "scale-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::scale-set" - attrGet _ = getTextTagScaleSet - attrSet _ = setTextTagScaleSet - attrConstruct _ = constructTextTagScaleSet - --- VVV Prop "size" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagSize :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagSize obj = liftIO $ getObjectPropertyCInt obj "size" - -setTextTagSize :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagSize obj val = liftIO $ setObjectPropertyCInt obj "size" val - -constructTextTagSize :: Int32 -> IO ([Char], GValue) -constructTextTagSize val = constructObjectPropertyCInt "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 = "TextTag::size" - attrGet _ = getTextTagSize - attrSet _ = setTextTagSize - attrConstruct _ = constructTextTagSize - --- VVV Prop "size-points" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::size-points" - attrGet _ = getTextTagSizePoints - attrSet _ = setTextTagSizePoints - attrConstruct _ = constructTextTagSizePoints - --- VVV Prop "size-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::size-set" - attrGet _ = getTextTagSizeSet - attrSet _ = setTextTagSizeSet - attrConstruct _ = constructTextTagSizeSet - --- VVV Prop "stretch" - -- Type: TInterface "Pango" "Stretch" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::stretch" - attrGet _ = getTextTagStretch - attrSet _ = setTextTagStretch - attrConstruct _ = constructTextTagStretch - --- VVV Prop "stretch-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::stretch-set" - attrGet _ = getTextTagStretchSet - attrSet _ = setTextTagStretchSet - attrConstruct _ = constructTextTagStretchSet - --- VVV Prop "strikethrough" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::strikethrough" - attrGet _ = getTextTagStrikethrough - attrSet _ = setTextTagStrikethrough - attrConstruct _ = constructTextTagStrikethrough - --- VVV Prop "strikethrough-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagStrikethroughRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagStrikethroughRgba val = constructObjectPropertyBoxed "strikethrough-rgba" val - -data TextTagStrikethroughRgbaPropertyInfo -instance AttrInfo TextTagStrikethroughRgbaPropertyInfo where - type AttrAllowedOps TextTagStrikethroughRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagStrikethroughRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagStrikethroughRgbaPropertyInfo = TextTagK - type AttrGetType TextTagStrikethroughRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagStrikethroughRgbaPropertyInfo = "TextTag::strikethrough-rgba" - attrGet _ = getTextTagStrikethroughRgba - attrSet _ = setTextTagStrikethroughRgba - attrConstruct _ = constructTextTagStrikethroughRgba - --- VVV Prop "strikethrough-rgba-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::strikethrough-rgba-set" - attrGet _ = getTextTagStrikethroughRgbaSet - attrSet _ = setTextTagStrikethroughRgbaSet - attrConstruct _ = constructTextTagStrikethroughRgbaSet - --- VVV Prop "strikethrough-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::strikethrough-set" - attrGet _ = getTextTagStrikethroughSet - attrSet _ = setTextTagStrikethroughSet - attrConstruct _ = constructTextTagStrikethroughSet - --- VVV Prop "style" - -- Type: TInterface "Pango" "Style" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::style" - attrGet _ = getTextTagStyle - attrSet _ = setTextTagStyle - attrConstruct _ = constructTextTagStyle - --- VVV Prop "style-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::style-set" - attrGet _ = getTextTagStyleSet - attrSet _ = setTextTagStyleSet - attrConstruct _ = constructTextTagStyleSet - --- VVV Prop "tabs" - -- Type: TInterface "Pango" "TabArray" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagTabs :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagTabs :: Pango.TabArray -> IO ([Char], GValue) -constructTextTagTabs val = constructObjectPropertyBoxed "tabs" val - -data TextTagTabsPropertyInfo -instance AttrInfo TextTagTabsPropertyInfo where - type AttrAllowedOps TextTagTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagTabsPropertyInfo = (~) Pango.TabArray - type AttrBaseTypeConstraint TextTagTabsPropertyInfo = TextTagK - type AttrGetType TextTagTabsPropertyInfo = Pango.TabArray - type AttrLabel TextTagTabsPropertyInfo = "TextTag::tabs" - attrGet _ = getTextTagTabs - attrSet _ = setTextTagTabs - attrConstruct _ = constructTextTagTabs - --- VVV Prop "tabs-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::tabs-set" - attrGet _ = getTextTagTabsSet - attrSet _ = setTextTagTabsSet - attrConstruct _ = constructTextTagTabsSet - --- VVV Prop "underline" - -- Type: TInterface "Pango" "Underline" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::underline" - attrGet _ = getTextTagUnderline - attrSet _ = setTextTagUnderline - attrConstruct _ = constructTextTagUnderline - --- VVV Prop "underline-rgba" - -- Type: TInterface "Gdk" "RGBA" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> m 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" val - -constructTextTagUnderlineRgba :: Gdk.RGBA -> IO ([Char], GValue) -constructTextTagUnderlineRgba val = constructObjectPropertyBoxed "underline-rgba" val - -data TextTagUnderlineRgbaPropertyInfo -instance AttrInfo TextTagUnderlineRgbaPropertyInfo where - type AttrAllowedOps TextTagUnderlineRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextTagUnderlineRgbaPropertyInfo = (~) Gdk.RGBA - type AttrBaseTypeConstraint TextTagUnderlineRgbaPropertyInfo = TextTagK - type AttrGetType TextTagUnderlineRgbaPropertyInfo = Gdk.RGBA - type AttrLabel TextTagUnderlineRgbaPropertyInfo = "TextTag::underline-rgba" - attrGet _ = getTextTagUnderlineRgba - attrSet _ = setTextTagUnderlineRgba - attrConstruct _ = constructTextTagUnderlineRgba - --- VVV Prop "underline-rgba-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::underline-rgba-set" - attrGet _ = getTextTagUnderlineRgbaSet - attrSet _ = setTextTagUnderlineRgbaSet - attrConstruct _ = constructTextTagUnderlineRgbaSet - --- VVV Prop "underline-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::underline-set" - attrGet _ = getTextTagUnderlineSet - attrSet _ = setTextTagUnderlineSet - attrConstruct _ = constructTextTagUnderlineSet - --- VVV Prop "variant" - -- Type: TInterface "Pango" "Variant" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::variant" - attrGet _ = getTextTagVariant - attrSet _ = setTextTagVariant - attrConstruct _ = constructTextTagVariant - --- VVV Prop "variant-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::variant-set" - attrGet _ = getTextTagVariantSet - attrSet _ = setTextTagVariantSet - attrConstruct _ = constructTextTagVariantSet - --- VVV Prop "weight" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextTagWeight :: (MonadIO m, TextTagK o) => o -> m Int32 -getTextTagWeight obj = liftIO $ getObjectPropertyCInt obj "weight" - -setTextTagWeight :: (MonadIO m, TextTagK o) => o -> Int32 -> m () -setTextTagWeight obj val = liftIO $ setObjectPropertyCInt obj "weight" val - -constructTextTagWeight :: Int32 -> IO ([Char], GValue) -constructTextTagWeight val = constructObjectPropertyCInt "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 = "TextTag::weight" - attrGet _ = getTextTagWeight - attrSet _ = setTextTagWeight - attrConstruct _ = constructTextTagWeight - --- VVV Prop "weight-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::weight-set" - attrGet _ = getTextTagWeightSet - attrSet _ = setTextTagWeightSet - attrConstruct _ = constructTextTagWeightSet - --- VVV Prop "wrap-mode" - -- Type: TInterface "Gtk" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::wrap-mode" - attrGet _ = getTextTagWrapMode - attrSet _ = setTextTagWrapMode - attrConstruct _ = constructTextTagWrapMode - --- VVV Prop "wrap-mode-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextTag::wrap-mode-set" - attrGet _ = getTextTagWrapModeSet - attrSet _ = setTextTagWrapModeSet - attrConstruct _ = constructTextTagWrapModeSet - -type instance AttributeList TextTag = TextTagAttributeList -type TextTagAttributeList = ('[ '("accumulative-margin", TextTagAccumulativeMarginPropertyInfo), '("background", TextTagBackgroundPropertyInfo), '("background-full-height", TextTagBackgroundFullHeightPropertyInfo), '("background-full-height-set", TextTagBackgroundFullHeightSetPropertyInfo), '("background-gdk", TextTagBackgroundGdkPropertyInfo), '("background-rgba", TextTagBackgroundRgbaPropertyInfo), '("background-set", TextTagBackgroundSetPropertyInfo), '("direction", TextTagDirectionPropertyInfo), '("editable", TextTagEditablePropertyInfo), '("editable-set", TextTagEditableSetPropertyInfo), '("fallback", TextTagFallbackPropertyInfo), '("fallback-set", TextTagFallbackSetPropertyInfo), '("family", TextTagFamilyPropertyInfo), '("family-set", TextTagFamilySetPropertyInfo), '("font", TextTagFontPropertyInfo), '("font-desc", TextTagFontDescPropertyInfo), '("foreground", TextTagForegroundPropertyInfo), '("foreground-gdk", TextTagForegroundGdkPropertyInfo), '("foreground-rgba", TextTagForegroundRgbaPropertyInfo), '("foreground-set", TextTagForegroundSetPropertyInfo), '("indent", TextTagIndentPropertyInfo), '("indent-set", TextTagIndentSetPropertyInfo), '("invisible", TextTagInvisiblePropertyInfo), '("invisible-set", TextTagInvisibleSetPropertyInfo), '("justification", TextTagJustificationPropertyInfo), '("justification-set", TextTagJustificationSetPropertyInfo), '("language", TextTagLanguagePropertyInfo), '("language-set", TextTagLanguageSetPropertyInfo), '("left-margin", TextTagLeftMarginPropertyInfo), '("left-margin-set", TextTagLeftMarginSetPropertyInfo), '("letter-spacing", TextTagLetterSpacingPropertyInfo), '("letter-spacing-set", TextTagLetterSpacingSetPropertyInfo), '("name", TextTagNamePropertyInfo), '("paragraph-background", TextTagParagraphBackgroundPropertyInfo), '("paragraph-background-gdk", TextTagParagraphBackgroundGdkPropertyInfo), '("paragraph-background-rgba", TextTagParagraphBackgroundRgbaPropertyInfo), '("paragraph-background-set", TextTagParagraphBackgroundSetPropertyInfo), '("pixels-above-lines", TextTagPixelsAboveLinesPropertyInfo), '("pixels-above-lines-set", TextTagPixelsAboveLinesSetPropertyInfo), '("pixels-below-lines", TextTagPixelsBelowLinesPropertyInfo), '("pixels-below-lines-set", TextTagPixelsBelowLinesSetPropertyInfo), '("pixels-inside-wrap", TextTagPixelsInsideWrapPropertyInfo), '("pixels-inside-wrap-set", TextTagPixelsInsideWrapSetPropertyInfo), '("right-margin", TextTagRightMarginPropertyInfo), '("right-margin-set", TextTagRightMarginSetPropertyInfo), '("rise", TextTagRisePropertyInfo), '("rise-set", TextTagRiseSetPropertyInfo), '("scale", TextTagScalePropertyInfo), '("scale-set", TextTagScaleSetPropertyInfo), '("size", TextTagSizePropertyInfo), '("size-points", TextTagSizePointsPropertyInfo), '("size-set", TextTagSizeSetPropertyInfo), '("stretch", TextTagStretchPropertyInfo), '("stretch-set", TextTagStretchSetPropertyInfo), '("strikethrough", TextTagStrikethroughPropertyInfo), '("strikethrough-rgba", TextTagStrikethroughRgbaPropertyInfo), '("strikethrough-rgba-set", TextTagStrikethroughRgbaSetPropertyInfo), '("strikethrough-set", TextTagStrikethroughSetPropertyInfo), '("style", TextTagStylePropertyInfo), '("style-set", TextTagStyleSetPropertyInfo), '("tabs", TextTagTabsPropertyInfo), '("tabs-set", TextTagTabsSetPropertyInfo), '("underline", TextTagUnderlinePropertyInfo), '("underline-rgba", TextTagUnderlineRgbaPropertyInfo), '("underline-rgba-set", TextTagUnderlineRgbaSetPropertyInfo), '("underline-set", TextTagUnderlineSetPropertyInfo), '("variant", TextTagVariantPropertyInfo), '("variant-set", TextTagVariantSetPropertyInfo), '("weight", TextTagWeightPropertyInfo), '("weight-set", TextTagWeightSetPropertyInfo), '("wrap-mode", TextTagWrapModePropertyInfo), '("wrap-mode-set", TextTagWrapModeSetPropertyInfo)] :: [(Symbol, *)]) - -data TextTagEventSignalInfo -instance SignalInfo TextTagEventSignalInfo where - type HaskellCallbackType TextTagEventSignalInfo = TextTagEventCallback - connectSignal _ = connectTextTagEvent - -type instance SignalList TextTag = TextTagSignalList -type TextTagSignalList = ('[ '("event", TextTagEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextTag::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- event_object - Gdk.Event -> -- event - TextIter -> -- iter - m Bool -textTagEvent _obj event_object event iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event_object' = unsafeManagedPtrCastPtr event_object - let event' = unsafeManagedPtrGetPtr event - let iter' = unsafeManagedPtrGetPtr iter - result <- gtk_text_tag_event _obj' event_object' event' iter' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event_object - touchManagedPtr event - touchManagedPtr iter - return result' - --- method TextTag::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textTagGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_tag_get_priority _obj' - touchManagedPtr _obj - return result - --- method TextTag::set_priority --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_tag_set_priority" gtk_text_tag_set_priority :: - Ptr TextTag -> -- _obj : TInterface "Gtk" "TextTag" - Int32 -> -- priority : TBasicType TInt32 - IO () - - -textTagSetPriority :: - (MonadIO m, TextTagK a) => - a -> -- _obj - Int32 -> -- priority - m () -textTagSetPriority _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_tag_set_priority _obj' priority - touchManagedPtr _obj - return () - - 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,86 +0,0 @@ -module GI.Gtk.Objects.TextTag where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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 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,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.Objects.TextTagTable - ( - --- * Exported types - TextTagTable(..) , - TextTagTableK , - toTextTagTable , - noTextTagTable , - - - -- * Methods --- ** textTagTableAdd - textTagTableAdd , - - --- ** textTagTableForeach - textTagTableForeach , - - --- ** textTagTableGetSize - textTagTableGetSize , - - --- ** textTagTableLookup - textTagTableLookup , - - --- ** textTagTableNew - textTagTableNew , - - --- ** textTagTableRemove - 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 size_changed _ = do - tag' <- (newObject TextTag) tag - let size_changed' = (/= 0) size_changed - _cb tag' size_changed' - -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), '("tag-added", TextTagTableTagAddedSignalInfo), '("tag-changed", TextTagTableTagChangedSignalInfo), '("tag-removed", TextTagTableTagRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextTagTable::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextTagTable::foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TextTagTableForeach", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -textTagTableForeach :: - (MonadIO m, TextTagTableK a) => - a -> -- _obj - TextTagTableForeach -> -- func - m () -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 () - --- method TextTagTable::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textTagTableGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_tag_table_get_size _obj' - touchManagedPtr _obj - return result - --- method TextTagTable::lookup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextTagTable::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextTagTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.TextTagTable where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,3736 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - textViewAddChildAtAnchor , - - --- ** textViewAddChildInWindow - textViewAddChildInWindow , - - --- ** textViewBackwardDisplayLine - textViewBackwardDisplayLine , - - --- ** textViewBackwardDisplayLineStart - textViewBackwardDisplayLineStart , - - --- ** textViewBufferToWindowCoords - textViewBufferToWindowCoords , - - --- ** textViewForwardDisplayLine - textViewForwardDisplayLine , - - --- ** textViewForwardDisplayLineEnd - textViewForwardDisplayLineEnd , - - --- ** textViewGetAcceptsTab - textViewGetAcceptsTab , - - --- ** textViewGetBorderWindowSize - textViewGetBorderWindowSize , - - --- ** textViewGetBuffer - textViewGetBuffer , - - --- ** textViewGetCursorLocations - textViewGetCursorLocations , - - --- ** textViewGetCursorVisible - textViewGetCursorVisible , - - --- ** textViewGetDefaultAttributes - textViewGetDefaultAttributes , - - --- ** textViewGetEditable - textViewGetEditable , - - --- ** textViewGetHadjustment - textViewGetHadjustment , - - --- ** textViewGetIndent - textViewGetIndent , - - --- ** textViewGetInputHints - textViewGetInputHints , - - --- ** textViewGetInputPurpose - textViewGetInputPurpose , - - --- ** textViewGetIterAtLocation - textViewGetIterAtLocation , - - --- ** textViewGetIterAtPosition - textViewGetIterAtPosition , - - --- ** textViewGetIterLocation - textViewGetIterLocation , - - --- ** textViewGetJustification - textViewGetJustification , - - --- ** textViewGetLeftMargin - textViewGetLeftMargin , - - --- ** textViewGetLineAtY - textViewGetLineAtY , - - --- ** textViewGetLineYrange - textViewGetLineYrange , - - --- ** textViewGetMonospace - textViewGetMonospace , - - --- ** textViewGetOverwrite - textViewGetOverwrite , - - --- ** textViewGetPixelsAboveLines - textViewGetPixelsAboveLines , - - --- ** textViewGetPixelsBelowLines - textViewGetPixelsBelowLines , - - --- ** textViewGetPixelsInsideWrap - textViewGetPixelsInsideWrap , - - --- ** textViewGetRightMargin - textViewGetRightMargin , - - --- ** textViewGetTabs - textViewGetTabs , - - --- ** textViewGetVadjustment - textViewGetVadjustment , - - --- ** textViewGetVisibleRect - textViewGetVisibleRect , - - --- ** textViewGetWindow - textViewGetWindow , - - --- ** textViewGetWindowType - textViewGetWindowType , - - --- ** textViewGetWrapMode - textViewGetWrapMode , - - --- ** textViewImContextFilterKeypress - textViewImContextFilterKeypress , - - --- ** textViewMoveChild - textViewMoveChild , - - --- ** textViewMoveMarkOnscreen - textViewMoveMarkOnscreen , - - --- ** textViewMoveVisually - textViewMoveVisually , - - --- ** textViewNew - textViewNew , - - --- ** textViewNewWithBuffer - textViewNewWithBuffer , - - --- ** textViewPlaceCursorOnscreen - textViewPlaceCursorOnscreen , - - --- ** textViewResetImContext - textViewResetImContext , - - --- ** textViewScrollMarkOnscreen - textViewScrollMarkOnscreen , - - --- ** textViewScrollToIter - textViewScrollToIter , - - --- ** textViewScrollToMark - textViewScrollToMark , - - --- ** textViewSetAcceptsTab - textViewSetAcceptsTab , - - --- ** textViewSetBorderWindowSize - textViewSetBorderWindowSize , - - --- ** textViewSetBuffer - textViewSetBuffer , - - --- ** textViewSetCursorVisible - textViewSetCursorVisible , - - --- ** textViewSetEditable - textViewSetEditable , - - --- ** textViewSetIndent - textViewSetIndent , - - --- ** textViewSetInputHints - textViewSetInputHints , - - --- ** textViewSetInputPurpose - textViewSetInputPurpose , - - --- ** textViewSetJustification - textViewSetJustification , - - --- ** textViewSetLeftMargin - textViewSetLeftMargin , - - --- ** textViewSetMonospace - textViewSetMonospace , - - --- ** textViewSetOverwrite - textViewSetOverwrite , - - --- ** textViewSetPixelsAboveLines - textViewSetPixelsAboveLines , - - --- ** textViewSetPixelsBelowLines - textViewSetPixelsBelowLines , - - --- ** textViewSetPixelsInsideWrap - textViewSetPixelsInsideWrap , - - --- ** textViewSetRightMargin - textViewSetRightMargin , - - --- ** textViewSetTabs - textViewSetTabs , - - --- ** textViewSetWrapMode - textViewSetWrapMode , - - --- ** textViewStartsDisplayLine - textViewStartsDisplayLine , - - --- ** textViewWindowToBufferCoords - textViewWindowToBufferCoords , - - - - - -- * Properties --- ** AcceptsTab - TextViewAcceptsTabPropertyInfo , - constructTextViewAcceptsTab , - getTextViewAcceptsTab , - setTextViewAcceptsTab , - - --- ** Buffer - TextViewBufferPropertyInfo , - constructTextViewBuffer , - getTextViewBuffer , - setTextViewBuffer , - - --- ** CursorVisible - TextViewCursorVisiblePropertyInfo , - constructTextViewCursorVisible , - getTextViewCursorVisible , - setTextViewCursorVisible , - - --- ** Editable - TextViewEditablePropertyInfo , - constructTextViewEditable , - getTextViewEditable , - setTextViewEditable , - - --- ** ImModule - TextViewImModulePropertyInfo , - constructTextViewImModule , - getTextViewImModule , - setTextViewImModule , - - --- ** Indent - TextViewIndentPropertyInfo , - constructTextViewIndent , - getTextViewIndent , - setTextViewIndent , - - --- ** InputHints - TextViewInputHintsPropertyInfo , - constructTextViewInputHints , - getTextViewInputHints , - setTextViewInputHints , - - --- ** InputPurpose - TextViewInputPurposePropertyInfo , - constructTextViewInputPurpose , - getTextViewInputPurpose , - setTextViewInputPurpose , - - --- ** Justification - TextViewJustificationPropertyInfo , - constructTextViewJustification , - getTextViewJustification , - setTextViewJustification , - - --- ** LeftMargin - TextViewLeftMarginPropertyInfo , - constructTextViewLeftMargin , - getTextViewLeftMargin , - setTextViewLeftMargin , - - --- ** Monospace - TextViewMonospacePropertyInfo , - constructTextViewMonospace , - getTextViewMonospace , - setTextViewMonospace , - - --- ** Overwrite - TextViewOverwritePropertyInfo , - constructTextViewOverwrite , - getTextViewOverwrite , - setTextViewOverwrite , - - --- ** PixelsAboveLines - TextViewPixelsAboveLinesPropertyInfo , - constructTextViewPixelsAboveLines , - getTextViewPixelsAboveLines , - setTextViewPixelsAboveLines , - - --- ** PixelsBelowLines - TextViewPixelsBelowLinesPropertyInfo , - constructTextViewPixelsBelowLines , - getTextViewPixelsBelowLines , - setTextViewPixelsBelowLines , - - --- ** PixelsInsideWrap - TextViewPixelsInsideWrapPropertyInfo , - constructTextViewPixelsInsideWrap , - getTextViewPixelsInsideWrap , - setTextViewPixelsInsideWrap , - - --- ** PopulateAll - TextViewPopulateAllPropertyInfo , - constructTextViewPopulateAll , - getTextViewPopulateAll , - setTextViewPopulateAll , - - --- ** RightMargin - TextViewRightMarginPropertyInfo , - constructTextViewRightMargin , - getTextViewRightMargin , - setTextViewRightMargin , - - --- ** Tabs - TextViewTabsPropertyInfo , - constructTextViewTabs , - getTextViewTabs , - setTextViewTabs , - - --- ** WrapMode - TextViewWrapModePropertyInfo , - constructTextViewWrapMode , - getTextViewWrapMode , - setTextViewWrapMode , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Atk as Atk -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk -import qualified GI.Pango as Pango -import qualified GI.Cairo as Cairo - -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 - --- 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 extend_selection _ = do - let step' = (toEnum . fromIntegral) step - let extend_selection' = (/= 0) extend_selection - _cb step' count extend_selection' - -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] - -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 = "TextView::accepts-tab" - attrGet _ = getTextViewAcceptsTab - attrSet _ = setTextViewAcceptsTab - attrConstruct _ = constructTextViewAcceptsTab - --- VVV Prop "buffer" - -- Type: TInterface "Gtk" "TextBuffer" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewBuffer :: (MonadIO m, TextViewK o) => o -> m TextBuffer -getTextViewBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" TextBuffer - -setTextViewBuffer :: (MonadIO m, TextViewK o, TextBufferK a) => o -> a -> m () -setTextViewBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val - -constructTextViewBuffer :: (TextBufferK a) => a -> IO ([Char], GValue) -constructTextViewBuffer val = constructObjectPropertyObject "buffer" val - -data TextViewBufferPropertyInfo -instance AttrInfo TextViewBufferPropertyInfo where - type AttrAllowedOps TextViewBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewBufferPropertyInfo = TextBufferK - type AttrBaseTypeConstraint TextViewBufferPropertyInfo = TextViewK - type AttrGetType TextViewBufferPropertyInfo = TextBuffer - type AttrLabel TextViewBufferPropertyInfo = "TextView::buffer" - attrGet _ = getTextViewBuffer - attrSet _ = setTextViewBuffer - attrConstruct _ = constructTextViewBuffer - --- VVV Prop "cursor-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::cursor-visible" - attrGet _ = getTextViewCursorVisible - attrSet _ = setTextViewCursorVisible - attrConstruct _ = constructTextViewCursorVisible - --- VVV Prop "editable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::editable" - attrGet _ = getTextViewEditable - attrSet _ = setTextViewEditable - attrConstruct _ = constructTextViewEditable - --- VVV Prop "im-module" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewImModule :: (MonadIO m, TextViewK o) => o -> m 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" val - -constructTextViewImModule :: T.Text -> IO ([Char], GValue) -constructTextViewImModule val = constructObjectPropertyString "im-module" val - -data TextViewImModulePropertyInfo -instance AttrInfo TextViewImModulePropertyInfo where - type AttrAllowedOps TextViewImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TextViewImModulePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TextViewImModulePropertyInfo = TextViewK - type AttrGetType TextViewImModulePropertyInfo = T.Text - type AttrLabel TextViewImModulePropertyInfo = "TextView::im-module" - attrGet _ = getTextViewImModule - attrSet _ = setTextViewImModule - attrConstruct _ = constructTextViewImModule - --- VVV Prop "indent" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewIndent :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewIndent obj = liftIO $ getObjectPropertyCInt obj "indent" - -setTextViewIndent :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val - -constructTextViewIndent :: Int32 -> IO ([Char], GValue) -constructTextViewIndent val = constructObjectPropertyCInt "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 = "TextView::indent" - attrGet _ = getTextViewIndent - attrSet _ = setTextViewIndent - attrConstruct _ = constructTextViewIndent - --- VVV Prop "input-hints" - -- Type: TInterface "Gtk" "InputHints" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::input-hints" - attrGet _ = getTextViewInputHints - attrSet _ = setTextViewInputHints - attrConstruct _ = constructTextViewInputHints - --- VVV Prop "input-purpose" - -- Type: TInterface "Gtk" "InputPurpose" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::input-purpose" - attrGet _ = getTextViewInputPurpose - attrSet _ = setTextViewInputPurpose - attrConstruct _ = constructTextViewInputPurpose - --- VVV Prop "justification" - -- Type: TInterface "Gtk" "Justification" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::justification" - attrGet _ = getTextViewJustification - attrSet _ = setTextViewJustification - attrConstruct _ = constructTextViewJustification - --- VVV Prop "left-margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin" - -setTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val - -constructTextViewLeftMargin :: Int32 -> IO ([Char], GValue) -constructTextViewLeftMargin val = constructObjectPropertyCInt "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 = "TextView::left-margin" - attrGet _ = getTextViewLeftMargin - attrSet _ = setTextViewLeftMargin - attrConstruct _ = constructTextViewLeftMargin - --- VVV Prop "monospace" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::monospace" - attrGet _ = getTextViewMonospace - attrSet _ = setTextViewMonospace - attrConstruct _ = constructTextViewMonospace - --- VVV Prop "overwrite" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::overwrite" - attrGet _ = getTextViewOverwrite - attrSet _ = setTextViewOverwrite - attrConstruct _ = constructTextViewOverwrite - --- VVV Prop "pixels-above-lines" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines" - -setTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val - -constructTextViewPixelsAboveLines :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsAboveLines val = constructObjectPropertyCInt "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 = "TextView::pixels-above-lines" - attrGet _ = getTextViewPixelsAboveLines - attrSet _ = setTextViewPixelsAboveLines - attrConstruct _ = constructTextViewPixelsAboveLines - --- VVV Prop "pixels-below-lines" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines" - -setTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val - -constructTextViewPixelsBelowLines :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsBelowLines val = constructObjectPropertyCInt "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 = "TextView::pixels-below-lines" - attrGet _ = getTextViewPixelsBelowLines - attrSet _ = setTextViewPixelsBelowLines - attrConstruct _ = constructTextViewPixelsBelowLines - --- VVV Prop "pixels-inside-wrap" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap" - -setTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val - -constructTextViewPixelsInsideWrap :: Int32 -> IO ([Char], GValue) -constructTextViewPixelsInsideWrap val = constructObjectPropertyCInt "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 = "TextView::pixels-inside-wrap" - attrGet _ = getTextViewPixelsInsideWrap - attrSet _ = setTextViewPixelsInsideWrap - attrConstruct _ = constructTextViewPixelsInsideWrap - --- VVV Prop "populate-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::populate-all" - attrGet _ = getTextViewPopulateAll - attrSet _ = setTextViewPopulateAll - attrConstruct _ = constructTextViewPopulateAll - --- VVV Prop "right-margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> m Int32 -getTextViewRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin" - -setTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () -setTextViewRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val - -constructTextViewRightMargin :: Int32 -> IO ([Char], GValue) -constructTextViewRightMargin val = constructObjectPropertyCInt "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 = "TextView::right-margin" - attrGet _ = getTextViewRightMargin - attrSet _ = setTextViewRightMargin - attrConstruct _ = constructTextViewRightMargin - --- VVV Prop "tabs" - -- Type: TInterface "Pango" "TabArray" - -- Flags: [PropertyReadable,PropertyWritable] - -getTextViewTabs :: (MonadIO m, TextViewK o) => o -> m 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" val - -constructTextViewTabs :: Pango.TabArray -> IO ([Char], GValue) -constructTextViewTabs val = constructObjectPropertyBoxed "tabs" 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 = Pango.TabArray - type AttrLabel TextViewTabsPropertyInfo = "TextView::tabs" - attrGet _ = getTextViewTabs - attrSet _ = setTextViewTabs - attrConstruct _ = constructTextViewTabs - --- VVV Prop "wrap-mode" - -- Type: TInterface "Gtk" "WrapMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TextView::wrap-mode" - attrGet _ = getTextViewWrapMode - attrSet _ = setTextViewWrapMode - attrConstruct _ = constructTextViewWrapMode - -type instance AttributeList TextView = TextViewAttributeList -type TextViewAttributeList = ('[ '("accepts-tab", TextViewAcceptsTabPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("buffer", TextViewBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-visible", TextViewCursorVisiblePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", TextViewEditablePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("im-module", TextViewImModulePropertyInfo), '("indent", TextViewIndentPropertyInfo), '("input-hints", TextViewInputHintsPropertyInfo), '("input-purpose", TextViewInputPurposePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justification", TextViewJustificationPropertyInfo), '("left-margin", TextViewLeftMarginPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monospace", TextViewMonospacePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite", TextViewOverwritePropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixels-above-lines", TextViewPixelsAboveLinesPropertyInfo), '("pixels-below-lines", TextViewPixelsBelowLinesPropertyInfo), '("pixels-inside-wrap", TextViewPixelsInsideWrapPropertyInfo), '("populate-all", TextViewPopulateAllPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-margin", TextViewRightMarginPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", TextViewTabsPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-mode", TextViewWrapModePropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("backspace", TextViewBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", TextViewCopyClipboardSignalInfo), '("cut-clipboard", TextViewCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", TextViewDeleteFromCursorSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("extend-selection", TextViewExtendSelectionSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert-at-cursor", TextViewInsertAtCursorSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", TextViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-viewport", TextViewMoveViewportSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", TextViewPasteClipboardSignalInfo), '("populate-popup", TextViewPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", TextViewPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", TextViewSelectAllSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-anchor", TextViewSetAnchorSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-visible", TextViewToggleCursorVisibleSignalInfo), '("toggle-overwrite", TextViewToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TextView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "anchor", argType = TInterface "Gtk" "TextChildAnchor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextView::add_child_in_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "which_window", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- ypos : TBasicType TInt32 - IO () - - -textViewAddChildInWindow :: - (MonadIO m, TextViewK a, WidgetK b) => - a -> -- _obj - b -> -- child - TextWindowType -> -- which_window - Int32 -> -- xpos - Int32 -> -- ypos - m () -textViewAddChildInWindow _obj child which_window xpos ypos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let which_window' = (fromIntegral . fromEnum) which_window - gtk_text_view_add_child_in_window _obj' child' which_window' xpos ypos - touchManagedPtr _obj - touchManagedPtr child - return () - --- method TextView::backward_display_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::backward_display_line_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::buffer_to_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- buffer_y : TBasicType TInt32 - Ptr Int32 -> -- window_x : TBasicType TInt32 - Ptr Int32 -> -- window_y : TBasicType TInt32 - IO () - - -textViewBufferToWindowCoords :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextWindowType -> -- win - Int32 -> -- buffer_x - Int32 -> -- buffer_y - m (Int32,Int32) -textViewBufferToWindowCoords _obj win buffer_x buffer_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let win' = (fromIntegral . fromEnum) win - window_x <- allocMem :: IO (Ptr Int32) - window_y <- allocMem :: IO (Ptr Int32) - gtk_text_view_buffer_to_window_coords _obj' win' buffer_x buffer_y window_x window_y - window_x' <- peek window_x - window_y' <- peek window_y - touchManagedPtr _obj - freeMem window_x - freeMem window_y - return (window_x', window_y') - --- method TextView::forward_display_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::forward_display_line_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_accepts_tab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textViewGetAcceptsTab _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_accepts_tab _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_border_window_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method TextView::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_cursor_locations --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weak", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- strong : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- weak : TInterface "cairo" "RectangleInt" - IO () - - -textViewGetCursorLocations :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Maybe (TextIter) -> -- iter - m (Cairo.RectangleInt,Cairo.RectangleInt) -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 Cairo.RectangleInt) - weak <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_text_view_get_cursor_locations _obj' maybeIter strong weak - strong' <- (wrapBoxed Cairo.RectangleInt) strong - weak' <- (wrapBoxed Cairo.RectangleInt) weak - touchManagedPtr _obj - whenJust iter touchManagedPtr - return (strong', weak') - --- method TextView::get_cursor_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textViewGetCursorVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_cursor_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_default_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textViewGetEditable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_editable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_indent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textViewGetIndent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_indent _obj' - touchManagedPtr _obj - return result - --- method TextView::get_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -textViewGetInputHints _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_input_hints _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method TextView::get_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_iter_at_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -textViewGetIterAtLocation :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (TextIter) -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' - --- method TextView::get_iter_at_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -textViewGetIterAtPosition :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (TextIter,Int32) -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') - --- method TextView::get_iter_location --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- location : TInterface "cairo" "RectangleInt" - IO () - - -textViewGetIterLocation :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m (Cairo.RectangleInt) -textViewGetIterLocation _obj iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - location <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_text_view_get_iter_location _obj' iter' location - location' <- (wrapBoxed Cairo.RectangleInt) location - touchManagedPtr _obj - touchManagedPtr iter - return location' - --- method TextView::get_justification --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textViewGetJustification _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_justification _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method TextView::get_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textViewGetLeftMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_left_margin _obj' - touchManagedPtr _obj - return result - --- method TextView::get_line_at_y --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_iter", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_top", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- line_top : TBasicType TInt32 - IO () - - -textViewGetLineAtY :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- y - m (TextIter,Int32) -textViewGetLineAtY _obj y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - target_iter <- callocBoxedBytes 80 :: IO (Ptr TextIter) - line_top <- allocMem :: IO (Ptr Int32) - gtk_text_view_get_line_at_y _obj' target_iter y line_top - target_iter' <- (wrapBoxed TextIter) target_iter - line_top' <- peek line_top - touchManagedPtr _obj - freeMem line_top - return (target_iter', line_top') - --- method TextView::get_line_yrange --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -textViewGetLineYrange :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - m (Int32,Int32) -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') - --- method TextView::get_monospace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textViewGetMonospace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_monospace _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_overwrite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textViewGetOverwrite _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_overwrite _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::get_pixels_above_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textViewGetPixelsAboveLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_above_lines _obj' - touchManagedPtr _obj - return result - --- method TextView::get_pixels_below_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textViewGetPixelsBelowLines _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_below_lines _obj' - touchManagedPtr _obj - return result - --- method TextView::get_pixels_inside_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textViewGetPixelsInsideWrap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_pixels_inside_wrap _obj' - touchManagedPtr _obj - return result - --- method TextView::get_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textViewGetRightMargin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_get_right_margin _obj' - touchManagedPtr _obj - return result - --- method TextView::get_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_visible_rect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- visible_rect : TInterface "cairo" "RectangleInt" - IO () - - -textViewGetVisibleRect :: - (MonadIO m, TextViewK a) => - a -> -- _obj - m (Cairo.RectangleInt) -textViewGetVisibleRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - visible_rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_text_view_get_visible_rect _obj' visible_rect - visible_rect' <- (wrapBoxed Cairo.RectangleInt) visible_rect - touchManagedPtr _obj - return visible_rect' - --- method TextView::get_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_window_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::get_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::im_context_filter_keypress --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::move_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xpos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ypos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_move_child" gtk_text_view_move_child :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Ptr Widget -> -- child : TInterface "Gtk" "Widget" - Int32 -> -- xpos : TBasicType TInt32 - Int32 -> -- ypos : TBasicType TInt32 - IO () - - -textViewMoveChild :: - (MonadIO m, TextViewK a, WidgetK b) => - a -> -- _obj - b -> -- child - Int32 -> -- xpos - Int32 -> -- ypos - m () -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 () - --- method TextView::move_mark_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::move_visually --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textViewMoveVisually :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextIter -> -- iter - Int32 -> -- count - m Bool -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' - --- method TextView::place_cursor_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textViewPlaceCursorOnscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_text_view_place_cursor_onscreen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextView::reset_im_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textViewResetImContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_reset_im_context _obj' - touchManagedPtr _obj - return () - --- method TextView::scroll_mark_onscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextView::scroll_to_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- within_margin - Bool -> -- use_align - Double -> -- xalign - Double -> -- yalign - m Bool -textViewScrollToIter _obj iter within_margin use_align xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let iter' = unsafeManagedPtrGetPtr iter - let within_margin' = realToFrac within_margin - let use_align' = (fromIntegral . fromEnum) use_align - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - result <- gtk_text_view_scroll_to_iter _obj' iter' within_margin' use_align' xalign' yalign' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr iter - return result' - --- method TextView::scroll_to_mark --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mark", argType = TInterface "Gtk" "TextMark", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "within_margin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "yalign", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- within_margin - Bool -> -- use_align - Double -> -- xalign - Double -> -- yalign - m () -textViewScrollToMark _obj mark within_margin use_align xalign yalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mark' = unsafeManagedPtrCastPtr mark - let within_margin' = realToFrac within_margin - let use_align' = (fromIntegral . fromEnum) use_align - let xalign' = realToFrac xalign - let yalign' = realToFrac yalign - gtk_text_view_scroll_to_mark _obj' mark' within_margin' use_align' xalign' yalign' - touchManagedPtr _obj - touchManagedPtr mark - return () - --- method TextView::set_accepts_tab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepts_tab", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepts_tab", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- accepts_tab - m () -textViewSetAcceptsTab _obj accepts_tab = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accepts_tab' = (fromIntegral . fromEnum) accepts_tab - gtk_text_view_set_accepts_tab _obj' accepts_tab' - touchManagedPtr _obj - return () - --- method TextView::set_border_window_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -textViewSetBorderWindowSize :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextWindowType -> -- type - Int32 -> -- size - m () -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 () - --- method TextView::set_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextView::set_cursor_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextView::set_editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textViewSetEditable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_text_view_set_editable _obj' setting' - touchManagedPtr _obj - return () - --- method TextView::set_indent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_indent" gtk_text_view_set_indent :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- indent : TBasicType TInt32 - IO () - - -textViewSetIndent :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- indent - m () -textViewSetIndent _obj indent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_indent _obj' indent - touchManagedPtr _obj - return () - --- method TextView::set_input_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hints", argType = TInterface "Gtk" "InputHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textViewSetInputHints _obj hints = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hints' = gflagsToWord hints - gtk_text_view_set_input_hints _obj' hints' - touchManagedPtr _obj - return () - --- method TextView::set_input_purpose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "purpose", argType = TInterface "Gtk" "InputPurpose", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextView::set_justification --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justification", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justification", argType = TInterface "Gtk" "Justification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textViewSetJustification _obj justification = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let justification' = (fromIntegral . fromEnum) justification - gtk_text_view_set_justification _obj' justification' - touchManagedPtr _obj - return () - --- method TextView::set_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_left_margin" gtk_text_view_set_left_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- left_margin : TBasicType TInt32 - IO () - - -textViewSetLeftMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- left_margin - m () -textViewSetLeftMargin _obj left_margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_left_margin _obj' left_margin - touchManagedPtr _obj - return () - --- method TextView::set_monospace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monospace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monospace", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textViewSetMonospace _obj monospace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let monospace' = (fromIntegral . fromEnum) monospace - gtk_text_view_set_monospace _obj' monospace' - touchManagedPtr _obj - return () - --- method TextView::set_overwrite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textViewSetOverwrite _obj overwrite = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overwrite' = (fromIntegral . fromEnum) overwrite - gtk_text_view_set_overwrite _obj' overwrite' - touchManagedPtr _obj - return () - --- method TextView::set_pixels_above_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_above_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_above_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_pixels_above_lines" gtk_text_view_set_pixels_above_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_above_lines : TBasicType TInt32 - IO () - - -textViewSetPixelsAboveLines :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- pixels_above_lines - m () -textViewSetPixelsAboveLines _obj pixels_above_lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_above_lines _obj' pixels_above_lines - touchManagedPtr _obj - return () - --- method TextView::set_pixels_below_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_below_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_below_lines", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_pixels_below_lines" gtk_text_view_set_pixels_below_lines :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_below_lines : TBasicType TInt32 - IO () - - -textViewSetPixelsBelowLines :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- pixels_below_lines - m () -textViewSetPixelsBelowLines _obj pixels_below_lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_below_lines _obj' pixels_below_lines - touchManagedPtr _obj - return () - --- method TextView::set_pixels_inside_wrap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_inside_wrap", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixels_inside_wrap", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_pixels_inside_wrap" gtk_text_view_set_pixels_inside_wrap :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- pixels_inside_wrap : TBasicType TInt32 - IO () - - -textViewSetPixelsInsideWrap :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- pixels_inside_wrap - m () -textViewSetPixelsInsideWrap _obj pixels_inside_wrap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_pixels_inside_wrap _obj' pixels_inside_wrap - touchManagedPtr _obj - return () - --- method TextView::set_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right_margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_view_set_right_margin" gtk_text_view_set_right_margin :: - Ptr TextView -> -- _obj : TInterface "Gtk" "TextView" - Int32 -> -- right_margin : TBasicType TInt32 - IO () - - -textViewSetRightMargin :: - (MonadIO m, TextViewK a) => - a -> -- _obj - Int32 -> -- right_margin - m () -textViewSetRightMargin _obj right_margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_text_view_set_right_margin _obj' right_margin - touchManagedPtr _obj - return () - --- method TextView::set_tabs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextView::set_wrap_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap_mode", argType = TInterface "Gtk" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- wrap_mode - m () -textViewSetWrapMode _obj wrap_mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let wrap_mode' = (fromIntegral . fromEnum) wrap_mode - gtk_text_view_set_wrap_mode _obj' wrap_mode' - touchManagedPtr _obj - return () - --- method TextView::starts_display_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextView::window_to_buffer_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "buffer_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win", argType = TInterface "Gtk" "TextWindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- window_y : TBasicType TInt32 - Ptr Int32 -> -- buffer_x : TBasicType TInt32 - Ptr Int32 -> -- buffer_y : TBasicType TInt32 - IO () - - -textViewWindowToBufferCoords :: - (MonadIO m, TextViewK a) => - a -> -- _obj - TextWindowType -> -- win - Int32 -> -- window_x - Int32 -> -- window_y - m (Int32,Int32) -textViewWindowToBufferCoords _obj win window_x window_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let win' = (fromIntegral . fromEnum) win - buffer_x <- allocMem :: IO (Ptr Int32) - buffer_y <- allocMem :: IO (Ptr Int32) - gtk_text_view_window_to_buffer_coords _obj' win' window_x window_y buffer_x buffer_y - buffer_x' <- peek buffer_x - buffer_y' <- peek buffer_y - touchManagedPtr _obj - freeMem buffer_x - freeMem buffer_y - return (buffer_x', buffer_y') - - 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,47 +0,0 @@ -module GI.Gtk.Objects.TextView where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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 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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList TextViewAccessible = TextViewAccessibleAttributeList -type TextViewAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TextViewAccessible = TextViewAccessibleSignalList -type TextViewAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,724 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - themingEngineGetBackgroundColor , - - --- ** themingEngineGetBorder - themingEngineGetBorder , - - --- ** themingEngineGetBorderColor - themingEngineGetBorderColor , - - --- ** themingEngineGetColor - themingEngineGetColor , - - --- ** themingEngineGetDirection - themingEngineGetDirection , - - --- ** themingEngineGetFont - themingEngineGetFont , - - --- ** themingEngineGetJunctionSides - themingEngineGetJunctionSides , - - --- ** themingEngineGetMargin - themingEngineGetMargin , - - --- ** themingEngineGetPadding - themingEngineGetPadding , - - --- ** themingEngineGetPath - themingEngineGetPath , - - --- ** themingEngineGetProperty - themingEngineGetProperty , - - --- ** themingEngineGetScreen - themingEngineGetScreen , - - --- ** themingEngineGetState - themingEngineGetState , - - --- ** themingEngineGetStyleProperty - themingEngineGetStyleProperty , - - --- ** themingEngineHasClass - themingEngineHasClass , - - --- ** themingEngineHasRegion - themingEngineHasRegion , - - --- ** themingEngineLoad - themingEngineLoad , - - --- ** themingEngineLookupColor - themingEngineLookupColor , - - --- ** themingEngineStateIsRunning - themingEngineStateIsRunning , - - - - - -- * Properties --- ** Name - ThemingEngineNamePropertyInfo , - constructThemingEngineName , - getThemingEngineName , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getThemingEngineName :: (MonadIO m, ThemingEngineK o) => o -> m T.Text -getThemingEngineName obj = liftIO $ getObjectPropertyString obj "name" - -constructThemingEngineName :: T.Text -> IO ([Char], GValue) -constructThemingEngineName val = constructObjectPropertyString "name" val - -data ThemingEngineNamePropertyInfo -instance AttrInfo ThemingEngineNamePropertyInfo where - type AttrAllowedOps ThemingEngineNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ThemingEngineNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ThemingEngineNamePropertyInfo = ThemingEngineK - type AttrGetType ThemingEngineNamePropertyInfo = T.Text - type AttrLabel ThemingEngineNamePropertyInfo = "ThemingEngine::name" - attrGet _ = getThemingEngineName - attrSet _ = undefined - attrConstruct _ = constructThemingEngineName - -type instance AttributeList ThemingEngine = ThemingEngineAttributeList -type ThemingEngineAttributeList = ('[ '("name", ThemingEngineNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ThemingEngine = ThemingEngineSignalList -type ThemingEngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ThemingEngine::get_background_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method ThemingEngine::get_border --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "border", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method ThemingEngine::get_border_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method ThemingEngine::get_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method ThemingEngine::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -themingEngineGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_theming_engine_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method ThemingEngine::get_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ThemingEngine::get_junction_sides --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -themingEngineGetJunctionSides _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_theming_engine_get_junction_sides _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method ThemingEngine::get_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method ThemingEngine::get_padding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "padding", argType = TInterface "Gtk" "Border", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method ThemingEngine::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method ThemingEngine::get_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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) -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' - --- method ThemingEngine::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ThemingEngine::get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "StateFlags" --- throws : False --- Skip return : False - -foreign import ccall "gtk_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] -themingEngineGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_theming_engine_get_state _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method ThemingEngine::get_style_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- property_name - m (GValue) -themingEngineGetStyleProperty _obj property_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - gtk_theming_engine_get_style_property _obj' property_name' value - value' <- (wrapBoxed GValue) value - touchManagedPtr _obj - freeMem property_name' - return value' - --- method ThemingEngine::has_class --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- style_class - m Bool -themingEngineHasClass _obj style_class = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - style_class' <- textToCString style_class - result <- gtk_theming_engine_has_class _obj' style_class' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem style_class' - return result' - --- method ThemingEngine::has_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style_region", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- style_region - m (Bool,[RegionFlags]) -themingEngineHasRegion _obj style_region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - style_region' <- textToCString style_region - flags <- allocMem :: IO (Ptr CUInt) - result <- gtk_theming_engine_has_region _obj' style_region' flags - let result' = (/= 0) result - flags' <- peek flags - let flags'' = wordToGFlags flags' - touchManagedPtr _obj - freeMem style_region' - freeMem flags - return (result', flags'') - --- method ThemingEngine::lookup_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- color_name - m (Bool,Gdk.RGBA) -themingEngineLookupColor _obj color_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - color_name' <- textToCString color_name - color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_theming_engine_lookup_color _obj' color_name' color - let result' = (/= 0) result - color' <- (wrapBoxed Gdk.RGBA) color - touchManagedPtr _obj - freeMem color_name' - return (result', color') - --- method ThemingEngine::state_is_running --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "progress", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ThemingEngine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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'') - --- method ThemingEngine::load --- method type : MemberFunction --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "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 -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,14 +0,0 @@ -module GI.Gtk.Objects.ThemingEngine where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ThemingEngine = ThemingEngine (ForeignPtr ThemingEngine) -instance GObject ThemingEngine where -class GObject o => ThemingEngineK o -instance (GObject o, IsDescendantOf ThemingEngine o) => ThemingEngineK o -data ThemingEngineNamePropertyInfo 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,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.ToggleAction - ( - --- * Exported types - ToggleAction(..) , - ToggleActionK , - toToggleAction , - noToggleAction , - - - -- * Methods --- ** toggleActionGetActive - toggleActionGetActive , - - --- ** toggleActionGetDrawAsRadio - toggleActionGetDrawAsRadio , - - --- ** toggleActionNew - toggleActionNew , - - --- ** toggleActionSetActive - toggleActionSetActive , - - --- ** toggleActionSetDrawAsRadio - toggleActionSetDrawAsRadio , - - --- ** toggleActionToggled - toggleActionToggled , - - - - - -- * Properties --- ** Active - ToggleActionActivePropertyInfo , - constructToggleActionActive , - getToggleActionActive , - setToggleActionActive , - - --- ** DrawAsRadio - ToggleActionDrawAsRadioPropertyInfo , - constructToggleActionDrawAsRadio , - getToggleActionDrawAsRadio , - setToggleActionDrawAsRadio , - - - - - -- * Signals --- ** Toggled - ToggleActionToggledCallback , - ToggleActionToggledCallbackC , - ToggleActionToggledSignalInfo , - afterToggleActionToggled , - mkToggleActionToggledCallback , - noToggleActionToggledCallback , - onToggleActionToggled , - toggleActionToggledCallbackWrapper , - toggleActionToggledClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "ToggleAction::active" - attrGet _ = getToggleActionActive - attrSet _ = setToggleActionActive - attrConstruct _ = constructToggleActionActive - --- VVV Prop "draw-as-radio" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToggleAction::draw-as-radio" - attrGet _ = getToggleActionDrawAsRadio - attrSet _ = setToggleActionDrawAsRadio - attrConstruct _ = constructToggleActionDrawAsRadio - -type instance AttributeList ToggleAction = ToggleActionAttributeList -type ToggleActionAttributeList = ('[ '("action-group", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("draw-as-radio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] :: [(Symbol, *)]) - -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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ToggleAction::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- stock_id - m ToggleAction -toggleActionNew name label tooltip stock_id = 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' - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - result <- gtk_toggle_action_new name' maybeLabel maybeTooltip maybeStock_id - checkUnexpectedReturnNULL "gtk_toggle_action_new" result - result' <- (wrapObject ToggleAction) result - freeMem name' - freeMem maybeLabel - freeMem maybeTooltip - freeMem maybeStock_id - return result' - --- method ToggleAction::get_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toggleActionGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_action_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToggleAction::get_draw_as_radio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToggleAction::set_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_active - m () -toggleActionSetActive _obj is_active = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_toggle_action_set_active _obj' is_active' - touchManagedPtr _obj - return () - --- method ToggleAction::set_draw_as_radio --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_as_radio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- draw_as_radio - m () -toggleActionSetDrawAsRadio _obj draw_as_radio = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let draw_as_radio' = (fromIntegral . fromEnum) draw_as_radio - gtk_toggle_action_set_draw_as_radio _obj' draw_as_radio' - touchManagedPtr _obj - return () - --- method ToggleAction::toggled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toggleActionToggled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_toggle_action_toggled _obj' - touchManagedPtr _obj - return () - - 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,16 +0,0 @@ -module GI.Gtk.Objects.ToggleAction where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.ToggleButton - ( - --- * Exported types - ToggleButton(..) , - ToggleButtonK , - toToggleButton , - noToggleButton , - - - -- * Methods --- ** toggleButtonGetActive - toggleButtonGetActive , - - --- ** toggleButtonGetInconsistent - toggleButtonGetInconsistent , - - --- ** toggleButtonGetMode - toggleButtonGetMode , - - --- ** toggleButtonNew - toggleButtonNew , - - --- ** toggleButtonNewWithLabel - toggleButtonNewWithLabel , - - --- ** toggleButtonNewWithMnemonic - toggleButtonNewWithMnemonic , - - --- ** toggleButtonSetActive - toggleButtonSetActive , - - --- ** toggleButtonSetInconsistent - toggleButtonSetInconsistent , - - --- ** toggleButtonSetMode - toggleButtonSetMode , - - --- ** toggleButtonToggled - toggleButtonToggled , - - - - - -- * Properties --- ** Active - ToggleButtonActivePropertyInfo , - constructToggleButtonActive , - getToggleButtonActive , - setToggleButtonActive , - - --- ** DrawIndicator - ToggleButtonDrawIndicatorPropertyInfo , - constructToggleButtonDrawIndicator , - getToggleButtonDrawIndicator , - setToggleButtonDrawIndicator , - - --- ** Inconsistent - ToggleButtonInconsistentPropertyInfo , - constructToggleButtonInconsistent , - getToggleButtonInconsistent , - setToggleButtonInconsistent , - - - - - -- * Signals --- ** Toggled - ToggleButtonToggledCallback , - ToggleButtonToggledCallbackC , - ToggleButtonToggledSignalInfo , - afterToggleButtonToggled , - mkToggleButtonToggledCallback , - noToggleButtonToggledCallback , - onToggleButtonToggled , - toggleButtonToggledCallbackWrapper , - toggleButtonToggledClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "ToggleButton::active" - attrGet _ = getToggleButtonActive - attrSet _ = setToggleButtonActive - attrConstruct _ = constructToggleButtonActive - --- VVV Prop "draw-indicator" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToggleButton::draw-indicator" - attrGet _ = getToggleButtonDrawIndicator - attrSet _ = setToggleButtonDrawIndicator - attrConstruct _ = constructToggleButtonDrawIndicator - --- VVV Prop "inconsistent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToggleButton::inconsistent" - attrGet _ = getToggleButtonInconsistent - attrSet _ = setToggleButtonInconsistent - attrConstruct _ = constructToggleButtonInconsistent - -type instance AttributeList ToggleButton = ToggleButtonAttributeList -type ToggleButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -data ToggleButtonToggledSignalInfo -instance SignalInfo ToggleButtonToggledSignalInfo where - type HaskellCallbackType ToggleButtonToggledSignalInfo = ToggleButtonToggledCallback - connectSignal _ = connectToggleButtonToggled - -type instance SignalList ToggleButton = ToggleButtonSignalList -type ToggleButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ToggleButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toggleButtonGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_button_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToggleButton::get_inconsistent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toggleButtonGetInconsistent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_button_get_inconsistent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToggleButton::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toggleButtonGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_button_get_mode _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToggleButton::set_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_active - m () -toggleButtonSetActive _obj is_active = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_toggle_button_set_active _obj' is_active' - touchManagedPtr _obj - return () - --- method ToggleButton::set_inconsistent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toggleButtonSetInconsistent _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_toggle_button_set_inconsistent _obj' setting' - touchManagedPtr _obj - return () - --- method ToggleButton::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_indicator", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "draw_indicator", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- draw_indicator - m () -toggleButtonSetMode _obj draw_indicator = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let draw_indicator' = (fromIntegral . fromEnum) draw_indicator - gtk_toggle_button_set_mode _obj' draw_indicator' - touchManagedPtr _obj - return () - --- method ToggleButton::toggled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toggleButtonToggled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_toggle_button_toggled _obj' - touchManagedPtr _obj - return () - - 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,17 +0,0 @@ -module GI.Gtk.Objects.ToggleButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ToggleButtonAccessible = ToggleButtonAccessibleAttributeList -type ToggleButtonAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ToggleButtonAccessible = ToggleButtonAccessibleSignalList -type ToggleButtonAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,270 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - toggleToolButtonGetActive , - - --- ** toggleToolButtonNew - toggleToolButtonNew , - - --- ** toggleToolButtonNewFromStock - toggleToolButtonNewFromStock , - - --- ** toggleToolButtonSetActive - toggleToolButtonSetActive , - - - - - -- * Properties --- ** Active - ToggleToolButtonActivePropertyInfo , - constructToggleToolButtonActive , - getToggleToolButtonActive , - setToggleToolButtonActive , - - - - - -- * Signals --- ** Toggled - ToggleToolButtonToggledCallback , - ToggleToolButtonToggledCallbackC , - ToggleToolButtonToggledSignalInfo , - afterToggleToolButtonToggled , - mkToggleToolButtonToggledCallback , - noToggleToolButtonToggledCallback , - onToggleToolButtonToggled , - toggleToolButtonToggledCallbackWrapper , - toggleToolButtonToggledClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "ToggleToolButton::active" - attrGet _ = getToggleToolButtonActive - attrSet _ = setToggleToolButtonActive - attrConstruct _ = constructToggleToolButtonActive - -type instance AttributeList ToggleToolButton = ToggleToolButtonAttributeList -type ToggleToolButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data ToggleToolButtonToggledSignalInfo -instance SignalInfo ToggleToolButtonToggledSignalInfo where - type HaskellCallbackType ToggleToolButtonToggledSignalInfo = ToggleToolButtonToggledCallback - connectSignal _ = connectToggleToolButtonToggled - -type instance SignalList ToggleToolButton = ToggleToolButtonSignalList -type ToggleToolButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ToggleToolButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- stock_id - m ToggleToolButton -toggleToolButtonNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_toggle_tool_button_new_from_stock stock_id' - checkUnexpectedReturnNULL "gtk_toggle_tool_button_new_from_stock" result - result' <- (newObject ToggleToolButton) result - freeMem stock_id' - return result' - --- method ToggleToolButton::get_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toggleToolButtonGetActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toggle_tool_button_get_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToggleToolButton::set_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToggleToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_active", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_active - m () -toggleToolButtonSetActive _obj is_active = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_active' = (fromIntegral . fromEnum) is_active - gtk_toggle_tool_button_set_active _obj' is_active' - touchManagedPtr _obj - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.ToggleToolButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,771 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - toolButtonGetIconName , - - --- ** toolButtonGetIconWidget - toolButtonGetIconWidget , - - --- ** toolButtonGetLabel - toolButtonGetLabel , - - --- ** toolButtonGetLabelWidget - toolButtonGetLabelWidget , - - --- ** toolButtonGetStockId - toolButtonGetStockId , - - --- ** toolButtonGetUseUnderline - toolButtonGetUseUnderline , - - --- ** toolButtonNew - toolButtonNew , - - --- ** toolButtonNewFromStock - toolButtonNewFromStock , - - --- ** toolButtonSetIconName - toolButtonSetIconName , - - --- ** toolButtonSetIconWidget - toolButtonSetIconWidget , - - --- ** toolButtonSetLabel - toolButtonSetLabel , - - --- ** toolButtonSetLabelWidget - toolButtonSetLabelWidget , - - --- ** toolButtonSetStockId - toolButtonSetStockId , - - --- ** toolButtonSetUseUnderline - toolButtonSetUseUnderline , - - - - - -- * Properties --- ** IconName - ToolButtonIconNamePropertyInfo , - constructToolButtonIconName , - getToolButtonIconName , - setToolButtonIconName , - - --- ** IconWidget - ToolButtonIconWidgetPropertyInfo , - constructToolButtonIconWidget , - getToolButtonIconWidget , - setToolButtonIconWidget , - - --- ** Label - ToolButtonLabelPropertyInfo , - constructToolButtonLabel , - getToolButtonLabel , - setToolButtonLabel , - - --- ** LabelWidget - ToolButtonLabelWidgetPropertyInfo , - constructToolButtonLabelWidget , - getToolButtonLabelWidget , - setToolButtonLabelWidget , - - --- ** StockId - ToolButtonStockIdPropertyInfo , - constructToolButtonStockId , - getToolButtonStockId , - setToolButtonStockId , - - --- ** UseUnderline - ToolButtonUseUnderlinePropertyInfo , - constructToolButtonUseUnderline , - getToolButtonUseUnderline , - setToolButtonUseUnderline , - - - - - -- * Signals --- ** Clicked - ToolButtonClickedCallback , - ToolButtonClickedCallbackC , - ToolButtonClickedSignalInfo , - afterToolButtonClicked , - mkToolButtonClickedCallback , - noToolButtonClickedCallback , - onToolButtonClicked , - toolButtonClickedCallbackWrapper , - toolButtonClickedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -getToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonIconName obj = liftIO $ getObjectPropertyString obj "icon-name" - -setToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val - -constructToolButtonIconName :: T.Text -> IO ([Char], GValue) -constructToolButtonIconName val = constructObjectPropertyString "icon-name" val - -data ToolButtonIconNamePropertyInfo -instance AttrInfo ToolButtonIconNamePropertyInfo where - type AttrAllowedOps ToolButtonIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolButtonIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ToolButtonIconNamePropertyInfo = ToolButtonK - type AttrGetType ToolButtonIconNamePropertyInfo = T.Text - type AttrLabel ToolButtonIconNamePropertyInfo = "ToolButton::icon-name" - attrGet _ = getToolButtonIconName - attrSet _ = setToolButtonIconName - attrConstruct _ = constructToolButtonIconName - --- VVV Prop "icon-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getToolButtonIconWidget :: (MonadIO m, ToolButtonK o) => o -> m Widget -getToolButtonIconWidget obj = liftIO $ getObjectPropertyObject obj "icon-widget" Widget - -setToolButtonIconWidget :: (MonadIO m, ToolButtonK o, WidgetK a) => o -> a -> m () -setToolButtonIconWidget obj val = liftIO $ setObjectPropertyObject obj "icon-widget" val - -constructToolButtonIconWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolButtonIconWidget val = constructObjectPropertyObject "icon-widget" val - -data ToolButtonIconWidgetPropertyInfo -instance AttrInfo ToolButtonIconWidgetPropertyInfo where - type AttrAllowedOps ToolButtonIconWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolButtonIconWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint ToolButtonIconWidgetPropertyInfo = ToolButtonK - type AttrGetType ToolButtonIconWidgetPropertyInfo = Widget - type AttrLabel ToolButtonIconWidgetPropertyInfo = "ToolButton::icon-widget" - attrGet _ = getToolButtonIconWidget - attrSet _ = setToolButtonIconWidget - attrConstruct _ = constructToolButtonIconWidget - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonLabel obj = liftIO $ getObjectPropertyString obj "label" - -setToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructToolButtonLabel :: T.Text -> IO ([Char], GValue) -constructToolButtonLabel val = constructObjectPropertyString "label" val - -data ToolButtonLabelPropertyInfo -instance AttrInfo ToolButtonLabelPropertyInfo where - type AttrAllowedOps ToolButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolButtonLabelPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ToolButtonLabelPropertyInfo = ToolButtonK - type AttrGetType ToolButtonLabelPropertyInfo = T.Text - type AttrLabel ToolButtonLabelPropertyInfo = "ToolButton::label" - attrGet _ = getToolButtonLabel - attrSet _ = setToolButtonLabel - attrConstruct _ = constructToolButtonLabel - --- VVV Prop "label-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getToolButtonLabelWidget :: (MonadIO m, ToolButtonK o) => o -> m Widget -getToolButtonLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget - -setToolButtonLabelWidget :: (MonadIO m, ToolButtonK o, WidgetK a) => o -> a -> m () -setToolButtonLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val - -constructToolButtonLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolButtonLabelWidget val = constructObjectPropertyObject "label-widget" val - -data ToolButtonLabelWidgetPropertyInfo -instance AttrInfo ToolButtonLabelWidgetPropertyInfo where - type AttrAllowedOps ToolButtonLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolButtonLabelWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint ToolButtonLabelWidgetPropertyInfo = ToolButtonK - type AttrGetType ToolButtonLabelWidgetPropertyInfo = Widget - type AttrLabel ToolButtonLabelWidgetPropertyInfo = "ToolButton::label-widget" - attrGet _ = getToolButtonLabelWidget - attrSet _ = setToolButtonLabelWidget - attrConstruct _ = constructToolButtonLabelWidget - --- VVV Prop "stock-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> m T.Text -getToolButtonStockId obj = liftIO $ getObjectPropertyString obj "stock-id" - -setToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () -setToolButtonStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val - -constructToolButtonStockId :: T.Text -> IO ([Char], GValue) -constructToolButtonStockId val = constructObjectPropertyString "stock-id" val - -data ToolButtonStockIdPropertyInfo -instance AttrInfo ToolButtonStockIdPropertyInfo where - type AttrAllowedOps ToolButtonStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ToolButtonStockIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ToolButtonStockIdPropertyInfo = ToolButtonK - type AttrGetType ToolButtonStockIdPropertyInfo = T.Text - type AttrLabel ToolButtonStockIdPropertyInfo = "ToolButton::stock-id" - attrGet _ = getToolButtonStockId - attrSet _ = setToolButtonStockId - attrConstruct _ = constructToolButtonStockId - --- VVV Prop "use-underline" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolButton::use-underline" - attrGet _ = getToolButtonUseUnderline - attrSet _ = setToolButtonUseUnderline - attrConstruct _ = constructToolButtonUseUnderline - -type instance AttributeList ToolButton = ToolButtonAttributeList -type ToolButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -data ToolButtonClickedSignalInfo -instance SignalInfo ToolButtonClickedSignalInfo where - type HaskellCallbackType ToolButtonClickedSignalInfo = ToolButtonClickedCallback - connectSignal _ = connectToolButtonClicked - -type instance SignalList ToolButton = ToolButtonSignalList -type ToolButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ToolButton::new --- method type : Constructor --- Args : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- icon_widget - Maybe (T.Text) -> -- label - m ToolButton -toolButtonNew icon_widget label = liftIO $ do - maybeIcon_widget <- case icon_widget of - Nothing -> return nullPtr - Just jIcon_widget -> do - let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget - return jIcon_widget' - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - result <- gtk_tool_button_new maybeIcon_widget maybeLabel - checkUnexpectedReturnNULL "gtk_tool_button_new" result - result' <- (newObject ToolButton) result - whenJust icon_widget touchManagedPtr - freeMem maybeLabel - return result' - --- method ToolButton::new_from_stock --- method type : Constructor --- Args : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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() instead."]#-} -toolButtonNewFromStock :: - (MonadIO m) => - T.Text -> -- stock_id - m ToolButton -toolButtonNewFromStock stock_id = liftIO $ do - stock_id' <- textToCString stock_id - result <- gtk_tool_button_new_from_stock stock_id' - checkUnexpectedReturnNULL "gtk_tool_button_new_from_stock" result - result' <- (newObject ToolButton) result - freeMem stock_id' - return result' - --- method ToolButton::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolButton::get_icon_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolButton::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolButton::get_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolButton::get_stock_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolButton::get_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolButtonGetUseUnderline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_button_get_use_underline _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToolButton::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- icon_name - m () -toolButtonSetIconName _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_name <- case icon_name of - Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_tool_button_set_icon_name _obj' maybeIcon_name - touchManagedPtr _obj - freeMem maybeIcon_name - return () - --- method ToolButton::set_icon_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- icon_widget - m () -toolButtonSetIconWidget _obj icon_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_widget <- case icon_widget of - Nothing -> return nullPtr - Just jIcon_widget -> do - let jIcon_widget' = unsafeManagedPtrCastPtr jIcon_widget - return jIcon_widget' - gtk_tool_button_set_icon_widget _obj' maybeIcon_widget - touchManagedPtr _obj - whenJust icon_widget touchManagedPtr - return () - --- method ToolButton::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ToolButton::set_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- label_widget - m () -toolButtonSetLabelWidget _obj label_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel_widget <- case label_widget of - Nothing -> return nullPtr - Just jLabel_widget -> do - let jLabel_widget' = unsafeManagedPtrCastPtr jLabel_widget - return jLabel_widget' - gtk_tool_button_set_label_widget _obj' maybeLabel_widget - touchManagedPtr _obj - whenJust label_widget touchManagedPtr - return () - --- method ToolButton::set_stock_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- stock_id - m () -toolButtonSetStockId _obj stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - gtk_tool_button_set_stock_id _obj' maybeStock_id - touchManagedPtr _obj - freeMem maybeStock_id - return () - --- method ToolButton::set_use_underline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolButton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_underline", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_underline - m () -toolButtonSetUseUnderline _obj use_underline = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_underline' = (fromIntegral . fromEnum) use_underline - gtk_tool_button_set_use_underline _obj' use_underline' - touchManagedPtr _obj - return () - - 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,20 +0,0 @@ -module GI.Gtk.Objects.ToolButton where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,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.ToolItem - ( - --- * Exported types - ToolItem(..) , - ToolItemK , - toToolItem , - noToolItem , - - - -- * Methods --- ** toolItemGetEllipsizeMode - toolItemGetEllipsizeMode , - - --- ** toolItemGetExpand - toolItemGetExpand , - - --- ** toolItemGetHomogeneous - toolItemGetHomogeneous , - - --- ** toolItemGetIconSize - toolItemGetIconSize , - - --- ** toolItemGetIsImportant - toolItemGetIsImportant , - - --- ** toolItemGetOrientation - toolItemGetOrientation , - - --- ** toolItemGetProxyMenuItem - toolItemGetProxyMenuItem , - - --- ** toolItemGetReliefStyle - toolItemGetReliefStyle , - - --- ** toolItemGetTextAlignment - toolItemGetTextAlignment , - - --- ** toolItemGetTextOrientation - toolItemGetTextOrientation , - - --- ** toolItemGetTextSizeGroup - toolItemGetTextSizeGroup , - - --- ** toolItemGetToolbarStyle - toolItemGetToolbarStyle , - - --- ** toolItemGetUseDragWindow - toolItemGetUseDragWindow , - - --- ** toolItemGetVisibleHorizontal - toolItemGetVisibleHorizontal , - - --- ** toolItemGetVisibleVertical - toolItemGetVisibleVertical , - - --- ** toolItemNew - toolItemNew , - - --- ** toolItemRebuildMenu - toolItemRebuildMenu , - - --- ** toolItemRetrieveProxyMenuItem - toolItemRetrieveProxyMenuItem , - - --- ** toolItemSetExpand - toolItemSetExpand , - - --- ** toolItemSetHomogeneous - toolItemSetHomogeneous , - - --- ** toolItemSetIsImportant - toolItemSetIsImportant , - - --- ** toolItemSetProxyMenuItem - toolItemSetProxyMenuItem , - - --- ** toolItemSetTooltipMarkup - toolItemSetTooltipMarkup , - - --- ** toolItemSetTooltipText - toolItemSetTooltipText , - - --- ** toolItemSetUseDragWindow - toolItemSetUseDragWindow , - - --- ** toolItemSetVisibleHorizontal - toolItemSetVisibleHorizontal , - - --- ** toolItemSetVisibleVertical - toolItemSetVisibleVertical , - - --- ** toolItemToolbarReconfigured - toolItemToolbarReconfigured , - - - - - -- * Properties --- ** IsImportant - ToolItemIsImportantPropertyInfo , - constructToolItemIsImportant , - getToolItemIsImportant , - setToolItemIsImportant , - - --- ** VisibleHorizontal - ToolItemVisibleHorizontalPropertyInfo , - constructToolItemVisibleHorizontal , - getToolItemVisibleHorizontal , - setToolItemVisibleHorizontal , - - --- ** VisibleVertical - ToolItemVisibleVerticalPropertyInfo , - constructToolItemVisibleVertical , - getToolItemVisibleVertical , - setToolItemVisibleVertical , - - - - - -- * Signals --- ** CreateMenuProxy - ToolItemCreateMenuProxyCallback , - ToolItemCreateMenuProxyCallbackC , - ToolItemCreateMenuProxySignalInfo , - afterToolItemCreateMenuProxy , - mkToolItemCreateMenuProxyCallback , - noToolItemCreateMenuProxyCallback , - onToolItemCreateMenuProxy , - toolItemCreateMenuProxyCallbackWrapper , - toolItemCreateMenuProxyClosure , - - --- ** ToolbarReconfigured - ToolItemToolbarReconfiguredCallback , - ToolItemToolbarReconfiguredCallbackC , - ToolItemToolbarReconfiguredSignalInfo , - afterToolItemToolbarReconfigured , - mkToolItemToolbarReconfiguredCallback , - noToolItemToolbarReconfiguredCallback , - onToolItemToolbarReconfigured , - toolItemToolbarReconfiguredCallbackWrapper, - toolItemToolbarReconfiguredClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "ToolItem::is-important" - attrGet _ = getToolItemIsImportant - attrSet _ = setToolItemIsImportant - attrConstruct _ = constructToolItemIsImportant - --- VVV Prop "visible-horizontal" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolItem::visible-horizontal" - attrGet _ = getToolItemVisibleHorizontal - attrSet _ = setToolItemVisibleHorizontal - attrConstruct _ = constructToolItemVisibleHorizontal - --- VVV Prop "visible-vertical" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolItem::visible-vertical" - attrGet _ = getToolItemVisibleVertical - attrSet _ = setToolItemVisibleVertical - attrConstruct _ = constructToolItemVisibleVertical - -type instance AttributeList ToolItem = ToolItemAttributeList -type ToolItemAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ToolItem::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItem::get_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolItemGetExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_expand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToolItem::get_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolItemGetHomogeneous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_homogeneous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToolItem::get_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -toolItemGetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_icon_size _obj' - touchManagedPtr _obj - return result - --- method ToolItem::get_is_important --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolItemGetIsImportant _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_is_important _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToolItem::get_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolItemGetOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_orientation _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method ToolItem::get_proxy_menu_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- menu_item_id - m Widget -toolItemGetProxyMenuItem _obj menu_item_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - menu_item_id' <- textToCString menu_item_id - result <- gtk_tool_item_get_proxy_menu_item _obj' menu_item_id' - checkUnexpectedReturnNULL "gtk_tool_item_get_proxy_menu_item" result - result' <- (newObject Widget) result - touchManagedPtr _obj - freeMem menu_item_id' - return result' - --- method ToolItem::get_relief_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItem::get_text_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolItemGetTextAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_text_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method ToolItem::get_text_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItem::get_text_size_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItem::get_toolbar_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItem::get_use_drag_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItem::get_visible_horizontal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolItemGetVisibleHorizontal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_visible_horizontal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToolItem::get_visible_vertical --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolItemGetVisibleVertical _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_get_visible_vertical _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToolItem::rebuild_menu --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolItemRebuildMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_item_rebuild_menu _obj' - touchManagedPtr _obj - return () - --- method ToolItem::retrieve_proxy_menu_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItem::set_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolItemSetExpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_tool_item_set_expand _obj' expand' - touchManagedPtr _obj - return () - --- method ToolItem::set_homogeneous --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolItemSetHomogeneous _obj homogeneous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let homogeneous' = (fromIntegral . fromEnum) homogeneous - gtk_tool_item_set_homogeneous _obj' homogeneous' - touchManagedPtr _obj - return () - --- method ToolItem::set_is_important --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_important", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- is_important - m () -toolItemSetIsImportant _obj is_important = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_important' = (fromIntegral . fromEnum) is_important - gtk_tool_item_set_is_important _obj' is_important' - touchManagedPtr _obj - return () - --- method ToolItem::set_proxy_menu_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "menu_item", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- menu_item_id - b -> -- menu_item - m () -toolItemSetProxyMenuItem _obj menu_item_id menu_item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - menu_item_id' <- textToCString menu_item_id - let menu_item' = unsafeManagedPtrCastPtr menu_item - gtk_tool_item_set_proxy_menu_item _obj' menu_item_id' menu_item' - touchManagedPtr _obj - touchManagedPtr menu_item - freeMem menu_item_id' - return () - --- method ToolItem::set_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method ToolItem::set_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method ToolItem::set_use_drag_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_drag_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_drag_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_drag_window - m () -toolItemSetUseDragWindow _obj use_drag_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use_drag_window' = (fromIntegral . fromEnum) use_drag_window - gtk_tool_item_set_use_drag_window _obj' use_drag_window' - touchManagedPtr _obj - return () - --- method ToolItem::set_visible_horizontal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- visible_horizontal - m () -toolItemSetVisibleHorizontal _obj visible_horizontal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible_horizontal' = (fromIntegral . fromEnum) visible_horizontal - gtk_tool_item_set_visible_horizontal _obj' visible_horizontal' - touchManagedPtr _obj - return () - --- method ToolItem::set_visible_vertical --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_vertical", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- visible_vertical - m () -toolItemSetVisibleVertical _obj visible_vertical = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible_vertical' = (fromIntegral . fromEnum) visible_vertical - gtk_tool_item_set_visible_vertical _obj' visible_vertical' - touchManagedPtr _obj - return () - --- method ToolItem::toolbar_reconfigured --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolItemToolbarReconfigured _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_item_toolbar_reconfigured _obj' - touchManagedPtr _obj - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.ToolItem where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,749 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - toolItemGroupGetCollapsed , - - --- ** toolItemGroupGetDropItem - toolItemGroupGetDropItem , - - --- ** toolItemGroupGetEllipsize - toolItemGroupGetEllipsize , - - --- ** toolItemGroupGetHeaderRelief - toolItemGroupGetHeaderRelief , - - --- ** toolItemGroupGetItemPosition - toolItemGroupGetItemPosition , - - --- ** toolItemGroupGetLabel - toolItemGroupGetLabel , - - --- ** toolItemGroupGetLabelWidget - toolItemGroupGetLabelWidget , - - --- ** toolItemGroupGetNItems - toolItemGroupGetNItems , - - --- ** toolItemGroupGetNthItem - toolItemGroupGetNthItem , - - --- ** toolItemGroupInsert - toolItemGroupInsert , - - --- ** toolItemGroupNew - toolItemGroupNew , - - --- ** toolItemGroupSetCollapsed - toolItemGroupSetCollapsed , - - --- ** toolItemGroupSetEllipsize - toolItemGroupSetEllipsize , - - --- ** toolItemGroupSetHeaderRelief - toolItemGroupSetHeaderRelief , - - --- ** toolItemGroupSetItemPosition - toolItemGroupSetItemPosition , - - --- ** toolItemGroupSetLabel - toolItemGroupSetLabel , - - --- ** toolItemGroupSetLabelWidget - toolItemGroupSetLabelWidget , - - - - - -- * Properties --- ** Collapsed - ToolItemGroupCollapsedPropertyInfo , - constructToolItemGroupCollapsed , - getToolItemGroupCollapsed , - setToolItemGroupCollapsed , - - --- ** Ellipsize - ToolItemGroupEllipsizePropertyInfo , - constructToolItemGroupEllipsize , - getToolItemGroupEllipsize , - setToolItemGroupEllipsize , - - --- ** HeaderRelief - ToolItemGroupHeaderReliefPropertyInfo , - constructToolItemGroupHeaderRelief , - getToolItemGroupHeaderRelief , - setToolItemGroupHeaderRelief , - - --- ** Label - ToolItemGroupLabelPropertyInfo , - constructToolItemGroupLabel , - getToolItemGroupLabel , - setToolItemGroupLabel , - - --- ** LabelWidget - ToolItemGroupLabelWidgetPropertyInfo , - constructToolItemGroupLabelWidget , - getToolItemGroupLabelWidget , - setToolItemGroupLabelWidget , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "collapsed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolItemGroup::collapsed" - attrGet _ = getToolItemGroupCollapsed - attrSet _ = setToolItemGroupCollapsed - attrConstruct _ = constructToolItemGroupCollapsed - --- VVV Prop "ellipsize" - -- Type: TInterface "Pango" "EllipsizeMode" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolItemGroup::ellipsize" - attrGet _ = getToolItemGroupEllipsize - attrSet _ = setToolItemGroupEllipsize - attrConstruct _ = constructToolItemGroupEllipsize - --- VVV Prop "header-relief" - -- Type: TInterface "Gtk" "ReliefStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolItemGroup::header-relief" - attrGet _ = getToolItemGroupHeaderRelief - attrSet _ = setToolItemGroupHeaderRelief - attrConstruct _ = constructToolItemGroupHeaderRelief - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getToolItemGroupLabel :: (MonadIO m, ToolItemGroupK o) => o -> m T.Text -getToolItemGroupLabel obj = liftIO $ getObjectPropertyString obj "label" - -setToolItemGroupLabel :: (MonadIO m, ToolItemGroupK o) => o -> T.Text -> m () -setToolItemGroupLabel obj val = liftIO $ setObjectPropertyString obj "label" val - -constructToolItemGroupLabel :: T.Text -> IO ([Char], GValue) -constructToolItemGroupLabel val = constructObjectPropertyString "label" 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 = "ToolItemGroup::label" - attrGet _ = getToolItemGroupLabel - attrSet _ = setToolItemGroupLabel - attrConstruct _ = constructToolItemGroupLabel - --- VVV Prop "label-widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getToolItemGroupLabelWidget :: (MonadIO m, ToolItemGroupK o) => o -> m Widget -getToolItemGroupLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget - -setToolItemGroupLabelWidget :: (MonadIO m, ToolItemGroupK o, WidgetK a) => o -> a -> m () -setToolItemGroupLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val - -constructToolItemGroupLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructToolItemGroupLabelWidget val = constructObjectPropertyObject "label-widget" 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 = "ToolItemGroup::label-widget" - attrGet _ = getToolItemGroupLabelWidget - attrSet _ = setToolItemGroupLabelWidget - attrConstruct _ = constructToolItemGroupLabelWidget - -type instance AttributeList ToolItemGroup = ToolItemGroupAttributeList -type ToolItemGroupAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("collapsed", ToolItemGroupCollapsedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ToolItemGroupEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("header-relief", ToolItemGroupHeaderReliefPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ToolItemGroupLabelPropertyInfo), '("label-widget", ToolItemGroupLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ToolItemGroup = ToolItemGroupSignalList -type ToolItemGroupSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ToolItemGroup::new --- method type : Constructor --- Args : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolItemGroupGetCollapsed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_collapsed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method ToolItemGroup::get_drop_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO (Ptr ToolItem) - - -toolItemGroupGetDropItem :: - (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m ToolItem -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' - --- method ToolItemGroup::get_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItemGroup::get_header_relief --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItemGroup::get_item_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method ToolItemGroup::get_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItemGroup::get_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolItemGroup::get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -toolItemGroupGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_item_group_get_n_items _obj' - touchManagedPtr _obj - return result - --- method ToolItemGroup::get_nth_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - IO (Ptr ToolItem) - - -toolItemGroupGetNthItem :: - (MonadIO m, ToolItemGroupK a) => - a -> -- _obj - Word32 -> -- index - m ToolItem -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' - --- method ToolItemGroup::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -toolItemGroupInsert :: - (MonadIO m, ToolItemGroupK a, ToolItemK b) => - a -> -- _obj - b -> -- item - Int32 -> -- position - m () -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 () - --- method ToolItemGroup::set_collapsed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collapsed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "collapsed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ToolItemGroup::set_ellipsize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ToolItemGroup::set_header_relief --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ReliefStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ToolItemGroup::set_item_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -toolItemGroupSetItemPosition :: - (MonadIO m, ToolItemGroupK a, ToolItemK b) => - a -> -- _obj - b -> -- item - Int32 -> -- position - m () -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 () - --- method ToolItemGroup::set_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method ToolItemGroup::set_label_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- label_widget - m () -toolItemGroupSetLabelWidget _obj label_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let label_widget' = unsafeManagedPtrCastPtr label_widget - gtk_tool_item_group_set_label_widget _obj' label_widget' - touchManagedPtr _obj - touchManagedPtr label_widget - return () - - 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,18 +0,0 @@ -module GI.Gtk.Objects.ToolItemGroup where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,847 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - toolPaletteAddDragDest , - - --- ** toolPaletteGetDragItem - toolPaletteGetDragItem , - - --- ** toolPaletteGetDragTargetGroup - toolPaletteGetDragTargetGroup , - - --- ** toolPaletteGetDragTargetItem - toolPaletteGetDragTargetItem , - - --- ** toolPaletteGetDropGroup - toolPaletteGetDropGroup , - - --- ** toolPaletteGetDropItem - toolPaletteGetDropItem , - - --- ** toolPaletteGetExclusive - toolPaletteGetExclusive , - - --- ** toolPaletteGetExpand - toolPaletteGetExpand , - - --- ** toolPaletteGetGroupPosition - toolPaletteGetGroupPosition , - - --- ** toolPaletteGetHadjustment - toolPaletteGetHadjustment , - - --- ** toolPaletteGetIconSize - toolPaletteGetIconSize , - - --- ** toolPaletteGetStyle - toolPaletteGetStyle , - - --- ** toolPaletteGetVadjustment - toolPaletteGetVadjustment , - - --- ** toolPaletteNew - toolPaletteNew , - - --- ** toolPaletteSetDragSource - toolPaletteSetDragSource , - - --- ** toolPaletteSetExclusive - toolPaletteSetExclusive , - - --- ** toolPaletteSetExpand - toolPaletteSetExpand , - - --- ** toolPaletteSetGroupPosition - toolPaletteSetGroupPosition , - - --- ** toolPaletteSetIconSize - toolPaletteSetIconSize , - - --- ** toolPaletteSetStyle - toolPaletteSetStyle , - - --- ** toolPaletteUnsetIconSize - toolPaletteUnsetIconSize , - - --- ** toolPaletteUnsetStyle - toolPaletteUnsetStyle , - - - - - -- * Properties --- ** IconSize - ToolPaletteIconSizePropertyInfo , - constructToolPaletteIconSize , - getToolPaletteIconSize , - setToolPaletteIconSize , - - --- ** IconSizeSet - ToolPaletteIconSizeSetPropertyInfo , - constructToolPaletteIconSizeSet , - getToolPaletteIconSizeSet , - setToolPaletteIconSizeSet , - - --- ** ToolbarStyle - ToolPaletteToolbarStylePropertyInfo , - constructToolPaletteToolbarStyle , - getToolPaletteToolbarStyle , - setToolPaletteToolbarStyle , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "icon-size" - -- Type: TInterface "Gtk" "IconSize" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolPalette::icon-size" - attrGet _ = getToolPaletteIconSize - attrSet _ = setToolPaletteIconSize - attrConstruct _ = constructToolPaletteIconSize - --- VVV Prop "icon-size-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolPalette::icon-size-set" - attrGet _ = getToolPaletteIconSizeSet - attrSet _ = setToolPaletteIconSizeSet - attrConstruct _ = constructToolPaletteIconSizeSet - --- VVV Prop "toolbar-style" - -- Type: TInterface "Gtk" "ToolbarStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "ToolPalette::toolbar-style" - attrGet _ = getToolPaletteToolbarStyle - attrSet _ = setToolPaletteToolbarStyle - attrConstruct _ = constructToolPaletteToolbarStyle - -type instance AttributeList ToolPalette = ToolPaletteAttributeList -type ToolPaletteAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("icon-size", ToolPaletteIconSizePropertyInfo), '("icon-size-set", ToolPaletteIconSizeSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbar-style", ToolPaletteToolbarStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ToolPalette = ToolPaletteSignalList -type ToolPaletteSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ToolPalette::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ToolPalette::get_drag_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolPalette::get_drop_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO (Ptr ToolItemGroup) - - -toolPaletteGetDropGroup :: - (MonadIO m, ToolPaletteK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m ToolItemGroup -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' - --- method ToolPalette::get_drop_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO (Ptr ToolItem) - - -toolPaletteGetDropItem :: - (MonadIO m, ToolPaletteK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m ToolItem -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' - --- method ToolPalette::get_exclusive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolPalette::get_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolPalette::get_group_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method ToolPalette::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolPalette::get_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -toolPaletteGetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_palette_get_icon_size _obj' - touchManagedPtr _obj - return result - --- method ToolPalette::get_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolPaletteGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tool_palette_get_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method ToolPalette::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method ToolPalette::set_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "ToolPaletteDragTargets", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolPaletteSetDragSource _obj targets = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let targets' = gflagsToWord targets - gtk_tool_palette_set_drag_source _obj' targets' - touchManagedPtr _obj - return () - --- method ToolPalette::set_exclusive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exclusive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ToolPalette::set_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method ToolPalette::set_group_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gtk" "ToolItemGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -toolPaletteSetGroupPosition :: - (MonadIO m, ToolPaletteK a, ToolItemGroupK b) => - a -> -- _obj - b -> -- group - Int32 -> -- position - m () -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 () - --- method ToolPalette::set_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tool_palette_set_icon_size" gtk_tool_palette_set_icon_size :: - Ptr ToolPalette -> -- _obj : TInterface "Gtk" "ToolPalette" - Int32 -> -- icon_size : TBasicType TInt32 - IO () - - -toolPaletteSetIconSize :: - (MonadIO m, ToolPaletteK a) => - a -> -- _obj - Int32 -> -- icon_size - m () -toolPaletteSetIconSize _obj icon_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_palette_set_icon_size _obj' icon_size - touchManagedPtr _obj - return () - --- method ToolPalette::set_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolPaletteSetStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = (fromIntegral . fromEnum) style - gtk_tool_palette_set_style _obj' style' - touchManagedPtr _obj - return () - --- method ToolPalette::unset_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolPaletteUnsetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_palette_unset_icon_size _obj' - touchManagedPtr _obj - return () - --- method ToolPalette::unset_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToolPalette", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolPaletteUnsetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tool_palette_unset_style _obj' - touchManagedPtr _obj - return () - --- method ToolPalette::get_drag_target_group --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : 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 -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,16 +0,0 @@ -module GI.Gtk.Objects.ToolPalette where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,924 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - toolbarGetDropIndex , - - --- ** toolbarGetIconSize - toolbarGetIconSize , - - --- ** toolbarGetItemIndex - toolbarGetItemIndex , - - --- ** toolbarGetNItems - toolbarGetNItems , - - --- ** toolbarGetNthItem - toolbarGetNthItem , - - --- ** toolbarGetReliefStyle - toolbarGetReliefStyle , - - --- ** toolbarGetShowArrow - toolbarGetShowArrow , - - --- ** toolbarGetStyle - toolbarGetStyle , - - --- ** toolbarInsert - toolbarInsert , - - --- ** toolbarNew - toolbarNew , - - --- ** toolbarSetDropHighlightItem - toolbarSetDropHighlightItem , - - --- ** toolbarSetIconSize - toolbarSetIconSize , - - --- ** toolbarSetShowArrow - toolbarSetShowArrow , - - --- ** toolbarSetStyle - toolbarSetStyle , - - --- ** toolbarUnsetIconSize - toolbarUnsetIconSize , - - --- ** toolbarUnsetStyle - toolbarUnsetStyle , - - - - - -- * Properties --- ** IconSize - ToolbarIconSizePropertyInfo , - constructToolbarIconSize , - getToolbarIconSize , - setToolbarIconSize , - - --- ** IconSizeSet - ToolbarIconSizeSetPropertyInfo , - constructToolbarIconSizeSet , - getToolbarIconSizeSet , - setToolbarIconSizeSet , - - --- ** ShowArrow - ToolbarShowArrowPropertyInfo , - constructToolbarShowArrow , - getToolbarShowArrow , - setToolbarShowArrow , - - --- ** ToolbarStyle - ToolbarToolbarStylePropertyInfo , - constructToolbarToolbarStyle , - getToolbarToolbarStyle , - setToolbarToolbarStyle , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 _ focus_home _ = do - let focus_home' = (/= 0) focus_home - result <- _cb focus_home' - 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] - -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 = "Toolbar::icon-size" - attrGet _ = getToolbarIconSize - attrSet _ = setToolbarIconSize - attrConstruct _ = constructToolbarIconSize - --- VVV Prop "icon-size-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Toolbar::icon-size-set" - attrGet _ = getToolbarIconSizeSet - attrSet _ = setToolbarIconSizeSet - attrConstruct _ = constructToolbarIconSizeSet - --- VVV Prop "show-arrow" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Toolbar::show-arrow" - attrGet _ = getToolbarShowArrow - attrSet _ = setToolbarShowArrow - attrConstruct _ = constructToolbarShowArrow - --- VVV Prop "toolbar-style" - -- Type: TInterface "Gtk" "ToolbarStyle" - -- Flags: [PropertyReadable,PropertyWritable] - -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::toolbar-style" - attrGet _ = getToolbarToolbarStyle - attrSet _ = setToolbarToolbarStyle - attrConstruct _ = constructToolbarToolbarStyle - -type instance AttributeList Toolbar = ToolbarAttributeList -type ToolbarAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-size", ToolbarIconSizePropertyInfo), '("icon-size-set", ToolbarIconSizeSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-arrow", ToolbarShowArrowPropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbar-style", ToolbarToolbarStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-home-or-end", ToolbarFocusHomeOrEndSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("orientation-changed", ToolbarOrientationChangedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-context-menu", ToolbarPopupContextMenuSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-changed", ToolbarStyleChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Toolbar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - IO Int32 - - -toolbarGetDropIndex :: - (MonadIO m, ToolbarK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m Int32 -toolbarGetDropIndex _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_drop_index _obj' x y - touchManagedPtr _obj - return result - --- method Toolbar::get_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolbarGetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_icon_size _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Toolbar::get_item_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method Toolbar::get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -toolbarGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_n_items _obj' - touchManagedPtr _obj - return result - --- method Toolbar::get_nth_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr ToolItem) - - -toolbarGetNthItem :: - (MonadIO m, ToolbarK a) => - a -> -- _obj - Int32 -> -- n - m ToolItem -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' - --- method Toolbar::get_relief_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolbarGetReliefStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_relief_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Toolbar::get_show_arrow --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolbarGetShowArrow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_show_arrow _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Toolbar::get_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -toolbarGetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toolbar_get_style _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Toolbar::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_toolbar_insert" gtk_toolbar_insert :: - Ptr Toolbar -> -- _obj : TInterface "Gtk" "Toolbar" - Ptr ToolItem -> -- item : TInterface "Gtk" "ToolItem" - Int32 -> -- pos : TBasicType TInt32 - IO () - - -toolbarInsert :: - (MonadIO m, ToolbarK a, ToolItemK b) => - a -> -- _obj - b -> -- item - Int32 -> -- pos - m () -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 () - --- method Toolbar::set_drop_highlight_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tool_item", argType = TInterface "Gtk" "ToolItem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -toolbarSetDropHighlightItem :: - (MonadIO m, ToolbarK a, ToolItemK b) => - a -> -- _obj - Maybe (b) -> -- tool_item - Int32 -> -- index_ - m () -toolbarSetDropHighlightItem _obj tool_item index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTool_item <- case tool_item of - Nothing -> return nullPtr - Just jTool_item -> do - let jTool_item' = unsafeManagedPtrCastPtr jTool_item - return jTool_item' - gtk_toolbar_set_drop_highlight_item _obj' maybeTool_item index_ - touchManagedPtr _obj - whenJust tool_item touchManagedPtr - return () - --- method Toolbar::set_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TInterface "Gtk" "IconSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_size", argType = TInterface "Gtk" "IconSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- icon_size - m () -toolbarSetIconSize _obj icon_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon_size' = (fromIntegral . fromEnum) icon_size - gtk_toolbar_set_icon_size _obj' icon_size' - touchManagedPtr _obj - return () - --- method Toolbar::set_show_arrow --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "show_arrow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- show_arrow - m () -toolbarSetShowArrow _obj show_arrow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let show_arrow' = (fromIntegral . fromEnum) show_arrow - gtk_toolbar_set_show_arrow _obj' show_arrow' - touchManagedPtr _obj - return () - --- method Toolbar::set_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "ToolbarStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolbarSetStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = (fromIntegral . fromEnum) style - gtk_toolbar_set_style _obj' style' - touchManagedPtr _obj - return () - --- method Toolbar::unset_icon_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolbarUnsetIconSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_toolbar_unset_icon_size _obj' - touchManagedPtr _obj - return () - --- method Toolbar::unset_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Toolbar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -toolbarUnsetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_toolbar_unset_style _obj' - touchManagedPtr _obj - return () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.Toolbar where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,383 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - tooltipSetCustom , - - --- ** tooltipSetIcon - tooltipSetIcon , - - --- ** tooltipSetIconFromGicon - tooltipSetIconFromGicon , - - --- ** tooltipSetIconFromIconName - tooltipSetIconFromIconName , - - --- ** tooltipSetIconFromStock - tooltipSetIconFromStock , - - --- ** tooltipSetMarkup - tooltipSetMarkup , - - --- ** tooltipSetText - tooltipSetText , - - --- ** tooltipSetTipArea - tooltipSetTipArea , - - --- ** tooltipTriggerTooltipQuery - tooltipTriggerTooltipQuery , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 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 instance AttributeList Tooltip = TooltipAttributeList -type TooltipAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Tooltip = TooltipSignalList -type TooltipSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Tooltip::set_custom --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- custom_widget - m () -tooltipSetCustom _obj custom_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCustom_widget <- case custom_widget of - Nothing -> return nullPtr - Just jCustom_widget -> do - let jCustom_widget' = unsafeManagedPtrCastPtr jCustom_widget - return jCustom_widget' - gtk_tooltip_set_custom _obj' maybeCustom_widget - touchManagedPtr _obj - whenJust custom_widget touchManagedPtr - return () - --- method Tooltip::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Tooltip::set_icon_from_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gicon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -tooltipSetIconFromGicon :: - (MonadIO m, TooltipK a, Gio.IconK b) => - a -> -- _obj - Maybe (b) -> -- gicon - Int32 -> -- size - m () -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 () - --- method Tooltip::set_icon_from_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -tooltipSetIconFromIconName :: - (MonadIO m, TooltipK a) => - a -> -- _obj - Maybe (T.Text) -> -- icon_name - Int32 -> -- size - m () -tooltipSetIconFromIconName _obj icon_name size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon_name <- case icon_name of - Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_tooltip_set_icon_from_icon_name _obj' maybeIcon_name size - touchManagedPtr _obj - freeMem maybeIcon_name - return () - --- method Tooltip::set_icon_from_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - 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) -> -- stock_id - Int32 -> -- size - m () -tooltipSetIconFromStock _obj stock_id size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStock_id <- case stock_id of - Nothing -> return nullPtr - Just jStock_id -> do - jStock_id' <- textToCString jStock_id - return jStock_id' - gtk_tooltip_set_icon_from_stock _obj' maybeStock_id size - touchManagedPtr _obj - freeMem maybeStock_id - return () - --- method Tooltip::set_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Tooltip::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Tooltip::set_tip_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO () - - -tooltipSetTipArea :: - (MonadIO m, TooltipK a) => - a -> -- _obj - Cairo.RectangleInt -> -- rect - m () -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 () - --- method Tooltip::trigger_tooltip_query --- method type : MemberFunction --- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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,13 +0,0 @@ -module GI.Gtk.Objects.Tooltip where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Tooltip = Tooltip (ForeignPtr Tooltip) -instance GObject Tooltip where -class GObject o => TooltipK o -instance (GObject o, IsDescendantOf Tooltip o) => TooltipK o 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,93 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - toplevelAccessibleGetChildren , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList ToplevelAccessible = ToplevelAccessibleAttributeList -type ToplevelAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ToplevelAccessible = ToplevelAccessibleSignalList -type ToplevelAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ToplevelAccessible::get_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "ToplevelAccessible", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -toplevelAccessibleGetChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_toplevel_accessible_get_children _obj' - checkUnexpectedReturnNULL "gtk_toplevel_accessible_get_children" result - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - touchManagedPtr _obj - return result'' - - 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,13 +0,0 @@ -module GI.Gtk.Objects.ToplevelAccessible where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ToplevelAccessible = ToplevelAccessible (ForeignPtr ToplevelAccessible) -instance GObject ToplevelAccessible where -class GObject o => ToplevelAccessibleK o -instance (GObject o, IsDescendantOf ToplevelAccessible o) => ToplevelAccessibleK o 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,409 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treeModelFilterClearCache , - - --- ** treeModelFilterConvertChildIterToIter - treeModelFilterConvertChildIterToIter , - - --- ** treeModelFilterConvertChildPathToPath - treeModelFilterConvertChildPathToPath , - - --- ** treeModelFilterConvertIterToChildIter - treeModelFilterConvertIterToChildIter , - - --- ** treeModelFilterConvertPathToChildPath - treeModelFilterConvertPathToChildPath , - - --- ** treeModelFilterGetModel - treeModelFilterGetModel , - - --- ** treeModelFilterRefilter - treeModelFilterRefilter , - - --- ** treeModelFilterSetVisibleColumn - treeModelFilterSetVisibleColumn , - - --- ** treeModelFilterSetVisibleFunc - treeModelFilterSetVisibleFunc , - - - - - -- * Properties --- ** ChildModel - TreeModelFilterChildModelPropertyInfo , - constructTreeModelFilterChildModel , - getTreeModelFilterChildModel , - - --- ** VirtualRoot - TreeModelFilterVirtualRootPropertyInfo , - constructTreeModelFilterVirtualRoot , - getTreeModelFilterVirtualRoot , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "child-model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getTreeModelFilterChildModel :: (MonadIO m, TreeModelFilterK o) => o -> m TreeModel -getTreeModelFilterChildModel obj = liftIO $ getObjectPropertyObject obj "child-model" TreeModel - -constructTreeModelFilterChildModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeModelFilterChildModel val = constructObjectPropertyObject "child-model" val - -data TreeModelFilterChildModelPropertyInfo -instance AttrInfo TreeModelFilterChildModelPropertyInfo where - type AttrAllowedOps TreeModelFilterChildModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelFilterK - type AttrGetType TreeModelFilterChildModelPropertyInfo = TreeModel - type AttrLabel TreeModelFilterChildModelPropertyInfo = "TreeModelFilter::child-model" - attrGet _ = getTreeModelFilterChildModel - attrSet _ = undefined - attrConstruct _ = constructTreeModelFilterChildModel - --- VVV Prop "virtual-root" - -- Type: TInterface "Gtk" "TreePath" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getTreeModelFilterVirtualRoot :: (MonadIO m, TreeModelFilterK o) => o -> m TreePath -getTreeModelFilterVirtualRoot obj = liftIO $ getObjectPropertyBoxed obj "virtual-root" TreePath - -constructTreeModelFilterVirtualRoot :: TreePath -> IO ([Char], GValue) -constructTreeModelFilterVirtualRoot val = constructObjectPropertyBoxed "virtual-root" val - -data TreeModelFilterVirtualRootPropertyInfo -instance AttrInfo TreeModelFilterVirtualRootPropertyInfo where - type AttrAllowedOps TreeModelFilterVirtualRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeModelFilterVirtualRootPropertyInfo = (~) TreePath - type AttrBaseTypeConstraint TreeModelFilterVirtualRootPropertyInfo = TreeModelFilterK - type AttrGetType TreeModelFilterVirtualRootPropertyInfo = TreePath - type AttrLabel TreeModelFilterVirtualRootPropertyInfo = "TreeModelFilter::virtual-root" - attrGet _ = getTreeModelFilterVirtualRoot - attrSet _ = undefined - attrConstruct _ = constructTreeModelFilterVirtualRoot - -type instance AttributeList TreeModelFilter = TreeModelFilterAttributeList -type TreeModelFilterAttributeList = ('[ '("child-model", TreeModelFilterChildModelPropertyInfo), '("virtual-root", TreeModelFilterVirtualRootPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TreeModelFilter = TreeModelFilterSignalList -type TreeModelFilterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeModelFilter::clear_cache --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeModelFilterClearCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_filter_clear_cache _obj' - touchManagedPtr _obj - return () - --- method TreeModelFilter::convert_child_iter_to_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- child_iter - m (Bool,TreeIter) -treeModelFilterConvertChildIterToIter _obj child_iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filter_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let child_iter' = unsafeManagedPtrGetPtr child_iter - result <- gtk_tree_model_filter_convert_child_iter_to_iter _obj' filter_iter child_iter' - let result' = (/= 0) result - filter_iter' <- (wrapBoxed TreeIter) filter_iter - touchManagedPtr _obj - touchManagedPtr child_iter - return (result', filter_iter') - --- method TreeModelFilter::convert_child_path_to_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- child_path - m TreePath -treeModelFilterConvertChildPathToPath _obj child_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child_path' = unsafeManagedPtrGetPtr child_path - result <- gtk_tree_model_filter_convert_child_path_to_path _obj' child_path' - checkUnexpectedReturnNULL "gtk_tree_model_filter_convert_child_path_to_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr child_path - return result' - --- method TreeModelFilter::convert_iter_to_child_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- filter_iter - m (TreeIter) -treeModelFilterConvertIterToChildIter _obj filter_iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - child_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let filter_iter' = unsafeManagedPtrGetPtr filter_iter - gtk_tree_model_filter_convert_iter_to_child_iter _obj' child_iter filter_iter' - child_iter' <- (wrapBoxed TreeIter) child_iter - touchManagedPtr _obj - touchManagedPtr filter_iter - return child_iter' - --- method TreeModelFilter::convert_path_to_child_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- filter_path - m TreePath -treeModelFilterConvertPathToChildPath _obj filter_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let filter_path' = unsafeManagedPtrGetPtr filter_path - result <- gtk_tree_model_filter_convert_path_to_child_path _obj' filter_path' - checkUnexpectedReturnNULL "gtk_tree_model_filter_convert_path_to_child_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr filter_path - return result' - --- method TreeModelFilter::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModelFilter::refilter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeModelFilterRefilter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_filter_refilter _obj' - touchManagedPtr _obj - return () - --- method TreeModelFilter::set_visible_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -treeModelFilterSetVisibleColumn :: - (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - Int32 -> -- column - m () -treeModelFilterSetVisibleColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_filter_set_visible_column _obj' column - touchManagedPtr _obj - return () - --- method TreeModelFilter::set_visible_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeModelFilterVisibleFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeModelFilterSetVisibleFunc :: - (MonadIO m, TreeModelFilterK a) => - a -> -- _obj - TreeModelFilterVisibleFunc -> -- func - m () -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 () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.TreeModelFilter where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,349 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treeModelSortClearCache , - - --- ** treeModelSortConvertChildIterToIter - treeModelSortConvertChildIterToIter , - - --- ** treeModelSortConvertChildPathToPath - treeModelSortConvertChildPathToPath , - - --- ** treeModelSortConvertIterToChildIter - treeModelSortConvertIterToChildIter , - - --- ** treeModelSortConvertPathToChildPath - treeModelSortConvertPathToChildPath , - - --- ** treeModelSortGetModel - treeModelSortGetModel , - - --- ** treeModelSortIterIsValid - treeModelSortIterIsValid , - - --- ** treeModelSortResetDefaultSortFunc - treeModelSortResetDefaultSortFunc , - - - - - -- * Properties --- ** Model - TreeModelSortModelPropertyInfo , - constructTreeModelSortModel , - getTreeModelSortModel , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getTreeModelSortModel :: (MonadIO m, TreeModelSortK o) => o -> m TreeModel -getTreeModelSortModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel - -constructTreeModelSortModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeModelSortModel val = constructObjectPropertyObject "model" val - -data TreeModelSortModelPropertyInfo -instance AttrInfo TreeModelSortModelPropertyInfo where - type AttrAllowedOps TreeModelSortModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeModelSortModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint TreeModelSortModelPropertyInfo = TreeModelSortK - type AttrGetType TreeModelSortModelPropertyInfo = TreeModel - type AttrLabel TreeModelSortModelPropertyInfo = "TreeModelSort::model" - attrGet _ = getTreeModelSortModel - attrSet _ = undefined - attrConstruct _ = constructTreeModelSortModel - -type instance AttributeList TreeModelSort = TreeModelSortAttributeList -type TreeModelSortAttributeList = ('[ '("model", TreeModelSortModelPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TreeModelSort = TreeModelSortSignalList -type TreeModelSortSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeModelSort::clear_cache --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeModelSortClearCache _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_sort_clear_cache _obj' - touchManagedPtr _obj - return () - --- method TreeModelSort::convert_child_iter_to_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- child_iter - m (Bool,TreeIter) -treeModelSortConvertChildIterToIter _obj child_iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sort_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let child_iter' = unsafeManagedPtrGetPtr child_iter - result <- gtk_tree_model_sort_convert_child_iter_to_iter _obj' sort_iter child_iter' - let result' = (/= 0) result - sort_iter' <- (wrapBoxed TreeIter) sort_iter - touchManagedPtr _obj - touchManagedPtr child_iter - return (result', sort_iter') - --- method TreeModelSort::convert_child_path_to_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- child_path - m TreePath -treeModelSortConvertChildPathToPath _obj child_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child_path' = unsafeManagedPtrGetPtr child_path - result <- gtk_tree_model_sort_convert_child_path_to_path _obj' child_path' - checkUnexpectedReturnNULL "gtk_tree_model_sort_convert_child_path_to_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr child_path - return result' - --- method TreeModelSort::convert_iter_to_child_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- sorted_iter - m (TreeIter) -treeModelSortConvertIterToChildIter _obj sorted_iter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - child_iter <- callocBoxedBytes 32 :: IO (Ptr TreeIter) - let sorted_iter' = unsafeManagedPtrGetPtr sorted_iter - gtk_tree_model_sort_convert_iter_to_child_iter _obj' child_iter sorted_iter' - child_iter' <- (wrapBoxed TreeIter) child_iter - touchManagedPtr _obj - touchManagedPtr sorted_iter - return child_iter' - --- method TreeModelSort::convert_path_to_child_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sorted_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- sorted_path - m TreePath -treeModelSortConvertPathToChildPath _obj sorted_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sorted_path' = unsafeManagedPtrGetPtr sorted_path - result <- gtk_tree_model_sort_convert_path_to_child_path _obj' sorted_path' - checkUnexpectedReturnNULL "gtk_tree_model_sort_convert_path_to_child_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - touchManagedPtr sorted_path - return result' - --- method TreeModelSort::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModelSort::iter_is_valid --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeModelSort::reset_default_sort_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeModelSort", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeModelSortResetDefaultSortFunc _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_model_sort_reset_default_sort_func _obj' - touchManagedPtr _obj - return () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.TreeModelSort where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TreeModelSort = TreeModelSort (ForeignPtr TreeModelSort) -instance GObject TreeModelSort where -class GObject o => TreeModelSortK o -instance (GObject o, IsDescendantOf TreeModelSort o) => TreeModelSortK o -data TreeModelSortModelPropertyInfo 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,737 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treeSelectionCountSelectedRows , - - --- ** treeSelectionGetMode - treeSelectionGetMode , - - --- ** treeSelectionGetSelected - treeSelectionGetSelected , - - --- ** treeSelectionGetSelectedRows - treeSelectionGetSelectedRows , - - --- ** treeSelectionGetTreeView - treeSelectionGetTreeView , - - --- ** treeSelectionIterIsSelected - treeSelectionIterIsSelected , - - --- ** treeSelectionPathIsSelected - treeSelectionPathIsSelected , - - --- ** treeSelectionSelectAll - treeSelectionSelectAll , - - --- ** treeSelectionSelectIter - treeSelectionSelectIter , - - --- ** treeSelectionSelectPath - treeSelectionSelectPath , - - --- ** treeSelectionSelectRange - treeSelectionSelectRange , - - --- ** treeSelectionSelectedForeach - treeSelectionSelectedForeach , - - --- ** treeSelectionSetMode - treeSelectionSetMode , - - --- ** treeSelectionSetSelectFunction - treeSelectionSetSelectFunction , - - --- ** treeSelectionUnselectAll - treeSelectionUnselectAll , - - --- ** treeSelectionUnselectIter - treeSelectionUnselectIter , - - --- ** treeSelectionUnselectPath - treeSelectionUnselectPath , - - --- ** treeSelectionUnselectRange - treeSelectionUnselectRange , - - - - - -- * Properties --- ** Mode - TreeSelectionModePropertyInfo , - constructTreeSelectionMode , - getTreeSelectionMode , - setTreeSelectionMode , - - - - - -- * Signals --- ** Changed - TreeSelectionChangedCallback , - TreeSelectionChangedCallbackC , - TreeSelectionChangedSignalInfo , - afterTreeSelectionChanged , - mkTreeSelectionChangedCallback , - noTreeSelectionChangedCallback , - onTreeSelectionChanged , - treeSelectionChangedCallbackWrapper , - treeSelectionChangedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "TreeSelection::mode" - attrGet _ = getTreeSelectionMode - attrSet _ = setTreeSelectionMode - attrConstruct _ = constructTreeSelectionMode - -type instance AttributeList TreeSelection = TreeSelectionAttributeList -type TreeSelectionAttributeList = ('[ '("mode", TreeSelectionModePropertyInfo)] :: [(Symbol, *)]) - -data TreeSelectionChangedSignalInfo -instance SignalInfo TreeSelectionChangedSignalInfo where - type HaskellCallbackType TreeSelectionChangedSignalInfo = TreeSelectionChangedCallback - connectSignal _ = connectTreeSelectionChanged - -type instance SignalList TreeSelection = TreeSelectionSignalList -type TreeSelectionSignalList = ('[ '("changed", TreeSelectionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeSelection::count_selected_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeSelectionCountSelectedRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_selection_count_selected_rows _obj' - touchManagedPtr _obj - return result - --- method TreeSelection::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeSelectionGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_selection_get_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method TreeSelection::get_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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') - --- method TreeSelection::get_selected_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -treeSelectionGetSelectedRows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - model <- allocMem :: IO (Ptr (Ptr TreeModel)) - result <- gtk_tree_selection_get_selected_rows _obj' model - checkUnexpectedReturnNULL "gtk_tree_selection_get_selected_rows" result - 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'') - --- method TreeSelection::get_tree_view --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeSelection::iter_is_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeSelection::path_is_selected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeSelection::select_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeSelectionSelectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_selection_select_all _obj' - touchManagedPtr _obj - return () - --- method TreeSelection::select_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeSelection::select_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeSelection::select_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- start_path - TreePath -> -- end_path - m () -treeSelectionSelectRange _obj start_path end_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start_path' = unsafeManagedPtrGetPtr start_path - let end_path' = unsafeManagedPtrGetPtr end_path - gtk_tree_selection_select_range _obj' start_path' end_path' - touchManagedPtr _obj - touchManagedPtr start_path - touchManagedPtr end_path - return () - --- method TreeSelection::selected_foreach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -treeSelectionSelectedForeach :: - (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreeSelectionForeachFunc -> -- func - m () -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 () - --- method TreeSelection::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "SelectionMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeSelectionSetMode _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_tree_selection_set_mode _obj' type_' - touchManagedPtr _obj - return () - --- method TreeSelection::set_select_function --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeSelectionFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeSelectionSetSelectFunction :: - (MonadIO m, TreeSelectionK a) => - a -> -- _obj - TreeSelectionFunc -> -- func - m () -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 () - --- method TreeSelection::unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeSelectionUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_selection_unselect_all _obj' - touchManagedPtr _obj - return () - --- method TreeSelection::unselect_iter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeSelection::unselect_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeSelection::unselect_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeSelection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- start_path - TreePath -> -- end_path - m () -treeSelectionUnselectRange _obj start_path end_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start_path' = unsafeManagedPtrGetPtr start_path - let end_path' = unsafeManagedPtrGetPtr end_path - gtk_tree_selection_unselect_range _obj' start_path' end_path' - touchManagedPtr _obj - touchManagedPtr start_path - touchManagedPtr end_path - return () - - 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,15 +0,0 @@ -module GI.Gtk.Objects.TreeSelection where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,760 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treeStoreAppend , - - --- ** treeStoreClear - treeStoreClear , - - --- ** treeStoreInsert - treeStoreInsert , - - --- ** treeStoreInsertAfter - treeStoreInsertAfter , - - --- ** treeStoreInsertBefore - treeStoreInsertBefore , - - --- ** treeStoreInsertWithValues - treeStoreInsertWithValues , - - --- ** treeStoreIsAncestor - treeStoreIsAncestor , - - --- ** treeStoreIterDepth - treeStoreIterDepth , - - --- ** treeStoreIterIsValid - treeStoreIterIsValid , - - --- ** treeStoreMoveAfter - treeStoreMoveAfter , - - --- ** treeStoreMoveBefore - treeStoreMoveBefore , - - --- ** treeStoreNew - treeStoreNew , - - --- ** treeStorePrepend - treeStorePrepend , - - --- ** treeStoreRemove - treeStoreRemove , - - --- ** treeStoreSet - treeStoreSet , - - --- ** treeStoreSetColumnTypes - treeStoreSetColumnTypes , - - --- ** treeStoreSetValue - treeStoreSetValue , - - --- ** treeStoreSwap - treeStoreSwap , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList TreeStore = TreeStoreAttributeList -type TreeStoreAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TreeStore = TreeStoreSignalList -type TreeStoreSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeStore::new --- method type : Constructor --- Args : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "types", argType = TCArray False (-1) 0 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "TreeStore" --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_newv" gtk_tree_store_newv :: - Int32 -> -- n_columns : TBasicType TInt32 - Ptr CGType -> -- types : TCArray False (-1) 0 (TBasicType TGType) - IO (Ptr TreeStore) - - -treeStoreNew :: - (MonadIO m) => - [GType] -> -- types - m TreeStore -treeStoreNew types = liftIO $ do - let n_columns = fromIntegral $ length types - types' <- (packMapStorableArray gtypeToCGType) types - result <- gtk_tree_store_newv n_columns types' - checkUnexpectedReturnNULL "gtk_tree_store_newv" result - result' <- (wrapObject TreeStore) result - freeMem types' - return result' - --- method TreeStore::append --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method TreeStore::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeStoreClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_store_clear _obj' - touchManagedPtr _obj - return () - --- method TreeStore::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - IO () - - -treeStoreInsert :: - (MonadIO m, TreeStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - Int32 -> -- position - m (TreeIter) -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' - --- method TreeStore::insert_after --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method TreeStore::insert_before --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method TreeStore::insert_with_values --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 6 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 6 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- columns : TCArray False (-1) 6 (TBasicType TInt32) - Ptr GValue -> -- values : TCArray False (-1) 6 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt32 - IO () - - -treeStoreInsertWithValues :: - (MonadIO m, TreeStoreK a) => - a -> -- _obj - Maybe (TreeIter) -> -- parent - Int32 -> -- position - [Int32] -> -- columns - [GValue] -> -- values - m (TreeIter) -treeStoreInsertWithValues _obj parent position columns values = liftIO $ do - let n_values = fromIntegral $ length values - let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= n_values) $ - 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'' n_values - iter' <- (wrapBoxed TreeIter) iter - touchManagedPtr _obj - whenJust parent touchManagedPtr - mapM_ touchManagedPtr values - freeMem columns' - freeMem values'' - return iter' - --- method TreeStore::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeStore::iter_depth --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method TreeStore::iter_is_valid --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeStore::move_after --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeStore::move_before --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeStore::prepend --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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' - --- method TreeStore::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeStore::set_column_types --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_columns", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TCArray False (-1) 1 (TBasicType TGType), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_store_set_column_types" gtk_tree_store_set_column_types :: - Ptr TreeStore -> -- _obj : TInterface "Gtk" "TreeStore" - Int32 -> -- n_columns : TBasicType TInt32 - Ptr CGType -> -- types : TCArray False (-1) 1 (TBasicType TGType) - IO () - - -treeStoreSetColumnTypes :: - (MonadIO m, TreeStoreK a) => - a -> -- _obj - [GType] -> -- types - m () -treeStoreSetColumnTypes _obj types = liftIO $ do - let n_columns = fromIntegral $ length types - let _obj' = unsafeManagedPtrCastPtr _obj - types' <- (packMapStorableArray gtypeToCGType) types - gtk_tree_store_set_column_types _obj' n_columns types' - touchManagedPtr _obj - freeMem types' - return () - --- method TreeStore::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO () - - -treeStoreSetValue :: - (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - Int32 -> -- column - GValue -> -- value - m () -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 () - --- method TreeStore::set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "columns", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TCArray False (-1) 4 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32) - Ptr GValue -> -- values : TCArray False (-1) 4 (TInterface "GObject" "Value") - Int32 -> -- n_values : TBasicType TInt32 - IO () - - -treeStoreSet :: - (MonadIO m, TreeStoreK a) => - a -> -- _obj - TreeIter -> -- iter - [Int32] -> -- columns - [GValue] -> -- values - m () -treeStoreSet _obj iter columns values = liftIO $ do - let n_values = fromIntegral $ length values - let columns_expected_length_ = fromIntegral $ length columns - when (columns_expected_length_ /= n_values) $ - 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'' n_values - touchManagedPtr _obj - touchManagedPtr iter - mapM_ touchManagedPtr values - freeMem columns' - freeMem values'' - return () - --- method TreeStore::swap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.TreeStore where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TreeStore = TreeStore (ForeignPtr TreeStore) -instance GObject TreeStore where -class GObject o => TreeStoreK o -instance (GObject o, IsDescendantOf TreeStore o) => TreeStoreK o 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,4893 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treeViewAppendColumn , - - --- ** treeViewCollapseAll - treeViewCollapseAll , - - --- ** treeViewCollapseRow - treeViewCollapseRow , - - --- ** treeViewColumnsAutosize - treeViewColumnsAutosize , - - --- ** treeViewConvertBinWindowToTreeCoords - treeViewConvertBinWindowToTreeCoords , - - --- ** treeViewConvertBinWindowToWidgetCoords - treeViewConvertBinWindowToWidgetCoords , - - --- ** treeViewConvertTreeToBinWindowCoords - treeViewConvertTreeToBinWindowCoords , - - --- ** treeViewConvertTreeToWidgetCoords - treeViewConvertTreeToWidgetCoords , - - --- ** treeViewConvertWidgetToBinWindowCoords - treeViewConvertWidgetToBinWindowCoords , - - --- ** treeViewConvertWidgetToTreeCoords - treeViewConvertWidgetToTreeCoords , - - --- ** treeViewCreateRowDragIcon - treeViewCreateRowDragIcon , - - --- ** treeViewEnableModelDragDest - treeViewEnableModelDragDest , - - --- ** treeViewEnableModelDragSource - treeViewEnableModelDragSource , - - --- ** treeViewExpandAll - treeViewExpandAll , - - --- ** treeViewExpandRow - treeViewExpandRow , - - --- ** treeViewExpandToPath - treeViewExpandToPath , - - --- ** treeViewGetActivateOnSingleClick - treeViewGetActivateOnSingleClick , - - --- ** treeViewGetBackgroundArea - treeViewGetBackgroundArea , - - --- ** treeViewGetBinWindow - treeViewGetBinWindow , - - --- ** treeViewGetCellArea - treeViewGetCellArea , - - --- ** treeViewGetColumn - treeViewGetColumn , - - --- ** treeViewGetColumns - treeViewGetColumns , - - --- ** treeViewGetCursor - treeViewGetCursor , - - --- ** treeViewGetDestRowAtPos - treeViewGetDestRowAtPos , - - --- ** treeViewGetDragDestRow - treeViewGetDragDestRow , - - --- ** treeViewGetEnableSearch - treeViewGetEnableSearch , - - --- ** treeViewGetEnableTreeLines - treeViewGetEnableTreeLines , - - --- ** treeViewGetExpanderColumn - treeViewGetExpanderColumn , - - --- ** treeViewGetFixedHeightMode - treeViewGetFixedHeightMode , - - --- ** treeViewGetGridLines - treeViewGetGridLines , - - --- ** treeViewGetHadjustment - treeViewGetHadjustment , - - --- ** treeViewGetHeadersClickable - treeViewGetHeadersClickable , - - --- ** treeViewGetHeadersVisible - treeViewGetHeadersVisible , - - --- ** treeViewGetHoverExpand - treeViewGetHoverExpand , - - --- ** treeViewGetHoverSelection - treeViewGetHoverSelection , - - --- ** treeViewGetLevelIndentation - treeViewGetLevelIndentation , - - --- ** treeViewGetModel - treeViewGetModel , - - --- ** treeViewGetNColumns - treeViewGetNColumns , - - --- ** treeViewGetPathAtPos - treeViewGetPathAtPos , - - --- ** treeViewGetReorderable - treeViewGetReorderable , - - --- ** treeViewGetRubberBanding - treeViewGetRubberBanding , - - --- ** treeViewGetRulesHint - treeViewGetRulesHint , - - --- ** treeViewGetSearchColumn - treeViewGetSearchColumn , - - --- ** treeViewGetSearchEntry - treeViewGetSearchEntry , - - --- ** treeViewGetSelection - treeViewGetSelection , - - --- ** treeViewGetShowExpanders - treeViewGetShowExpanders , - - --- ** treeViewGetTooltipColumn - treeViewGetTooltipColumn , - - --- ** treeViewGetTooltipContext - treeViewGetTooltipContext , - - --- ** treeViewGetVadjustment - treeViewGetVadjustment , - - --- ** treeViewGetVisibleRange - treeViewGetVisibleRange , - - --- ** treeViewGetVisibleRect - treeViewGetVisibleRect , - - --- ** treeViewInsertColumn - treeViewInsertColumn , - - --- ** treeViewInsertColumnWithDataFunc - treeViewInsertColumnWithDataFunc , - - --- ** treeViewIsBlankAtPos - treeViewIsBlankAtPos , - - --- ** treeViewIsRubberBandingActive - treeViewIsRubberBandingActive , - - --- ** treeViewMapExpandedRows - treeViewMapExpandedRows , - - --- ** treeViewMoveColumnAfter - treeViewMoveColumnAfter , - - --- ** treeViewNew - treeViewNew , - - --- ** treeViewNewWithModel - treeViewNewWithModel , - - --- ** treeViewRemoveColumn - treeViewRemoveColumn , - - --- ** treeViewRowActivated - treeViewRowActivated , - - --- ** treeViewRowExpanded - treeViewRowExpanded , - - --- ** treeViewScrollToCell - treeViewScrollToCell , - - --- ** treeViewScrollToPoint - treeViewScrollToPoint , - - --- ** treeViewSetActivateOnSingleClick - treeViewSetActivateOnSingleClick , - - --- ** treeViewSetColumnDragFunction - treeViewSetColumnDragFunction , - - --- ** treeViewSetCursor - treeViewSetCursor , - - --- ** treeViewSetCursorOnCell - treeViewSetCursorOnCell , - - --- ** treeViewSetDestroyCountFunc - treeViewSetDestroyCountFunc , - - --- ** treeViewSetDragDestRow - treeViewSetDragDestRow , - - --- ** treeViewSetEnableSearch - treeViewSetEnableSearch , - - --- ** treeViewSetEnableTreeLines - treeViewSetEnableTreeLines , - - --- ** treeViewSetExpanderColumn - treeViewSetExpanderColumn , - - --- ** treeViewSetFixedHeightMode - treeViewSetFixedHeightMode , - - --- ** treeViewSetGridLines - treeViewSetGridLines , - - --- ** treeViewSetHadjustment - treeViewSetHadjustment , - - --- ** treeViewSetHeadersClickable - treeViewSetHeadersClickable , - - --- ** treeViewSetHeadersVisible - treeViewSetHeadersVisible , - - --- ** treeViewSetHoverExpand - treeViewSetHoverExpand , - - --- ** treeViewSetHoverSelection - treeViewSetHoverSelection , - - --- ** treeViewSetLevelIndentation - treeViewSetLevelIndentation , - - --- ** treeViewSetModel - treeViewSetModel , - - --- ** treeViewSetReorderable - treeViewSetReorderable , - - --- ** treeViewSetRowSeparatorFunc - treeViewSetRowSeparatorFunc , - - --- ** treeViewSetRubberBanding - treeViewSetRubberBanding , - - --- ** treeViewSetRulesHint - treeViewSetRulesHint , - - --- ** treeViewSetSearchColumn - treeViewSetSearchColumn , - - --- ** treeViewSetSearchEntry - treeViewSetSearchEntry , - - --- ** treeViewSetSearchEqualFunc - treeViewSetSearchEqualFunc , - - --- ** treeViewSetSearchPositionFunc - treeViewSetSearchPositionFunc , - - --- ** treeViewSetShowExpanders - treeViewSetShowExpanders , - - --- ** treeViewSetTooltipCell - treeViewSetTooltipCell , - - --- ** treeViewSetTooltipColumn - treeViewSetTooltipColumn , - - --- ** treeViewSetTooltipRow - treeViewSetTooltipRow , - - --- ** treeViewSetVadjustment - treeViewSetVadjustment , - - --- ** treeViewUnsetRowsDragDest - treeViewUnsetRowsDragDest , - - --- ** treeViewUnsetRowsDragSource - treeViewUnsetRowsDragSource , - - - - - -- * Properties --- ** ActivateOnSingleClick - TreeViewActivateOnSingleClickPropertyInfo, - constructTreeViewActivateOnSingleClick , - getTreeViewActivateOnSingleClick , - setTreeViewActivateOnSingleClick , - - --- ** EnableGridLines - TreeViewEnableGridLinesPropertyInfo , - constructTreeViewEnableGridLines , - getTreeViewEnableGridLines , - setTreeViewEnableGridLines , - - --- ** EnableSearch - TreeViewEnableSearchPropertyInfo , - constructTreeViewEnableSearch , - getTreeViewEnableSearch , - setTreeViewEnableSearch , - - --- ** EnableTreeLines - TreeViewEnableTreeLinesPropertyInfo , - constructTreeViewEnableTreeLines , - getTreeViewEnableTreeLines , - setTreeViewEnableTreeLines , - - --- ** ExpanderColumn - TreeViewExpanderColumnPropertyInfo , - constructTreeViewExpanderColumn , - getTreeViewExpanderColumn , - setTreeViewExpanderColumn , - - --- ** FixedHeightMode - TreeViewFixedHeightModePropertyInfo , - constructTreeViewFixedHeightMode , - getTreeViewFixedHeightMode , - setTreeViewFixedHeightMode , - - --- ** HeadersClickable - TreeViewHeadersClickablePropertyInfo , - constructTreeViewHeadersClickable , - getTreeViewHeadersClickable , - setTreeViewHeadersClickable , - - --- ** HeadersVisible - TreeViewHeadersVisiblePropertyInfo , - constructTreeViewHeadersVisible , - getTreeViewHeadersVisible , - setTreeViewHeadersVisible , - - --- ** HoverExpand - TreeViewHoverExpandPropertyInfo , - constructTreeViewHoverExpand , - getTreeViewHoverExpand , - setTreeViewHoverExpand , - - --- ** HoverSelection - TreeViewHoverSelectionPropertyInfo , - constructTreeViewHoverSelection , - getTreeViewHoverSelection , - setTreeViewHoverSelection , - - --- ** LevelIndentation - TreeViewLevelIndentationPropertyInfo , - constructTreeViewLevelIndentation , - getTreeViewLevelIndentation , - setTreeViewLevelIndentation , - - --- ** Model - TreeViewModelPropertyInfo , - constructTreeViewModel , - getTreeViewModel , - setTreeViewModel , - - --- ** Reorderable - TreeViewReorderablePropertyInfo , - constructTreeViewReorderable , - getTreeViewReorderable , - setTreeViewReorderable , - - --- ** RubberBanding - TreeViewRubberBandingPropertyInfo , - constructTreeViewRubberBanding , - getTreeViewRubberBanding , - setTreeViewRubberBanding , - - --- ** RulesHint - TreeViewRulesHintPropertyInfo , - constructTreeViewRulesHint , - getTreeViewRulesHint , - setTreeViewRulesHint , - - --- ** SearchColumn - TreeViewSearchColumnPropertyInfo , - constructTreeViewSearchColumn , - getTreeViewSearchColumn , - setTreeViewSearchColumn , - - --- ** ShowExpanders - TreeViewShowExpandersPropertyInfo , - constructTreeViewShowExpanders , - getTreeViewShowExpanders , - setTreeViewShowExpanders , - - --- ** TooltipColumn - TreeViewTooltipColumnPropertyInfo , - constructTreeViewTooltipColumn , - getTreeViewTooltipColumn , - setTreeViewTooltipColumn , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "TreeView::activate-on-single-click" - attrGet _ = getTreeViewActivateOnSingleClick - attrSet _ = setTreeViewActivateOnSingleClick - attrConstruct _ = constructTreeViewActivateOnSingleClick - --- VVV Prop "enable-grid-lines" - -- Type: TInterface "Gtk" "TreeViewGridLines" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::enable-grid-lines" - attrGet _ = getTreeViewEnableGridLines - attrSet _ = setTreeViewEnableGridLines - attrConstruct _ = constructTreeViewEnableGridLines - --- VVV Prop "enable-search" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::enable-search" - attrGet _ = getTreeViewEnableSearch - attrSet _ = setTreeViewEnableSearch - attrConstruct _ = constructTreeViewEnableSearch - --- VVV Prop "enable-tree-lines" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::enable-tree-lines" - attrGet _ = getTreeViewEnableTreeLines - attrSet _ = setTreeViewEnableTreeLines - attrConstruct _ = constructTreeViewEnableTreeLines - --- VVV Prop "expander-column" - -- Type: TInterface "Gtk" "TreeViewColumn" - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewExpanderColumn :: (MonadIO m, TreeViewK o) => o -> m TreeViewColumn -getTreeViewExpanderColumn obj = liftIO $ getObjectPropertyObject obj "expander-column" TreeViewColumn - -setTreeViewExpanderColumn :: (MonadIO m, TreeViewK o, TreeViewColumnK a) => o -> a -> m () -setTreeViewExpanderColumn obj val = liftIO $ setObjectPropertyObject obj "expander-column" val - -constructTreeViewExpanderColumn :: (TreeViewColumnK a) => a -> IO ([Char], GValue) -constructTreeViewExpanderColumn val = constructObjectPropertyObject "expander-column" 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 = "TreeView::expander-column" - attrGet _ = getTreeViewExpanderColumn - attrSet _ = setTreeViewExpanderColumn - attrConstruct _ = constructTreeViewExpanderColumn - --- VVV Prop "fixed-height-mode" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::fixed-height-mode" - attrGet _ = getTreeViewFixedHeightMode - attrSet _ = setTreeViewFixedHeightMode - attrConstruct _ = constructTreeViewFixedHeightMode - --- VVV Prop "headers-clickable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::headers-clickable" - attrGet _ = getTreeViewHeadersClickable - attrSet _ = setTreeViewHeadersClickable - attrConstruct _ = constructTreeViewHeadersClickable - --- VVV Prop "headers-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::headers-visible" - attrGet _ = getTreeViewHeadersVisible - attrSet _ = setTreeViewHeadersVisible - attrConstruct _ = constructTreeViewHeadersVisible - --- VVV Prop "hover-expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::hover-expand" - attrGet _ = getTreeViewHoverExpand - attrSet _ = setTreeViewHoverExpand - attrConstruct _ = constructTreeViewHoverExpand - --- VVV Prop "hover-selection" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::hover-selection" - attrGet _ = getTreeViewHoverSelection - attrSet _ = setTreeViewHoverSelection - attrConstruct _ = constructTreeViewHoverSelection - --- VVV Prop "level-indentation" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewLevelIndentation obj = liftIO $ getObjectPropertyCInt obj "level-indentation" - -setTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewLevelIndentation obj val = liftIO $ setObjectPropertyCInt obj "level-indentation" val - -constructTreeViewLevelIndentation :: Int32 -> IO ([Char], GValue) -constructTreeViewLevelIndentation val = constructObjectPropertyCInt "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 = "TreeView::level-indentation" - attrGet _ = getTreeViewLevelIndentation - attrSet _ = setTreeViewLevelIndentation - attrConstruct _ = constructTreeViewLevelIndentation - --- VVV Prop "model" - -- Type: TInterface "Gtk" "TreeModel" - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m 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" val - -constructTreeViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) -constructTreeViewModel val = constructObjectPropertyObject "model" val - -data TreeViewModelPropertyInfo -instance AttrInfo TreeViewModelPropertyInfo where - type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewModelPropertyInfo = TreeModelK - type AttrBaseTypeConstraint TreeViewModelPropertyInfo = TreeViewK - type AttrGetType TreeViewModelPropertyInfo = TreeModel - type AttrLabel TreeViewModelPropertyInfo = "TreeView::model" - attrGet _ = getTreeViewModel - attrSet _ = setTreeViewModel - attrConstruct _ = constructTreeViewModel - --- VVV Prop "reorderable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::reorderable" - attrGet _ = getTreeViewReorderable - attrSet _ = setTreeViewReorderable - attrConstruct _ = constructTreeViewReorderable - --- VVV Prop "rubber-banding" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::rubber-banding" - attrGet _ = getTreeViewRubberBanding - attrSet _ = setTreeViewRubberBanding - attrConstruct _ = constructTreeViewRubberBanding - --- VVV Prop "rules-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::rules-hint" - attrGet _ = getTreeViewRulesHint - attrSet _ = setTreeViewRulesHint - attrConstruct _ = constructTreeViewRulesHint - --- VVV Prop "search-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewSearchColumn obj = liftIO $ getObjectPropertyCInt obj "search-column" - -setTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewSearchColumn obj val = liftIO $ setObjectPropertyCInt obj "search-column" val - -constructTreeViewSearchColumn :: Int32 -> IO ([Char], GValue) -constructTreeViewSearchColumn val = constructObjectPropertyCInt "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 = "TreeView::search-column" - attrGet _ = getTreeViewSearchColumn - attrSet _ = setTreeViewSearchColumn - attrConstruct _ = constructTreeViewSearchColumn - --- VVV Prop "show-expanders" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeView::show-expanders" - attrGet _ = getTreeViewShowExpanders - attrSet _ = setTreeViewShowExpanders - attrConstruct _ = constructTreeViewShowExpanders - --- VVV Prop "tooltip-column" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 -getTreeViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" - -setTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () -setTreeViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val - -constructTreeViewTooltipColumn :: Int32 -> IO ([Char], GValue) -constructTreeViewTooltipColumn val = constructObjectPropertyCInt "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 = "TreeView::tooltip-column" - attrGet _ = getTreeViewTooltipColumn - attrSet _ = setTreeViewTooltipColumn - attrConstruct _ = constructTreeViewTooltipColumn - -type instance AttributeList TreeView = TreeViewAttributeList -type TreeViewAttributeList = ('[ '("activate-on-single-click", TreeViewActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("enable-grid-lines", TreeViewEnableGridLinesPropertyInfo), '("enable-search", TreeViewEnableSearchPropertyInfo), '("enable-tree-lines", TreeViewEnableTreeLinesPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expander-column", TreeViewExpanderColumnPropertyInfo), '("fixed-height-mode", TreeViewFixedHeightModePropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("headers-clickable", TreeViewHeadersClickablePropertyInfo), '("headers-visible", TreeViewHeadersVisiblePropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hover-expand", TreeViewHoverExpandPropertyInfo), '("hover-selection", TreeViewHoverSelectionPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("level-indentation", TreeViewLevelIndentationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", TreeViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reorderable", TreeViewReorderablePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rubber-banding", TreeViewRubberBandingPropertyInfo), '("rules-hint", TreeViewRulesHintPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-column", TreeViewSearchColumnPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-expanders", TreeViewShowExpandersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-column", TreeViewTooltipColumnPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("columns-changed", TreeViewColumnsChangedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cursor-changed", TreeViewCursorChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("expand-collapse-cursor-row", TreeViewExpandCollapseCursorRowSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", TreeViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("row-activated", TreeViewRowActivatedSignalInfo), '("row-collapsed", TreeViewRowCollapsedSignalInfo), '("row-expanded", TreeViewRowExpandedSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", TreeViewSelectAllSignalInfo), '("select-cursor-parent", TreeViewSelectCursorParentSignalInfo), '("select-cursor-row", TreeViewSelectCursorRowSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("start-interactive-search", TreeViewStartInteractiveSearchSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("test-collapse-row", TreeViewTestCollapseRowSignalInfo), '("test-expand-row", TreeViewTestExpandRowSignalInfo), '("toggle-cursor-row", TreeViewToggleCursorRowSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", TreeViewUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeView::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method TreeView::collapse_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewCollapseAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_collapse_all _obj' - touchManagedPtr _obj - return () - --- method TreeView::collapse_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::columns_autosize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewColumnsAutosize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_columns_autosize _obj' - touchManagedPtr _obj - return () - --- method TreeView::convert_bin_window_to_tree_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- by : TBasicType TInt32 - Ptr Int32 -> -- tx : TBasicType TInt32 - Ptr Int32 -> -- ty : TBasicType TInt32 - IO () - - -treeViewConvertBinWindowToTreeCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- bx - Int32 -> -- by - m (Int32,Int32) -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') - --- method TreeView::convert_bin_window_to_widget_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- by : TBasicType TInt32 - Ptr Int32 -> -- wx : TBasicType TInt32 - Ptr Int32 -> -- wy : TBasicType TInt32 - IO () - - -treeViewConvertBinWindowToWidgetCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- bx - Int32 -> -- by - m (Int32,Int32) -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') - --- method TreeView::convert_tree_to_bin_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- ty : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 - IO () - - -treeViewConvertTreeToBinWindowCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- tx - Int32 -> -- ty - m (Int32,Int32) -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') - --- method TreeView::convert_tree_to_widget_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_convert_tree_to_widget_coords" gtk_tree_view_convert_tree_to_widget_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tx : TBasicType TInt32 - Int32 -> -- ty : TBasicType TInt32 - Ptr Int32 -> -- wx : TBasicType TInt32 - Ptr Int32 -> -- wy : TBasicType TInt32 - IO () - - -treeViewConvertTreeToWidgetCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- tx - Int32 -> -- ty - m (Int32,Int32) -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') - --- method TreeView::convert_widget_to_bin_window_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "by", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- bx : TBasicType TInt32 - Ptr Int32 -> -- by : TBasicType TInt32 - IO () - - -treeViewConvertWidgetToBinWindowCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- wx - Int32 -> -- wy - m (Int32,Int32) -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') - --- method TreeView::convert_widget_to_tree_coords --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ty", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_convert_widget_to_tree_coords" gtk_tree_view_convert_widget_to_tree_coords :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- wx : TBasicType TInt32 - Int32 -> -- wy : TBasicType TInt32 - Ptr Int32 -> -- tx : TBasicType TInt32 - Ptr Int32 -> -- ty : TBasicType TInt32 - IO () - - -treeViewConvertWidgetToTreeCoords :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- wx - Int32 -> -- wy - m (Int32,Int32) -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') - --- method TreeView::create_row_drag_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::enable_model_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -treeViewEnableModelDragDest :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - [TargetEntry] -> -- targets - [Gdk.DragAction] -> -- actions - m () -treeViewEnableModelDragDest _obj targets actions = liftIO $ do - let n_targets = 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'' n_targets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - --- method TreeView::enable_model_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -treeViewEnableModelDragSource :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - [Gdk.ModifierType] -> -- start_button_mask - [TargetEntry] -> -- targets - [Gdk.DragAction] -> -- actions - m () -treeViewEnableModelDragSource _obj start_button_mask targets actions = liftIO $ do - let n_targets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let start_button_mask' = gflagsToWord start_button_mask - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packBlockArray 16 targets' - let actions' = gflagsToWord actions - gtk_tree_view_enable_model_drag_source _obj' start_button_mask' targets'' n_targets actions' - touchManagedPtr _obj - mapM_ touchManagedPtr targets - freeMem targets'' - return () - --- method TreeView::expand_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewExpandAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_expand_all _obj' - touchManagedPtr _obj - return () - --- method TreeView::expand_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "open_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "open_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- open_all - m Bool -treeViewExpandRow _obj path open_all = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - let open_all' = (fromIntegral . fromEnum) open_all - result <- gtk_tree_view_expand_row _obj' path' open_all' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr path - return result' - --- method TreeView::expand_to_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::get_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_background_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO () - - -treeViewGetBackgroundArea :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - Maybe (TreePath) -> -- path - Maybe (b) -> -- column - m (Cairo.RectangleInt) -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 Cairo.RectangleInt) - gtk_tree_view_get_background_area _obj' maybePath maybeColumn rect - rect' <- (wrapBoxed Cairo.RectangleInt) rect - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return rect' - --- method TreeView::get_bin_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_cell_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO () - - -treeViewGetCellArea :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - Maybe (TreePath) -> -- path - Maybe (b) -> -- column - m (Cairo.RectangleInt) -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 Cairo.RectangleInt) - gtk_tree_view_get_cell_area _obj' maybePath maybeColumn rect - rect' <- (wrapBoxed Cairo.RectangleInt) rect - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return rect' - --- method TreeView::get_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr TreeViewColumn) - - -treeViewGetColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- n - m TreeViewColumn -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' - --- method TreeView::get_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -treeViewGetColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_columns _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_columns" result - result' <- unpackGList result - result'' <- mapM (newObject TreeViewColumn) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method TreeView::get_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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)) -treeViewGetCursor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - focus_column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - gtk_tree_view_get_cursor _obj' path focus_column - path' <- peek path - maybePath' <- convertIfNonNull path' $ \path'' -> do - path''' <- (wrapBoxed TreePath) path'' - return path''' - focus_column' <- peek focus_column - maybeFocus_column' <- convertIfNonNull focus_column' $ \focus_column'' -> do - focus_column''' <- (newObject TreeViewColumn) focus_column'' - return focus_column''' - touchManagedPtr _obj - freeMem path - freeMem focus_column - return (maybePath', maybeFocus_column') - --- method TreeView::get_dest_row_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- drag_y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr CUInt -> -- pos : TInterface "Gtk" "TreeViewDropPosition" - IO CInt - - -treeViewGetDestRowAtPos :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- drag_x - Int32 -> -- drag_y - m (Bool,(Maybe TreePath),TreeViewDropPosition) -treeViewGetDestRowAtPos _obj drag_x drag_y = 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' drag_x drag_y 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'') - --- method TreeView::get_drag_dest_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -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'') - --- method TreeView::get_enable_search --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetEnableSearch _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_enable_search _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_enable_tree_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_expander_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_fixed_height_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_grid_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_headers_clickable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetHeadersClickable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_headers_clickable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_headers_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetHeadersVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_headers_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_hover_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetHoverExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_hover_expand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_hover_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetHoverSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_hover_selection _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_level_indentation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewGetLevelIndentation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_level_indentation _obj' - touchManagedPtr _obj - return result - --- method TreeView::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TreeModel -treeViewGetModel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_model _obj' - checkUnexpectedReturnNULL "gtk_tree_view_get_model" result - result' <- (newObject TreeModel) result - touchManagedPtr _obj - return result' - --- method TreeView::get_n_columns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -treeViewGetNColumns _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_n_columns _obj' - touchManagedPtr _obj - return result - --- method TreeView::get_path_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Int32 -> -- cell_x : TBasicType TInt32 - Ptr Int32 -> -- cell_y : TBasicType TInt32 - IO CInt - - -treeViewGetPathAtPos :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (Bool,(Maybe TreePath),(Maybe TreeViewColumn),Int32,Int32) -treeViewGetPathAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - cell_x <- allocMem :: IO (Ptr Int32) - cell_y <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_get_path_at_pos _obj' x y path column cell_x cell_y - 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''' - cell_x' <- peek cell_x - cell_y' <- peek cell_y - touchManagedPtr _obj - freeMem path - freeMem column - freeMem cell_x - freeMem cell_y - return (result', maybePath', maybeColumn', cell_x', cell_y') - --- method TreeView::get_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetReorderable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_reorderable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_rubber_banding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetRubberBanding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_rubber_banding _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_rules_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetRulesHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_rules_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_search_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewGetSearchColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_search_column _obj' - touchManagedPtr _obj - return result - --- method TreeView::get_search_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_show_expanders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewGetShowExpanders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_show_expanders _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeView::get_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewGetTooltipColumn _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_get_tooltip_column _obj' - touchManagedPtr _obj - return result - --- method TreeView::get_tooltip_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyboard_tip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - 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 -> -- keyboard_tip - m (Bool,Int32,Int32,(Maybe TreeModel),TreePath,TreeIter) -treeViewGetTooltipContext _obj x y keyboard_tip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x' <- allocMem :: IO (Ptr Int32) - poke x' x - y' <- allocMem :: IO (Ptr Int32) - poke y' y - let keyboard_tip' = (fromIntegral . fromEnum) keyboard_tip - 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' keyboard_tip' 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') - --- method TreeView::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::get_visible_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -treeViewGetVisibleRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - start_path <- allocMem :: IO (Ptr (Ptr TreePath)) - end_path <- allocMem :: IO (Ptr (Ptr TreePath)) - result <- gtk_tree_view_get_visible_range _obj' start_path end_path - let result' = (/= 0) result - start_path' <- peek start_path - start_path'' <- (wrapBoxed TreePath) start_path' - end_path' <- peek end_path - end_path'' <- (wrapBoxed TreePath) end_path' - touchManagedPtr _obj - freeMem start_path - freeMem end_path - return (result', start_path'', end_path'') - --- method TreeView::get_visible_rect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible_rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- visible_rect : TInterface "cairo" "RectangleInt" - IO () - - -treeViewGetVisibleRect :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - m (Cairo.RectangleInt) -treeViewGetVisibleRect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - visible_rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_tree_view_get_visible_rect _obj' visible_rect - visible_rect' <- (wrapBoxed Cairo.RectangleInt) visible_rect - touchManagedPtr _obj - return visible_rect' - --- method TreeView::insert_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - IO Int32 - - -treeViewInsertColumn :: - (MonadIO m, TreeViewK a, TreeViewColumnK b) => - a -> -- _obj - b -> -- column - Int32 -> -- position - m Int32 -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 - --- method TreeView::insert_column_with_data_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 TInt32 - CString -> -- title : TBasicType TUTF8 - Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" - FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc" - Ptr () -> -- data : TBasicType TVoid - 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 -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 - --- method TreeView::is_blank_at_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cell_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Ptr (Ptr TreePath) -> -- path : TInterface "Gtk" "TreePath" - Ptr (Ptr TreeViewColumn) -> -- column : TInterface "Gtk" "TreeViewColumn" - Ptr Int32 -> -- cell_x : TBasicType TInt32 - Ptr Int32 -> -- cell_y : TBasicType TInt32 - IO CInt - - -treeViewIsBlankAtPos :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m (Bool,TreePath,TreeViewColumn,Int32,Int32) -treeViewIsBlankAtPos _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path <- allocMem :: IO (Ptr (Ptr TreePath)) - column <- allocMem :: IO (Ptr (Ptr TreeViewColumn)) - cell_x <- allocMem :: IO (Ptr Int32) - cell_y <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_is_blank_at_pos _obj' x y path column cell_x cell_y - let result' = (/= 0) result - path' <- peek path - path'' <- (wrapBoxed TreePath) path' - column' <- peek column - column'' <- (wrapObject TreeViewColumn) column' - cell_x' <- peek cell_x - cell_y' <- peek cell_y - touchManagedPtr _obj - freeMem path - freeMem column - freeMem cell_x - freeMem cell_y - return (result', path'', column'', cell_x', cell_y') - --- method TreeView::is_rubber_banding_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::map_expanded_rows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewMappingFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - IO () - - -treeViewMapExpandedRows :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreeViewMappingFunc -> -- func - m () -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 () - --- method TreeView::move_column_after --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- base_column - m () -treeViewMoveColumnAfter _obj column base_column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let column' = unsafeManagedPtrCastPtr column - maybeBase_column <- case base_column of - Nothing -> return nullPtr - Just jBase_column -> do - let jBase_column' = unsafeManagedPtrCastPtr jBase_column - return jBase_column' - gtk_tree_view_move_column_after _obj' column' maybeBase_column - touchManagedPtr _obj - touchManagedPtr column - whenJust base_column touchManagedPtr - return () - --- method TreeView::remove_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method TreeView::row_activated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::row_expanded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeView::scroll_to_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_align", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "row_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "col_align", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- use_align - Float -> -- row_align - Float -> -- col_align - m () -treeViewScrollToCell _obj path column use_align row_align col_align = 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 use_align' = (fromIntegral . fromEnum) use_align - let row_align' = realToFrac row_align - let col_align' = realToFrac col_align - gtk_tree_view_scroll_to_cell _obj' maybePath maybeColumn use_align' row_align' col_align' - touchManagedPtr _obj - whenJust path touchManagedPtr - whenJust column touchManagedPtr - return () - --- method TreeView::scroll_to_point --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- tree_x : TBasicType TInt32 - Int32 -> -- tree_y : TBasicType TInt32 - IO () - - -treeViewScrollToPoint :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- tree_x - Int32 -> -- tree_y - m () -treeViewScrollToPoint _obj tree_x tree_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_scroll_to_point _obj' tree_x tree_y - touchManagedPtr _obj - return () - --- method TreeView::set_activate_on_single_click --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "single", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_column_drag_function --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewColumnDropFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetColumnDragFunction :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Maybe (TreeViewColumnDropFunc) -> -- func - m () -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 user_data = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_set_column_drag_function _obj' maybeFunc user_data destroy - touchManagedPtr _obj - return () - --- method TreeView::set_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- focus_column - Bool -> -- start_editing - m () -treeViewSetCursor _obj path focus_column start_editing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeFocus_column <- case focus_column of - Nothing -> return nullPtr - Just jFocus_column -> do - let jFocus_column' = unsafeManagedPtrCastPtr jFocus_column - return jFocus_column' - let start_editing' = (fromIntegral . fromEnum) start_editing - gtk_tree_view_set_cursor _obj' path' maybeFocus_column start_editing' - touchManagedPtr _obj - touchManagedPtr path - whenJust focus_column touchManagedPtr - return () - --- method TreeView::set_cursor_on_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_editing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- focus_column - Maybe (c) -> -- focus_cell - Bool -> -- start_editing - m () -treeViewSetCursorOnCell _obj path focus_column focus_cell start_editing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let path' = unsafeManagedPtrGetPtr path - maybeFocus_column <- case focus_column of - Nothing -> return nullPtr - Just jFocus_column -> do - let jFocus_column' = unsafeManagedPtrCastPtr jFocus_column - return jFocus_column' - maybeFocus_cell <- case focus_cell of - Nothing -> return nullPtr - Just jFocus_cell -> do - let jFocus_cell' = unsafeManagedPtrCastPtr jFocus_cell - return jFocus_cell' - let start_editing' = (fromIntegral . fromEnum) start_editing - gtk_tree_view_set_cursor_on_cell _obj' path' maybeFocus_column maybeFocus_cell start_editing' - touchManagedPtr _obj - touchManagedPtr path - whenJust focus_column touchManagedPtr - whenJust focus_cell touchManagedPtr - return () - --- method TreeView::set_destroy_count_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeDestroyCountFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - 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 () -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 () - --- method TreeView::set_drag_dest_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Gtk" "TreeViewDropPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_enable_search --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable_search", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- enable_search - m () -treeViewSetEnableSearch _obj enable_search = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enable_search' = (fromIntegral . fromEnum) enable_search - gtk_tree_view_set_enable_search _obj' enable_search' - touchManagedPtr _obj - return () - --- method TreeView::set_enable_tree_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_expander_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_fixed_height_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_grid_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grid_lines", argType = TInterface "Gtk" "TreeViewGridLines", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- grid_lines - m () -treeViewSetGridLines _obj grid_lines = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let grid_lines' = (fromIntegral . fromEnum) grid_lines - gtk_tree_view_set_grid_lines _obj' grid_lines' - touchManagedPtr _obj - return () - --- method TreeView::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_headers_clickable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_headers_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- headers_visible - m () -treeViewSetHeadersVisible _obj headers_visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let headers_visible' = (fromIntegral . fromEnum) headers_visible - gtk_tree_view_set_headers_visible _obj' headers_visible' - touchManagedPtr _obj - return () - --- method TreeView::set_hover_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_hover_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hover", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_level_indentation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indentation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indentation", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation :: - Ptr TreeView -> -- _obj : TInterface "Gtk" "TreeView" - Int32 -> -- indentation : TBasicType TInt32 - IO () - - -treeViewSetLevelIndentation :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- indentation - m () -treeViewSetLevelIndentation _obj indentation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_level_indentation _obj' indentation - touchManagedPtr _obj - return () - --- method TreeView::set_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewSetReorderable _obj reorderable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let reorderable' = (fromIntegral . fromEnum) reorderable - gtk_tree_view_set_reorderable _obj' reorderable' - touchManagedPtr _obj - return () - --- method TreeView::set_row_separator_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewRowSeparatorFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetRowSeparatorFunc :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Maybe (TreeViewRowSeparatorFunc) -> -- func - m () -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 () - --- method TreeView::set_rubber_banding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_rules_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_search_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -treeViewSetSearchColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- column - m () -treeViewSetSearchColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_search_column _obj' column - touchManagedPtr _obj - return () - --- method TreeView::set_search_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entry", argType = TInterface "Gtk" "Entry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_search_equal_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "search_user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_equal_func", argType = TInterface "Gtk" "TreeViewSearchEqualFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- search_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetSearchEqualFunc :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - TreeViewSearchEqualFunc -> -- search_equal_func - m () -treeViewSetSearchEqualFunc _obj search_equal_func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - search_equal_func' <- mkTreeViewSearchEqualFunc (treeViewSearchEqualFuncWrapper Nothing search_equal_func) - let search_user_data = castFunPtrToPtr search_equal_func' - let search_destroy = safeFreeFunPtrPtr - gtk_tree_view_set_search_equal_func _obj' search_equal_func' search_user_data search_destroy - touchManagedPtr _obj - return () - --- method TreeView::set_search_position_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeViewSearchPositionFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewSetSearchPositionFunc :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Maybe (TreeViewSearchPositionFunc) -> -- func - m () -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 () - --- method TreeView::set_show_expanders --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_tooltip_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_tooltip_column --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -treeViewSetTooltipColumn :: - (MonadIO m, TreeViewK a) => - a -> -- _obj - Int32 -> -- column - m () -treeViewSetTooltipColumn _obj column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_set_tooltip_column _obj' column - touchManagedPtr _obj - return () - --- method TreeView::set_tooltip_row --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tooltip", argType = TInterface "Gtk" "Tooltip", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeView::unset_rows_drag_dest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewUnsetRowsDragDest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_unset_rows_drag_dest _obj' - touchManagedPtr _obj - return () - --- method TreeView::unset_rows_drag_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeView", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewUnsetRowsDragSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_unset_rows_drag_source _obj' - touchManagedPtr _obj - return () - - 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,46 +0,0 @@ -module GI.Gtk.Objects.TreeView where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList TreeViewAccessible = TreeViewAccessibleAttributeList -type TreeViewAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList TreeViewAccessible = TreeViewAccessibleSignalList -type TreeViewAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("column-deleted", Atk.TableColumnDeletedSignalInfo), '("column-inserted", Atk.TableColumnInsertedSignalInfo), '("column-reordered", Atk.TableColumnReorderedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("model-changed", Atk.TableModelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("row-deleted", Atk.TableRowDeletedSignalInfo), '("row-inserted", Atk.TableRowInsertedSignalInfo), '("row-reordered", Atk.TableRowReorderedSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,2286 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treeViewColumnAddAttribute , - - --- ** treeViewColumnCellGetPosition - treeViewColumnCellGetPosition , - - --- ** treeViewColumnCellGetSize - treeViewColumnCellGetSize , - - --- ** treeViewColumnCellIsVisible - treeViewColumnCellIsVisible , - - --- ** treeViewColumnCellSetCellData - treeViewColumnCellSetCellData , - - --- ** treeViewColumnClear - treeViewColumnClear , - - --- ** treeViewColumnClearAttributes - treeViewColumnClearAttributes , - - --- ** treeViewColumnClicked - treeViewColumnClicked , - - --- ** treeViewColumnFocusCell - treeViewColumnFocusCell , - - --- ** treeViewColumnGetAlignment - treeViewColumnGetAlignment , - - --- ** treeViewColumnGetButton - treeViewColumnGetButton , - - --- ** treeViewColumnGetClickable - treeViewColumnGetClickable , - - --- ** treeViewColumnGetExpand - treeViewColumnGetExpand , - - --- ** treeViewColumnGetFixedWidth - treeViewColumnGetFixedWidth , - - --- ** treeViewColumnGetMaxWidth - treeViewColumnGetMaxWidth , - - --- ** treeViewColumnGetMinWidth - treeViewColumnGetMinWidth , - - --- ** treeViewColumnGetReorderable - treeViewColumnGetReorderable , - - --- ** treeViewColumnGetResizable - treeViewColumnGetResizable , - - --- ** treeViewColumnGetSizing - treeViewColumnGetSizing , - - --- ** treeViewColumnGetSortColumnId - treeViewColumnGetSortColumnId , - - --- ** treeViewColumnGetSortIndicator - treeViewColumnGetSortIndicator , - - --- ** treeViewColumnGetSortOrder - treeViewColumnGetSortOrder , - - --- ** treeViewColumnGetSpacing - treeViewColumnGetSpacing , - - --- ** treeViewColumnGetTitle - treeViewColumnGetTitle , - - --- ** treeViewColumnGetTreeView - treeViewColumnGetTreeView , - - --- ** treeViewColumnGetVisible - treeViewColumnGetVisible , - - --- ** treeViewColumnGetWidget - treeViewColumnGetWidget , - - --- ** treeViewColumnGetWidth - treeViewColumnGetWidth , - - --- ** treeViewColumnGetXOffset - treeViewColumnGetXOffset , - - --- ** treeViewColumnNew - treeViewColumnNew , - - --- ** treeViewColumnNewWithArea - treeViewColumnNewWithArea , - - --- ** treeViewColumnPackEnd - treeViewColumnPackEnd , - - --- ** treeViewColumnPackStart - treeViewColumnPackStart , - - --- ** treeViewColumnQueueResize - treeViewColumnQueueResize , - - --- ** treeViewColumnSetAlignment - treeViewColumnSetAlignment , - - --- ** treeViewColumnSetCellDataFunc - treeViewColumnSetCellDataFunc , - - --- ** treeViewColumnSetClickable - treeViewColumnSetClickable , - - --- ** treeViewColumnSetExpand - treeViewColumnSetExpand , - - --- ** treeViewColumnSetFixedWidth - treeViewColumnSetFixedWidth , - - --- ** treeViewColumnSetMaxWidth - treeViewColumnSetMaxWidth , - - --- ** treeViewColumnSetMinWidth - treeViewColumnSetMinWidth , - - --- ** treeViewColumnSetReorderable - treeViewColumnSetReorderable , - - --- ** treeViewColumnSetResizable - treeViewColumnSetResizable , - - --- ** treeViewColumnSetSizing - treeViewColumnSetSizing , - - --- ** treeViewColumnSetSortColumnId - treeViewColumnSetSortColumnId , - - --- ** treeViewColumnSetSortIndicator - treeViewColumnSetSortIndicator , - - --- ** treeViewColumnSetSortOrder - treeViewColumnSetSortOrder , - - --- ** treeViewColumnSetSpacing - treeViewColumnSetSpacing , - - --- ** treeViewColumnSetTitle - treeViewColumnSetTitle , - - --- ** treeViewColumnSetVisible - treeViewColumnSetVisible , - - --- ** treeViewColumnSetWidget - treeViewColumnSetWidget , - - - - - -- * Properties --- ** Alignment - TreeViewColumnAlignmentPropertyInfo , - constructTreeViewColumnAlignment , - getTreeViewColumnAlignment , - setTreeViewColumnAlignment , - - --- ** CellArea - TreeViewColumnCellAreaPropertyInfo , - constructTreeViewColumnCellArea , - getTreeViewColumnCellArea , - - --- ** Clickable - TreeViewColumnClickablePropertyInfo , - constructTreeViewColumnClickable , - getTreeViewColumnClickable , - setTreeViewColumnClickable , - - --- ** Expand - TreeViewColumnExpandPropertyInfo , - constructTreeViewColumnExpand , - getTreeViewColumnExpand , - setTreeViewColumnExpand , - - --- ** FixedWidth - TreeViewColumnFixedWidthPropertyInfo , - constructTreeViewColumnFixedWidth , - getTreeViewColumnFixedWidth , - setTreeViewColumnFixedWidth , - - --- ** MaxWidth - TreeViewColumnMaxWidthPropertyInfo , - constructTreeViewColumnMaxWidth , - getTreeViewColumnMaxWidth , - setTreeViewColumnMaxWidth , - - --- ** MinWidth - TreeViewColumnMinWidthPropertyInfo , - constructTreeViewColumnMinWidth , - getTreeViewColumnMinWidth , - setTreeViewColumnMinWidth , - - --- ** Reorderable - TreeViewColumnReorderablePropertyInfo , - constructTreeViewColumnReorderable , - getTreeViewColumnReorderable , - setTreeViewColumnReorderable , - - --- ** Resizable - TreeViewColumnResizablePropertyInfo , - constructTreeViewColumnResizable , - getTreeViewColumnResizable , - setTreeViewColumnResizable , - - --- ** Sizing - TreeViewColumnSizingPropertyInfo , - constructTreeViewColumnSizing , - getTreeViewColumnSizing , - setTreeViewColumnSizing , - - --- ** SortColumnId - TreeViewColumnSortColumnIdPropertyInfo , - constructTreeViewColumnSortColumnId , - getTreeViewColumnSortColumnId , - setTreeViewColumnSortColumnId , - - --- ** SortIndicator - TreeViewColumnSortIndicatorPropertyInfo , - constructTreeViewColumnSortIndicator , - getTreeViewColumnSortIndicator , - setTreeViewColumnSortIndicator , - - --- ** SortOrder - TreeViewColumnSortOrderPropertyInfo , - constructTreeViewColumnSortOrder , - getTreeViewColumnSortOrder , - setTreeViewColumnSortOrder , - - --- ** Spacing - TreeViewColumnSpacingPropertyInfo , - constructTreeViewColumnSpacing , - getTreeViewColumnSpacing , - setTreeViewColumnSpacing , - - --- ** Title - TreeViewColumnTitlePropertyInfo , - constructTreeViewColumnTitle , - getTreeViewColumnTitle , - setTreeViewColumnTitle , - - --- ** Visible - TreeViewColumnVisiblePropertyInfo , - constructTreeViewColumnVisible , - getTreeViewColumnVisible , - setTreeViewColumnVisible , - - --- ** Widget - TreeViewColumnWidgetPropertyInfo , - constructTreeViewColumnWidget , - getTreeViewColumnWidget , - setTreeViewColumnWidget , - - --- ** Width - TreeViewColumnWidthPropertyInfo , - getTreeViewColumnWidth , - - --- ** XOffset - TreeViewColumnXOffsetPropertyInfo , - getTreeViewColumnXOffset , - - - - - -- * Signals --- ** Clicked - TreeViewColumnClickedCallback , - TreeViewColumnClickedCallbackC , - TreeViewColumnClickedSignalInfo , - afterTreeViewColumnClicked , - mkTreeViewColumnClickedCallback , - noTreeViewColumnClickedCallback , - onTreeViewColumnClicked , - treeViewColumnClickedCallbackWrapper , - treeViewColumnClickedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Cairo as Cairo - -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 - --- 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] - -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 = "TreeViewColumn::alignment" - attrGet _ = getTreeViewColumnAlignment - attrSet _ = setTreeViewColumnAlignment - attrConstruct _ = constructTreeViewColumnAlignment - --- VVV Prop "cell-area" - -- Type: TInterface "Gtk" "CellArea" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getTreeViewColumnCellArea :: (MonadIO m, TreeViewColumnK o) => o -> m CellArea -getTreeViewColumnCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea - -constructTreeViewColumnCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) -constructTreeViewColumnCellArea val = constructObjectPropertyObject "cell-area" val - -data TreeViewColumnCellAreaPropertyInfo -instance AttrInfo TreeViewColumnCellAreaPropertyInfo where - type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = CellAreaK - type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnCellAreaPropertyInfo = CellArea - type AttrLabel TreeViewColumnCellAreaPropertyInfo = "TreeViewColumn::cell-area" - attrGet _ = getTreeViewColumnCellArea - attrSet _ = undefined - attrConstruct _ = constructTreeViewColumnCellArea - --- VVV Prop "clickable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeViewColumn::clickable" - attrGet _ = getTreeViewColumnClickable - attrSet _ = setTreeViewColumnClickable - attrConstruct _ = constructTreeViewColumnClickable - --- VVV Prop "expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeViewColumn::expand" - attrGet _ = getTreeViewColumnExpand - attrSet _ = setTreeViewColumnExpand - attrConstruct _ = constructTreeViewColumnExpand - --- VVV Prop "fixed-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnFixedWidth obj = liftIO $ getObjectPropertyCInt obj "fixed-width" - -setTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnFixedWidth obj val = liftIO $ setObjectPropertyCInt obj "fixed-width" val - -constructTreeViewColumnFixedWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnFixedWidth val = constructObjectPropertyCInt "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 = "TreeViewColumn::fixed-width" - attrGet _ = getTreeViewColumnFixedWidth - attrSet _ = setTreeViewColumnFixedWidth - attrConstruct _ = constructTreeViewColumnFixedWidth - --- VVV Prop "max-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnMaxWidth obj = liftIO $ getObjectPropertyCInt obj "max-width" - -setTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnMaxWidth obj val = liftIO $ setObjectPropertyCInt obj "max-width" val - -constructTreeViewColumnMaxWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnMaxWidth val = constructObjectPropertyCInt "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 = "TreeViewColumn::max-width" - attrGet _ = getTreeViewColumnMaxWidth - attrSet _ = setTreeViewColumnMaxWidth - attrConstruct _ = constructTreeViewColumnMaxWidth - --- VVV Prop "min-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnMinWidth obj = liftIO $ getObjectPropertyCInt obj "min-width" - -setTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnMinWidth obj val = liftIO $ setObjectPropertyCInt obj "min-width" val - -constructTreeViewColumnMinWidth :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnMinWidth val = constructObjectPropertyCInt "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 = "TreeViewColumn::min-width" - attrGet _ = getTreeViewColumnMinWidth - attrSet _ = setTreeViewColumnMinWidth - attrConstruct _ = constructTreeViewColumnMinWidth - --- VVV Prop "reorderable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeViewColumn::reorderable" - attrGet _ = getTreeViewColumnReorderable - attrSet _ = setTreeViewColumnReorderable - attrConstruct _ = constructTreeViewColumnReorderable - --- VVV Prop "resizable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeViewColumn::resizable" - attrGet _ = getTreeViewColumnResizable - attrSet _ = setTreeViewColumnResizable - attrConstruct _ = constructTreeViewColumnResizable - --- VVV Prop "sizing" - -- Type: TInterface "Gtk" "TreeViewColumnSizing" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeViewColumn::sizing" - attrGet _ = getTreeViewColumnSizing - attrSet _ = setTreeViewColumnSizing - attrConstruct _ = constructTreeViewColumnSizing - --- VVV Prop "sort-column-id" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnSortColumnId obj = liftIO $ getObjectPropertyCInt obj "sort-column-id" - -setTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnSortColumnId obj val = liftIO $ setObjectPropertyCInt obj "sort-column-id" val - -constructTreeViewColumnSortColumnId :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnSortColumnId val = constructObjectPropertyCInt "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 = "TreeViewColumn::sort-column-id" - attrGet _ = getTreeViewColumnSortColumnId - attrSet _ = setTreeViewColumnSortColumnId - attrConstruct _ = constructTreeViewColumnSortColumnId - --- VVV Prop "sort-indicator" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeViewColumn::sort-indicator" - attrGet _ = getTreeViewColumnSortIndicator - attrSet _ = setTreeViewColumnSortIndicator - attrConstruct _ = constructTreeViewColumnSortIndicator - --- VVV Prop "sort-order" - -- Type: TInterface "Gtk" "SortType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeViewColumn::sort-order" - attrGet _ = getTreeViewColumnSortOrder - attrSet _ = setTreeViewColumnSortOrder - attrConstruct _ = constructTreeViewColumnSortOrder - --- VVV Prop "spacing" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" - -setTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () -setTreeViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val - -constructTreeViewColumnSpacing :: Int32 -> IO ([Char], GValue) -constructTreeViewColumnSpacing val = constructObjectPropertyCInt "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 = "TreeViewColumn::spacing" - attrGet _ = getTreeViewColumnSpacing - attrSet _ = setTreeViewColumnSpacing - attrConstruct _ = constructTreeViewColumnSpacing - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> m T.Text -getTreeViewColumnTitle obj = liftIO $ getObjectPropertyString obj "title" - -setTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> T.Text -> m () -setTreeViewColumnTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructTreeViewColumnTitle :: T.Text -> IO ([Char], GValue) -constructTreeViewColumnTitle val = constructObjectPropertyString "title" 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 = "TreeViewColumn::title" - attrGet _ = getTreeViewColumnTitle - attrSet _ = setTreeViewColumnTitle - attrConstruct _ = constructTreeViewColumnTitle - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "TreeViewColumn::visible" - attrGet _ = getTreeViewColumnVisible - attrSet _ = setTreeViewColumnVisible - attrConstruct _ = constructTreeViewColumnVisible - --- VVV Prop "widget" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable] - -getTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m Widget -getTreeViewColumnWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget - -setTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o, WidgetK a) => o -> a -> m () -setTreeViewColumnWidget obj val = liftIO $ setObjectPropertyObject obj "widget" val - -constructTreeViewColumnWidget :: (WidgetK a) => a -> IO ([Char], GValue) -constructTreeViewColumnWidget val = constructObjectPropertyObject "widget" val - -data TreeViewColumnWidgetPropertyInfo -instance AttrInfo TreeViewColumnWidgetPropertyInfo where - type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = WidgetK - type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = TreeViewColumnK - type AttrGetType TreeViewColumnWidgetPropertyInfo = Widget - type AttrLabel TreeViewColumnWidgetPropertyInfo = "TreeViewColumn::widget" - attrGet _ = getTreeViewColumnWidget - attrSet _ = setTreeViewColumnWidget - attrConstruct _ = constructTreeViewColumnWidget - --- VVV Prop "width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getTreeViewColumnWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnWidth obj = liftIO $ getObjectPropertyCInt 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 = "TreeViewColumn::width" - attrGet _ = getTreeViewColumnWidth - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "x-offset" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getTreeViewColumnXOffset :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 -getTreeViewColumnXOffset obj = liftIO $ getObjectPropertyCInt 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 = "TreeViewColumn::x-offset" - attrGet _ = getTreeViewColumnXOffset - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList TreeViewColumn = TreeViewColumnAttributeList -type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cell-area", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixed-width", TreeViewColumnFixedWidthPropertyInfo), '("max-width", TreeViewColumnMaxWidthPropertyInfo), '("min-width", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sort-column-id", TreeViewColumnSortColumnIdPropertyInfo), '("sort-indicator", TreeViewColumnSortIndicatorPropertyInfo), '("sort-order", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("x-offset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)]) - -data TreeViewColumnClickedSignalInfo -instance SignalInfo TreeViewColumnClickedSignalInfo where - type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback - connectSignal _ = connectTreeViewColumnClicked - -type instance SignalList TreeViewColumn = TreeViewColumnSignalList -type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TreeViewColumn::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -treeViewColumnAddAttribute :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell_renderer - T.Text -> -- attribute - Int32 -> -- column - m () -treeViewColumnAddAttribute _obj cell_renderer attribute column = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer - attribute' <- textToCString attribute - gtk_tree_view_column_add_attribute _obj' cell_renderer' attribute' column - touchManagedPtr _obj - touchManagedPtr cell_renderer - freeMem attribute' - return () - --- method TreeViewColumn::cell_get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Ptr Int32 -> -- width : TBasicType TInt32 - IO CInt - - -treeViewColumnCellGetPosition :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell_renderer - m (Bool,Int32,Int32) -treeViewColumnCellGetPosition _obj cell_renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer - x_offset <- allocMem :: IO (Ptr Int32) - width <- allocMem :: IO (Ptr Int32) - result <- gtk_tree_view_column_cell_get_position _obj' cell_renderer' x_offset width - let result' = (/= 0) result - x_offset' <- peek x_offset - width' <- peek width - touchManagedPtr _obj - touchManagedPtr cell_renderer - freeMem x_offset - freeMem width - return (result', x_offset', width') - --- method TreeViewColumn::cell_get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt" - Ptr Int32 -> -- x_offset : TBasicType TInt32 - Ptr Int32 -> -- y_offset : TBasicType TInt32 - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -treeViewColumnCellGetSize :: - (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Maybe (Cairo.RectangleInt) -> -- cell_area - m (Int32,Int32,Int32,Int32) -treeViewColumnCellGetSize _obj cell_area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCell_area <- case cell_area of - Nothing -> return nullPtr - Just jCell_area -> do - let jCell_area' = unsafeManagedPtrGetPtr jCell_area - return jCell_area' - x_offset <- allocMem :: IO (Ptr Int32) - y_offset <- allocMem :: IO (Ptr Int32) - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gtk_tree_view_column_cell_get_size _obj' maybeCell_area x_offset y_offset width height - x_offset' <- peek x_offset - y_offset' <- peek y_offset - width' <- peek width - height' <- peek height - touchManagedPtr _obj - whenJust cell_area touchManagedPtr - freeMem x_offset - freeMem y_offset - freeMem width - freeMem height - return (x_offset', y_offset', width', height') - --- method TreeViewColumn::cell_is_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeViewColumn::cell_set_cell_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- tree_model - TreeIter -> -- iter - Bool -> -- is_expander - Bool -> -- is_expanded - m () -treeViewColumnCellSetCellData _obj tree_model iter is_expander is_expanded = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tree_model' = unsafeManagedPtrCastPtr tree_model - let iter' = unsafeManagedPtrGetPtr iter - let is_expander' = (fromIntegral . fromEnum) is_expander - let is_expanded' = (fromIntegral . fromEnum) is_expanded - gtk_tree_view_column_cell_set_cell_data _obj' tree_model' iter' is_expander' is_expanded' - touchManagedPtr _obj - touchManagedPtr tree_model - touchManagedPtr iter - return () - --- method TreeViewColumn::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewColumnClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_clear _obj' - touchManagedPtr _obj - return () - --- method TreeViewColumn::clear_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- cell_renderer - m () -treeViewColumnClearAttributes _obj cell_renderer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer - gtk_tree_view_column_clear_attributes _obj' cell_renderer' - touchManagedPtr _obj - touchManagedPtr cell_renderer - return () - --- method TreeViewColumn::clicked --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewColumnClicked _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_clicked _obj' - touchManagedPtr _obj - return () - --- method TreeViewColumn::focus_cell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::get_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewColumnGetAlignment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_alignment _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method TreeViewColumn::get_button --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeViewColumn::get_clickable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewColumnGetClickable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_clickable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeViewColumn::get_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewColumnGetExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_expand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeViewColumn::get_fixed_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewColumnGetFixedWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_fixed_width _obj' - touchManagedPtr _obj - return result - --- method TreeViewColumn::get_max_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewColumnGetMaxWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_max_width _obj' - touchManagedPtr _obj - return result - --- method TreeViewColumn::get_min_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewColumnGetMinWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_min_width _obj' - touchManagedPtr _obj - return result - --- method TreeViewColumn::get_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewColumnGetReorderable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_reorderable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeViewColumn::get_resizable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewColumnGetResizable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_resizable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeViewColumn::get_sizing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeViewColumn::get_sort_column_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewColumnGetSortColumnId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_sort_column_id _obj' - touchManagedPtr _obj - return result - --- method TreeViewColumn::get_sort_indicator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeViewColumn::get_sort_order --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeViewColumn::get_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewColumnGetSpacing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_spacing _obj' - touchManagedPtr _obj - return result - --- method TreeViewColumn::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeViewColumn::get_tree_view --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeViewColumn::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeViewColumnGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreeViewColumn::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeViewColumn::get_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewColumnGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_width _obj' - touchManagedPtr _obj - return result - --- method TreeViewColumn::get_x_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treeViewColumnGetXOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_tree_view_column_get_x_offset _obj' - touchManagedPtr _obj - return result - --- method TreeViewColumn::pack_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::pack_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::queue_resize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewColumnQueueResize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_queue_resize _obj' - touchManagedPtr _obj - return () - --- method TreeViewColumn::set_alignment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeViewColumnSetAlignment _obj xalign = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let xalign' = realToFrac xalign - gtk_tree_view_column_set_alignment _obj' xalign' - touchManagedPtr _obj - return () - --- method TreeViewColumn::set_cell_data_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -treeViewColumnSetCellDataFunc :: - (MonadIO m, TreeViewColumnK a, CellRendererK b) => - a -> -- _obj - b -> -- cell_renderer - Maybe (TreeCellDataFunc) -> -- func - m () -treeViewColumnSetCellDataFunc _obj cell_renderer func = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing jFunc) - return jFunc' - let func_data = castFunPtrToPtr maybeFunc - let destroy = safeFreeFunPtrPtr - gtk_tree_view_column_set_cell_data_func _obj' cell_renderer' maybeFunc func_data destroy - touchManagedPtr _obj - touchManagedPtr cell_renderer - return () - --- method TreeViewColumn::set_clickable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::set_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::set_fixed_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_set_fixed_width" gtk_tree_view_column_set_fixed_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- fixed_width : TBasicType TInt32 - IO () - - -treeViewColumnSetFixedWidth :: - (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- fixed_width - m () -treeViewColumnSetFixedWidth _obj fixed_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_fixed_width _obj' fixed_width - touchManagedPtr _obj - return () - --- method TreeViewColumn::set_max_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_set_max_width" gtk_tree_view_column_set_max_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- max_width : TBasicType TInt32 - IO () - - -treeViewColumnSetMaxWidth :: - (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- max_width - m () -treeViewColumnSetMaxWidth _obj max_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_max_width _obj' max_width - touchManagedPtr _obj - return () - --- method TreeViewColumn::set_min_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_set_min_width" gtk_tree_view_column_set_min_width :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- min_width : TBasicType TInt32 - IO () - - -treeViewColumnSetMinWidth :: - (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- min_width - m () -treeViewColumnSetMinWidth _obj min_width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_min_width _obj' min_width - touchManagedPtr _obj - return () - --- method TreeViewColumn::set_reorderable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::set_resizable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::set_sizing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::set_sort_column_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - - -treeViewColumnSetSortColumnId :: - (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- sort_column_id - m () -treeViewColumnSetSortColumnId _obj sort_column_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_sort_column_id _obj' sort_column_id - touchManagedPtr _obj - return () - --- method TreeViewColumn::set_sort_indicator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::set_sort_order --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::set_spacing --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_tree_view_column_set_spacing" gtk_tree_view_column_set_spacing :: - Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" - Int32 -> -- spacing : TBasicType TInt32 - IO () - - -treeViewColumnSetSpacing :: - (MonadIO m, TreeViewColumnK a) => - a -> -- _obj - Int32 -> -- spacing - m () -treeViewColumnSetSpacing _obj spacing = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_tree_view_column_set_spacing _obj' spacing - touchManagedPtr _obj - return () - --- method TreeViewColumn::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -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 () - --- method TreeViewColumn::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TreeViewColumn::set_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,33 +0,0 @@ -module GI.Gtk.Objects.TreeViewColumn where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,1077 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - uIManagerAddUi , - - --- ** uIManagerAddUiFromFile - uIManagerAddUiFromFile , - - --- ** uIManagerAddUiFromResource - uIManagerAddUiFromResource , - - --- ** uIManagerAddUiFromString - uIManagerAddUiFromString , - - --- ** uIManagerEnsureUpdate - uIManagerEnsureUpdate , - - --- ** uIManagerGetAccelGroup - uIManagerGetAccelGroup , - - --- ** uIManagerGetAction - uIManagerGetAction , - - --- ** uIManagerGetActionGroups - uIManagerGetActionGroups , - - --- ** uIManagerGetAddTearoffs - uIManagerGetAddTearoffs , - - --- ** uIManagerGetToplevels - uIManagerGetToplevels , - - --- ** uIManagerGetUi - uIManagerGetUi , - - --- ** uIManagerGetWidget - uIManagerGetWidget , - - --- ** uIManagerInsertActionGroup - uIManagerInsertActionGroup , - - --- ** uIManagerNew - uIManagerNew , - - --- ** uIManagerNewMergeId - uIManagerNewMergeId , - - --- ** uIManagerRemoveActionGroup - uIManagerRemoveActionGroup , - - --- ** uIManagerRemoveUi - uIManagerRemoveUi , - - --- ** uIManagerSetAddTearoffs - uIManagerSetAddTearoffs , - - - - - -- * Properties --- ** AddTearoffs - UIManagerAddTearoffsPropertyInfo , - constructUIManagerAddTearoffs , - getUIManagerAddTearoffs , - setUIManagerAddTearoffs , - - --- ** Ui - UIManagerUiPropertyInfo , - getUIManagerUi , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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] - -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 = "UIManager::add-tearoffs" - attrGet _ = getUIManagerAddTearoffs - attrSet _ = setUIManagerAddTearoffs - attrConstruct _ = constructUIManagerAddTearoffs - --- VVV Prop "ui" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getUIManagerUi :: (MonadIO m, UIManagerK o) => o -> m T.Text -getUIManagerUi obj = liftIO $ getObjectPropertyString obj "ui" - -data UIManagerUiPropertyInfo -instance AttrInfo UIManagerUiPropertyInfo where - type AttrAllowedOps UIManagerUiPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint UIManagerUiPropertyInfo = (~) () - type AttrBaseTypeConstraint UIManagerUiPropertyInfo = UIManagerK - type AttrGetType UIManagerUiPropertyInfo = T.Text - type AttrLabel UIManagerUiPropertyInfo = "UIManager::ui" - attrGet _ = getUIManagerUi - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList UIManager = UIManagerAttributeList -type UIManagerAttributeList = ('[ '("add-tearoffs", UIManagerAddTearoffsPropertyInfo), '("ui", UIManagerUiPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("actions-changed", UIManagerActionsChangedSignalInfo), '("add-widget", UIManagerAddWidgetSignalInfo), '("connect-proxy", UIManagerConnectProxySignalInfo), '("disconnect-proxy", UIManagerDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("post-activate", UIManagerPostActivateSignalInfo), '("pre-activate", UIManagerPreActivateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UIManager::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - 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 -> -- merge_id - T.Text -> -- path - T.Text -> -- name - Maybe (T.Text) -> -- action - [UIManagerItemType] -> -- type - Bool -> -- top - m () -uIManagerAddUi _obj merge_id 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' merge_id path' name' maybeAction type_' top' - touchManagedPtr _obj - freeMem path' - freeMem name' - freeMem maybeAction - return () - --- method UIManager::add_ui_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -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' - ) - --- method UIManager::add_ui_from_resource --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -> -- resource_path - m Word32 -uIManagerAddUiFromResource _obj resource_path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - resource_path' <- textToCString resource_path - onException (do - result <- propagateGError $ gtk_ui_manager_add_ui_from_resource _obj' resource_path' - touchManagedPtr _obj - freeMem resource_path' - return result - ) (do - freeMem resource_path' - ) - --- method UIManager::add_ui_from_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -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' - ) - --- method UIManager::ensure_update --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -uIManagerEnsureUpdate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_ui_manager_ensure_update _obj' - touchManagedPtr _obj - return () - --- method UIManager::get_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method UIManager::get_action --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method UIManager::get_action_groups --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -uIManagerGetActionGroups _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_ui_manager_get_action_groups _obj' - checkUnexpectedReturnNULL "gtk_ui_manager_get_action_groups" result - result' <- unpackGList result - result'' <- mapM (newObject ActionGroup) result' - touchManagedPtr _obj - return result'' - --- method UIManager::get_add_tearoffs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -uIManagerGetAddTearoffs _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_ui_manager_get_add_tearoffs _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method UIManager::get_toplevels --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "types", argType = TInterface "Gtk" "UIManagerItemType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -uIManagerGetToplevels _obj types = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let types' = gflagsToWord types - result <- gtk_ui_manager_get_toplevels _obj' types' - checkUnexpectedReturnNULL "gtk_ui_manager_get_toplevels" result - result' <- unpackGSList result - result'' <- mapM (newObject Widget) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method UIManager::get_ui --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method UIManager::get_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method UIManager::insert_action_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TInt32 - IO () - -{-# DEPRECATED uIManagerInsertActionGroup ["(Since version 3.10)"]#-} -uIManagerInsertActionGroup :: - (MonadIO m, UIManagerK a, ActionGroupK b) => - a -> -- _obj - b -> -- action_group - Int32 -> -- pos - m () -uIManagerInsertActionGroup _obj action_group pos = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action_group' = unsafeManagedPtrCastPtr action_group - gtk_ui_manager_insert_action_group _obj' action_group' pos - touchManagedPtr _obj - touchManagedPtr action_group - return () - --- method UIManager::new_merge_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -uIManagerNewMergeId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_ui_manager_new_merge_id _obj' - touchManagedPtr _obj - return result - --- method UIManager::remove_action_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action_group", argType = TInterface "Gtk" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- action_group - m () -uIManagerRemoveActionGroup _obj action_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action_group' = unsafeManagedPtrCastPtr action_group - gtk_ui_manager_remove_action_group _obj' action_group' - touchManagedPtr _obj - touchManagedPtr action_group - return () - --- method UIManager::remove_ui --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "merge_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - -{-# DEPRECATED uIManagerRemoveUi ["(Since version 3.10)"]#-} -uIManagerRemoveUi :: - (MonadIO m, UIManagerK a) => - a -> -- _obj - Word32 -> -- merge_id - m () -uIManagerRemoveUi _obj merge_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_ui_manager_remove_ui _obj' merge_id - touchManagedPtr _obj - return () - --- method UIManager::set_add_tearoffs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "UIManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "add_tearoffs", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- add_tearoffs - m () -uIManagerSetAddTearoffs _obj add_tearoffs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let add_tearoffs' = (fromIntegral . fromEnum) add_tearoffs - gtk_ui_manager_set_add_tearoffs _obj' add_tearoffs' - touchManagedPtr _obj - return () - - 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,21 +0,0 @@ -module GI.Gtk.Objects.UIManager where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,93 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList VBox = VBoxAttributeList -type VBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VBox = VBoxSignalList -type VBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method VBox::new --- method type : Constructor --- Args : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "homogeneous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "VBox" --- throws : False --- Skip return : False - -foreign import ccall "gtk_vbox_new" gtk_vbox_new :: - CInt -> -- homogeneous : TBasicType TBoolean - Int32 -> -- spacing : TBasicType TInt32 - 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList VButtonBox = VButtonBoxAttributeList -type VButtonBoxAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VButtonBox = VButtonBoxSignalList -type VButtonBoxSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method VButtonBox::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList VPaned = VPanedAttributeList -type VPanedAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VPaned = VPanedSignalList -type VPanedSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method VPaned::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,127 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList VScale = VScaleAttributeList -type VScaleAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VScale = VScaleSignalList -type VScaleSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method VScale::new --- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "min", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "step", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,96 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Objects.VScrollbar - ( - --- * Exported types - VScrollbar(..) , - VScrollbarK , - toVScrollbar , - noVScrollbar , - - - -- * Methods --- ** vScrollbarNew - vScrollbarNew , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList VScrollbar = VScrollbarAttributeList -type VScrollbarAttributeList = ('[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VScrollbar = VScrollbarSignalList -type VScrollbarSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method VScrollbar::new --- method type : Constructor --- Args : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,88 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList VSeparator = VSeparatorAttributeList -type VSeparatorAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VSeparator = VSeparatorSignalList -type VSeparatorSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method VSeparator::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,391 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - viewportGetBinWindow , - - --- ** viewportGetHadjustment - viewportGetHadjustment , - - --- ** viewportGetShadowType - viewportGetShadowType , - - --- ** viewportGetVadjustment - viewportGetVadjustment , - - --- ** viewportGetViewWindow - viewportGetViewWindow , - - --- ** viewportNew - viewportNew , - - --- ** viewportSetHadjustment - viewportSetHadjustment , - - --- ** viewportSetShadowType - viewportSetShadowType , - - --- ** viewportSetVadjustment - viewportSetVadjustment , - - - - - -- * Properties --- ** ShadowType - ViewportShadowTypePropertyInfo , - constructViewportShadowType , - getViewportShadowType , - setViewportShadowType , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "shadow-type" - -- Type: TInterface "Gtk" "ShadowType" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Viewport::shadow-type" - attrGet _ = getViewportShadowType - attrSet _ = setViewportShadowType - attrConstruct _ = constructViewportShadowType - -type instance AttributeList Viewport = ViewportAttributeList -type ViewportAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ViewportShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Viewport = ViewportSignalList -type ViewportSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Viewport::new --- method type : Constructor --- Args : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "vadjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Viewport::get_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Viewport::get_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -viewportGetShadowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_viewport_get_shadow_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Viewport::get_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Viewport::get_view_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Viewport::set_hadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Viewport::set_shadow_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "ShadowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -viewportSetShadowType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - gtk_viewport_set_shadow_type _obj' type_' - touchManagedPtr _obj - return () - --- method Viewport::set_vadjustment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Viewport", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "adjustment", argType = TInterface "Gtk" "Adjustment", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,14 +0,0 @@ -module GI.Gtk.Objects.Viewport where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Viewport = Viewport (ForeignPtr Viewport) -instance GObject Viewport where -class GObject o => ViewportK o -instance (GObject o, IsDescendantOf Viewport o) => ViewportK o -data ViewportShadowTypePropertyInfo 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,122 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- VVV Prop "use-symbolic" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -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 = "VolumeButton::use-symbolic" - attrGet _ = getVolumeButtonUseSymbolic - attrSet _ = setVolumeButtonUseSymbolic - attrConstruct _ = constructVolumeButtonUseSymbolic - -type instance AttributeList VolumeButton = VolumeButtonAttributeList -type VolumeButtonAttributeList = ('[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-symbolic", VolumeButtonUseSymbolicPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList VolumeButton = VolumeButtonSignalList -type VolumeButtonSignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", ScaleButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method VolumeButton::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,13633 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - widgetActivate , - - --- ** widgetAddAccelerator - widgetAddAccelerator , - - --- ** widgetAddDeviceEvents - widgetAddDeviceEvents , - - --- ** widgetAddEvents - widgetAddEvents , - - --- ** widgetAddMnemonicLabel - widgetAddMnemonicLabel , - - --- ** widgetAddTickCallback - widgetAddTickCallback , - - --- ** widgetCanActivateAccel - widgetCanActivateAccel , - - --- ** widgetChildFocus - widgetChildFocus , - - --- ** widgetChildNotify - widgetChildNotify , - - --- ** widgetClassPath - widgetClassPath , - - --- ** widgetComputeExpand - widgetComputeExpand , - - --- ** widgetCreatePangoContext - widgetCreatePangoContext , - - --- ** widgetCreatePangoLayout - widgetCreatePangoLayout , - - --- ** widgetDestroy - widgetDestroy , - - --- ** widgetDestroyed - widgetDestroyed , - - --- ** widgetDeviceIsShadowed - widgetDeviceIsShadowed , - - --- ** widgetDragBegin - widgetDragBegin , - - --- ** widgetDragBeginWithCoordinates - widgetDragBeginWithCoordinates , - - --- ** widgetDragCheckThreshold - widgetDragCheckThreshold , - - --- ** widgetDragDestAddImageTargets - widgetDragDestAddImageTargets , - - --- ** widgetDragDestAddTextTargets - widgetDragDestAddTextTargets , - - --- ** widgetDragDestAddUriTargets - widgetDragDestAddUriTargets , - - --- ** widgetDragDestFindTarget - widgetDragDestFindTarget , - - --- ** widgetDragDestGetTargetList - widgetDragDestGetTargetList , - - --- ** widgetDragDestGetTrackMotion - widgetDragDestGetTrackMotion , - - --- ** widgetDragDestSet - widgetDragDestSet , - - --- ** widgetDragDestSetProxy - widgetDragDestSetProxy , - - --- ** widgetDragDestSetTargetList - widgetDragDestSetTargetList , - - --- ** widgetDragDestSetTrackMotion - widgetDragDestSetTrackMotion , - - --- ** widgetDragDestUnset - widgetDragDestUnset , - - --- ** widgetDragGetData - widgetDragGetData , - - --- ** widgetDragHighlight - widgetDragHighlight , - - --- ** widgetDragSourceAddImageTargets - widgetDragSourceAddImageTargets , - - --- ** widgetDragSourceAddTextTargets - widgetDragSourceAddTextTargets , - - --- ** widgetDragSourceAddUriTargets - widgetDragSourceAddUriTargets , - - --- ** widgetDragSourceGetTargetList - widgetDragSourceGetTargetList , - - --- ** widgetDragSourceSet - widgetDragSourceSet , - - --- ** widgetDragSourceSetIconGicon - widgetDragSourceSetIconGicon , - - --- ** widgetDragSourceSetIconName - widgetDragSourceSetIconName , - - --- ** widgetDragSourceSetIconPixbuf - widgetDragSourceSetIconPixbuf , - - --- ** widgetDragSourceSetIconStock - widgetDragSourceSetIconStock , - - --- ** widgetDragSourceSetTargetList - widgetDragSourceSetTargetList , - - --- ** widgetDragSourceUnset - widgetDragSourceUnset , - - --- ** widgetDragUnhighlight - widgetDragUnhighlight , - - --- ** widgetDraw - widgetDraw , - - --- ** widgetEnsureStyle - widgetEnsureStyle , - - --- ** widgetErrorBell - widgetErrorBell , - - --- ** widgetEvent - widgetEvent , - - --- ** widgetFreezeChildNotify - widgetFreezeChildNotify , - - --- ** widgetGetAccessible - widgetGetAccessible , - - --- ** widgetGetActionGroup - widgetGetActionGroup , - - --- ** widgetGetAllocatedBaseline - widgetGetAllocatedBaseline , - - --- ** widgetGetAllocatedHeight - widgetGetAllocatedHeight , - - --- ** widgetGetAllocatedWidth - widgetGetAllocatedWidth , - - --- ** widgetGetAllocation - widgetGetAllocation , - - --- ** widgetGetAncestor - widgetGetAncestor , - - --- ** widgetGetAppPaintable - widgetGetAppPaintable , - - --- ** widgetGetCanDefault - widgetGetCanDefault , - - --- ** widgetGetCanFocus - widgetGetCanFocus , - - --- ** widgetGetChildRequisition - widgetGetChildRequisition , - - --- ** widgetGetChildVisible - widgetGetChildVisible , - - --- ** widgetGetClip - widgetGetClip , - - --- ** widgetGetClipboard - widgetGetClipboard , - - --- ** widgetGetCompositeName - widgetGetCompositeName , - - --- ** widgetGetDefaultDirection - widgetGetDefaultDirection , - - --- ** widgetGetDefaultStyle - widgetGetDefaultStyle , - - --- ** widgetGetDeviceEnabled - widgetGetDeviceEnabled , - - --- ** widgetGetDeviceEvents - widgetGetDeviceEvents , - - --- ** widgetGetDirection - widgetGetDirection , - - --- ** widgetGetDisplay - widgetGetDisplay , - - --- ** widgetGetDoubleBuffered - widgetGetDoubleBuffered , - - --- ** widgetGetEvents - widgetGetEvents , - - --- ** widgetGetFrameClock - widgetGetFrameClock , - - --- ** widgetGetHalign - widgetGetHalign , - - --- ** widgetGetHasTooltip - widgetGetHasTooltip , - - --- ** widgetGetHasWindow - widgetGetHasWindow , - - --- ** widgetGetHexpand - widgetGetHexpand , - - --- ** widgetGetHexpandSet - widgetGetHexpandSet , - - --- ** widgetGetMapped - widgetGetMapped , - - --- ** widgetGetMarginBottom - widgetGetMarginBottom , - - --- ** widgetGetMarginEnd - widgetGetMarginEnd , - - --- ** widgetGetMarginLeft - widgetGetMarginLeft , - - --- ** widgetGetMarginRight - widgetGetMarginRight , - - --- ** widgetGetMarginStart - widgetGetMarginStart , - - --- ** widgetGetMarginTop - widgetGetMarginTop , - - --- ** widgetGetModifierMask - widgetGetModifierMask , - - --- ** widgetGetModifierStyle - widgetGetModifierStyle , - - --- ** widgetGetName - widgetGetName , - - --- ** widgetGetNoShowAll - widgetGetNoShowAll , - - --- ** widgetGetOpacity - widgetGetOpacity , - - --- ** widgetGetPangoContext - widgetGetPangoContext , - - --- ** widgetGetParent - widgetGetParent , - - --- ** widgetGetParentWindow - widgetGetParentWindow , - - --- ** widgetGetPath - widgetGetPath , - - --- ** widgetGetPointer - widgetGetPointer , - - --- ** widgetGetPreferredHeight - widgetGetPreferredHeight , - - --- ** widgetGetPreferredHeightAndBaselineForWidth - widgetGetPreferredHeightAndBaselineForWidth, - - --- ** widgetGetPreferredHeightForWidth - widgetGetPreferredHeightForWidth , - - --- ** widgetGetPreferredSize - widgetGetPreferredSize , - - --- ** widgetGetPreferredWidth - widgetGetPreferredWidth , - - --- ** widgetGetPreferredWidthForHeight - widgetGetPreferredWidthForHeight , - - --- ** widgetGetRealized - widgetGetRealized , - - --- ** widgetGetReceivesDefault - widgetGetReceivesDefault , - - --- ** widgetGetRequestMode - widgetGetRequestMode , - - --- ** widgetGetRequisition - widgetGetRequisition , - - --- ** widgetGetRootWindow - widgetGetRootWindow , - - --- ** widgetGetScaleFactor - widgetGetScaleFactor , - - --- ** widgetGetScreen - widgetGetScreen , - - --- ** widgetGetSensitive - widgetGetSensitive , - - --- ** widgetGetSettings - widgetGetSettings , - - --- ** widgetGetSizeRequest - widgetGetSizeRequest , - - --- ** widgetGetState - widgetGetState , - - --- ** widgetGetStateFlags - widgetGetStateFlags , - - --- ** widgetGetStyle - widgetGetStyle , - - --- ** widgetGetStyleContext - widgetGetStyleContext , - - --- ** widgetGetSupportMultidevice - widgetGetSupportMultidevice , - - --- ** widgetGetTemplateChild - widgetGetTemplateChild , - - --- ** widgetGetTooltipMarkup - widgetGetTooltipMarkup , - - --- ** widgetGetTooltipText - widgetGetTooltipText , - - --- ** widgetGetTooltipWindow - widgetGetTooltipWindow , - - --- ** widgetGetToplevel - widgetGetToplevel , - - --- ** widgetGetValign - widgetGetValign , - - --- ** widgetGetValignWithBaseline - widgetGetValignWithBaseline , - - --- ** widgetGetVexpand - widgetGetVexpand , - - --- ** widgetGetVexpandSet - widgetGetVexpandSet , - - --- ** widgetGetVisible - widgetGetVisible , - - --- ** widgetGetVisual - widgetGetVisual , - - --- ** widgetGetWindow - widgetGetWindow , - - --- ** widgetGrabAdd - widgetGrabAdd , - - --- ** widgetGrabDefault - widgetGrabDefault , - - --- ** widgetGrabFocus - widgetGrabFocus , - - --- ** widgetGrabRemove - widgetGrabRemove , - - --- ** widgetHasDefault - widgetHasDefault , - - --- ** widgetHasFocus - widgetHasFocus , - - --- ** widgetHasGrab - widgetHasGrab , - - --- ** widgetHasRcStyle - widgetHasRcStyle , - - --- ** widgetHasScreen - widgetHasScreen , - - --- ** widgetHasVisibleFocus - widgetHasVisibleFocus , - - --- ** widgetHide - widgetHide , - - --- ** widgetHideOnDelete - widgetHideOnDelete , - - --- ** widgetInDestruction - widgetInDestruction , - - --- ** widgetInitTemplate - widgetInitTemplate , - - --- ** widgetInputShapeCombineRegion - widgetInputShapeCombineRegion , - - --- ** widgetInsertActionGroup - widgetInsertActionGroup , - - --- ** widgetIntersect - widgetIntersect , - - --- ** widgetIsAncestor - widgetIsAncestor , - - --- ** widgetIsComposited - widgetIsComposited , - - --- ** widgetIsDrawable - widgetIsDrawable , - - --- ** widgetIsFocus - widgetIsFocus , - - --- ** widgetIsSensitive - widgetIsSensitive , - - --- ** widgetIsToplevel - widgetIsToplevel , - - --- ** widgetIsVisible - widgetIsVisible , - - --- ** widgetKeynavFailed - widgetKeynavFailed , - - --- ** widgetListAccelClosures - widgetListAccelClosures , - - --- ** widgetListActionPrefixes - widgetListActionPrefixes , - - --- ** widgetListMnemonicLabels - widgetListMnemonicLabels , - - --- ** widgetMap - widgetMap , - - --- ** widgetMnemonicActivate - widgetMnemonicActivate , - - --- ** widgetModifyBase - widgetModifyBase , - - --- ** widgetModifyBg - widgetModifyBg , - - --- ** widgetModifyCursor - widgetModifyCursor , - - --- ** widgetModifyFg - widgetModifyFg , - - --- ** widgetModifyFont - widgetModifyFont , - - --- ** widgetModifyStyle - widgetModifyStyle , - - --- ** widgetModifyText - widgetModifyText , - - --- ** widgetOverrideBackgroundColor - widgetOverrideBackgroundColor , - - --- ** widgetOverrideColor - widgetOverrideColor , - - --- ** widgetOverrideCursor - widgetOverrideCursor , - - --- ** widgetOverrideFont - widgetOverrideFont , - - --- ** widgetOverrideSymbolicColor - widgetOverrideSymbolicColor , - - --- ** widgetPath - widgetPath , - - --- ** widgetPopCompositeChild - widgetPopCompositeChild , - - --- ** widgetPushCompositeChild - widgetPushCompositeChild , - - --- ** widgetQueueComputeExpand - widgetQueueComputeExpand , - - --- ** widgetQueueDraw - widgetQueueDraw , - - --- ** widgetQueueDrawArea - widgetQueueDrawArea , - - --- ** widgetQueueDrawRegion - widgetQueueDrawRegion , - - --- ** widgetQueueResize - widgetQueueResize , - - --- ** widgetQueueResizeNoRedraw - widgetQueueResizeNoRedraw , - - --- ** widgetRealize - widgetRealize , - - --- ** widgetRegionIntersect - widgetRegionIntersect , - - --- ** widgetRegisterWindow - widgetRegisterWindow , - - --- ** widgetRemoveAccelerator - widgetRemoveAccelerator , - - --- ** widgetRemoveMnemonicLabel - widgetRemoveMnemonicLabel , - - --- ** widgetRemoveTickCallback - widgetRemoveTickCallback , - - --- ** widgetRenderIcon - widgetRenderIcon , - - --- ** widgetRenderIconPixbuf - widgetRenderIconPixbuf , - - --- ** widgetReparent - widgetReparent , - - --- ** widgetResetRcStyles - widgetResetRcStyles , - - --- ** widgetResetStyle - widgetResetStyle , - - --- ** widgetSendExpose - widgetSendExpose , - - --- ** widgetSendFocusChange - widgetSendFocusChange , - - --- ** widgetSetAccelPath - widgetSetAccelPath , - - --- ** widgetSetAllocation - widgetSetAllocation , - - --- ** widgetSetAppPaintable - widgetSetAppPaintable , - - --- ** widgetSetCanDefault - widgetSetCanDefault , - - --- ** widgetSetCanFocus - widgetSetCanFocus , - - --- ** widgetSetChildVisible - widgetSetChildVisible , - - --- ** widgetSetClip - widgetSetClip , - - --- ** widgetSetCompositeName - widgetSetCompositeName , - - --- ** widgetSetDefaultDirection - widgetSetDefaultDirection , - - --- ** widgetSetDeviceEnabled - widgetSetDeviceEnabled , - - --- ** widgetSetDeviceEvents - widgetSetDeviceEvents , - - --- ** widgetSetDirection - widgetSetDirection , - - --- ** widgetSetDoubleBuffered - widgetSetDoubleBuffered , - - --- ** widgetSetEvents - widgetSetEvents , - - --- ** widgetSetHalign - widgetSetHalign , - - --- ** widgetSetHasTooltip - widgetSetHasTooltip , - - --- ** widgetSetHasWindow - widgetSetHasWindow , - - --- ** widgetSetHexpand - widgetSetHexpand , - - --- ** widgetSetHexpandSet - widgetSetHexpandSet , - - --- ** widgetSetMapped - widgetSetMapped , - - --- ** widgetSetMarginBottom - widgetSetMarginBottom , - - --- ** widgetSetMarginEnd - widgetSetMarginEnd , - - --- ** widgetSetMarginLeft - widgetSetMarginLeft , - - --- ** widgetSetMarginRight - widgetSetMarginRight , - - --- ** widgetSetMarginStart - widgetSetMarginStart , - - --- ** widgetSetMarginTop - widgetSetMarginTop , - - --- ** widgetSetName - widgetSetName , - - --- ** widgetSetNoShowAll - widgetSetNoShowAll , - - --- ** widgetSetOpacity - widgetSetOpacity , - - --- ** widgetSetParent - widgetSetParent , - - --- ** widgetSetParentWindow - widgetSetParentWindow , - - --- ** widgetSetRealized - widgetSetRealized , - - --- ** widgetSetReceivesDefault - widgetSetReceivesDefault , - - --- ** widgetSetRedrawOnAllocate - widgetSetRedrawOnAllocate , - - --- ** widgetSetSensitive - widgetSetSensitive , - - --- ** widgetSetSizeRequest - widgetSetSizeRequest , - - --- ** widgetSetState - widgetSetState , - - --- ** widgetSetStateFlags - widgetSetStateFlags , - - --- ** widgetSetStyle - widgetSetStyle , - - --- ** widgetSetSupportMultidevice - widgetSetSupportMultidevice , - - --- ** widgetSetTooltipMarkup - widgetSetTooltipMarkup , - - --- ** widgetSetTooltipText - widgetSetTooltipText , - - --- ** widgetSetTooltipWindow - widgetSetTooltipWindow , - - --- ** widgetSetValign - widgetSetValign , - - --- ** widgetSetVexpand - widgetSetVexpand , - - --- ** widgetSetVexpandSet - widgetSetVexpandSet , - - --- ** widgetSetVisible - widgetSetVisible , - - --- ** widgetSetVisual - widgetSetVisual , - - --- ** widgetSetWindow - widgetSetWindow , - - --- ** widgetShapeCombineRegion - widgetShapeCombineRegion , - - --- ** widgetShow - widgetShow , - - --- ** widgetShowAll - widgetShowAll , - - --- ** widgetShowNow - widgetShowNow , - - --- ** widgetSizeAllocate - widgetSizeAllocate , - - --- ** widgetSizeAllocateWithBaseline - widgetSizeAllocateWithBaseline , - - --- ** widgetSizeRequest - widgetSizeRequest , - - --- ** widgetStyleAttach - widgetStyleAttach , - - --- ** widgetStyleGetProperty - widgetStyleGetProperty , - - --- ** widgetThawChildNotify - widgetThawChildNotify , - - --- ** widgetTranslateCoordinates - widgetTranslateCoordinates , - - --- ** widgetTriggerTooltipQuery - widgetTriggerTooltipQuery , - - --- ** widgetUnmap - widgetUnmap , - - --- ** widgetUnparent - widgetUnparent , - - --- ** widgetUnrealize - widgetUnrealize , - - --- ** widgetUnregisterWindow - widgetUnregisterWindow , - - --- ** widgetUnsetStateFlags - widgetUnsetStateFlags , - - - - - -- * Properties --- ** AppPaintable - WidgetAppPaintablePropertyInfo , - constructWidgetAppPaintable , - getWidgetAppPaintable , - setWidgetAppPaintable , - - --- ** CanDefault - WidgetCanDefaultPropertyInfo , - constructWidgetCanDefault , - getWidgetCanDefault , - setWidgetCanDefault , - - --- ** CanFocus - WidgetCanFocusPropertyInfo , - constructWidgetCanFocus , - getWidgetCanFocus , - setWidgetCanFocus , - - --- ** CompositeChild - WidgetCompositeChildPropertyInfo , - getWidgetCompositeChild , - - --- ** DoubleBuffered - WidgetDoubleBufferedPropertyInfo , - constructWidgetDoubleBuffered , - getWidgetDoubleBuffered , - setWidgetDoubleBuffered , - - --- ** Events - WidgetEventsPropertyInfo , - constructWidgetEvents , - getWidgetEvents , - setWidgetEvents , - - --- ** Expand - WidgetExpandPropertyInfo , - constructWidgetExpand , - getWidgetExpand , - setWidgetExpand , - - --- ** Halign - WidgetHalignPropertyInfo , - constructWidgetHalign , - getWidgetHalign , - setWidgetHalign , - - --- ** HasDefault - WidgetHasDefaultPropertyInfo , - constructWidgetHasDefault , - getWidgetHasDefault , - setWidgetHasDefault , - - --- ** HasFocus - WidgetHasFocusPropertyInfo , - constructWidgetHasFocus , - getWidgetHasFocus , - setWidgetHasFocus , - - --- ** HasTooltip - WidgetHasTooltipPropertyInfo , - constructWidgetHasTooltip , - getWidgetHasTooltip , - setWidgetHasTooltip , - - --- ** HeightRequest - WidgetHeightRequestPropertyInfo , - constructWidgetHeightRequest , - getWidgetHeightRequest , - setWidgetHeightRequest , - - --- ** Hexpand - WidgetHexpandPropertyInfo , - constructWidgetHexpand , - getWidgetHexpand , - setWidgetHexpand , - - --- ** HexpandSet - WidgetHexpandSetPropertyInfo , - constructWidgetHexpandSet , - getWidgetHexpandSet , - setWidgetHexpandSet , - - --- ** IsFocus - WidgetIsFocusPropertyInfo , - constructWidgetIsFocus , - getWidgetIsFocus , - setWidgetIsFocus , - - --- ** Margin - WidgetMarginPropertyInfo , - constructWidgetMargin , - getWidgetMargin , - setWidgetMargin , - - --- ** MarginBottom - WidgetMarginBottomPropertyInfo , - constructWidgetMarginBottom , - getWidgetMarginBottom , - setWidgetMarginBottom , - - --- ** MarginEnd - WidgetMarginEndPropertyInfo , - constructWidgetMarginEnd , - getWidgetMarginEnd , - setWidgetMarginEnd , - - --- ** MarginLeft - WidgetMarginLeftPropertyInfo , - constructWidgetMarginLeft , - getWidgetMarginLeft , - setWidgetMarginLeft , - - --- ** MarginRight - WidgetMarginRightPropertyInfo , - constructWidgetMarginRight , - getWidgetMarginRight , - setWidgetMarginRight , - - --- ** MarginStart - WidgetMarginStartPropertyInfo , - constructWidgetMarginStart , - getWidgetMarginStart , - setWidgetMarginStart , - - --- ** MarginTop - WidgetMarginTopPropertyInfo , - constructWidgetMarginTop , - getWidgetMarginTop , - setWidgetMarginTop , - - --- ** Name - WidgetNamePropertyInfo , - constructWidgetName , - getWidgetName , - setWidgetName , - - --- ** NoShowAll - WidgetNoShowAllPropertyInfo , - constructWidgetNoShowAll , - getWidgetNoShowAll , - setWidgetNoShowAll , - - --- ** Opacity - WidgetOpacityPropertyInfo , - constructWidgetOpacity , - getWidgetOpacity , - setWidgetOpacity , - - --- ** Parent - WidgetParentPropertyInfo , - constructWidgetParent , - getWidgetParent , - setWidgetParent , - - --- ** ReceivesDefault - WidgetReceivesDefaultPropertyInfo , - constructWidgetReceivesDefault , - getWidgetReceivesDefault , - setWidgetReceivesDefault , - - --- ** ScaleFactor - WidgetScaleFactorPropertyInfo , - getWidgetScaleFactor , - - --- ** Sensitive - WidgetSensitivePropertyInfo , - constructWidgetSensitive , - getWidgetSensitive , - setWidgetSensitive , - - --- ** Style - WidgetStylePropertyInfo , - constructWidgetStyle , - getWidgetStyle , - setWidgetStyle , - - --- ** TooltipMarkup - WidgetTooltipMarkupPropertyInfo , - constructWidgetTooltipMarkup , - getWidgetTooltipMarkup , - setWidgetTooltipMarkup , - - --- ** TooltipText - WidgetTooltipTextPropertyInfo , - constructWidgetTooltipText , - getWidgetTooltipText , - setWidgetTooltipText , - - --- ** Valign - WidgetValignPropertyInfo , - constructWidgetValign , - getWidgetValign , - setWidgetValign , - - --- ** Vexpand - WidgetVexpandPropertyInfo , - constructWidgetVexpand , - getWidgetVexpand , - setWidgetVexpand , - - --- ** VexpandSet - WidgetVexpandSetPropertyInfo , - constructWidgetVexpandSet , - getWidgetVexpandSet , - setWidgetVexpandSet , - - --- ** Visible - WidgetVisiblePropertyInfo , - constructWidgetVisible , - getWidgetVisible , - setWidgetVisible , - - --- ** WidthRequest - WidgetWidthRequestPropertyInfo , - constructWidgetWidthRequest , - getWidgetWidthRequest , - setWidgetWidthRequest , - - --- ** Window - WidgetWindowPropertyInfo , - getWidgetWindow , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- 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 80 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 80 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 _ signal_id _ = do - result <- _cb signal_id - 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 _ child_property _ = do - child_property' <- newGParamSpecFromPtr child_property - _cb child_property' - -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 40 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 56 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 _ previous_direction _ = do - let previous_direction' = (toEnum . fromIntegral) previous_direction - _cb previous_direction' - -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 88 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 24 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 24 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 40 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 _ was_grabbed _ = do - let was_grabbed' = (/= 0) was_grabbed - _cb was_grabbed' - -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 _ previous_toplevel _ = do - maybePrevious_toplevel <- - if previous_toplevel == nullPtr - then return Nothing - else do - previous_toplevel' <- (newObject Widget) previous_toplevel - return $ Just previous_toplevel' - _cb maybePrevious_toplevel - -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 56 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 56 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 88 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 24 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 80 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 _ old_parent _ = do - maybeOld_parent <- - if old_parent == nullPtr - then return Nothing - else do - old_parent' <- (newObject Widget) old_parent - return $ Just old_parent' - _cb maybeOld_parent - -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 40 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 32 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 32 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 keyboard_mode tooltip _ = do - let keyboard_mode' = (/= 0) keyboard_mode - tooltip' <- (newObject Tooltip) tooltip - result <- _cb x y keyboard_mode' 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 _ previous_screen _ = do - maybePrevious_screen <- - if previous_screen == nullPtr - then return Nothing - else do - previous_screen' <- (newObject Gdk.Screen) previous_screen - return $ Just previous_screen' - _cb maybePrevious_screen - -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 88 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 64 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 64 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 64 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 _ help_type _ = do - let help_type' = (toEnum . fromIntegral) help_type - result <- _cb help_type' - 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 = - Cairo.RectangleInt -> - IO () - -noWidgetSizeAllocateCallback :: Maybe WidgetSizeAllocateCallback -noWidgetSizeAllocateCallback = Nothing - -type WidgetSizeAllocateCallbackC = - Ptr () -> -- object - Ptr Cairo.RectangleInt -> - 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 Cairo.RectangleInt -> - Ptr () -> - IO () -widgetSizeAllocateCallbackWrapper _cb _ allocation _ = do - allocation' <- (newBoxed Cairo.RectangleInt) 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 _ previous_style _ = do - maybePrevious_style <- - if previous_style == nullPtr - then return Nothing - else do - previous_style' <- (newObject Style) previous_style - return $ Just previous_style' - _cb maybePrevious_style - -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 24 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 24 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 32 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] - -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 = "Widget::app-paintable" - attrGet _ = getWidgetAppPaintable - attrSet _ = setWidgetAppPaintable - attrConstruct _ = constructWidgetAppPaintable - --- VVV Prop "can-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::can-default" - attrGet _ = getWidgetCanDefault - attrSet _ = setWidgetCanDefault - attrConstruct _ = constructWidgetCanDefault - --- VVV Prop "can-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::can-focus" - attrGet _ = getWidgetCanFocus - attrSet _ = setWidgetCanFocus - attrConstruct _ = constructWidgetCanFocus - --- VVV Prop "composite-child" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "Widget::composite-child" - attrGet _ = getWidgetCompositeChild - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "double-buffered" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::double-buffered" - attrGet _ = getWidgetDoubleBuffered - attrSet _ = setWidgetDoubleBuffered - attrConstruct _ = constructWidgetDoubleBuffered - --- VVV Prop "events" - -- Type: TInterface "Gdk" "EventMask" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::events" - attrGet _ = getWidgetEvents - attrSet _ = setWidgetEvents - attrConstruct _ = constructWidgetEvents - --- VVV Prop "expand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::expand" - attrGet _ = getWidgetExpand - attrSet _ = setWidgetExpand - attrConstruct _ = constructWidgetExpand - --- VVV Prop "halign" - -- Type: TInterface "Gtk" "Align" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::halign" - attrGet _ = getWidgetHalign - attrSet _ = setWidgetHalign - attrConstruct _ = constructWidgetHalign - --- VVV Prop "has-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::has-default" - attrGet _ = getWidgetHasDefault - attrSet _ = setWidgetHasDefault - attrConstruct _ = constructWidgetHasDefault - --- VVV Prop "has-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::has-focus" - attrGet _ = getWidgetHasFocus - attrSet _ = setWidgetHasFocus - attrConstruct _ = constructWidgetHasFocus - --- VVV Prop "has-tooltip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::has-tooltip" - attrGet _ = getWidgetHasTooltip - attrSet _ = setWidgetHasTooltip - attrConstruct _ = constructWidgetHasTooltip - --- VVV Prop "height-request" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetHeightRequest obj = liftIO $ getObjectPropertyCInt obj "height-request" - -setWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetHeightRequest obj val = liftIO $ setObjectPropertyCInt obj "height-request" val - -constructWidgetHeightRequest :: Int32 -> IO ([Char], GValue) -constructWidgetHeightRequest val = constructObjectPropertyCInt "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 = "Widget::height-request" - attrGet _ = getWidgetHeightRequest - attrSet _ = setWidgetHeightRequest - attrConstruct _ = constructWidgetHeightRequest - --- VVV Prop "hexpand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::hexpand" - attrGet _ = getWidgetHexpand - attrSet _ = setWidgetHexpand - attrConstruct _ = constructWidgetHexpand - --- VVV Prop "hexpand-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::hexpand-set" - attrGet _ = getWidgetHexpandSet - attrSet _ = setWidgetHexpandSet - attrConstruct _ = constructWidgetHexpandSet - --- VVV Prop "is-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::is-focus" - attrGet _ = getWidgetIsFocus - attrSet _ = setWidgetIsFocus - attrConstruct _ = constructWidgetIsFocus - --- VVV Prop "margin" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMargin :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMargin obj = liftIO $ getObjectPropertyCInt obj "margin" - -setWidgetMargin :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val - -constructWidgetMargin :: Int32 -> IO ([Char], GValue) -constructWidgetMargin val = constructObjectPropertyCInt "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 = "Widget::margin" - attrGet _ = getWidgetMargin - attrSet _ = setWidgetMargin - attrConstruct _ = constructWidgetMargin - --- VVV Prop "margin-bottom" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginBottom obj = liftIO $ getObjectPropertyCInt obj "margin-bottom" - -setWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginBottom obj val = liftIO $ setObjectPropertyCInt obj "margin-bottom" val - -constructWidgetMarginBottom :: Int32 -> IO ([Char], GValue) -constructWidgetMarginBottom val = constructObjectPropertyCInt "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 = "Widget::margin-bottom" - attrGet _ = getWidgetMarginBottom - attrSet _ = setWidgetMarginBottom - attrConstruct _ = constructWidgetMarginBottom - --- VVV Prop "margin-end" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginEnd obj = liftIO $ getObjectPropertyCInt obj "margin-end" - -setWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginEnd obj val = liftIO $ setObjectPropertyCInt obj "margin-end" val - -constructWidgetMarginEnd :: Int32 -> IO ([Char], GValue) -constructWidgetMarginEnd val = constructObjectPropertyCInt "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 = "Widget::margin-end" - attrGet _ = getWidgetMarginEnd - attrSet _ = setWidgetMarginEnd - attrConstruct _ = constructWidgetMarginEnd - --- VVV Prop "margin-left" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginLeft obj = liftIO $ getObjectPropertyCInt obj "margin-left" - -setWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginLeft obj val = liftIO $ setObjectPropertyCInt obj "margin-left" val - -constructWidgetMarginLeft :: Int32 -> IO ([Char], GValue) -constructWidgetMarginLeft val = constructObjectPropertyCInt "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 = "Widget::margin-left" - attrGet _ = getWidgetMarginLeft - attrSet _ = setWidgetMarginLeft - attrConstruct _ = constructWidgetMarginLeft - --- VVV Prop "margin-right" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginRight obj = liftIO $ getObjectPropertyCInt obj "margin-right" - -setWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginRight obj val = liftIO $ setObjectPropertyCInt obj "margin-right" val - -constructWidgetMarginRight :: Int32 -> IO ([Char], GValue) -constructWidgetMarginRight val = constructObjectPropertyCInt "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 = "Widget::margin-right" - attrGet _ = getWidgetMarginRight - attrSet _ = setWidgetMarginRight - attrConstruct _ = constructWidgetMarginRight - --- VVV Prop "margin-start" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginStart obj = liftIO $ getObjectPropertyCInt obj "margin-start" - -setWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginStart obj val = liftIO $ setObjectPropertyCInt obj "margin-start" val - -constructWidgetMarginStart :: Int32 -> IO ([Char], GValue) -constructWidgetMarginStart val = constructObjectPropertyCInt "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 = "Widget::margin-start" - attrGet _ = getWidgetMarginStart - attrSet _ = setWidgetMarginStart - attrConstruct _ = constructWidgetMarginStart - --- VVV Prop "margin-top" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetMarginTop obj = liftIO $ getObjectPropertyCInt obj "margin-top" - -setWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetMarginTop obj val = liftIO $ setObjectPropertyCInt obj "margin-top" val - -constructWidgetMarginTop :: Int32 -> IO ([Char], GValue) -constructWidgetMarginTop val = constructObjectPropertyCInt "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 = "Widget::margin-top" - attrGet _ = getWidgetMarginTop - attrSet _ = setWidgetMarginTop - attrConstruct _ = constructWidgetMarginTop - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetName :: (MonadIO m, WidgetK o) => o -> m T.Text -getWidgetName obj = liftIO $ getObjectPropertyString obj "name" - -setWidgetName :: (MonadIO m, WidgetK o) => o -> T.Text -> m () -setWidgetName obj val = liftIO $ setObjectPropertyString obj "name" val - -constructWidgetName :: T.Text -> IO ([Char], GValue) -constructWidgetName val = constructObjectPropertyString "name" 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 = "Widget::name" - attrGet _ = getWidgetName - attrSet _ = setWidgetName - attrConstruct _ = constructWidgetName - --- VVV Prop "no-show-all" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::no-show-all" - attrGet _ = getWidgetNoShowAll - attrSet _ = setWidgetNoShowAll - attrConstruct _ = constructWidgetNoShowAll - --- VVV Prop "opacity" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::opacity" - attrGet _ = getWidgetOpacity - attrSet _ = setWidgetOpacity - attrConstruct _ = constructWidgetOpacity - --- VVV Prop "parent" - -- Type: TInterface "Gtk" "Container" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetParent :: (MonadIO m, WidgetK o) => o -> m 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" val - -constructWidgetParent :: (ContainerK a) => a -> IO ([Char], GValue) -constructWidgetParent val = constructObjectPropertyObject "parent" val - -data WidgetParentPropertyInfo -instance AttrInfo WidgetParentPropertyInfo where - type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetParentPropertyInfo = ContainerK - type AttrBaseTypeConstraint WidgetParentPropertyInfo = WidgetK - type AttrGetType WidgetParentPropertyInfo = Container - type AttrLabel WidgetParentPropertyInfo = "Widget::parent" - attrGet _ = getWidgetParent - attrSet _ = setWidgetParent - attrConstruct _ = constructWidgetParent - --- VVV Prop "receives-default" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::receives-default" - attrGet _ = getWidgetReceivesDefault - attrSet _ = setWidgetReceivesDefault - attrConstruct _ = constructWidgetReceivesDefault - --- VVV Prop "scale-factor" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable] - -getWidgetScaleFactor :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetScaleFactor obj = liftIO $ getObjectPropertyCInt 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 = "Widget::scale-factor" - attrGet _ = getWidgetScaleFactor - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "sensitive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::sensitive" - attrGet _ = getWidgetSensitive - attrSet _ = setWidgetSensitive - attrConstruct _ = constructWidgetSensitive - --- VVV Prop "style" - -- Type: TInterface "Gtk" "Style" - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetStyle :: (MonadIO m, WidgetK o) => o -> m Style -getWidgetStyle obj = liftIO $ getObjectPropertyObject obj "style" Style - -setWidgetStyle :: (MonadIO m, WidgetK o, StyleK a) => o -> a -> m () -setWidgetStyle obj val = liftIO $ setObjectPropertyObject obj "style" val - -constructWidgetStyle :: (StyleK a) => a -> IO ([Char], GValue) -constructWidgetStyle val = constructObjectPropertyObject "style" val - -data WidgetStylePropertyInfo -instance AttrInfo WidgetStylePropertyInfo where - type AttrAllowedOps WidgetStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetStylePropertyInfo = StyleK - type AttrBaseTypeConstraint WidgetStylePropertyInfo = WidgetK - type AttrGetType WidgetStylePropertyInfo = Style - type AttrLabel WidgetStylePropertyInfo = "Widget::style" - attrGet _ = getWidgetStyle - attrSet _ = setWidgetStyle - attrConstruct _ = constructWidgetStyle - --- VVV Prop "tooltip-markup" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m 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" val - -constructWidgetTooltipMarkup :: T.Text -> IO ([Char], GValue) -constructWidgetTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val - -data WidgetTooltipMarkupPropertyInfo -instance AttrInfo WidgetTooltipMarkupPropertyInfo where - type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = WidgetK - type AttrGetType WidgetTooltipMarkupPropertyInfo = T.Text - type AttrLabel WidgetTooltipMarkupPropertyInfo = "Widget::tooltip-markup" - attrGet _ = getWidgetTooltipMarkup - attrSet _ = setWidgetTooltipMarkup - attrConstruct _ = constructWidgetTooltipMarkup - --- VVV Prop "tooltip-text" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m 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" val - -constructWidgetTooltipText :: T.Text -> IO ([Char], GValue) -constructWidgetTooltipText val = constructObjectPropertyString "tooltip-text" val - -data WidgetTooltipTextPropertyInfo -instance AttrInfo WidgetTooltipTextPropertyInfo where - type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = WidgetK - type AttrGetType WidgetTooltipTextPropertyInfo = T.Text - type AttrLabel WidgetTooltipTextPropertyInfo = "Widget::tooltip-text" - attrGet _ = getWidgetTooltipText - attrSet _ = setWidgetTooltipText - attrConstruct _ = constructWidgetTooltipText - --- VVV Prop "valign" - -- Type: TInterface "Gtk" "Align" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::valign" - attrGet _ = getWidgetValign - attrSet _ = setWidgetValign - attrConstruct _ = constructWidgetValign - --- VVV Prop "vexpand" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::vexpand" - attrGet _ = getWidgetVexpand - attrSet _ = setWidgetVexpand - attrConstruct _ = constructWidgetVexpand - --- VVV Prop "vexpand-set" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::vexpand-set" - attrGet _ = getWidgetVexpandSet - attrSet _ = setWidgetVexpandSet - attrConstruct _ = constructWidgetVexpandSet - --- VVV Prop "visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Widget::visible" - attrGet _ = getWidgetVisible - attrSet _ = setWidgetVisible - attrConstruct _ = constructWidgetVisible - --- VVV Prop "width-request" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> m Int32 -getWidgetWidthRequest obj = liftIO $ getObjectPropertyCInt obj "width-request" - -setWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () -setWidgetWidthRequest obj val = liftIO $ setObjectPropertyCInt obj "width-request" val - -constructWidgetWidthRequest :: Int32 -> IO ([Char], GValue) -constructWidgetWidthRequest val = constructObjectPropertyCInt "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 = "Widget::width-request" - attrGet _ = getWidgetWidthRequest - attrSet _ = setWidgetWidthRequest - attrConstruct _ = constructWidgetWidthRequest - --- VVV Prop "window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable] - -getWidgetWindow :: (MonadIO m, WidgetK o) => o -> m Gdk.Window -getWidgetWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window - -data WidgetWindowPropertyInfo -instance AttrInfo WidgetWindowPropertyInfo where - type AttrAllowedOps WidgetWindowPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WidgetWindowPropertyInfo = (~) () - type AttrBaseTypeConstraint WidgetWindowPropertyInfo = WidgetK - type AttrGetType WidgetWindowPropertyInfo = Gdk.Window - type AttrLabel WidgetWindowPropertyInfo = "Widget::window" - attrGet _ = getWidgetWindow - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList Widget = WidgetAttributeList -type WidgetAttributeList = ('[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Widget::activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_activate" gtk_widget_activate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetActivate :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_activate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::add_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_flags", argType = TInterface "Gtk" "AccelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - CUInt -> -- accel_flags : TInterface "Gtk" "AccelFlags" - IO () - - -widgetAddAccelerator :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -> -- _obj - T.Text -> -- accel_signal - b -> -- accel_group - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - [AccelFlags] -> -- accel_flags - m () -widgetAddAccelerator _obj accel_signal accel_group accel_key accel_mods accel_flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - accel_signal' <- textToCString accel_signal - let accel_group' = unsafeManagedPtrCastPtr accel_group - let accel_mods' = gflagsToWord accel_mods - let accel_flags' = gflagsToWord accel_flags - gtk_widget_add_accelerator _obj' accel_signal' accel_group' accel_key accel_mods' accel_flags' - touchManagedPtr _obj - touchManagedPtr accel_group - freeMem accel_signal' - return () - --- method Widget::add_device_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -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 () - --- method Widget::add_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_add_events" gtk_widget_add_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- events : TBasicType TInt32 - IO () - - -widgetAddEvents :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- events - m () -widgetAddEvents _obj events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_add_events _obj' events - touchManagedPtr _obj - return () - --- method Widget::add_mnemonic_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -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 () - --- method Widget::add_tick_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gtk" "TickCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 TVoid - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -widgetAddTickCallback :: - (MonadIO m, WidgetK a) => - a -> -- _obj - TickCallback -> -- callback - m Word32 -widgetAddTickCallback _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkTickCallback (tickCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let notify = safeFreeFunPtrPtr - result <- gtk_widget_add_tick_callback _obj' callback' user_data notify - touchManagedPtr _obj - return result - --- method Widget::can_activate_accel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signal_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_can_activate_accel" gtk_widget_can_activate_accel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Word32 -> -- signal_id : TBasicType TUInt32 - IO CInt - - -widgetCanActivateAccel :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Word32 -> -- signal_id - m Bool -widgetCanActivateAccel _obj signal_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_can_activate_accel _obj' signal_id - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::child_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::child_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- child_property - m () -widgetChildNotify _obj child_property = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - child_property' <- textToCString child_property - gtk_widget_child_notify _obj' child_property' - touchManagedPtr _obj - freeMem child_property' - return () - --- method Widget::class_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_class_path" gtk_widget_class_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Word32 -> -- path_length : TBasicType TUInt32 - 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) -widgetClassPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path_length <- allocMem :: IO (Ptr Word32) - path <- allocMem :: IO (Ptr CString) - path_reversed <- allocMem :: IO (Ptr CString) - gtk_widget_class_path _obj' path_length path path_reversed - path_length' <- peek path_length - path' <- peek path - path'' <- cstringToText path' - freeMem path' - path_reversed' <- peek path_reversed - path_reversed'' <- cstringToText path_reversed' - freeMem path_reversed' - touchManagedPtr _obj - freeMem path_length - freeMem path - freeMem path_reversed - return (path_length', path'', path_reversed'') - --- method Widget::compute_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orientation", argType = TInterface "Gtk" "Orientation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::create_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::create_pango_layout --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::destroy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_destroy" gtk_widget_destroy :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetDestroy :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_destroy _obj' - touchManagedPtr _obj - return () - --- method Widget::destroyed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_pointer", argType = TInterface "Gtk" "Widget", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- widget_pointer - m (Widget) -widgetDestroyed _obj widget_pointer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget_pointer' = unsafeManagedPtrCastPtr widget_pointer - widget_pointer'' <- allocMem :: IO (Ptr (Ptr Widget)) - poke widget_pointer'' widget_pointer' - gtk_widget_destroyed _obj' widget_pointer'' - widget_pointer''' <- peek widget_pointer'' - widget_pointer'''' <- (newObject Widget) widget_pointer''' - touchManagedPtr _obj - touchManagedPtr widget_pointer - freeMem widget_pointer'' - return widget_pointer'''' - --- method Widget::device_is_shadowed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::drag_begin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -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' - --- method Widget::drag_begin_with_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Ptr Gdk.Event -> -- event : TInterface "Gdk" "Event" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - 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 -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' - --- method Widget::drag_check_threshold --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- start_y : TBasicType TInt32 - Int32 -> -- current_x : TBasicType TInt32 - Int32 -> -- current_y : TBasicType TInt32 - IO CInt - - -widgetDragCheckThreshold :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- start_x - Int32 -> -- start_y - Int32 -> -- current_x - Int32 -> -- current_y - m Bool -widgetDragCheckThreshold _obj start_x start_y current_x current_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_check_threshold _obj' start_x start_y current_x current_y - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::drag_dest_add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragDestAddImageTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_image_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_dest_add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragDestAddTextTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_text_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_dest_add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragDestAddUriTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_add_uri_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_dest_find_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- target_list - m Gdk.Atom -widgetDragDestFindTarget _obj context target_list = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let context' = unsafeManagedPtrCastPtr context - maybeTarget_list <- case target_list of - Nothing -> return nullPtr - Just jTarget_list -> do - let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list - return jTarget_list' - result <- gtk_drag_dest_find_target _obj' context' maybeTarget_list - checkUnexpectedReturnNULL "gtk_drag_dest_find_target" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - touchManagedPtr context - whenJust target_list touchManagedPtr - return result' - --- method Widget::drag_dest_get_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::drag_dest_get_track_motion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -widgetDragDestGetTrackMotion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_drag_dest_get_track_motion _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::drag_dest_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "DestDefaults", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -widgetDragDestSet :: - (MonadIO m, WidgetK a) => - a -> -- _obj - [DestDefaults] -> -- flags - Maybe ([TargetEntry]) -> -- targets - [Gdk.DragAction] -> -- actions - m () -widgetDragDestSet _obj flags targets actions = liftIO $ do - let n_targets = 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 n_targets actions' - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - --- method Widget::drag_dest_set_proxy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_coordinates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- proxy_window - Gdk.DragProtocol -> -- protocol - Bool -> -- use_coordinates - m () -widgetDragDestSetProxy _obj proxy_window protocol use_coordinates = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let proxy_window' = unsafeManagedPtrCastPtr proxy_window - let protocol' = (fromIntegral . fromEnum) protocol - let use_coordinates' = (fromIntegral . fromEnum) use_coordinates - gtk_drag_dest_set_proxy _obj' proxy_window' protocol' use_coordinates' - touchManagedPtr _obj - touchManagedPtr proxy_window - return () - --- method Widget::drag_dest_set_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- target_list - m () -widgetDragDestSetTargetList _obj target_list = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTarget_list <- case target_list of - Nothing -> return nullPtr - Just jTarget_list -> do - let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list - return jTarget_list' - gtk_drag_dest_set_target_list _obj' maybeTarget_list - touchManagedPtr _obj - whenJust target_list touchManagedPtr - return () - --- method Widget::drag_dest_set_track_motion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_motion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "track_motion", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- track_motion - m () -widgetDragDestSetTrackMotion _obj track_motion = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let track_motion' = (fromIntegral . fromEnum) track_motion - gtk_drag_dest_set_track_motion _obj' track_motion' - touchManagedPtr _obj - return () - --- method Widget::drag_dest_unset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragDestUnset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_dest_unset _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_get_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::drag_highlight --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragHighlight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_highlight _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_source_add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragSourceAddImageTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_image_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_source_add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragSourceAddTextTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_text_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_source_add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragSourceAddUriTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_add_uri_targets _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_source_get_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::drag_source_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_button_mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 3 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - CUInt -> -- actions : TInterface "Gdk" "DragAction" - IO () - - -widgetDragSourceSet :: - (MonadIO m, WidgetK a) => - a -> -- _obj - [Gdk.ModifierType] -> -- start_button_mask - Maybe ([TargetEntry]) -> -- targets - [Gdk.DragAction] -> -- actions - m () -widgetDragSourceSet _obj start_button_mask targets actions = liftIO $ do - let n_targets = case targets of - Nothing -> 0 - Just jTargets -> fromIntegral $ length jTargets - let _obj' = unsafeManagedPtrCastPtr _obj - let start_button_mask' = gflagsToWord start_button_mask - 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' start_button_mask' maybeTargets n_targets actions' - touchManagedPtr _obj - whenJust targets (mapM_ touchManagedPtr) - freeMem maybeTargets - return () - --- method Widget::drag_source_set_icon_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::drag_source_set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- icon_name - m () -widgetDragSourceSetIconName _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon_name' <- textToCString icon_name - gtk_drag_source_set_icon_name _obj' icon_name' - touchManagedPtr _obj - freeMem icon_name' - return () - --- method Widget::drag_source_set_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::drag_source_set_icon_stock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- stock_id - m () -widgetDragSourceSetIconStock _obj stock_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - gtk_drag_source_set_icon_stock _obj' stock_id' - touchManagedPtr _obj - freeMem stock_id' - return () - --- method Widget::drag_source_set_target_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target_list", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- target_list - m () -widgetDragSourceSetTargetList _obj target_list = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeTarget_list <- case target_list of - Nothing -> return nullPtr - Just jTarget_list -> do - let jTarget_list' = unsafeManagedPtrGetPtr jTarget_list - return jTarget_list' - gtk_drag_source_set_target_list _obj' maybeTarget_list - touchManagedPtr _obj - whenJust target_list touchManagedPtr - return () - --- method Widget::drag_source_unset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragSourceUnset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_source_unset _obj' - touchManagedPtr _obj - return () - --- method Widget::drag_unhighlight --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetDragUnhighlight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_drag_unhighlight _obj' - touchManagedPtr _obj - return () - --- method Widget::draw --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetDraw _obj cr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - gtk_widget_draw _obj' cr' - touchManagedPtr _obj - touchManagedPtr cr - return () - --- method Widget::ensure_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetEnsureStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_ensure_style _obj' - touchManagedPtr _obj - return () - --- method Widget::error_bell --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_error_bell" gtk_widget_error_bell :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetErrorBell :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetErrorBell _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_error_bell _obj' - touchManagedPtr _obj - return () - --- method Widget::event --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::freeze_child_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_freeze_child_notify" gtk_widget_freeze_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetFreezeChildNotify :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetFreezeChildNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_freeze_child_notify _obj' - touchManagedPtr _obj - return () - --- method Widget::get_accessible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_action_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Gio.ActionGroup -widgetGetActionGroup _obj prefix = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - prefix' <- textToCString prefix - result <- gtk_widget_get_action_group _obj' prefix' - checkUnexpectedReturnNULL "gtk_widget_get_action_group" result - result' <- (newObject Gio.ActionGroup) result - touchManagedPtr _obj - freeMem prefix' - return result' - --- method Widget::get_allocated_baseline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetAllocatedBaseline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_baseline _obj' - touchManagedPtr _obj - return result - --- method Widget::get_allocated_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetAllocatedHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_height _obj' - touchManagedPtr _obj - return result - --- method Widget::get_allocated_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetAllocatedWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_allocated_width _obj' - touchManagedPtr _obj - return result - --- method Widget::get_allocation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_allocation" gtk_widget_get_allocation :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.RectangleInt -> -- allocation : TInterface "cairo" "RectangleInt" - IO () - - -widgetGetAllocation :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Cairo.RectangleInt) -widgetGetAllocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - allocation <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_widget_get_allocation _obj' allocation - allocation' <- (wrapBoxed Cairo.RectangleInt) allocation - touchManagedPtr _obj - return allocation' - --- method Widget::get_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- widget_type - m Widget -widgetGetAncestor _obj widget_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget_type' = gtypeToCGType widget_type - result <- gtk_widget_get_ancestor _obj' widget_type' - checkUnexpectedReturnNULL "gtk_widget_get_ancestor" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Widget::get_app_paintable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetAppPaintable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_app_paintable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_can_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetCanDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_can_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_can_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetCanFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_can_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_child_requisition --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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) -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' - --- method Widget::get_child_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetChildVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_child_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_clip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_clip" gtk_widget_get_clip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.RectangleInt -> -- clip : TInterface "cairo" "RectangleInt" - IO () - - -widgetGetClip :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Cairo.RectangleInt) -widgetGetClip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - clip <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - gtk_widget_get_clip _obj' clip - clip' <- (wrapBoxed Cairo.RectangleInt) clip - touchManagedPtr _obj - return clip' - --- method Widget::get_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_composite_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::get_device_enabled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::get_device_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method Widget::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -widgetGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_display --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_double_buffered --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetDoubleBuffered _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_double_buffered _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_events" gtk_widget_get_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO Int32 - - -widgetGetEvents :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Int32 -widgetGetEvents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_events _obj' - touchManagedPtr _obj - return result - --- method Widget::get_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_halign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -widgetGetHalign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_halign _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetHasTooltip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_has_tooltip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_has_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetHasWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_has_window _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_hexpand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_hexpand" gtk_widget_get_hexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetHexpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetHexpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_hexpand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_hexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetHexpandSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_hexpand_set _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_mapped --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_mapped" gtk_widget_get_mapped :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetMapped :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetMapped _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_mapped _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_margin_bottom --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetMarginBottom _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_bottom _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetMarginEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_end _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_left --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetMarginLeft _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_left _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_right --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetMarginRight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_right _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetMarginStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_start _obj' - touchManagedPtr _obj - return result - --- method Widget::get_margin_top --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetMarginTop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_margin_top _obj' - touchManagedPtr _obj - return result - --- method Widget::get_modifier_mask --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method Widget::get_modifier_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_name" gtk_widget_get_name :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetName :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m T.Text -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' - --- method Widget::get_no_show_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetNoShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_no_show_all _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_opacity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -widgetGetOpacity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_opacity _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Widget::get_pango_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Widget -widgetGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_parent _obj' - checkUnexpectedReturnNULL "gtk_widget_get_parent" result - result' <- (newObject Widget) result - touchManagedPtr _obj - return result' - --- method Widget::get_parent_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_path" gtk_widget_get_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO (Ptr WidgetPath) - - -widgetGetPath :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m WidgetPath -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' - --- method Widget::get_pointer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_pointer" gtk_widget_get_pointer :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- x : TBasicType TInt32 - Ptr Int32 -> -- y : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetGetPointer ["(Since version 3.4)","Use gdk_window_get_device_position() instead."]#-} -widgetGetPointer :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method Widget::get_preferred_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_height" gtk_widget_get_preferred_height :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -widgetGetPreferredHeight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Int32,Int32) -widgetGetPreferredHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height _obj' minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method Widget::get_preferred_height_and_baseline_for_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minimum_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_baseline", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - Ptr Int32 -> -- minimum_baseline : TBasicType TInt32 - Ptr Int32 -> -- natural_baseline : TBasicType TInt32 - IO () - - -widgetGetPreferredHeightAndBaselineForWidth :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- width - m (Int32,Int32,Int32,Int32) -widgetGetPreferredHeightAndBaselineForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - minimum_baseline <- allocMem :: IO (Ptr Int32) - natural_baseline <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height_and_baseline_for_width _obj' width minimum_height natural_height minimum_baseline natural_baseline - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - minimum_baseline' <- peek minimum_baseline - natural_baseline' <- peek natural_baseline - touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - freeMem minimum_baseline - freeMem natural_baseline - return (minimum_height', natural_height', minimum_baseline', natural_baseline') - --- method Widget::get_preferred_height_for_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- minimum_height : TBasicType TInt32 - Ptr Int32 -> -- natural_height : TBasicType TInt32 - IO () - - -widgetGetPreferredHeightForWidth :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- width - m (Int32,Int32) -widgetGetPreferredHeightForWidth _obj width = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_height <- allocMem :: IO (Ptr Int32) - natural_height <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_height_for_width _obj' width minimum_height natural_height - minimum_height' <- peek minimum_height - natural_height' <- peek natural_height - touchManagedPtr _obj - freeMem minimum_height - freeMem natural_height - return (minimum_height', natural_height') - --- method Widget::get_preferred_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "natural_size", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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) -widgetGetPreferredSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_size <- callocBoxedBytes 8 :: IO (Ptr Requisition) - natural_size <- callocBoxedBytes 8 :: IO (Ptr Requisition) - gtk_widget_get_preferred_size _obj' minimum_size natural_size - minimum_size' <- (wrapBoxed Requisition) minimum_size - natural_size' <- (wrapBoxed Requisition) natural_size - touchManagedPtr _obj - return (minimum_size', natural_size') - --- method Widget::get_preferred_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_preferred_width" gtk_widget_get_preferred_width :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -widgetGetPreferredWidth :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Int32,Int32) -widgetGetPreferredWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_width _obj' minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method Widget::get_preferred_width_for_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minimum_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "natural_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 TInt32 - Ptr Int32 -> -- minimum_width : TBasicType TInt32 - Ptr Int32 -> -- natural_width : TBasicType TInt32 - IO () - - -widgetGetPreferredWidthForHeight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- height - m (Int32,Int32) -widgetGetPreferredWidthForHeight _obj height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - minimum_width <- allocMem :: IO (Ptr Int32) - natural_width <- allocMem :: IO (Ptr Int32) - gtk_widget_get_preferred_width_for_height _obj' height minimum_width natural_width - minimum_width' <- peek minimum_width - natural_width' <- peek natural_width - touchManagedPtr _obj - freeMem minimum_width - freeMem natural_width - return (minimum_width', natural_width') - --- method Widget::get_realized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_realized" gtk_widget_get_realized :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetRealized :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetRealized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_realized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_receives_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetReceivesDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_receives_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_request_mode --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -widgetGetRequestMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_request_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_requisition --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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) -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' - --- method Widget::get_root_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_scale_factor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetScaleFactor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_scale_factor _obj' - touchManagedPtr _obj - return result - --- method Widget::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_sensitive" gtk_widget_get_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetSensitive :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_settings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_size_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_size_request" gtk_widget_get_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetGetSizeRequest :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method Widget::get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -widgetGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "StateFlags" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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] -widgetGetStateFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_state_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Widget::get_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_style_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetSupportMultidevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_support_multidevice _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_template_child --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- widget_type - T.Text -> -- name - m GObject.Object -widgetGetTemplateChild _obj widget_type name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let widget_type' = gtypeToCGType widget_type - name' <- textToCString name - result <- gtk_widget_get_template_child _obj' widget_type' name' - checkUnexpectedReturnNULL "gtk_widget_get_template_child" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - freeMem name' - return result' - --- method Widget::get_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_markup" gtk_widget_get_tooltip_markup :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetTooltipMarkup :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m T.Text -widgetGetTooltipMarkup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_markup _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_markup" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Widget::get_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_tooltip_text" gtk_widget_get_tooltip_text :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CString - - -widgetGetTooltipText :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m T.Text -widgetGetTooltipText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_tooltip_text _obj' - checkUnexpectedReturnNULL "gtk_widget_get_tooltip_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Widget::get_tooltip_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_valign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -widgetGetValign _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_valign _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Widget::get_valign_with_baseline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_vexpand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_vexpand" gtk_widget_get_vexpand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVexpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetVexpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_vexpand _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_vexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetGetVexpandSet _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_vexpand_set _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_get_visible" gtk_widget_get_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetGetVisible :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetGetVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_get_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::get_visual --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::get_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::grab_add --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetGrabAdd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grab_add _obj' - touchManagedPtr _obj - return () - --- method Widget::grab_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_grab_default" gtk_widget_grab_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabDefault :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetGrabDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_grab_default _obj' - touchManagedPtr _obj - return () - --- method Widget::grab_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_grab_focus" gtk_widget_grab_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetGrabFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetGrabFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_grab_focus _obj' - touchManagedPtr _obj - return () - --- method Widget::grab_remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -widgetGrabRemove _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_grab_remove _obj' - touchManagedPtr _obj - return () - --- method Widget::has_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_default" gtk_widget_has_default :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasDefault :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_focus" gtk_widget_has_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_grab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_grab" gtk_widget_has_grab :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasGrab :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasGrab _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_grab _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_rc_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetHasRcStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_rc_style _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_has_screen" gtk_widget_has_screen :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetHasScreen :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetHasScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_screen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::has_visible_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetHasVisibleFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_has_visible_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::hide --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_hide" gtk_widget_hide :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetHide :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetHide _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_hide _obj' - touchManagedPtr _obj - return () - --- method Widget::hide_on_delete --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -widgetHideOnDelete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_hide_on_delete _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::in_destruction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_in_destruction" gtk_widget_in_destruction :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetInDestruction :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetInDestruction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_in_destruction _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::init_template --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_init_template" gtk_widget_init_template :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetInitTemplate :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetInitTemplate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_init_template _obj' - touchManagedPtr _obj - return () - --- method Widget::input_shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::insert_action_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::intersect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intersection", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intersection", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_intersect" gtk_widget_intersect :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.RectangleInt -> -- area : TInterface "cairo" "RectangleInt" - Ptr Cairo.RectangleInt -> -- intersection : TInterface "cairo" "RectangleInt" - IO CInt - - -widgetIntersect :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Cairo.RectangleInt -> -- area - Maybe (Cairo.RectangleInt) -> -- intersection - m Bool -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' - --- method Widget::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::is_composited --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_composited" gtk_widget_is_composited :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsComposited :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsComposited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_composited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_drawable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_drawable" gtk_widget_is_drawable :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsDrawable :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsDrawable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_drawable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_focus" gtk_widget_is_focus :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsFocus :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_sensitive" gtk_widget_is_sensitive :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsSensitive :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsSensitive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_sensitive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_toplevel" gtk_widget_is_toplevel :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsToplevel :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_toplevel _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::is_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_is_visible" gtk_widget_is_visible :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO CInt - - -widgetIsVisible :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m Bool -widgetIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::keynav_failed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "DirectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::list_accel_closures --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -widgetListAccelClosures _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_accel_closures _obj' - checkUnexpectedReturnNULL "gtk_widget_list_accel_closures" result - result' <- unpackGList result - result'' <- mapM (newBoxed Closure) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Widget::list_action_prefixes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method Widget::list_mnemonic_labels --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -widgetListMnemonicLabels _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_widget_list_mnemonic_labels _obj' - checkUnexpectedReturnNULL "gtk_widget_list_mnemonic_labels" result - result' <- unpackGList result - result'' <- mapM (newObject Widget) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Widget::map --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_map" gtk_widget_map :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetMap :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_map _obj' - touchManagedPtr _obj - return () - --- method Widget::mnemonic_activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_cycling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_cycling", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- group_cycling - m Bool -widgetMnemonicActivate _obj group_cycling = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group_cycling' = (fromIntegral . fromEnum) group_cycling - result <- gtk_widget_mnemonic_activate _obj' group_cycling' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Widget::modify_base --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::modify_bg --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::modify_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "primary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::modify_fg --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::modify_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- font_desc - m () -widgetModifyFont _obj font_desc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFont_desc <- case font_desc of - Nothing -> return nullPtr - Just jFont_desc -> do - let jFont_desc' = unsafeManagedPtrGetPtr jFont_desc - return jFont_desc' - gtk_widget_modify_font _obj' maybeFont_desc - touchManagedPtr _obj - whenJust font_desc touchManagedPtr - return () - --- method Widget::modify_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "RcStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetModifyStyle _obj style = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = unsafeManagedPtrCastPtr style - gtk_widget_modify_style _obj' style' - touchManagedPtr _obj - touchManagedPtr style - return () - --- method Widget::modify_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::override_background_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::override_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::override_cursor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secondary_cursor", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 seconday 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) -> -- secondary_cursor - m () -widgetOverrideCursor _obj cursor secondary_cursor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCursor <- case cursor of - Nothing -> return nullPtr - Just jCursor -> do - let jCursor' = unsafeManagedPtrGetPtr jCursor - return jCursor' - maybeSecondary_cursor <- case secondary_cursor of - Nothing -> return nullPtr - Just jSecondary_cursor -> do - let jSecondary_cursor' = unsafeManagedPtrGetPtr jSecondary_cursor - return jSecondary_cursor' - gtk_widget_override_cursor _obj' maybeCursor maybeSecondary_cursor - touchManagedPtr _obj - whenJust cursor touchManagedPtr - whenJust secondary_cursor touchManagedPtr - return () - --- method Widget::override_font --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- font_desc - m () -widgetOverrideFont _obj font_desc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFont_desc <- case font_desc of - Nothing -> return nullPtr - Just jFont_desc -> do - let jFont_desc' = unsafeManagedPtrGetPtr jFont_desc - return jFont_desc' - gtk_widget_override_font _obj' maybeFont_desc - touchManagedPtr _obj - whenJust font_desc touchManagedPtr - return () - --- method Widget::override_symbolic_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "path_reversed", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path" gtk_widget_path :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Word32 -> -- path_length : TBasicType TUInt32 - 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) -widgetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path_length <- allocMem :: IO (Ptr Word32) - path <- allocMem :: IO (Ptr CString) - path_reversed <- allocMem :: IO (Ptr CString) - gtk_widget_path _obj' path_length path path_reversed - path_length' <- peek path_length - path' <- peek path - path'' <- cstringToText path' - freeMem path' - path_reversed' <- peek path_reversed - path_reversed'' <- cstringToText path_reversed' - freeMem path_reversed' - touchManagedPtr _obj - freeMem path_length - freeMem path - freeMem path_reversed - return (path_length', path'', path_reversed'') - --- method Widget::queue_compute_expand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_compute_expand" gtk_widget_queue_compute_expand :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueComputeExpand :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetQueueComputeExpand _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_compute_expand _obj' - touchManagedPtr _obj - return () - --- method Widget::queue_draw --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_draw" gtk_widget_queue_draw :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueDraw :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetQueueDraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_draw _obj' - touchManagedPtr _obj - return () - --- method Widget::queue_draw_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetQueueDrawArea :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - Int32 -> -- width - Int32 -> -- height - m () -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 () - --- method Widget::queue_draw_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -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 () - --- method Widget::queue_resize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_queue_resize" gtk_widget_queue_resize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetQueueResize :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetQueueResize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_resize _obj' - touchManagedPtr _obj - return () - --- method Widget::queue_resize_no_redraw --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetQueueResizeNoRedraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_queue_resize_no_redraw _obj' - touchManagedPtr _obj - return () - --- method Widget::realize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_realize" gtk_widget_realize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetRealize :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetRealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_realize _obj' - touchManagedPtr _obj - return () - --- method Widget::region_intersect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Widget::register_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetRegisterWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_widget_register_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method Widget::remove_accelerator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_key", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_mods", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_remove_accelerator" gtk_widget_remove_accelerator :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr AccelGroup -> -- accel_group : TInterface "Gtk" "AccelGroup" - Word32 -> -- accel_key : TBasicType TUInt32 - CUInt -> -- accel_mods : TInterface "Gdk" "ModifierType" - IO CInt - - -widgetRemoveAccelerator :: - (MonadIO m, WidgetK a, AccelGroupK b) => - a -> -- _obj - b -> -- accel_group - Word32 -> -- accel_key - [Gdk.ModifierType] -> -- accel_mods - m Bool -widgetRemoveAccelerator _obj accel_group accel_key accel_mods = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_group' = unsafeManagedPtrCastPtr accel_group - let accel_mods' = gflagsToWord accel_mods - result <- gtk_widget_remove_accelerator _obj' accel_group' accel_key accel_mods' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr accel_group - return result' - --- method Widget::remove_mnemonic_label --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -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 () - --- method Widget::remove_tick_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_remove_tick_callback" gtk_widget_remove_tick_callback :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Word32 -> -- id : TBasicType TUInt32 - IO () - - -widgetRemoveTickCallback :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Word32 -> -- id - m () -widgetRemoveTickCallback _obj id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_remove_tick_callback _obj' id - touchManagedPtr _obj - return () - --- method Widget::render_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -> -- stock_id - Int32 -> -- size - Maybe (T.Text) -> -- detail - m GdkPixbuf.Pixbuf -widgetRenderIcon _obj stock_id size detail = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - maybeDetail <- case detail of - Nothing -> return nullPtr - Just jDetail -> do - jDetail' <- textToCString jDetail - return jDetail' - result <- gtk_widget_render_icon _obj' stock_id' size maybeDetail - checkUnexpectedReturnNULL "gtk_widget_render_icon" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem stock_id' - freeMem maybeDetail - return result' - --- method Widget::render_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -> -- stock_id - Int32 -> -- size - m GdkPixbuf.Pixbuf -widgetRenderIconPixbuf _obj stock_id size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stock_id' <- textToCString stock_id - result <- gtk_widget_render_icon_pixbuf _obj' stock_id' size - checkUnexpectedReturnNULL "gtk_widget_render_icon_pixbuf" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - freeMem stock_id' - return result' - --- method Widget::reparent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- new_parent - m () -widgetReparent _obj new_parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let new_parent' = unsafeManagedPtrCastPtr new_parent - gtk_widget_reparent _obj' new_parent' - touchManagedPtr _obj - touchManagedPtr new_parent - return () - --- method Widget::reset_rc_styles --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetResetRcStyles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_reset_rc_styles _obj' - touchManagedPtr _obj - return () - --- method Widget::reset_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_reset_style" gtk_widget_reset_style :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetResetStyle :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetResetStyle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_reset_style _obj' - touchManagedPtr _obj - return () - --- method Widget::send_expose --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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 - --- method Widget::send_focus_change --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -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' - --- method Widget::set_accel_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- accel_path - Maybe (b) -> -- accel_group - m () -widgetSetAccelPath _obj accel_path accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAccel_path <- case accel_path of - Nothing -> return nullPtr - Just jAccel_path -> do - jAccel_path' <- textToCString jAccel_path - return jAccel_path' - maybeAccel_group <- case accel_group of - Nothing -> return nullPtr - Just jAccel_group -> do - let jAccel_group' = unsafeManagedPtrCastPtr jAccel_group - return jAccel_group' - gtk_widget_set_accel_path _obj' maybeAccel_path maybeAccel_group - touchManagedPtr _obj - whenJust accel_group touchManagedPtr - freeMem maybeAccel_path - return () - --- method Widget::set_allocation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_allocation" gtk_widget_set_allocation :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.RectangleInt -> -- allocation : TInterface "cairo" "RectangleInt" - IO () - - -widgetSetAllocation :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Cairo.RectangleInt -> -- allocation - m () -widgetSetAllocation _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_set_allocation _obj' allocation' - touchManagedPtr _obj - touchManagedPtr allocation - return () - --- method Widget::set_app_paintable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_paintable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_paintable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- app_paintable - m () -widgetSetAppPaintable _obj app_paintable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let app_paintable' = (fromIntegral . fromEnum) app_paintable - gtk_widget_set_app_paintable _obj' app_paintable' - touchManagedPtr _obj - return () - --- method Widget::set_can_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- can_default - m () -widgetSetCanDefault _obj can_default = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let can_default' = (fromIntegral . fromEnum) can_default - gtk_widget_set_can_default _obj' can_default' - touchManagedPtr _obj - return () - --- method Widget::set_can_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- can_focus - m () -widgetSetCanFocus _obj can_focus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let can_focus' = (fromIntegral . fromEnum) can_focus - gtk_widget_set_can_focus _obj' can_focus' - touchManagedPtr _obj - return () - --- method Widget::set_child_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- is_visible - m () -widgetSetChildVisible _obj is_visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let is_visible' = (fromIntegral . fromEnum) is_visible - gtk_widget_set_child_visible _obj' is_visible' - touchManagedPtr _obj - return () - --- method Widget::set_clip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clip", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_clip" gtk_widget_set_clip :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.RectangleInt -> -- clip : TInterface "cairo" "RectangleInt" - IO () - - -widgetSetClip :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Cairo.RectangleInt -> -- clip - m () -widgetSetClip _obj clip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let clip' = unsafeManagedPtrGetPtr clip - gtk_widget_set_clip _obj' clip' - touchManagedPtr _obj - touchManagedPtr clip - return () - --- method Widget::set_composite_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetCompositeName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_widget_set_composite_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method Widget::set_device_enabled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -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 () - --- method Widget::set_device_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -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 () - --- method Widget::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetDirection _obj dir = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dir' = (fromIntegral . fromEnum) dir - gtk_widget_set_direction _obj' dir' - touchManagedPtr _obj - return () - --- method Widget::set_double_buffered --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "double_buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "double_buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- double_buffered - m () -widgetSetDoubleBuffered _obj double_buffered = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let double_buffered' = (fromIntegral . fromEnum) double_buffered - gtk_widget_set_double_buffered _obj' double_buffered' - touchManagedPtr _obj - return () - --- method Widget::set_events --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "events", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_events" gtk_widget_set_events :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- events : TBasicType TInt32 - IO () - - -widgetSetEvents :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- events - m () -widgetSetEvents _obj events = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_events _obj' events - touchManagedPtr _obj - return () - --- method Widget::set_halign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetHalign _obj align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let align' = (fromIntegral . fromEnum) align - gtk_widget_set_halign _obj' align' - touchManagedPtr _obj - return () - --- method Widget::set_has_tooltip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- has_tooltip - m () -widgetSetHasTooltip _obj has_tooltip = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_tooltip' = (fromIntegral . fromEnum) has_tooltip - gtk_widget_set_has_tooltip _obj' has_tooltip' - touchManagedPtr _obj - return () - --- method Widget::set_has_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_window", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- has_window - m () -widgetSetHasWindow _obj has_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let has_window' = (fromIntegral . fromEnum) has_window - gtk_widget_set_has_window _obj' has_window' - touchManagedPtr _obj - return () - --- method Widget::set_hexpand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetHexpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_widget_set_hexpand _obj' expand' - touchManagedPtr _obj - return () - --- method Widget::set_hexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetHexpandSet _obj set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let set' = (fromIntegral . fromEnum) set - gtk_widget_set_hexpand_set _obj' set' - touchManagedPtr _obj - return () - --- method Widget::set_mapped --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapped", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mapped", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetMapped _obj mapped = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mapped' = (fromIntegral . fromEnum) mapped - gtk_widget_set_mapped _obj' mapped' - touchManagedPtr _obj - return () - --- method Widget::set_margin_bottom --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_bottom" gtk_widget_set_margin_bottom :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginBottom :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginBottom _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_bottom _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_end" gtk_widget_set_margin_end :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginEnd :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginEnd _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_end _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_left --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_left" gtk_widget_set_margin_left :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetSetMarginLeft ["(Since version 3.12)","Use gtk_widget_set_margin_start() instead."]#-} -widgetSetMarginLeft :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginLeft _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_left _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_right --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_right" gtk_widget_set_margin_right :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetSetMarginRight ["(Since version 3.12)","Use gtk_widget_set_margin_end() instead."]#-} -widgetSetMarginRight :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginRight _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_right _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_start" gtk_widget_set_margin_start :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginStart :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginStart _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_start _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_margin_top --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "margin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_margin_top" gtk_widget_set_margin_top :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- margin : TBasicType TInt32 - IO () - - -widgetSetMarginTop :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- margin - m () -widgetSetMarginTop _obj margin = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_margin_top _obj' margin - touchManagedPtr _obj - return () - --- method Widget::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - gtk_widget_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method Widget::set_no_show_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "no_show_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "no_show_all", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- no_show_all - m () -widgetSetNoShowAll _obj no_show_all = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let no_show_all' = (fromIntegral . fromEnum) no_show_all - gtk_widget_set_no_show_all _obj' no_show_all' - touchManagedPtr _obj - return () - --- method Widget::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - gtk_widget_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - --- method Widget::set_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetParent _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent' = unsafeManagedPtrCastPtr parent - gtk_widget_set_parent _obj' parent' - touchManagedPtr _obj - touchManagedPtr parent - return () - --- method Widget::set_parent_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- parent_window - m () -widgetSetParentWindow _obj parent_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent_window' = unsafeManagedPtrCastPtr parent_window - gtk_widget_set_parent_window _obj' parent_window' - touchManagedPtr _obj - touchManagedPtr parent_window - return () - --- method Widget::set_realized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realized", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realized", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetRealized _obj realized = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let realized' = (fromIntegral . fromEnum) realized - gtk_widget_set_realized _obj' realized' - touchManagedPtr _obj - return () - --- method Widget::set_receives_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "receives_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "receives_default", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- receives_default - m () -widgetSetReceivesDefault _obj receives_default = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let receives_default' = (fromIntegral . fromEnum) receives_default - gtk_widget_set_receives_default _obj' receives_default' - touchManagedPtr _obj - return () - --- method Widget::set_redraw_on_allocate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redraw_on_allocate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redraw_on_allocate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- redraw_on_allocate - m () -widgetSetRedrawOnAllocate _obj redraw_on_allocate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let redraw_on_allocate' = (fromIntegral . fromEnum) redraw_on_allocate - gtk_widget_set_redraw_on_allocate _obj' redraw_on_allocate' - touchManagedPtr _obj - return () - --- method Widget::set_sensitive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sensitive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetSensitive _obj sensitive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sensitive' = (fromIntegral . fromEnum) sensitive - gtk_widget_set_sensitive _obj' sensitive' - touchManagedPtr _obj - return () - --- method Widget::set_size_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_size_request" gtk_widget_set_size_request :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -widgetSetSizeRequest :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -widgetSetSizeRequest _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_set_size_request _obj' width height - touchManagedPtr _obj - return () - --- method Widget::set_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - gtk_widget_set_state _obj' state' - touchManagedPtr _obj - return () - --- method Widget::set_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clear", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clear", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -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 () - --- method Widget::set_style --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::set_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 -> -- support_multidevice - m () -widgetSetSupportMultidevice _obj support_multidevice = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let support_multidevice' = (fromIntegral . fromEnum) support_multidevice - gtk_widget_set_support_multidevice _obj' support_multidevice' - touchManagedPtr _obj - return () - --- method Widget::set_tooltip_markup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::set_tooltip_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::set_tooltip_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "custom_window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- custom_window - m () -widgetSetTooltipWindow _obj custom_window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCustom_window <- case custom_window of - Nothing -> return nullPtr - Just jCustom_window -> do - let jCustom_window' = unsafeManagedPtrCastPtr jCustom_window - return jCustom_window' - gtk_widget_set_tooltip_window _obj' maybeCustom_window - touchManagedPtr _obj - whenJust custom_window touchManagedPtr - return () - --- method Widget::set_valign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "align", argType = TInterface "Gtk" "Align", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetValign _obj align = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let align' = (fromIntegral . fromEnum) align - gtk_widget_set_valign _obj' align' - touchManagedPtr _obj - return () - --- method Widget::set_vexpand --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetVexpand _obj expand = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let expand' = (fromIntegral . fromEnum) expand - gtk_widget_set_vexpand _obj' expand' - touchManagedPtr _obj - return () - --- method Widget::set_vexpand_set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetVexpandSet _obj set = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let set' = (fromIntegral . fromEnum) set - gtk_widget_set_vexpand_set _obj' set' - touchManagedPtr _obj - return () - --- method Widget::set_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetSetVisible _obj visible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let visible' = (fromIntegral . fromEnum) visible - gtk_widget_set_visible _obj' visible' - touchManagedPtr _obj - return () - --- method Widget::set_visual --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::set_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- 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 () -widgetSetWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - window' <- refObject window - gtk_widget_set_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method Widget::shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Widget::show --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show" gtk_widget_show :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show _obj' - touchManagedPtr _obj - return () - --- method Widget::show_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show_all" gtk_widget_show_all :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShowAll :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetShowAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show_all _obj' - touchManagedPtr _obj - return () - --- method Widget::show_now --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_show_now" gtk_widget_show_now :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetShowNow :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetShowNow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_show_now _obj' - touchManagedPtr _obj - return () - --- method Widget::size_allocate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_allocate" gtk_widget_size_allocate :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.RectangleInt -> -- allocation : TInterface "cairo" "RectangleInt" - IO () - - -widgetSizeAllocate :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Cairo.RectangleInt -> -- allocation - m () -widgetSizeAllocate _obj allocation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allocation' = unsafeManagedPtrGetPtr allocation - gtk_widget_size_allocate _obj' allocation' - touchManagedPtr _obj - touchManagedPtr allocation - return () - --- method Widget::size_allocate_with_baseline --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseline", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocation", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "baseline", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_size_allocate_with_baseline" gtk_widget_size_allocate_with_baseline :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Cairo.RectangleInt -> -- allocation : TInterface "cairo" "RectangleInt" - Int32 -> -- baseline : TBasicType TInt32 - IO () - - -widgetSizeAllocateWithBaseline :: - (MonadIO m, WidgetK a) => - a -> -- _obj - Cairo.RectangleInt -> -- allocation - Int32 -> -- baseline - m () -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 () - --- method Widget::size_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requisition", argType = TInterface "Gtk" "Requisition", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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) -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' - --- method Widget::style_attach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetStyleAttach _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_style_attach _obj' - touchManagedPtr _obj - return () - --- method Widget::style_get_property --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -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 -> -- property_name - GValue -> -- value - m () -widgetStyleGetProperty _obj property_name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - property_name' <- textToCString property_name - let value' = unsafeManagedPtrGetPtr value - gtk_widget_style_get_property _obj' property_name' value' - touchManagedPtr _obj - touchManagedPtr value - freeMem property_name' - return () - --- method Widget::thaw_child_notify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_thaw_child_notify" gtk_widget_thaw_child_notify :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetThawChildNotify :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetThawChildNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_thaw_child_notify _obj' - touchManagedPtr _obj - return () - --- method Widget::translate_coordinates --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_translate_coordinates" gtk_widget_translate_coordinates :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - Ptr Widget -> -- dest_widget : TInterface "Gtk" "Widget" - Int32 -> -- src_x : TBasicType TInt32 - Int32 -> -- src_y : TBasicType TInt32 - Ptr Int32 -> -- dest_x : TBasicType TInt32 - Ptr Int32 -> -- dest_y : TBasicType TInt32 - IO CInt - - -widgetTranslateCoordinates :: - (MonadIO m, WidgetK a, WidgetK b) => - a -> -- _obj - b -> -- dest_widget - Int32 -> -- src_x - Int32 -> -- src_y - m (Bool,Int32,Int32) -widgetTranslateCoordinates _obj dest_widget src_x src_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest_widget' = unsafeManagedPtrCastPtr dest_widget - dest_x <- allocMem :: IO (Ptr Int32) - dest_y <- allocMem :: IO (Ptr Int32) - result <- gtk_widget_translate_coordinates _obj' dest_widget' src_x src_y dest_x dest_y - let result' = (/= 0) result - dest_x' <- peek dest_x - dest_y' <- peek dest_y - touchManagedPtr _obj - touchManagedPtr dest_widget - freeMem dest_x - freeMem dest_y - return (result', dest_x', dest_y') - --- method Widget::trigger_tooltip_query --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_trigger_tooltip_query" gtk_widget_trigger_tooltip_query :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetTriggerTooltipQuery :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetTriggerTooltipQuery _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_trigger_tooltip_query _obj' - touchManagedPtr _obj - return () - --- method Widget::unmap --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unmap" gtk_widget_unmap :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnmap :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetUnmap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unmap _obj' - touchManagedPtr _obj - return () - --- method Widget::unparent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unparent" gtk_widget_unparent :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnparent :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetUnparent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unparent _obj' - touchManagedPtr _obj - return () - --- method Widget::unrealize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_unrealize" gtk_widget_unrealize :: - Ptr Widget -> -- _obj : TInterface "Gtk" "Widget" - IO () - - -widgetUnrealize :: - (MonadIO m, WidgetK a) => - a -> -- _obj - m () -widgetUnrealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_widget_unrealize _obj' - touchManagedPtr _obj - return () - --- method Widget::unregister_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetUnregisterWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - gtk_widget_unregister_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return () - --- method Widget::unset_state_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_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 () -widgetUnsetStateFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - gtk_widget_unset_state_flags _obj' flags' - touchManagedPtr _obj - return () - --- method Widget::get_default_direction --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- 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 () -widgetPopCompositeChild = liftIO $ do - gtk_widget_pop_composite_child - return () - --- method Widget::push_composite_child --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- 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 () -widgetPushCompositeChild = liftIO $ do - gtk_widget_push_composite_child - return () - --- method Widget::set_default_direction --- method type : MemberFunction --- Args : [Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dir", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_set_default_direction" gtk_widget_set_default_direction :: - CUInt -> -- dir : TInterface "Gtk" "TextDirection" - IO () - - -widgetSetDefaultDirection :: - (MonadIO m) => - TextDirection -> -- dir - m () -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,120 +0,0 @@ -module GI.Gtk.Objects.Widget where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList WidgetAccessible = WidgetAccessibleAttributeList -type WidgetAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList WidgetAccessible = WidgetAccessibleSignalList -type WidgetAccessibleSignalList = ('[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,4998 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - windowActivateDefault , - - --- ** windowActivateFocus - windowActivateFocus , - - --- ** windowActivateKey - windowActivateKey , - - --- ** windowAddAccelGroup - windowAddAccelGroup , - - --- ** windowAddMnemonic - windowAddMnemonic , - - --- ** windowBeginMoveDrag - windowBeginMoveDrag , - - --- ** windowBeginResizeDrag - windowBeginResizeDrag , - - --- ** windowClose - windowClose , - - --- ** windowDeiconify - windowDeiconify , - - --- ** windowFullscreen - windowFullscreen , - - --- ** windowGetAcceptFocus - windowGetAcceptFocus , - - --- ** windowGetApplication - windowGetApplication , - - --- ** windowGetAttachedTo - windowGetAttachedTo , - - --- ** windowGetDecorated - windowGetDecorated , - - --- ** windowGetDefaultIconList - windowGetDefaultIconList , - - --- ** windowGetDefaultIconName - windowGetDefaultIconName , - - --- ** windowGetDefaultSize - windowGetDefaultSize , - - --- ** windowGetDefaultWidget - windowGetDefaultWidget , - - --- ** windowGetDeletable - windowGetDeletable , - - --- ** windowGetDestroyWithParent - windowGetDestroyWithParent , - - --- ** windowGetFocus - windowGetFocus , - - --- ** windowGetFocusOnMap - windowGetFocusOnMap , - - --- ** windowGetFocusVisible - windowGetFocusVisible , - - --- ** windowGetGravity - windowGetGravity , - - --- ** windowGetGroup - windowGetGroup , - - --- ** windowGetHasResizeGrip - windowGetHasResizeGrip , - - --- ** windowGetHideTitlebarWhenMaximized - windowGetHideTitlebarWhenMaximized , - - --- ** windowGetIcon - windowGetIcon , - - --- ** windowGetIconList - windowGetIconList , - - --- ** windowGetIconName - windowGetIconName , - - --- ** windowGetMnemonicModifier - windowGetMnemonicModifier , - - --- ** windowGetMnemonicsVisible - windowGetMnemonicsVisible , - - --- ** windowGetModal - windowGetModal , - - --- ** windowGetOpacity - windowGetOpacity , - - --- ** windowGetPosition - windowGetPosition , - - --- ** windowGetResizable - windowGetResizable , - - --- ** windowGetResizeGripArea - windowGetResizeGripArea , - - --- ** windowGetRole - windowGetRole , - - --- ** windowGetScreen - windowGetScreen , - - --- ** windowGetSize - windowGetSize , - - --- ** windowGetSkipPagerHint - windowGetSkipPagerHint , - - --- ** windowGetSkipTaskbarHint - windowGetSkipTaskbarHint , - - --- ** windowGetTitle - windowGetTitle , - - --- ** windowGetTitlebar - windowGetTitlebar , - - --- ** windowGetTransientFor - windowGetTransientFor , - - --- ** windowGetTypeHint - windowGetTypeHint , - - --- ** windowGetUrgencyHint - windowGetUrgencyHint , - - --- ** windowGetWindowType - windowGetWindowType , - - --- ** windowHasGroup - windowHasGroup , - - --- ** windowHasToplevelFocus - windowHasToplevelFocus , - - --- ** windowIconify - windowIconify , - - --- ** windowIsActive - windowIsActive , - - --- ** windowIsMaximized - windowIsMaximized , - - --- ** windowListToplevels - windowListToplevels , - - --- ** windowMaximize - windowMaximize , - - --- ** windowMnemonicActivate - windowMnemonicActivate , - - --- ** windowMove - windowMove , - - --- ** windowNew - windowNew , - - --- ** windowParseGeometry - windowParseGeometry , - - --- ** windowPresent - windowPresent , - - --- ** windowPresentWithTime - windowPresentWithTime , - - --- ** windowPropagateKeyEvent - windowPropagateKeyEvent , - - --- ** windowRemoveAccelGroup - windowRemoveAccelGroup , - - --- ** windowRemoveMnemonic - windowRemoveMnemonic , - - --- ** windowReshowWithInitialSize - windowReshowWithInitialSize , - - --- ** windowResize - windowResize , - - --- ** windowResizeGripIsVisible - windowResizeGripIsVisible , - - --- ** windowResizeToGeometry - windowResizeToGeometry , - - --- ** windowSetAcceptFocus - windowSetAcceptFocus , - - --- ** windowSetApplication - windowSetApplication , - - --- ** windowSetAttachedTo - windowSetAttachedTo , - - --- ** windowSetAutoStartupNotification - windowSetAutoStartupNotification , - - --- ** windowSetDecorated - windowSetDecorated , - - --- ** windowSetDefault - windowSetDefault , - - --- ** windowSetDefaultGeometry - windowSetDefaultGeometry , - - --- ** windowSetDefaultIcon - windowSetDefaultIcon , - - --- ** windowSetDefaultIconFromFile - windowSetDefaultIconFromFile , - - --- ** windowSetDefaultIconList - windowSetDefaultIconList , - - --- ** windowSetDefaultIconName - windowSetDefaultIconName , - - --- ** windowSetDefaultSize - windowSetDefaultSize , - - --- ** windowSetDeletable - windowSetDeletable , - - --- ** windowSetDestroyWithParent - windowSetDestroyWithParent , - - --- ** windowSetFocus - windowSetFocus , - - --- ** windowSetFocusOnMap - windowSetFocusOnMap , - - --- ** windowSetFocusVisible - windowSetFocusVisible , - - --- ** windowSetGeometryHints - windowSetGeometryHints , - - --- ** windowSetGravity - windowSetGravity , - - --- ** windowSetHasResizeGrip - windowSetHasResizeGrip , - - --- ** windowSetHasUserRefCount - windowSetHasUserRefCount , - - --- ** windowSetHideTitlebarWhenMaximized - windowSetHideTitlebarWhenMaximized , - - --- ** windowSetIcon - windowSetIcon , - - --- ** windowSetIconFromFile - windowSetIconFromFile , - - --- ** windowSetIconList - windowSetIconList , - - --- ** windowSetIconName - windowSetIconName , - - --- ** windowSetInteractiveDebugging - windowSetInteractiveDebugging , - - --- ** windowSetKeepAbove - windowSetKeepAbove , - - --- ** windowSetKeepBelow - windowSetKeepBelow , - - --- ** windowSetMnemonicModifier - windowSetMnemonicModifier , - - --- ** windowSetMnemonicsVisible - windowSetMnemonicsVisible , - - --- ** windowSetModal - windowSetModal , - - --- ** windowSetOpacity - windowSetOpacity , - - --- ** windowSetPosition - windowSetPosition , - - --- ** windowSetResizable - windowSetResizable , - - --- ** windowSetRole - windowSetRole , - - --- ** windowSetScreen - windowSetScreen , - - --- ** windowSetSkipPagerHint - windowSetSkipPagerHint , - - --- ** windowSetSkipTaskbarHint - windowSetSkipTaskbarHint , - - --- ** windowSetStartupId - windowSetStartupId , - - --- ** windowSetTitle - windowSetTitle , - - --- ** windowSetTitlebar - windowSetTitlebar , - - --- ** windowSetTransientFor - windowSetTransientFor , - - --- ** windowSetTypeHint - windowSetTypeHint , - - --- ** windowSetUrgencyHint - windowSetUrgencyHint , - - --- ** windowSetWmclass - windowSetWmclass , - - --- ** windowStick - windowStick , - - --- ** windowUnfullscreen - windowUnfullscreen , - - --- ** windowUnmaximize - windowUnmaximize , - - --- ** windowUnstick - windowUnstick , - - - - - -- * Properties --- ** AcceptFocus - WindowAcceptFocusPropertyInfo , - constructWindowAcceptFocus , - getWindowAcceptFocus , - setWindowAcceptFocus , - - --- ** Application - WindowApplicationPropertyInfo , - constructWindowApplication , - getWindowApplication , - setWindowApplication , - - --- ** AttachedTo - WindowAttachedToPropertyInfo , - constructWindowAttachedTo , - getWindowAttachedTo , - setWindowAttachedTo , - - --- ** Decorated - WindowDecoratedPropertyInfo , - constructWindowDecorated , - getWindowDecorated , - setWindowDecorated , - - --- ** DefaultHeight - WindowDefaultHeightPropertyInfo , - constructWindowDefaultHeight , - getWindowDefaultHeight , - setWindowDefaultHeight , - - --- ** DefaultWidth - WindowDefaultWidthPropertyInfo , - constructWindowDefaultWidth , - getWindowDefaultWidth , - setWindowDefaultWidth , - - --- ** Deletable - WindowDeletablePropertyInfo , - constructWindowDeletable , - getWindowDeletable , - setWindowDeletable , - - --- ** DestroyWithParent - WindowDestroyWithParentPropertyInfo , - constructWindowDestroyWithParent , - getWindowDestroyWithParent , - setWindowDestroyWithParent , - - --- ** FocusOnMap - WindowFocusOnMapPropertyInfo , - constructWindowFocusOnMap , - getWindowFocusOnMap , - setWindowFocusOnMap , - - --- ** FocusVisible - WindowFocusVisiblePropertyInfo , - constructWindowFocusVisible , - getWindowFocusVisible , - setWindowFocusVisible , - - --- ** Gravity - WindowGravityPropertyInfo , - constructWindowGravity , - getWindowGravity , - setWindowGravity , - - --- ** HasResizeGrip - WindowHasResizeGripPropertyInfo , - constructWindowHasResizeGrip , - getWindowHasResizeGrip , - setWindowHasResizeGrip , - - --- ** HasToplevelFocus - WindowHasToplevelFocusPropertyInfo , - getWindowHasToplevelFocus , - - --- ** HideTitlebarWhenMaximized - WindowHideTitlebarWhenMaximizedPropertyInfo, - constructWindowHideTitlebarWhenMaximized, - getWindowHideTitlebarWhenMaximized , - setWindowHideTitlebarWhenMaximized , - - --- ** Icon - WindowIconPropertyInfo , - constructWindowIcon , - getWindowIcon , - setWindowIcon , - - --- ** IconName - WindowIconNamePropertyInfo , - constructWindowIconName , - getWindowIconName , - setWindowIconName , - - --- ** IsActive - WindowIsActivePropertyInfo , - getWindowIsActive , - - --- ** IsMaximized - WindowIsMaximizedPropertyInfo , - getWindowIsMaximized , - - --- ** MnemonicsVisible - WindowMnemonicsVisiblePropertyInfo , - constructWindowMnemonicsVisible , - getWindowMnemonicsVisible , - setWindowMnemonicsVisible , - - --- ** Modal - WindowModalPropertyInfo , - constructWindowModal , - getWindowModal , - setWindowModal , - - --- ** Resizable - WindowResizablePropertyInfo , - constructWindowResizable , - getWindowResizable , - setWindowResizable , - - --- ** ResizeGripVisible - WindowResizeGripVisiblePropertyInfo , - getWindowResizeGripVisible , - - --- ** Role - WindowRolePropertyInfo , - constructWindowRole , - getWindowRole , - setWindowRole , - - --- ** Screen - WindowScreenPropertyInfo , - constructWindowScreen , - getWindowScreen , - setWindowScreen , - - --- ** SkipPagerHint - WindowSkipPagerHintPropertyInfo , - constructWindowSkipPagerHint , - getWindowSkipPagerHint , - setWindowSkipPagerHint , - - --- ** SkipTaskbarHint - WindowSkipTaskbarHintPropertyInfo , - constructWindowSkipTaskbarHint , - getWindowSkipTaskbarHint , - setWindowSkipTaskbarHint , - - --- ** StartupId - WindowStartupIdPropertyInfo , - constructWindowStartupId , - setWindowStartupId , - - --- ** Title - WindowTitlePropertyInfo , - constructWindowTitle , - getWindowTitle , - setWindowTitle , - - --- ** TransientFor - WindowTransientForPropertyInfo , - constructWindowTransientFor , - getWindowTransientFor , - setWindowTransientFor , - - --- ** Type - WindowTypePropertyInfo , - constructWindowType , - getWindowType , - - --- ** TypeHint - WindowTypeHintPropertyInfo , - constructWindowTypeHint , - getWindowTypeHint , - setWindowTypeHint , - - --- ** UrgencyHint - WindowUrgencyHintPropertyInfo , - constructWindowUrgencyHint , - getWindowUrgencyHint , - setWindowUrgencyHint , - - --- ** WindowPosition - WindowWindowPositionPropertyInfo , - constructWindowWindowPosition , - getWindowWindowPosition , - setWindowWindowPosition , - - - - - -- * 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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.Cairo as Cairo - -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 - --- 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] - -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 = "Window::accept-focus" - attrGet _ = getWindowAcceptFocus - attrSet _ = setWindowAcceptFocus - attrConstruct _ = constructWindowAcceptFocus - --- VVV Prop "application" - -- Type: TInterface "Gtk" "Application" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowApplication :: (MonadIO m, WindowK o) => o -> m Application -getWindowApplication obj = liftIO $ getObjectPropertyObject obj "application" Application - -setWindowApplication :: (MonadIO m, WindowK o, ApplicationK a) => o -> a -> m () -setWindowApplication obj val = liftIO $ setObjectPropertyObject obj "application" val - -constructWindowApplication :: (ApplicationK a) => a -> IO ([Char], GValue) -constructWindowApplication val = constructObjectPropertyObject "application" val - -data WindowApplicationPropertyInfo -instance AttrInfo WindowApplicationPropertyInfo where - type AttrAllowedOps WindowApplicationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowApplicationPropertyInfo = ApplicationK - type AttrBaseTypeConstraint WindowApplicationPropertyInfo = WindowK - type AttrGetType WindowApplicationPropertyInfo = Application - type AttrLabel WindowApplicationPropertyInfo = "Window::application" - attrGet _ = getWindowApplication - attrSet _ = setWindowApplication - attrConstruct _ = constructWindowApplication - --- VVV Prop "attached-to" - -- Type: TInterface "Gtk" "Widget" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWindowAttachedTo :: (MonadIO m, WindowK o) => o -> m Widget -getWindowAttachedTo obj = liftIO $ getObjectPropertyObject obj "attached-to" Widget - -setWindowAttachedTo :: (MonadIO m, WindowK o, WidgetK a) => o -> a -> m () -setWindowAttachedTo obj val = liftIO $ setObjectPropertyObject obj "attached-to" val - -constructWindowAttachedTo :: (WidgetK a) => a -> IO ([Char], GValue) -constructWindowAttachedTo val = constructObjectPropertyObject "attached-to" val - -data WindowAttachedToPropertyInfo -instance AttrInfo WindowAttachedToPropertyInfo where - type AttrAllowedOps WindowAttachedToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowAttachedToPropertyInfo = WidgetK - type AttrBaseTypeConstraint WindowAttachedToPropertyInfo = WindowK - type AttrGetType WindowAttachedToPropertyInfo = Widget - type AttrLabel WindowAttachedToPropertyInfo = "Window::attached-to" - attrGet _ = getWindowAttachedTo - attrSet _ = setWindowAttachedTo - attrConstruct _ = constructWindowAttachedTo - --- VVV Prop "decorated" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::decorated" - attrGet _ = getWindowDecorated - attrSet _ = setWindowDecorated - attrConstruct _ = constructWindowDecorated - --- VVV Prop "default-height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> m Int32 -getWindowDefaultHeight obj = liftIO $ getObjectPropertyCInt obj "default-height" - -setWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> Int32 -> m () -setWindowDefaultHeight obj val = liftIO $ setObjectPropertyCInt obj "default-height" val - -constructWindowDefaultHeight :: Int32 -> IO ([Char], GValue) -constructWindowDefaultHeight val = constructObjectPropertyCInt "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 = "Window::default-height" - attrGet _ = getWindowDefaultHeight - attrSet _ = setWindowDefaultHeight - attrConstruct _ = constructWindowDefaultHeight - --- VVV Prop "default-width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> m Int32 -getWindowDefaultWidth obj = liftIO $ getObjectPropertyCInt obj "default-width" - -setWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> Int32 -> m () -setWindowDefaultWidth obj val = liftIO $ setObjectPropertyCInt obj "default-width" val - -constructWindowDefaultWidth :: Int32 -> IO ([Char], GValue) -constructWindowDefaultWidth val = constructObjectPropertyCInt "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 = "Window::default-width" - attrGet _ = getWindowDefaultWidth - attrSet _ = setWindowDefaultWidth - attrConstruct _ = constructWindowDefaultWidth - --- VVV Prop "deletable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::deletable" - attrGet _ = getWindowDeletable - attrSet _ = setWindowDeletable - attrConstruct _ = constructWindowDeletable - --- VVV Prop "destroy-with-parent" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::destroy-with-parent" - attrGet _ = getWindowDestroyWithParent - attrSet _ = setWindowDestroyWithParent - attrConstruct _ = constructWindowDestroyWithParent - --- VVV Prop "focus-on-map" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::focus-on-map" - attrGet _ = getWindowFocusOnMap - attrSet _ = setWindowFocusOnMap - attrConstruct _ = constructWindowFocusOnMap - --- VVV Prop "focus-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::focus-visible" - attrGet _ = getWindowFocusVisible - attrSet _ = setWindowFocusVisible - attrConstruct _ = constructWindowFocusVisible - --- VVV Prop "gravity" - -- Type: TInterface "Gdk" "Gravity" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::gravity" - attrGet _ = getWindowGravity - attrSet _ = setWindowGravity - attrConstruct _ = constructWindowGravity - --- VVV Prop "has-resize-grip" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::has-resize-grip" - attrGet _ = getWindowHasResizeGrip - attrSet _ = setWindowHasResizeGrip - attrConstruct _ = constructWindowHasResizeGrip - --- VVV Prop "has-toplevel-focus" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "Window::has-toplevel-focus" - attrGet _ = getWindowHasToplevelFocus - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "hide-titlebar-when-maximized" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::hide-titlebar-when-maximized" - attrGet _ = getWindowHideTitlebarWhenMaximized - attrSet _ = setWindowHideTitlebarWhenMaximized - attrConstruct _ = constructWindowHideTitlebarWhenMaximized - --- VVV Prop "icon" - -- Type: TInterface "GdkPixbuf" "Pixbuf" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowIcon :: (MonadIO m, WindowK o) => o -> m GdkPixbuf.Pixbuf -getWindowIcon obj = liftIO $ getObjectPropertyObject obj "icon" GdkPixbuf.Pixbuf - -setWindowIcon :: (MonadIO m, WindowK o, GdkPixbuf.PixbufK a) => o -> a -> m () -setWindowIcon obj val = liftIO $ setObjectPropertyObject obj "icon" val - -constructWindowIcon :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) -constructWindowIcon val = constructObjectPropertyObject "icon" val - -data WindowIconPropertyInfo -instance AttrInfo WindowIconPropertyInfo where - type AttrAllowedOps WindowIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowIconPropertyInfo = GdkPixbuf.PixbufK - type AttrBaseTypeConstraint WindowIconPropertyInfo = WindowK - type AttrGetType WindowIconPropertyInfo = GdkPixbuf.Pixbuf - type AttrLabel WindowIconPropertyInfo = "Window::icon" - attrGet _ = getWindowIcon - attrSet _ = setWindowIcon - attrConstruct _ = constructWindowIcon - --- VVV Prop "icon-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowIconName :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowIconName obj = liftIO $ getObjectPropertyString obj "icon-name" - -setWindowIconName :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val - -constructWindowIconName :: T.Text -> IO ([Char], GValue) -constructWindowIconName val = constructObjectPropertyString "icon-name" val - -data WindowIconNamePropertyInfo -instance AttrInfo WindowIconNamePropertyInfo where - type AttrAllowedOps WindowIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WindowIconNamePropertyInfo = WindowK - type AttrGetType WindowIconNamePropertyInfo = T.Text - type AttrLabel WindowIconNamePropertyInfo = "Window::icon-name" - attrGet _ = getWindowIconName - attrSet _ = setWindowIconName - attrConstruct _ = constructWindowIconName - --- VVV Prop "is-active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "Window::is-active" - attrGet _ = getWindowIsActive - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "is-maximized" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "Window::is-maximized" - attrGet _ = getWindowIsMaximized - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "mnemonics-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::mnemonics-visible" - attrGet _ = getWindowMnemonicsVisible - attrSet _ = setWindowMnemonicsVisible - attrConstruct _ = constructWindowMnemonicsVisible - --- VVV Prop "modal" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::modal" - attrGet _ = getWindowModal - attrSet _ = setWindowModal - attrConstruct _ = constructWindowModal - --- VVV Prop "resizable" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::resizable" - attrGet _ = getWindowResizable - attrSet _ = setWindowResizable - attrConstruct _ = constructWindowResizable - --- VVV Prop "resize-grip-visible" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -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 = "Window::resize-grip-visible" - attrGet _ = getWindowResizeGripVisible - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "role" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowRole :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowRole obj = liftIO $ getObjectPropertyString obj "role" - -setWindowRole :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowRole obj val = liftIO $ setObjectPropertyString obj "role" val - -constructWindowRole :: T.Text -> IO ([Char], GValue) -constructWindowRole val = constructObjectPropertyString "role" 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 = "Window::role" - attrGet _ = getWindowRole - attrSet _ = setWindowRole - attrConstruct _ = constructWindowRole - --- VVV Prop "screen" - -- Type: TInterface "Gdk" "Screen" - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowScreen :: (MonadIO m, WindowK o) => o -> m Gdk.Screen -getWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen - -setWindowScreen :: (MonadIO m, WindowK o, Gdk.ScreenK a) => o -> a -> m () -setWindowScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val - -constructWindowScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) -constructWindowScreen val = constructObjectPropertyObject "screen" 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 = "Window::screen" - attrGet _ = getWindowScreen - attrSet _ = setWindowScreen - attrConstruct _ = constructWindowScreen - --- VVV Prop "skip-pager-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::skip-pager-hint" - attrGet _ = getWindowSkipPagerHint - attrSet _ = setWindowSkipPagerHint - attrConstruct _ = constructWindowSkipPagerHint - --- VVV Prop "skip-taskbar-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::skip-taskbar-hint" - attrGet _ = getWindowSkipTaskbarHint - attrSet _ = setWindowSkipTaskbarHint - attrConstruct _ = constructWindowSkipTaskbarHint - --- VVV Prop "startup-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setWindowStartupId :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowStartupId obj val = liftIO $ setObjectPropertyString obj "startup-id" val - -constructWindowStartupId :: T.Text -> IO ([Char], GValue) -constructWindowStartupId val = constructObjectPropertyString "startup-id" 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 = "Window::startup-id" - attrGet _ = undefined - attrSet _ = setWindowStartupId - attrConstruct _ = constructWindowStartupId - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getWindowTitle :: (MonadIO m, WindowK o) => o -> m T.Text -getWindowTitle obj = liftIO $ getObjectPropertyString obj "title" - -setWindowTitle :: (MonadIO m, WindowK o) => o -> T.Text -> m () -setWindowTitle obj val = liftIO $ setObjectPropertyString obj "title" val - -constructWindowTitle :: T.Text -> IO ([Char], GValue) -constructWindowTitle val = constructObjectPropertyString "title" 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 = "Window::title" - attrGet _ = getWindowTitle - attrSet _ = setWindowTitle - attrConstruct _ = constructWindowTitle - --- VVV Prop "transient-for" - -- Type: TInterface "Gtk" "Window" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getWindowTransientFor :: (MonadIO m, WindowK o) => o -> m Window -getWindowTransientFor obj = liftIO $ getObjectPropertyObject obj "transient-for" Window - -setWindowTransientFor :: (MonadIO m, WindowK o, WindowK a) => o -> a -> m () -setWindowTransientFor obj val = liftIO $ setObjectPropertyObject obj "transient-for" val - -constructWindowTransientFor :: (WindowK a) => a -> IO ([Char], GValue) -constructWindowTransientFor val = constructObjectPropertyObject "transient-for" val - -data WindowTransientForPropertyInfo -instance AttrInfo WindowTransientForPropertyInfo where - type AttrAllowedOps WindowTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WindowTransientForPropertyInfo = WindowK - type AttrBaseTypeConstraint WindowTransientForPropertyInfo = WindowK - type AttrGetType WindowTransientForPropertyInfo = Window - type AttrLabel WindowTransientForPropertyInfo = "Window::transient-for" - attrGet _ = getWindowTransientFor - attrSet _ = setWindowTransientFor - attrConstruct _ = constructWindowTransientFor - --- VVV Prop "type" - -- Type: TInterface "Gtk" "WindowType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -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 = "Window::type" - attrGet _ = getWindowType - attrSet _ = undefined - attrConstruct _ = constructWindowType - --- VVV Prop "type-hint" - -- Type: TInterface "Gdk" "WindowTypeHint" - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::type-hint" - attrGet _ = getWindowTypeHint - attrSet _ = setWindowTypeHint - attrConstruct _ = constructWindowTypeHint - --- VVV Prop "urgency-hint" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -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 = "Window::urgency-hint" - attrGet _ = getWindowUrgencyHint - attrSet _ = setWindowUrgencyHint - attrConstruct _ = constructWindowUrgencyHint - --- VVV Prop "window-position" - -- Type: TInterface "Gtk" "WindowPosition" - -- Flags: [PropertyReadable,PropertyWritable] - -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::window-position" - attrGet _ = getWindowWindowPosition - attrSet _ = setWindowWindowPosition - attrConstruct _ = constructWindowWindowPosition - -type instance AttributeList Window = WindowAttributeList -type WindowAttributeList = ('[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] :: [(Symbol, *)]) - -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 = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Window::new --- method type : Constructor --- Args : [Arg {argName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TInterface "Gtk" "WindowType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowActivateDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_activate_default _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::activate_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowActivateFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_activate_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::activate_key --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::add_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- accel_group - m () -windowAddAccelGroup _obj accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_group' = unsafeManagedPtrCastPtr accel_group - gtk_window_add_accel_group _obj' accel_group' - touchManagedPtr _obj - touchManagedPtr accel_group - return () - --- method Window::add_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr Widget -> -- target : TInterface "Gtk" "Widget" - IO () - - -windowAddMnemonic :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Word32 -> -- keyval - b -> -- target - m () -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 () - --- method Window::begin_move_drag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- root_x : TBasicType TInt32 - Int32 -> -- root_y : TBasicType TInt32 - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginMoveDrag :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- button - Int32 -> -- root_x - Int32 -> -- root_y - Word32 -> -- timestamp - m () -windowBeginMoveDrag _obj button root_x root_y timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_begin_move_drag _obj' button root_x root_y timestamp - touchManagedPtr _obj - return () - --- method Window::begin_resize_drag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Int32 -> -- root_x : TBasicType TInt32 - Int32 -> -- root_y : TBasicType TInt32 - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginResizeDrag :: - (MonadIO m, WindowK a) => - a -> -- _obj - Gdk.WindowEdge -> -- edge - Int32 -> -- button - Int32 -> -- root_x - Int32 -> -- root_y - Word32 -> -- timestamp - m () -windowBeginResizeDrag _obj edge button root_x root_y timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let edge' = (fromIntegral . fromEnum) edge - gtk_window_begin_resize_drag _obj' edge' button root_x root_y timestamp - touchManagedPtr _obj - return () - --- method Window::close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_close _obj' - touchManagedPtr _obj - return () - --- method Window::deiconify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowDeiconify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_deiconify _obj' - touchManagedPtr _obj - return () - --- method Window::fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowFullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_fullscreen _obj' - touchManagedPtr _obj - return () - --- method Window::get_accept_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetAcceptFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_accept_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_attached_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_decorated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetDecorated _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_decorated _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_default_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -windowGetDefaultSize :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method Window::get_default_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_deletable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetDeletable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_deletable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_destroy_with_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetDestroyWithParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_destroy_with_parent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_focus_on_map --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetFocusOnMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_focus_on_map _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_focus_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetFocusVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_focus_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_gravity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetGravity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_gravity _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Window::get_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_has_resize_grip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetHasResizeGrip _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_has_resize_grip _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_hide_titlebar_when_maximized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_icon_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -windowGetIconList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_icon_list _obj' - checkUnexpectedReturnNULL "gtk_window_get_icon_list" result - result' <- unpackGList result - result'' <- mapM (newObject GdkPixbuf.Pixbuf) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method Window::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_mnemonic_modifier --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -windowGetMnemonicModifier _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_mnemonic_modifier _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Window::get_mnemonics_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetMnemonicsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_mnemonics_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_modal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetModal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_modal _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_opacity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetOpacity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_opacity _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Window::get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- root_y : TBasicType TInt32 - IO () - - -windowGetPosition :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Int32,Int32) -windowGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - root_x <- allocMem :: IO (Ptr Int32) - root_y <- allocMem :: IO (Ptr Int32) - gtk_window_get_position _obj' root_x root_y - root_x' <- peek root_x - root_y' <- peek root_y - touchManagedPtr _obj - freeMem root_x - freeMem root_y - return (root_x', root_y') - --- method Window::get_resizable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetResizable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_resizable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_resize_grip_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" - IO CInt - -{-# DEPRECATED windowGetResizeGripArea ["(Since version 3.14)","Resize grips have been removed."]#-} -windowGetResizeGripArea :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Bool,Cairo.RectangleInt) -windowGetResizeGripArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) - result <- gtk_window_get_resize_grip_area _obj' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Cairo.RectangleInt) rect - touchManagedPtr _obj - return (result', rect') - --- method Window::get_role --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO () - - -windowGetSize :: - (MonadIO m, WindowK a) => - a -> -- _obj - m (Int32,Int32) -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') - --- method Window::get_skip_pager_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetSkipPagerHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_skip_pager_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_skip_taskbar_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetSkipTaskbarHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_skip_taskbar_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_titlebar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_transient_for --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::get_type_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetTypeHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_type_hint _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Window::get_urgency_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetUrgencyHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_urgency_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::get_window_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowGetWindowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_get_window_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Window::has_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowHasGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_has_group _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::has_toplevel_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowHasToplevelFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_has_toplevel_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::iconify --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowIconify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_iconify _obj' - touchManagedPtr _obj - return () - --- method Window::is_active --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowIsActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_is_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::is_maximized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowIsMaximized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_is_maximized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::maximize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowMaximize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_maximize _obj' - touchManagedPtr _obj - return () - --- method Window::mnemonic_activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - CUInt -> -- modifier : TInterface "Gdk" "ModifierType" - IO CInt - - -windowMnemonicActivate :: - (MonadIO m, WindowK a) => - a -> -- _obj - Word32 -> -- keyval - [Gdk.ModifierType] -> -- modifier - m Bool -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' - --- method Window::move --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_move" gtk_window_move :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- x : TBasicType TInt32 - Int32 -> -- y : TBasicType TInt32 - IO () - - -windowMove :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- x - Int32 -> -- y - m () -windowMove _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_move _obj' x y - touchManagedPtr _obj - return () - --- method Window::parse_geometry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method Window::present --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowPresent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_present _obj' - touchManagedPtr _obj - return () - --- method Window::present_with_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowPresentWithTime _obj timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_present_with_time _obj' timestamp - touchManagedPtr _obj - return () - --- method Window::propagate_key_event --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "EventKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Window::remove_accel_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_group", argType = TInterface "Gtk" "AccelGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- accel_group - m () -windowRemoveAccelGroup _obj accel_group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let accel_group' = unsafeManagedPtrCastPtr accel_group - gtk_window_remove_accel_group _obj' accel_group' - touchManagedPtr _obj - touchManagedPtr accel_group - return () - --- method Window::remove_mnemonic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Ptr Widget -> -- target : TInterface "Gtk" "Widget" - IO () - - -windowRemoveMnemonic :: - (MonadIO m, WindowK a, WidgetK b) => - a -> -- _obj - Word32 -> -- keyval - b -> -- target - m () -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 () - --- method Window::reshow_with_initial_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowReshowWithInitialSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_reshow_with_initial_size _obj' - touchManagedPtr _obj - return () - --- method Window::resize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_resize" gtk_window_resize :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -windowResize :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -windowResize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_resize _obj' width height - touchManagedPtr _obj - return () - --- method Window::resize_grip_is_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -windowResizeGripIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_resize_grip_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Window::resize_to_geometry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_resize_to_geometry" gtk_window_resize_to_geometry :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -windowResizeToGeometry :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -windowResizeToGeometry _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_resize_to_geometry _obj' width height - touchManagedPtr _obj - return () - --- method Window::set_accept_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetAcceptFocus _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_accept_focus _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "application", argType = TInterface "Gtk" "Application", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_attached_to --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attach_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- attach_widget - m () -windowSetAttachedTo _obj attach_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAttach_widget <- case attach_widget of - Nothing -> return nullPtr - Just jAttach_widget -> do - let jAttach_widget' = unsafeManagedPtrCastPtr jAttach_widget - return jAttach_widget' - gtk_window_set_attached_to _obj' maybeAttach_widget - touchManagedPtr _obj - whenJust attach_widget touchManagedPtr - return () - --- method Window::set_decorated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetDecorated _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_decorated _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- default_widget - m () -windowSetDefault _obj default_widget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDefault_widget <- case default_widget of - Nothing -> return nullPtr - Just jDefault_widget -> do - let jDefault_widget' = unsafeManagedPtrCastPtr jDefault_widget - return jDefault_widget' - gtk_window_set_default _obj' maybeDefault_widget - touchManagedPtr _obj - whenJust default_widget touchManagedPtr - return () - --- method Window::set_default_geometry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default_geometry" gtk_window_set_default_geometry :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -windowSetDefaultGeometry :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -windowSetDefaultGeometry _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_set_default_geometry _obj' width height - touchManagedPtr _obj - return () - --- method Window::set_default_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_window_set_default_size" gtk_window_set_default_size :: - Ptr Window -> -- _obj : TInterface "Gtk" "Window" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO () - - -windowSetDefaultSize :: - (MonadIO m, WindowK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () -windowSetDefaultSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_set_default_size _obj' width height - touchManagedPtr _obj - return () - --- method Window::set_deletable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetDeletable _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_deletable _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_destroy_with_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_focus --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_focus_on_map --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_focus_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetFocusVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_focus_visible _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_geometry_hints --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry_widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- geometry_widget - Maybe (Gdk.Geometry) -> -- geometry - [Gdk.WindowHints] -> -- geom_mask - m () -windowSetGeometryHints _obj geometry_widget geometry geom_mask = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeGeometry_widget <- case geometry_widget of - Nothing -> return nullPtr - Just jGeometry_widget -> do - let jGeometry_widget' = unsafeManagedPtrCastPtr jGeometry_widget - return jGeometry_widget' - maybeGeometry <- case geometry of - Nothing -> return nullPtr - Just jGeometry -> do - let jGeometry' = unsafeManagedPtrGetPtr jGeometry - return jGeometry' - let geom_mask' = gflagsToWord geom_mask - gtk_window_set_geometry_hints _obj' maybeGeometry_widget maybeGeometry geom_mask' - touchManagedPtr _obj - whenJust geometry_widget touchManagedPtr - whenJust geometry touchManagedPtr - return () - --- method Window::set_gravity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Gdk" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Gdk" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetGravity _obj gravity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let gravity' = (fromIntegral . fromEnum) gravity - gtk_window_set_gravity _obj' gravity' - touchManagedPtr _obj - return () - --- method Window::set_has_resize_grip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_has_user_ref_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_hide_titlebar_when_maximized --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_icon_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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' - ) - --- method Window::set_icon_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_keep_above --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetKeepAbove _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_keep_above _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_keep_below --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetKeepBelow _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_keep_below _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_mnemonic_modifier --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifier", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetMnemonicModifier _obj modifier = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modifier' = gflagsToWord modifier - gtk_window_set_mnemonic_modifier _obj' modifier' - touchManagedPtr _obj - return () - --- method Window::set_mnemonics_visible --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetMnemonicsVisible _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_mnemonics_visible _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_modal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetModal _obj modal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modal' = (fromIntegral . fromEnum) modal - gtk_window_set_modal _obj' modal' - touchManagedPtr _obj - return () - --- method Window::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - gtk_window_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - --- method Window::set_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "WindowPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "position", argType = TInterface "Gtk" "WindowPosition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetPosition _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let position' = (fromIntegral . fromEnum) position - gtk_window_set_position _obj' position' - touchManagedPtr _obj - return () - --- method Window::set_resizable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetResizable _obj resizable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let resizable' = (fromIntegral . fromEnum) resizable - gtk_window_set_resizable _obj' resizable' - touchManagedPtr _obj - return () - --- method Window::set_role --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -windowSetRole _obj role = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - role' <- textToCString role - gtk_window_set_role _obj' role' - touchManagedPtr _obj - freeMem role' - return () - --- method Window::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gtk_window_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - --- method Window::set_skip_pager_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_skip_taskbar_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_startup_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- startup_id - m () -windowSetStartupId _obj startup_id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startup_id' <- textToCString startup_id - gtk_window_set_startup_id _obj' startup_id' - touchManagedPtr _obj - freeMem startup_id' - return () - --- method Window::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 () -windowSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gtk_window_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - --- method Window::set_titlebar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "titlebar", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_transient_for --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Window::set_type_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetTypeHint _obj hint = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hint' = (fromIntegral . fromEnum) hint - gtk_window_set_type_hint _obj' hint' - touchManagedPtr _obj - return () - --- method Window::set_urgency_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowSetUrgencyHint _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gtk_window_set_urgency_hint _obj' setting' - touchManagedPtr _obj - return () - --- method Window::set_wmclass --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wmclass_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- wmclass_name - T.Text -> -- wmclass_class - m () -windowSetWmclass _obj wmclass_name wmclass_class = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - wmclass_name' <- textToCString wmclass_name - wmclass_class' <- textToCString wmclass_class - gtk_window_set_wmclass _obj' wmclass_name' wmclass_class' - touchManagedPtr _obj - freeMem wmclass_name' - freeMem wmclass_class' - return () - --- method Window::stick --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowStick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_stick _obj' - touchManagedPtr _obj - return () - --- method Window::unfullscreen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowUnfullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unfullscreen _obj' - touchManagedPtr _obj - return () - --- method Window::unmaximize --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowUnmaximize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unmaximize _obj' - touchManagedPtr _obj - return () - --- method Window::unstick --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -windowUnstick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gtk_window_unstick _obj' - touchManagedPtr _obj - return () - --- method Window::get_default_icon_list --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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] -windowGetDefaultIconList = liftIO $ do - result <- gtk_window_get_default_icon_list - checkUnexpectedReturnNULL "gtk_window_get_default_icon_list" result - 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 : [] --- hInArgs : [] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : 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] -windowListToplevels = liftIO $ do - result <- gtk_window_list_toplevels - checkUnexpectedReturnNULL "gtk_window_list_toplevels" result - 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 {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "icon", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 () -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 {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}] --- Lengths : [] --- hInArgs : [Arg {argName = "list", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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,51 +0,0 @@ -module GI.Gtk.Objects.Window where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 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,59 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList WindowAccessible = WindowAccessibleAttributeList -type WindowAccessibleAttributeList = ('[ '("accessible-component-layer", Atk.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", Atk.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", Atk.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", Atk.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", Atk.ObjectAccessibleNamePropertyInfo), '("accessible-parent", Atk.ObjectAccessibleParentPropertyInfo), '("accessible-role", Atk.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", Atk.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", Atk.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", Atk.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", Atk.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", Atk.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", Atk.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", Atk.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", Atk.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList WindowAccessible = WindowAccessibleSignalList -type WindowAccessibleSignalList = ('[ '("activate", Atk.WindowActivateSignalInfo), '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("create", Atk.WindowCreateSignalInfo), '("deactivate", Atk.WindowDeactivateSignalInfo), '("destroy", Atk.WindowDestroySignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("maximize", Atk.WindowMaximizeSignalInfo), '("minimize", Atk.WindowMinimizeSignalInfo), '("move", Atk.WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("resize", Atk.WindowResizeSignalInfo), '("restore", Atk.WindowRestoreSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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,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.WindowGroup - ( - --- * Exported types - WindowGroup(..) , - WindowGroupK , - toWindowGroup , - noWindowGroup , - - - -- * Methods --- ** windowGroupAddWindow - windowGroupAddWindow , - - --- ** windowGroupGetCurrentDeviceGrab - windowGroupGetCurrentDeviceGrab , - - --- ** windowGroupGetCurrentGrab - windowGroupGetCurrentGrab , - - --- ** windowGroupListWindows - windowGroupListWindows , - - --- ** windowGroupNew - windowGroupNew , - - --- ** windowGroupRemoveWindow - windowGroupRemoveWindow , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 instance AttributeList WindowGroup = WindowGroupAttributeList -type WindowGroupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList WindowGroup = WindowGroupSignalList -type WindowGroupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method WindowGroup::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method WindowGroup::get_current_device_grab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method WindowGroup::get_current_grab --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method WindowGroup::list_windows --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -windowGroupListWindows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gtk_window_group_list_windows _obj' - checkUnexpectedReturnNULL "gtk_window_group_list_windows" result - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - g_list_free result - touchManagedPtr _obj - return result'' - --- method WindowGroup::remove_window --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WindowGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gtk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,13 +0,0 @@ -module GI.Gtk.Objects.WindowGroup where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WindowGroup = WindowGroup (ForeignPtr WindowGroup) -instance GObject WindowGroup where -class GObject o => WindowGroupK o -instance (GObject o, IsDescendantOf WindowGroup o) => WindowGroupK o diff --git a/GI/Gtk/Structs.hs b/GI/Gtk/Structs.hs deleted file mode 100644 --- a/GI/Gtk/Structs.hs +++ /dev/null @@ -1,118 +0,0 @@ - -{- | -Copyright : Will Thompson, 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.WidgetAuxInfo , - 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.WidgetAuxInfo -import GI.Gtk.Structs.WidgetPath -import GI.Gtk.Structs.WindowGeometryInfo - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - - 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,64 +0,0 @@ - -{- | -Copyright : Will Thompson, 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(..) , - noAccelGroupEntry , - - - -- * Properties --- ** AccelPathQuark - accelGroupEntryReadAccelPathQuark , - - --- ** Closure - accelGroupEntryReadClosure , - - --- ** Key - accelGroupEntryReadKey , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype AccelGroupEntry = AccelGroupEntry (ForeignPtr AccelGroupEntry) -noAccelGroupEntry :: Maybe AccelGroupEntry -noAccelGroupEntry = Nothing - -accelGroupEntryReadKey :: AccelGroupEntry -> IO AccelKey -accelGroupEntryReadKey s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr AccelKey) - val' <- (newPtr 12 AccelKey) val - return val' - -accelGroupEntryReadClosure :: AccelGroupEntry -> IO Closure -accelGroupEntryReadClosure s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Closure) - val' <- (newBoxed Closure) val - return val' - -accelGroupEntryReadAccelPathQuark :: AccelGroupEntry -> IO Word32 -accelGroupEntryReadAccelPathQuark s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.AccelGroupEntry where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AccelGroupEntry = AccelGroupEntry (ForeignPtr AccelGroupEntry) 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,64 +0,0 @@ - -{- | -Copyright : Will Thompson, 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(..) , - noAccelKey , - - - -- * Properties --- ** AccelFlags - accelKeyReadAccelFlags , - - --- ** AccelKey - accelKeyReadAccelKey , - - --- ** AccelMods - accelKeyReadAccelMods , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype AccelKey = AccelKey (ForeignPtr AccelKey) -noAccelKey :: Maybe AccelKey -noAccelKey = Nothing - -accelKeyReadAccelKey :: AccelKey -> IO Word32 -accelKeyReadAccelKey s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -accelKeyReadAccelMods :: AccelKey -> IO [Gdk.ModifierType] -accelKeyReadAccelMods s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO CUInt - let val' = wordToGFlags val - return val' - -accelKeyReadAccelFlags :: AccelKey -> IO Word32 -accelKeyReadAccelFlags s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.AccelKey where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AccelKey = AccelKey (ForeignPtr AccelKey) 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,90 +0,0 @@ - -{- | -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(..) , - noActionEntry , - - - -- * Properties --- ** Accelerator - actionEntryReadAccelerator , - - --- ** Label - actionEntryReadLabel , - - --- ** Name - actionEntryReadName , - - --- ** StockId - actionEntryReadStockId , - - --- ** Tooltip - actionEntryReadTooltip , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry) -noActionEntry :: Maybe ActionEntry -noActionEntry = Nothing - -actionEntryReadName :: ActionEntry -> IO T.Text -actionEntryReadName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -actionEntryReadStockId :: ActionEntry -> IO T.Text -actionEntryReadStockId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -actionEntryReadLabel :: ActionEntry -> IO T.Text -actionEntryReadLabel s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -actionEntryReadAccelerator :: ActionEntry -> IO T.Text -actionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -actionEntryReadTooltip :: ActionEntry -> IO T.Text -actionEntryReadTooltip s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' - --- XXX Skipped getter for "ActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - - 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,10 +0,0 @@ -module GI.Gtk.Structs.ActionEntry where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry) 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,49 +0,0 @@ - -{- | -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(..) , - noBindingArg , - - - -- * Properties --- ** ArgType - bindingArgReadArgType , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype BindingArg = BindingArg (ForeignPtr BindingArg) -noBindingArg :: Maybe BindingArg -noBindingArg = Nothing - -bindingArgReadArgType :: BindingArg -> IO GType -bindingArgReadArgType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CGType - let val' = GType val - return val' - - 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,10 +0,0 @@ -module GI.Gtk.Structs.BindingArg where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BindingArg = BindingArg (ForeignPtr BindingArg) 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,125 +0,0 @@ - -{- | -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(..) , - noBindingEntry , - - - -- * Properties --- ** BindingSet - bindingEntryReadBindingSet , - - --- ** Destroyed - bindingEntryReadDestroyed , - - --- ** HashNext - bindingEntryReadHashNext , - - --- ** InEmission - bindingEntryReadInEmission , - - --- ** Keyval - bindingEntryReadKeyval , - - --- ** MarksUnbound - bindingEntryReadMarksUnbound , - - --- ** Modifiers - bindingEntryReadModifiers , - - --- ** SetNext - bindingEntryReadSetNext , - - --- ** Signals - bindingEntryReadSignals , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype BindingEntry = BindingEntry (ForeignPtr BindingEntry) -noBindingEntry :: Maybe BindingEntry -noBindingEntry = Nothing - -bindingEntryReadKeyval :: BindingEntry -> IO Word32 -bindingEntryReadKeyval s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -bindingEntryReadModifiers :: BindingEntry -> IO [Gdk.ModifierType] -bindingEntryReadModifiers s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO CUInt - let val' = wordToGFlags val - return val' - -bindingEntryReadBindingSet :: BindingEntry -> IO BindingSet -bindingEntryReadBindingSet s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr BindingSet) - val' <- (newPtr 64 BindingSet) val - return val' - -bindingEntryReadDestroyed :: BindingEntry -> IO Word32 -bindingEntryReadDestroyed s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -bindingEntryReadInEmission :: BindingEntry -> IO Word32 -bindingEntryReadInEmission s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -bindingEntryReadMarksUnbound :: BindingEntry -> IO Word32 -bindingEntryReadMarksUnbound s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - -bindingEntryReadSetNext :: BindingEntry -> IO BindingEntry -bindingEntryReadSetNext s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr BindingEntry) - val' <- (newPtr 56 BindingEntry) val - return val' - -bindingEntryReadHashNext :: BindingEntry -> IO BindingEntry -bindingEntryReadHashNext s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr BindingEntry) - val' <- (newPtr 56 BindingEntry) val - return val' - -bindingEntryReadSignals :: BindingEntry -> IO BindingSignal -bindingEntryReadSignals s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingSignal) - val' <- (newPtr 32 BindingSignal) val - return val' - - 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,10 +0,0 @@ -module GI.Gtk.Structs.BindingEntry where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BindingEntry = BindingEntry (ForeignPtr BindingEntry) 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,201 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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(..) , - noBindingSet , - - - -- * Methods --- ** bindingSetActivate - bindingSetActivate , - - --- ** bindingSetAddPath - bindingSetAddPath , - - - - - -- * Properties --- ** ClassBranchPspecs - bindingSetReadClassBranchPspecs , - - --- ** Current - bindingSetReadCurrent , - - --- ** Entries - bindingSetReadEntries , - - --- ** Parsed - bindingSetReadParsed , - - --- ** Priority - bindingSetReadPriority , - - --- ** SetName - bindingSetReadSetName , - - --- ** WidgetClassPspecs - bindingSetReadWidgetClassPspecs , - - --- ** WidgetPathPspecs - bindingSetReadWidgetPathPspecs , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gdk as Gdk - -newtype BindingSet = BindingSet (ForeignPtr BindingSet) -noBindingSet :: Maybe BindingSet -noBindingSet = Nothing - -bindingSetReadSetName :: BindingSet -> IO T.Text -bindingSetReadSetName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -bindingSetReadPriority :: BindingSet -> IO Int32 -bindingSetReadPriority s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -bindingSetReadWidgetPathPspecs :: BindingSet -> IO ([Ptr ()]) -bindingSetReadWidgetPathPspecs s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GSList (Ptr ()))) - val' <- unpackGSList val - return val' - -bindingSetReadWidgetClassPspecs :: BindingSet -> IO ([Ptr ()]) -bindingSetReadWidgetClassPspecs s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr (GSList (Ptr ()))) - val' <- unpackGSList val - return val' - -bindingSetReadClassBranchPspecs :: BindingSet -> IO ([Ptr ()]) -bindingSetReadClassBranchPspecs s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr (GSList (Ptr ()))) - val' <- unpackGSList val - return val' - -bindingSetReadEntries :: BindingSet -> IO BindingEntry -bindingSetReadEntries s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr BindingEntry) - val' <- (newPtr 56 BindingEntry) val - return val' - -bindingSetReadCurrent :: BindingSet -> IO BindingEntry -bindingSetReadCurrent s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr BindingEntry) - val' <- (newPtr 56 BindingEntry) val - return val' - -bindingSetReadParsed :: BindingSet -> IO Word32 -bindingSetReadParsed s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO Word32 - return val - --- method BindingSet::activate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - 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 -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' - --- method BindingSet::add_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "BindingSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_type", argType = TInterface "Gtk" "PathType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Gtk" "PathPriorityType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 -> -- path_type - T.Text -> -- path_pattern - PathPriorityType -> -- priority - m () -bindingSetAddPath _obj path_type path_pattern priority = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let path_type' = (fromIntegral . fromEnum) path_type - path_pattern' <- textToCString path_pattern - let priority' = (fromIntegral . fromEnum) priority - gtk_binding_set_add_path _obj' path_type' path_pattern' priority' - touchManagedPtr _obj - freeMem path_pattern' - return () - - 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,10 +0,0 @@ -module GI.Gtk.Structs.BindingSet where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BindingSet = BindingSet (ForeignPtr BindingSet) 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,70 +0,0 @@ - -{- | -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(..) , - noBindingSignal , - - - -- * Properties --- ** NArgs - bindingSignalReadNArgs , - - --- ** Next - bindingSignalReadNext , - - --- ** SignalName - bindingSignalReadSignalName , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype BindingSignal = BindingSignal (ForeignPtr BindingSignal) -noBindingSignal :: Maybe BindingSignal -noBindingSignal = Nothing - -bindingSignalReadNext :: BindingSignal -> IO BindingSignal -bindingSignalReadNext s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr BindingSignal) - val' <- (newPtr 32 BindingSignal) val - return val' - -bindingSignalReadSignalName :: BindingSignal -> IO T.Text -bindingSignalReadSignalName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -bindingSignalReadNArgs :: BindingSignal -> IO Word32 -bindingSignalReadNArgs s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - --- XXX Skipped getter for "BindingSignal:args" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 2 (TInterface \"Gtk\" \"BindingArg\")" - - 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,10 +0,0 @@ -module GI.Gtk.Structs.BindingSignal where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BindingSignal = BindingSignal (ForeignPtr BindingSignal) 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,167 +0,0 @@ - -{- | -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(..) , - noBorder , - - - -- * Methods --- ** borderCopy - borderCopy , - - --- ** borderFree - borderFree , - - --- ** borderNew - borderNew , - - - - - -- * Properties --- ** Bottom - borderReadBottom , - - --- ** Left - borderReadLeft , - - --- ** Right - borderReadRight , - - --- ** Top - borderReadTop , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype 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 - -noBorder :: Maybe Border -noBorder = Nothing - -borderReadLeft :: Border -> IO Int16 -borderReadLeft s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int16 - return val - -borderReadRight :: Border -> IO Int16 -borderReadRight s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 2) :: IO Int16 - return val - -borderReadTop :: Border -> IO Int16 -borderReadTop s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int16 - return val - -borderReadBottom :: Border -> IO Int16 -borderReadBottom s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 6) :: IO Int16 - return val - --- method Border::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Border::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Border", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -borderFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_border_free _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.Border where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Border = Border (ForeignPtr Border) -instance BoxedObject Border where 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,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) - -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 - cssSectionGetEndLine , - - --- ** cssSectionGetEndPosition - cssSectionGetEndPosition , - - --- ** cssSectionGetFile - cssSectionGetFile , - - --- ** cssSectionGetParent - cssSectionGetParent , - - --- ** cssSectionGetSectionType - cssSectionGetSectionType , - - --- ** cssSectionGetStartLine - cssSectionGetStartLine , - - --- ** cssSectionGetStartPosition - cssSectionGetStartPosition , - - --- ** cssSectionRef - cssSectionRef , - - --- ** cssSectionUnref - cssSectionUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method CssSection::get_end_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -cssSectionGetEndLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_end_line _obj' - touchManagedPtr _obj - return result - --- method CssSection::get_end_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -cssSectionGetEndPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_end_position _obj' - touchManagedPtr _obj - return result - --- method CssSection::get_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CssSection::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 CssSection -cssSectionGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_parent _obj' - checkUnexpectedReturnNULL "gtk_css_section_get_parent" result - result' <- (newBoxed CssSection) result - touchManagedPtr _obj - return result' - --- method CssSection::get_section_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CssSection::get_start_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -cssSectionGetStartLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_start_line _obj' - touchManagedPtr _obj - return result - --- method CssSection::get_start_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- 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 -cssSectionGetStartPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_css_section_get_start_position _obj' - touchManagedPtr _obj - return result - --- method CssSection::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method CssSection::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "CssSection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -cssSectionUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_css_section_unref _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.CssSection where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype CssSection = CssSection (ForeignPtr CssSection) -instance BoxedObject CssSection where 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,88 +0,0 @@ - -{- | -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(..) , - noFileFilterInfo , - - - -- * Properties --- ** Contains - fileFilterInfoReadContains , - - --- ** DisplayName - fileFilterInfoReadDisplayName , - - --- ** Filename - fileFilterInfoReadFilename , - - --- ** MimeType - fileFilterInfoReadMimeType , - - --- ** Uri - fileFilterInfoReadUri , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype FileFilterInfo = FileFilterInfo (ForeignPtr FileFilterInfo) -noFileFilterInfo :: Maybe FileFilterInfo -noFileFilterInfo = Nothing - -fileFilterInfoReadContains :: FileFilterInfo -> IO [FileFilterFlags] -fileFilterInfoReadContains s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = wordToGFlags val - return val' - -fileFilterInfoReadFilename :: FileFilterInfo -> IO T.Text -fileFilterInfoReadFilename s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -fileFilterInfoReadUri :: FileFilterInfo -> IO T.Text -fileFilterInfoReadUri s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -fileFilterInfoReadDisplayName :: FileFilterInfo -> IO T.Text -fileFilterInfoReadDisplayName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -fileFilterInfoReadMimeType :: FileFilterInfo -> IO T.Text -fileFilterInfoReadMimeType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' - - 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,10 +0,0 @@ -module GI.Gtk.Structs.FileFilterInfo where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileFilterInfo = FileFilterInfo (ForeignPtr FileFilterInfo) 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,63 +0,0 @@ - -{- | -Copyright : Will Thompson, 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(..) , - noFixedChild , - - - -- * Properties --- ** Widget - fixedChildReadWidget , - - --- ** X - fixedChildReadX , - - --- ** Y - fixedChildReadY , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype FixedChild = FixedChild (ForeignPtr FixedChild) -noFixedChild :: Maybe FixedChild -noFixedChild = Nothing - -fixedChildReadWidget :: FixedChild -> IO Widget -fixedChildReadWidget s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Widget) - val' <- (newObject Widget) val - return val' - -fixedChildReadX :: FixedChild -> IO Int32 -fixedChildReadX s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -fixedChildReadY :: FixedChild -> IO Int32 -fixedChildReadY s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.FixedChild where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FixedChild = FixedChild (ForeignPtr FixedChild) 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,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) - -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 - gradientAddColorStop , - - --- ** gradientNewLinear - gradientNewLinear , - - --- ** gradientNewRadial - gradientNewRadial , - - --- ** gradientRef - gradientRef , - - --- ** gradientResolve - gradientResolve , - - --- ** gradientResolveForContext - gradientResolveForContext , - - --- ** gradientToString - gradientToString , - - --- ** gradientUnref - gradientUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method Gradient::new_linear --- method type : Constructor --- Args : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "x0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius0", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "radius1", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method Gradient::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gradient::resolve --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolved_gradient", argType = TInterface "cairo" "Pattern", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -gradientResolve _obj props = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let props' = unsafeManagedPtrCastPtr props - resolved_gradient <- allocMem :: IO (Ptr (Ptr Cairo.Pattern)) - result <- gtk_gradient_resolve _obj' props' resolved_gradient - let result' = (/= 0) result - resolved_gradient' <- peek resolved_gradient - resolved_gradient'' <- (wrapBoxed Cairo.Pattern) resolved_gradient' - touchManagedPtr _obj - touchManagedPtr props - freeMem resolved_gradient - return (result', resolved_gradient'') - --- method Gradient::resolve_for_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gradient::to_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Gradient::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Gradient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -gradientUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_gradient_unref _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.Gradient where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Gradient = Gradient (ForeignPtr Gradient) -instance BoxedObject Gradient where 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,87 +0,0 @@ - -{- | -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(..) , - noIMContextInfo , - - - -- * Properties --- ** ContextId - iMContextInfoReadContextId , - - --- ** ContextName - iMContextInfoReadContextName , - - --- ** DefaultLocales - iMContextInfoReadDefaultLocales , - - --- ** Domain - iMContextInfoReadDomain , - - --- ** DomainDirname - iMContextInfoReadDomainDirname , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype IMContextInfo = IMContextInfo (ForeignPtr IMContextInfo) -noIMContextInfo :: Maybe IMContextInfo -noIMContextInfo = Nothing - -iMContextInfoReadContextId :: IMContextInfo -> IO T.Text -iMContextInfoReadContextId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -iMContextInfoReadContextName :: IMContextInfo -> IO T.Text -iMContextInfoReadContextName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -iMContextInfoReadDomain :: IMContextInfo -> IO T.Text -iMContextInfoReadDomain s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -iMContextInfoReadDomainDirname :: IMContextInfo -> IO T.Text -iMContextInfoReadDomainDirname s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -iMContextInfoReadDefaultLocales :: IMContextInfo -> IO T.Text -iMContextInfoReadDefaultLocales s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' - - 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,10 +0,0 @@ -module GI.Gtk.Structs.IMContextInfo where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IMContextInfo = IMContextInfo (ForeignPtr IMContextInfo) 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,402 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - iconSetAddSource , - - --- ** iconSetCopy - iconSetCopy , - - --- ** iconSetGetSizes - iconSetGetSizes , - - --- ** iconSetNew - iconSetNew , - - --- ** iconSetNewFromPixbuf - iconSetNewFromPixbuf , - - --- ** iconSetRef - iconSetRef , - - --- ** iconSetRenderIcon - iconSetRenderIcon , - - --- ** iconSetRenderIconPixbuf - iconSetRenderIconPixbuf , - - --- ** iconSetRenderIconSurface - iconSetRenderIconSurface , - - --- ** iconSetUnref - iconSetUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method IconSet::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconSet::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconSet::get_sizes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32) - Ptr Int32 -> -- n_sizes : TBasicType TInt32 - IO () - -{-# DEPRECATED iconSetGetSizes ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSetGetSizes :: - (MonadIO m) => - IconSet -> -- _obj - m ([Int32]) -iconSetGetSizes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - sizes <- allocMem :: IO (Ptr (Ptr Int32)) - n_sizes <- allocMem :: IO (Ptr Int32) - gtk_icon_set_get_sizes _obj' sizes n_sizes - n_sizes' <- peek n_sizes - sizes' <- peek sizes - sizes'' <- (unpackStorableArrayWithLength n_sizes') sizes' - freeMem sizes' - touchManagedPtr _obj - freeMem sizes - freeMem n_sizes - return sizes'' - --- method IconSet::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconSet::render_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Gtk" "Style", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "detail", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -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' - --- method IconSet::render_icon_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - 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 -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' - --- method IconSet::render_icon_surface --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Gtk" "StyleContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - Int32 -> -- scale : TBasicType TInt32 - 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) -> -- for_window - m Cairo.Surface -iconSetRenderIconSurface _obj context size scale for_window = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let context' = unsafeManagedPtrCastPtr context - maybeFor_window <- case for_window of - Nothing -> return nullPtr - Just jFor_window -> do - let jFor_window' = unsafeManagedPtrCastPtr jFor_window - return jFor_window' - result <- gtk_icon_set_render_icon_surface _obj' context' size scale maybeFor_window - checkUnexpectedReturnNULL "gtk_icon_set_render_icon_surface" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - touchManagedPtr context - whenJust for_window touchManagedPtr - return result' - --- method IconSet::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSet", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconSetUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_icon_set_unref _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.IconSet where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IconSet = IconSet (ForeignPtr IconSet) -instance BoxedObject IconSet where 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,674 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - iconSourceCopy , - - --- ** iconSourceFree - iconSourceFree , - - --- ** iconSourceGetDirection - iconSourceGetDirection , - - --- ** iconSourceGetDirectionWildcarded - iconSourceGetDirectionWildcarded , - - --- ** iconSourceGetFilename - iconSourceGetFilename , - - --- ** iconSourceGetIconName - iconSourceGetIconName , - - --- ** iconSourceGetPixbuf - iconSourceGetPixbuf , - - --- ** iconSourceGetSize - iconSourceGetSize , - - --- ** iconSourceGetSizeWildcarded - iconSourceGetSizeWildcarded , - - --- ** iconSourceGetState - iconSourceGetState , - - --- ** iconSourceGetStateWildcarded - iconSourceGetStateWildcarded , - - --- ** iconSourceNew - iconSourceNew , - - --- ** iconSourceSetDirection - iconSourceSetDirection , - - --- ** iconSourceSetDirectionWildcarded - iconSourceSetDirectionWildcarded , - - --- ** iconSourceSetFilename - iconSourceSetFilename , - - --- ** iconSourceSetIconName - iconSourceSetIconName , - - --- ** iconSourceSetPixbuf - iconSourceSetPixbuf , - - --- ** iconSourceSetSize - iconSourceSetSize , - - --- ** iconSourceSetSizeWildcarded - iconSourceSetSizeWildcarded , - - --- ** iconSourceSetState - iconSourceSetState , - - --- ** iconSourceSetStateWildcarded - iconSourceSetStateWildcarded , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method IconSource::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconSource::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconSourceFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_icon_source_free _obj' - touchManagedPtr _obj - return () - --- method IconSource::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconSourceGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method IconSource::get_direction_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconSourceGetDirectionWildcarded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_direction_wildcarded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IconSource::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method IconSource::get_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconSource::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method IconSource::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -iconSourceGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_size _obj' - touchManagedPtr _obj - return result - --- method IconSource::get_size_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconSourceGetSizeWildcarded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_size_wildcarded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IconSource::get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconSourceGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method IconSource::get_state_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -iconSourceGetStateWildcarded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_icon_source_get_state_wildcarded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IconSource::set_direction --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gtk" "TextDirection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconSourceSetDirection _obj direction = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let direction' = (fromIntegral . fromEnum) direction - gtk_icon_source_set_direction _obj' direction' - touchManagedPtr _obj - return () - --- method IconSource::set_direction_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconSource::set_filename --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconSourceSetFilename _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - filename' <- stringToCString filename - gtk_icon_source_set_filename _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - --- method IconSource::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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) -> -- icon_name - m () -iconSourceSetIconName _obj icon_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeIcon_name <- case icon_name of - Nothing -> return nullPtr - Just jIcon_name -> do - jIcon_name' <- textToCString jIcon_name - return jIcon_name' - gtk_icon_source_set_icon_name _obj' maybeIcon_name - touchManagedPtr _obj - freeMem maybeIcon_name - return () - --- method IconSource::set_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconSource::set_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_icon_source_set_size" gtk_icon_source_set_size :: - Ptr IconSource -> -- _obj : TInterface "Gtk" "IconSource" - Int32 -> -- size : TBasicType TInt32 - IO () - -{-# DEPRECATED iconSourceSetSize ["(Since version 3.10)","Use #GtkIconTheme instead."]#-} -iconSourceSetSize :: - (MonadIO m) => - IconSource -> -- _obj - Int32 -> -- size - m () -iconSourceSetSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_icon_source_set_size _obj' size - touchManagedPtr _obj - return () - --- method IconSource::set_size_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method IconSource::set_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -iconSourceSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let state' = (fromIntegral . fromEnum) state - gtk_icon_source_set_state _obj' state' - touchManagedPtr _obj - return () - --- method IconSource::set_state_wildcarded --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "IconSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.IconSource where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IconSource = IconSource (ForeignPtr IconSource) -instance BoxedObject IconSource where 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,32 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype LabelSelectionInfo = LabelSelectionInfo (ForeignPtr LabelSelectionInfo) -noLabelSelectionInfo :: Maybe LabelSelectionInfo -noLabelSelectionInfo = Nothing - - 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,10 +0,0 @@ -module GI.Gtk.Structs.LabelSelectionInfo where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype LabelSelectionInfo = LabelSelectionInfo (ForeignPtr LabelSelectionInfo) 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,55 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -See also gtk_print_settings_set_page_ranges(). --} - -module GI.Gtk.Structs.PageRange - ( - --- * Exported types - PageRange(..) , - noPageRange , - - - -- * Properties --- ** End - pageRangeReadEnd , - - --- ** Start - pageRangeReadStart , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype PageRange = PageRange (ForeignPtr PageRange) -noPageRange :: Maybe PageRange -noPageRange = Nothing - -pageRangeReadStart :: PageRange -> IO Int32 -pageRangeReadStart s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -pageRangeReadEnd :: PageRange -> IO Int32 -pageRangeReadEnd s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.PageRange where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PageRange = PageRange (ForeignPtr PageRange) 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,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) - -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 - paperSizeCopy , - - --- ** paperSizeFree - paperSizeFree , - - --- ** paperSizeGetDefaultBottomMargin - paperSizeGetDefaultBottomMargin , - - --- ** paperSizeGetDefaultLeftMargin - paperSizeGetDefaultLeftMargin , - - --- ** paperSizeGetDefaultRightMargin - paperSizeGetDefaultRightMargin , - - --- ** paperSizeGetDefaultTopMargin - paperSizeGetDefaultTopMargin , - - --- ** paperSizeGetDisplayName - paperSizeGetDisplayName , - - --- ** paperSizeGetHeight - paperSizeGetHeight , - - --- ** paperSizeGetName - paperSizeGetName , - - --- ** paperSizeGetPpdName - paperSizeGetPpdName , - - --- ** paperSizeGetWidth - paperSizeGetWidth , - - --- ** paperSizeIsCustom - paperSizeIsCustom , - - --- ** paperSizeIsEqual - paperSizeIsEqual , - - --- ** paperSizeIsIpp - paperSizeIsIpp , - - --- ** paperSizeNew - paperSizeNew , - - --- ** paperSizeNewCustom - paperSizeNewCustom , - - --- ** paperSizeNewFromIpp - paperSizeNewFromIpp , - - --- ** paperSizeNewFromKeyFile - paperSizeNewFromKeyFile , - - --- ** paperSizeNewFromPpd - paperSizeNewFromPpd , - - --- ** paperSizeSetSize - paperSizeSetSize , - - --- ** paperSizeToKeyFile - paperSizeToKeyFile , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method PaperSize::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- display_name - Double -> -- width - Double -> -- height - Unit -> -- unit - m PaperSize -paperSizeNewCustom name display_name width height unit = liftIO $ do - name' <- textToCString name - display_name' <- textToCString display_name - let width' = realToFrac width - let height' = realToFrac height - let unit' = (fromIntegral . fromEnum) unit - result <- gtk_paper_size_new_custom name' display_name' width' height' unit' - checkUnexpectedReturnNULL "gtk_paper_size_new_custom" result - result' <- (wrapBoxed PaperSize) result - freeMem name' - freeMem display_name' - return result' - --- method PaperSize::new_from_ipp --- method type : Constructor --- Args : [Arg {argName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ipp_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- ipp_name - Double -> -- width - Double -> -- height - m PaperSize -paperSizeNewFromIpp ipp_name width height = liftIO $ do - ipp_name' <- textToCString ipp_name - let width' = realToFrac width - let height' = realToFrac height - result <- gtk_paper_size_new_from_ipp ipp_name' width' height' - checkUnexpectedReturnNULL "gtk_paper_size_new_from_ipp" result - result' <- (wrapBoxed PaperSize) result - freeMem ipp_name' - return result' - --- method PaperSize::new_from_key_file --- method type : Constructor --- Args : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- key_file - T.Text -> -- group_name - m PaperSize -paperSizeNewFromKeyFile key_file group_name = liftIO $ do - let key_file' = unsafeManagedPtrGetPtr key_file - group_name' <- textToCString group_name - onException (do - result <- propagateGError $ gtk_paper_size_new_from_key_file key_file' group_name' - checkUnexpectedReturnNULL "gtk_paper_size_new_from_key_file" result - result' <- (wrapBoxed PaperSize) result - touchManagedPtr key_file - freeMem group_name' - return result' - ) (do - freeMem group_name' - ) - --- method PaperSize::new_from_ppd --- method type : Constructor --- Args : [Arg {argName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ppd_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ppd_display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- ppd_name - T.Text -> -- ppd_display_name - Double -> -- width - Double -> -- height - m PaperSize -paperSizeNewFromPpd ppd_name ppd_display_name width height = liftIO $ do - ppd_name' <- textToCString ppd_name - ppd_display_name' <- textToCString ppd_display_name - let width' = realToFrac width - let height' = realToFrac height - result <- gtk_paper_size_new_from_ppd ppd_name' ppd_display_name' width' height' - checkUnexpectedReturnNULL "gtk_paper_size_new_from_ppd" result - result' <- (wrapBoxed PaperSize) result - freeMem ppd_name' - freeMem ppd_display_name' - return result' - --- method PaperSize::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -paperSizeFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_paper_size_free _obj' - touchManagedPtr _obj - return () - --- method PaperSize::get_default_bottom_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::get_default_left_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::get_default_right_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::get_default_top_margin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::get_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::get_ppd_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::get_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::is_custom --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -paperSizeIsCustom _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_paper_size_is_custom _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PaperSize::is_equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size2", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method PaperSize::is_ipp --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -paperSizeIsIpp _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_paper_size_is_ipp _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method PaperSize::set_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unit", argType = TInterface "Gtk" "Unit", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method PaperSize::to_key_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "PaperSize", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- key_file - T.Text -> -- group_name - m () -paperSizeToKeyFile _obj key_file group_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let key_file' = unsafeManagedPtrGetPtr key_file - group_name' <- textToCString group_name - gtk_paper_size_to_key_file _obj' key_file' group_name' - touchManagedPtr _obj - touchManagedPtr key_file - freeMem group_name' - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.PaperSize where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PaperSize = PaperSize (ForeignPtr PaperSize) -instance BoxedObject PaperSize where 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,97 +0,0 @@ - -{- | -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(..) , - noRadioActionEntry , - - - -- * Properties --- ** Accelerator - radioActionEntryReadAccelerator , - - --- ** Label - radioActionEntryReadLabel , - - --- ** Name - radioActionEntryReadName , - - --- ** StockId - radioActionEntryReadStockId , - - --- ** Tooltip - radioActionEntryReadTooltip , - - --- ** Value - radioActionEntryReadValue , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype RadioActionEntry = RadioActionEntry (ForeignPtr RadioActionEntry) -noRadioActionEntry :: Maybe RadioActionEntry -noRadioActionEntry = Nothing - -radioActionEntryReadName :: RadioActionEntry -> IO T.Text -radioActionEntryReadName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -radioActionEntryReadStockId :: RadioActionEntry -> IO T.Text -radioActionEntryReadStockId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -radioActionEntryReadLabel :: RadioActionEntry -> IO T.Text -radioActionEntryReadLabel s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -radioActionEntryReadAccelerator :: RadioActionEntry -> IO T.Text -radioActionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -radioActionEntryReadTooltip :: RadioActionEntry -> IO T.Text -radioActionEntryReadTooltip s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' - -radioActionEntryReadValue :: RadioActionEntry -> IO Int32 -radioActionEntryReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Int32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.RadioActionEntry where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RadioActionEntry = RadioActionEntry (ForeignPtr RadioActionEntry) 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,32 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype RcContext = RcContext (ForeignPtr RcContext) -noRcContext :: Maybe RcContext -noRcContext = Nothing - - 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,10 +0,0 @@ -module GI.Gtk.Structs.RcContext where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RcContext = RcContext (ForeignPtr RcContext) 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,75 +0,0 @@ - -{- | -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(..) , - noRcProperty , - - - -- * Properties --- ** Origin - rcPropertyReadOrigin , - - --- ** PropertyName - rcPropertyReadPropertyName , - - --- ** TypeName - rcPropertyReadTypeName , - - --- ** Value - rcPropertyReadValue , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype RcProperty = RcProperty (ForeignPtr RcProperty) -noRcProperty :: Maybe RcProperty -noRcProperty = Nothing - -rcPropertyReadTypeName :: RcProperty -> IO Word32 -rcPropertyReadTypeName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -rcPropertyReadPropertyName :: RcProperty -> IO Word32 -rcPropertyReadPropertyName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word32 - return val - -rcPropertyReadOrigin :: RcProperty -> IO T.Text -rcPropertyReadOrigin s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -rcPropertyReadValue :: RcProperty -> IO GValue -rcPropertyReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' - - 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,10 +0,0 @@ -module GI.Gtk.Structs.RcProperty where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RcProperty = RcProperty (ForeignPtr RcProperty) 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,108 +0,0 @@ - -{- | -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(..) , - noRecentData , - - - -- * Properties --- ** AppExec - recentDataReadAppExec , - - --- ** AppName - recentDataReadAppName , - - --- ** Description - recentDataReadDescription , - - --- ** DisplayName - recentDataReadDisplayName , - - --- ** Groups - recentDataReadGroups , - - --- ** IsPrivate - recentDataReadIsPrivate , - - --- ** MimeType - recentDataReadMimeType , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype RecentData = RecentData (ForeignPtr RecentData) -noRecentData :: Maybe RecentData -noRecentData = Nothing - -recentDataReadDisplayName :: RecentData -> IO T.Text -recentDataReadDisplayName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -recentDataReadDescription :: RecentData -> IO T.Text -recentDataReadDescription s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -recentDataReadMimeType :: RecentData -> IO T.Text -recentDataReadMimeType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -recentDataReadAppName :: RecentData -> IO T.Text -recentDataReadAppName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -recentDataReadAppExec :: RecentData -> IO T.Text -recentDataReadAppExec s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' - -recentDataReadGroups :: RecentData -> IO [T.Text] -recentDataReadGroups s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString) - val' <- unpackZeroTerminatedUTF8CArray val - return val' - -recentDataReadIsPrivate :: RecentData -> IO Bool -recentDataReadIsPrivate s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CInt - let val' = (/= 0) val - return val' - - 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,10 +0,0 @@ -module GI.Gtk.Structs.RecentData where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RecentData = RecentData (ForeignPtr RecentData) 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,107 +0,0 @@ - -{- | -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(..) , - noRecentFilterInfo , - - - -- * Properties --- ** Age - recentFilterInfoReadAge , - - --- ** Applications - recentFilterInfoReadApplications , - - --- ** Contains - recentFilterInfoReadContains , - - --- ** DisplayName - recentFilterInfoReadDisplayName , - - --- ** Groups - recentFilterInfoReadGroups , - - --- ** MimeType - recentFilterInfoReadMimeType , - - --- ** Uri - recentFilterInfoReadUri , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype RecentFilterInfo = RecentFilterInfo (ForeignPtr RecentFilterInfo) -noRecentFilterInfo :: Maybe RecentFilterInfo -noRecentFilterInfo = Nothing - -recentFilterInfoReadContains :: RecentFilterInfo -> IO [RecentFilterFlags] -recentFilterInfoReadContains s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = wordToGFlags val - return val' - -recentFilterInfoReadUri :: RecentFilterInfo -> IO T.Text -recentFilterInfoReadUri s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -recentFilterInfoReadDisplayName :: RecentFilterInfo -> IO T.Text -recentFilterInfoReadDisplayName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -recentFilterInfoReadMimeType :: RecentFilterInfo -> IO T.Text -recentFilterInfoReadMimeType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -recentFilterInfoReadApplications :: RecentFilterInfo -> IO [T.Text] -recentFilterInfoReadApplications s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr CString) - val' <- unpackZeroTerminatedUTF8CArray val - return val' - -recentFilterInfoReadGroups :: RecentFilterInfo -> IO [T.Text] -recentFilterInfoReadGroups s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr CString) - val' <- unpackZeroTerminatedUTF8CArray val - return val' - -recentFilterInfoReadAge :: RecentFilterInfo -> IO Int32 -recentFilterInfoReadAge s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Int32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.RecentFilterInfo where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RecentFilterInfo = RecentFilterInfo (ForeignPtr RecentFilterInfo) 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,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) - -#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 - recentInfoCreateAppInfo , - - --- ** recentInfoExists - recentInfoExists , - - --- ** recentInfoGetAdded - recentInfoGetAdded , - - --- ** recentInfoGetAge - recentInfoGetAge , - - --- ** recentInfoGetApplicationInfo - recentInfoGetApplicationInfo , - - --- ** recentInfoGetApplications - recentInfoGetApplications , - - --- ** recentInfoGetDescription - recentInfoGetDescription , - - --- ** recentInfoGetDisplayName - recentInfoGetDisplayName , - - --- ** recentInfoGetGicon - recentInfoGetGicon , - - --- ** recentInfoGetGroups - recentInfoGetGroups , - - --- ** recentInfoGetIcon - recentInfoGetIcon , - - --- ** recentInfoGetMimeType - recentInfoGetMimeType , - - --- ** recentInfoGetModified - recentInfoGetModified , - - --- ** recentInfoGetPrivateHint - recentInfoGetPrivateHint , - - --- ** recentInfoGetShortName - recentInfoGetShortName , - - --- ** recentInfoGetUri - recentInfoGetUri , - - --- ** recentInfoGetUriDisplay - recentInfoGetUriDisplay , - - --- ** recentInfoGetVisited - recentInfoGetVisited , - - --- ** recentInfoHasApplication - recentInfoHasApplication , - - --- ** recentInfoHasGroup - recentInfoHasGroup , - - --- ** recentInfoIsLocal - recentInfoIsLocal , - - --- ** recentInfoLastApplication - recentInfoLastApplication , - - --- ** recentInfoMatch - recentInfoMatch , - - --- ** recentInfoRef - recentInfoRef , - - --- ** recentInfoUnref - recentInfoUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method RecentInfo::create_app_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -> -- app_name - m Gio.AppInfo -recentInfoCreateAppInfo _obj app_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeApp_name <- case app_name of - Nothing -> return nullPtr - Just jApp_name -> do - jApp_name' <- textToCString jApp_name - return jApp_name' - onException (do - result <- propagateGError $ gtk_recent_info_create_app_info _obj' maybeApp_name - checkUnexpectedReturnNULL "gtk_recent_info_create_app_info" result - result' <- (wrapObject Gio.AppInfo) result - touchManagedPtr _obj - freeMem maybeApp_name - return result' - ) (do - freeMem maybeApp_name - ) - --- method RecentInfo::exists --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentInfoExists _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_exists _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentInfo::get_added --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- 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 Int64 - - -recentInfoGetAdded :: - (MonadIO m) => - RecentInfo -> -- _obj - m Int64 -recentInfoGetAdded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_added _obj' - touchManagedPtr _obj - return result - --- method RecentInfo::get_age --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -recentInfoGetAge _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_age _obj' - touchManagedPtr _obj - return result - --- method RecentInfo::get_application_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 TUInt32 - Ptr Int64 -> -- time_ : TBasicType TInt64 - IO CInt - - -recentInfoGetApplicationInfo :: - (MonadIO m) => - RecentInfo -> -- _obj - T.Text -> -- app_name - m (Bool,T.Text,Word32,Int64) -recentInfoGetApplicationInfo _obj app_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - app_name' <- textToCString app_name - app_exec <- allocMem :: IO (Ptr CString) - count <- allocMem :: IO (Ptr Word32) - time_ <- allocMem :: IO (Ptr Int64) - result <- gtk_recent_info_get_application_info _obj' app_name' app_exec count time_ - let result' = (/= 0) result - app_exec' <- peek app_exec - app_exec'' <- cstringToText app_exec' - count' <- peek count - time_' <- peek time_ - touchManagedPtr _obj - freeMem app_name' - freeMem app_exec - freeMem count - freeMem time_ - return (result', app_exec'', count', time_') - --- method RecentInfo::get_applications --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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_') - --- method RecentInfo::get_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::get_gicon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::get_groups --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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_') - --- method RecentInfo::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr GdkPixbuf.Pixbuf) - - -recentInfoGetIcon :: - (MonadIO m) => - RecentInfo -> -- _obj - Int32 -> -- size - m GdkPixbuf.Pixbuf -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' - --- method RecentInfo::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::get_modified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- 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 Int64 - - -recentInfoGetModified :: - (MonadIO m) => - RecentInfo -> -- _obj - m Int64 -recentInfoGetModified _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_modified _obj' - touchManagedPtr _obj - return result - --- method RecentInfo::get_private_hint --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentInfoGetPrivateHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_private_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentInfo::get_short_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::get_uri_display --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::get_visited --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- 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 Int64 - - -recentInfoGetVisited :: - (MonadIO m) => - RecentInfo -> -- _obj - m Int64 -recentInfoGetVisited _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_get_visited _obj' - touchManagedPtr _obj - return result - --- method RecentInfo::has_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "app_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- app_name - m Bool -recentInfoHasApplication _obj app_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - app_name' <- textToCString app_name - result <- gtk_recent_info_has_application _obj' app_name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem app_name' - return result' - --- method RecentInfo::has_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -> -- group_name - m Bool -recentInfoHasGroup _obj group_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - result <- gtk_recent_info_has_group _obj' group_name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem group_name' - return result' - --- method RecentInfo::is_local --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -recentInfoIsLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_recent_info_is_local _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecentInfo::last_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::match --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info_b", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info_b", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- info_b - m Bool -recentInfoMatch _obj info_b = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let info_b' = unsafeManagedPtrGetPtr info_b - result <- gtk_recent_info_match _obj' info_b' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr info_b - return result' - --- method RecentInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method RecentInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "RecentInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -recentInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_recent_info_unref _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.RecentInfo where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RecentInfo = RecentInfo (ForeignPtr RecentInfo) -instance BoxedObject RecentInfo where 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,66 +0,0 @@ - -{- | -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(..) , - noRequestedSize , - - - -- * Properties --- ** Data - requestedSizeReadData , - - --- ** MinimumSize - requestedSizeReadMinimumSize , - - --- ** NaturalSize - requestedSizeReadNaturalSize , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype RequestedSize = RequestedSize (ForeignPtr RequestedSize) -noRequestedSize :: Maybe RequestedSize -noRequestedSize = Nothing - -requestedSizeReadData :: RequestedSize -> IO (Ptr ()) -requestedSizeReadData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -requestedSizeReadMinimumSize :: RequestedSize -> IO Int32 -requestedSizeReadMinimumSize s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -requestedSizeReadNaturalSize :: RequestedSize -> IO Int32 -requestedSizeReadNaturalSize s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.RequestedSize where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RequestedSize = RequestedSize (ForeignPtr RequestedSize) 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,150 +0,0 @@ - -{- | -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(..) , - noRequisition , - - - -- * Methods --- ** requisitionCopy - requisitionCopy , - - --- ** requisitionFree - requisitionFree , - - --- ** requisitionNew - requisitionNew , - - - - - -- * Properties --- ** Height - requisitionReadHeight , - - --- ** Width - requisitionReadWidth , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype 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 - -noRequisition :: Maybe Requisition -noRequisition = Nothing - -requisitionReadWidth :: Requisition -> IO Int32 -requisitionReadWidth s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -requisitionReadHeight :: Requisition -> IO Int32 -requisitionReadHeight s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - --- method Requisition::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method Requisition::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "Requisition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -requisitionFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_requisition_free _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.Requisition where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Requisition = Requisition (ForeignPtr Requisition) -instance BoxedObject Requisition where 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,713 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - selectionDataCopy , - - --- ** selectionDataFree - selectionDataFree , - - --- ** selectionDataGetData - selectionDataGetData , - - --- ** selectionDataGetDataType - selectionDataGetDataType , - - --- ** selectionDataGetDisplay - selectionDataGetDisplay , - - --- ** selectionDataGetFormat - selectionDataGetFormat , - - --- ** selectionDataGetLength - selectionDataGetLength , - - --- ** selectionDataGetPixbuf - selectionDataGetPixbuf , - - --- ** selectionDataGetSelection - selectionDataGetSelection , - - --- ** selectionDataGetTarget - selectionDataGetTarget , - - --- ** selectionDataGetTargets - selectionDataGetTargets , - - --- ** selectionDataGetText - selectionDataGetText , - - --- ** selectionDataGetUris - selectionDataGetUris , - - --- ** selectionDataSet - selectionDataSet , - - --- ** selectionDataSetPixbuf - selectionDataSetPixbuf , - - --- ** selectionDataSetText - selectionDataSetText , - - --- ** selectionDataSetUris - selectionDataSetUris , - - --- ** selectionDataTargetsIncludeImage - selectionDataTargetsIncludeImage , - - --- ** selectionDataTargetsIncludeRichText - selectionDataTargetsIncludeRichText , - - --- ** selectionDataTargetsIncludeText - selectionDataTargetsIncludeText , - - --- ** selectionDataTargetsIncludeUri - selectionDataTargetsIncludeUri , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method SelectionData::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SelectionData::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -selectionDataFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_selection_data_free _obj' - touchManagedPtr _obj - return () - --- method SelectionData::get_data_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -selectionDataGetDataType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_data_type _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_data_type" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - return result' - --- method SelectionData::get_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr Word8) - - -selectionDataGetData :: - (MonadIO m) => - SelectionData -> -- _obj - m ByteString -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' - --- method SelectionData::get_display --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SelectionData::get_format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -selectionDataGetFormat _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_format _obj' - touchManagedPtr _obj - return result - --- method SelectionData::get_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -selectionDataGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_length _obj' - touchManagedPtr _obj - return result - --- method SelectionData::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 GdkPixbuf.Pixbuf -selectionDataGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_pixbuf _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_pixbuf" result - result' <- (wrapObject GdkPixbuf.Pixbuf) result - touchManagedPtr _obj - return result' - --- method SelectionData::get_selection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -selectionDataGetSelection _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_selection _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_selection" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - return result' - --- method SelectionData::get_target --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -selectionDataGetTarget _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_target _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_target" result - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - result' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) result - touchManagedPtr _obj - return result' - --- method SelectionData::get_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gdk" "Atom"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_atoms", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -selectionDataGetTargets :: - (MonadIO m) => - SelectionData -> -- _obj - m (Bool,[Gdk.Atom]) -selectionDataGetTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - targets <- allocMem :: IO (Ptr (Ptr (Ptr Gdk.Atom))) - n_atoms <- allocMem :: IO (Ptr Int32) - result <- gtk_selection_data_get_targets _obj' targets n_atoms - n_atoms' <- peek n_atoms - let result' = (/= 0) result - targets' <- peek targets - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - targets'' <- (unpackPtrArrayWithLength n_atoms') targets' - targets''' <- mapM (\x -> Gdk.Atom <$> newForeignPtr_ x) targets'' - freeMem targets' - touchManagedPtr _obj - freeMem targets - freeMem n_atoms - return (result', targets''') - --- method SelectionData::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 T.Text -selectionDataGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_get_text _obj' - checkUnexpectedReturnNULL "gtk_selection_data_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method SelectionData::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -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' - --- method SelectionData::set --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - Ptr Word8 -> -- data : TCArray False (-1) 4 (TBasicType TUInt8) - Int32 -> -- length : TBasicType TInt32 - IO () - - -selectionDataSet :: - (MonadIO m) => - SelectionData -> -- _obj - Gdk.Atom -> -- type - Int32 -> -- format - ByteString -> -- data - m () -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 () - --- method SelectionData::set_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SelectionData::set_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -selectionDataSetText :: - (MonadIO m) => - SelectionData -> -- _obj - T.Text -> -- str - Int32 -> -- len - m Bool -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' - --- method SelectionData::set_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uris", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_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 -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' - --- method SelectionData::targets_include_image --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SelectionData::targets_include_rich_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SelectionData::targets_include_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -selectionDataTargetsIncludeText _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_targets_include_text _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SelectionData::targets_include_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SelectionData", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -selectionDataTargetsIncludeUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_selection_data_targets_include_uri _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - - 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,11 +0,0 @@ -module GI.Gtk.Structs.SelectionData where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SelectionData = SelectionData (ForeignPtr SelectionData) -instance BoxedObject SelectionData where 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,55 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gtk.Structs.SettingsValue - ( - --- * Exported types - SettingsValue(..) , - noSettingsValue , - - - -- * Properties --- ** Origin - settingsValueReadOrigin , - - --- ** Value - settingsValueReadValue , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype SettingsValue = SettingsValue (ForeignPtr SettingsValue) -noSettingsValue :: Maybe SettingsValue -noSettingsValue = Nothing - -settingsValueReadOrigin :: SettingsValue -> IO T.Text -settingsValueReadOrigin s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -settingsValueReadValue :: SettingsValue -> IO GValue -settingsValueReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr GValue) - val' <- (newBoxed GValue) val - return val' - - 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,10 +0,0 @@ -module GI.Gtk.Structs.SettingsValue where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SettingsValue = SettingsValue (ForeignPtr SettingsValue) 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,116 +0,0 @@ - -{- | -Copyright : Will Thompson, 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(..) , - noStockItem , - - - -- * Methods --- ** stockItemFree - stockItemFree , - - - - - -- * Properties --- ** Keyval - stockItemReadKeyval , - - --- ** Label - stockItemReadLabel , - - --- ** Modifier - stockItemReadModifier , - - --- ** StockId - stockItemReadStockId , - - --- ** TranslationDomain - stockItemReadTranslationDomain , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype StockItem = StockItem (ForeignPtr StockItem) -noStockItem :: Maybe StockItem -noStockItem = Nothing - -stockItemReadStockId :: StockItem -> IO T.Text -stockItemReadStockId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -stockItemReadLabel :: StockItem -> IO T.Text -stockItemReadLabel s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -stockItemReadModifier :: StockItem -> IO [Gdk.ModifierType] -stockItemReadModifier s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CUInt - let val' = wordToGFlags val - return val' - -stockItemReadKeyval :: StockItem -> IO Word32 -stockItemReadKeyval s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -stockItemReadTranslationDomain :: StockItem -> IO T.Text -stockItemReadTranslationDomain s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - --- method StockItem::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "StockItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "StockItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -stockItemFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_stock_item_free _obj' - touchManagedPtr _obj - return () - - 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,10 +0,0 @@ -module GI.Gtk.Structs.StockItem where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StockItem = StockItem (ForeignPtr StockItem) 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,382 +0,0 @@ - -{- | -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 - symbolicColorRef , - - --- ** symbolicColorResolve - symbolicColorResolve , - - --- ** symbolicColorToString - symbolicColorToString , - - --- ** symbolicColorUnref - symbolicColorUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method SymbolicColor::new_alpha --- method type : Constructor --- Args : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "color", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "color1", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "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 -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 {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "color", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "theme_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO (Ptr SymbolicColor) - -{-# DEPRECATED symbolicColorNewWin32 ["(Since version 3.8)","#GtkSymbolicColor is deprecated."]#-} -symbolicColorNewWin32 :: - (MonadIO m) => - T.Text -> -- theme_class - Int32 -> -- id - m SymbolicColor -symbolicColorNewWin32 theme_class id = liftIO $ do - theme_class' <- textToCString theme_class - result <- gtk_symbolic_color_new_win32 theme_class' id - checkUnexpectedReturnNULL "gtk_symbolic_color_new_win32" result - result' <- (wrapBoxed SymbolicColor) result - freeMem theme_class' - return result' - --- method SymbolicColor::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SymbolicColor::resolve --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resolved_color", argType = TInterface "Gdk" "RGBA", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "props", argType = TInterface "Gtk" "StyleProperties", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -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' - resolved_color <- callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA) - result <- gtk_symbolic_color_resolve _obj' maybeProps resolved_color - let result' = (/= 0) result - resolved_color' <- (wrapBoxed Gdk.RGBA) resolved_color - touchManagedPtr _obj - whenJust props touchManagedPtr - return (result', resolved_color') - --- method SymbolicColor::to_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method SymbolicColor::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "SymbolicColor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -symbolicColorUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_symbolic_color_unref _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.SymbolicColor where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SymbolicColor = SymbolicColor (ForeignPtr SymbolicColor) -instance BoxedObject SymbolicColor where 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,153 +0,0 @@ - -{- | -Copyright : Will Thompson, 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(..) , - noTableChild , - - - -- * Properties --- ** BottomAttach - tableChildReadBottomAttach , - - --- ** LeftAttach - tableChildReadLeftAttach , - - --- ** RightAttach - tableChildReadRightAttach , - - --- ** TopAttach - tableChildReadTopAttach , - - --- ** Widget - tableChildReadWidget , - - --- ** Xexpand - tableChildReadXexpand , - - --- ** Xfill - tableChildReadXfill , - - --- ** Xpadding - tableChildReadXpadding , - - --- ** Xshrink - tableChildReadXshrink , - - --- ** Yexpand - tableChildReadYexpand , - - --- ** Yfill - tableChildReadYfill , - - --- ** Ypadding - tableChildReadYpadding , - - --- ** Yshrink - tableChildReadYshrink , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype TableChild = TableChild (ForeignPtr TableChild) -noTableChild :: Maybe TableChild -noTableChild = Nothing - -tableChildReadWidget :: TableChild -> IO Widget -tableChildReadWidget s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Widget) - val' <- (newObject Widget) val - return val' - -tableChildReadLeftAttach :: TableChild -> IO Word16 -tableChildReadLeftAttach s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word16 - return val - -tableChildReadRightAttach :: TableChild -> IO Word16 -tableChildReadRightAttach s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 10) :: IO Word16 - return val - -tableChildReadTopAttach :: TableChild -> IO Word16 -tableChildReadTopAttach s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word16 - return val - -tableChildReadBottomAttach :: TableChild -> IO Word16 -tableChildReadBottomAttach s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 14) :: IO Word16 - return val - -tableChildReadXpadding :: TableChild -> IO Word16 -tableChildReadXpadding s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word16 - return val - -tableChildReadYpadding :: TableChild -> IO Word16 -tableChildReadYpadding s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 18) :: IO Word16 - return val - -tableChildReadXexpand :: TableChild -> IO Word32 -tableChildReadXexpand s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -tableChildReadYexpand :: TableChild -> IO Word32 -tableChildReadYexpand s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - -tableChildReadXshrink :: TableChild -> IO Word32 -tableChildReadXshrink s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -tableChildReadYshrink :: TableChild -> IO Word32 -tableChildReadYshrink s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -tableChildReadXfill :: TableChild -> IO Word32 -tableChildReadXfill s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 36) :: IO Word32 - return val - -tableChildReadYfill :: TableChild -> IO Word32 -tableChildReadYfill s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.TableChild where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TableChild = TableChild (ForeignPtr TableChild) 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,107 +0,0 @@ - -{- | -Copyright : Will Thompson, 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(..) , - noTableRowCol , - - - -- * Properties --- ** Allocation - tableRowColReadAllocation , - - --- ** Empty - tableRowColReadEmpty , - - --- ** Expand - tableRowColReadExpand , - - --- ** NeedExpand - tableRowColReadNeedExpand , - - --- ** NeedShrink - tableRowColReadNeedShrink , - - --- ** Requisition - tableRowColReadRequisition , - - --- ** Shrink - tableRowColReadShrink , - - --- ** Spacing - tableRowColReadSpacing , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype TableRowCol = TableRowCol (ForeignPtr TableRowCol) -noTableRowCol :: Maybe TableRowCol -noTableRowCol = Nothing - -tableRowColReadRequisition :: TableRowCol -> IO Word16 -tableRowColReadRequisition s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word16 - return val - -tableRowColReadAllocation :: TableRowCol -> IO Word16 -tableRowColReadAllocation s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 2) :: IO Word16 - return val - -tableRowColReadSpacing :: TableRowCol -> IO Word16 -tableRowColReadSpacing s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word16 - return val - -tableRowColReadNeedExpand :: TableRowCol -> IO Word32 -tableRowColReadNeedExpand s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -tableRowColReadNeedShrink :: TableRowCol -> IO Word32 -tableRowColReadNeedShrink s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -tableRowColReadExpand :: TableRowCol -> IO Word32 -tableRowColReadExpand s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -tableRowColReadShrink :: TableRowCol -> IO Word32 -tableRowColReadShrink s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -tableRowColReadEmpty :: TableRowCol -> IO Word32 -tableRowColReadEmpty s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.TableRowCol where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TableRowCol = TableRowCol (ForeignPtr TableRowCol) 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,168 +0,0 @@ - -{- | -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(..) , - noTargetEntry , - - - -- * Methods --- ** targetEntryCopy - targetEntryCopy , - - --- ** targetEntryFree - targetEntryFree , - - --- ** targetEntryNew - targetEntryNew , - - - - - -- * Properties --- ** Flags - targetEntryReadFlags , - - --- ** Info - targetEntryReadInfo , - - --- ** Target - targetEntryReadTarget , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype 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 - -noTargetEntry :: Maybe TargetEntry -noTargetEntry = Nothing - -targetEntryReadTarget :: TargetEntry -> IO T.Text -targetEntryReadTarget s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -targetEntryReadFlags :: TargetEntry -> IO Word32 -targetEntryReadFlags s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -targetEntryReadInfo :: TargetEntry -> IO Word32 -targetEntryReadInfo s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - --- method TargetEntry::new --- method type : Constructor --- Args : [Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - Word32 -> -- info : TBasicType TUInt32 - IO (Ptr TargetEntry) - - -targetEntryNew :: - (MonadIO m) => - T.Text -> -- target - Word32 -> -- flags - Word32 -> -- info - m TargetEntry -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 {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TargetEntry::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -targetEntryFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_target_entry_free _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.TargetEntry where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TargetEntry = TargetEntry (ForeignPtr TargetEntry) -instance BoxedObject TargetEntry where 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,415 +0,0 @@ - -{- | -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 - targetListAdd , - - --- ** targetListAddImageTargets - targetListAddImageTargets , - - --- ** targetListAddRichTextTargets - targetListAddRichTextTargets , - - --- ** targetListAddTable - targetListAddTable , - - --- ** targetListAddTextTargets - targetListAddTextTargets , - - --- ** targetListAddUriTargets - targetListAddUriTargets , - - --- ** targetListFind - targetListFind , - - --- ** targetListNew - targetListNew , - - --- ** targetListRef - targetListRef , - - --- ** targetListRemove - targetListRemove , - - --- ** targetListUnref - targetListUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method TargetList::new --- method type : Constructor --- Args : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "targets", argType = TCArray False (-1) 1 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - IO (Ptr TargetList) - - -targetListNew :: - (MonadIO m) => - Maybe ([TargetEntry]) -> -- targets - m TargetList -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 {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - Word32 -> -- info : TBasicType TUInt32 - IO () - - -targetListAdd :: - (MonadIO m) => - TargetList -> -- _obj - Gdk.Atom -> -- target - Word32 -> -- flags - Word32 -> -- info - m () -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 () - --- method TargetList::add_image_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - CInt -> -- writable : TBasicType TBoolean - IO () - - -targetListAddImageTargets :: - (MonadIO m) => - TargetList -> -- _obj - Word32 -> -- info - Bool -> -- writable - m () -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 () - --- method TargetList::add_rich_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "deserializable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Gtk" "TextBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - 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 () -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 () - --- method TargetList::add_table --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "ntargets", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 2 (TInterface "Gtk" "TargetEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -targetListAddTable :: - (MonadIO m) => - TargetList -> -- _obj - [TargetEntry] -> -- targets - m () -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 () - --- method TargetList::add_text_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -targetListAddTextTargets :: - (MonadIO m) => - TargetList -> -- _obj - Word32 -> -- info - m () -targetListAddTextTargets _obj info = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_target_list_add_text_targets _obj' info - touchManagedPtr _obj - return () - --- method TargetList::add_uri_targets --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TUInt32 - IO () - - -targetListAddUriTargets :: - (MonadIO m) => - TargetList -> -- _obj - Word32 -> -- info - m () -targetListAddUriTargets _obj info = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_target_list_add_uri_targets _obj' info - touchManagedPtr _obj - return () - --- method TargetList::find --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "info", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TUInt32 - IO CInt - - -targetListFind :: - (MonadIO m) => - TargetList -> -- _obj - Gdk.Atom -> -- target - m (Bool,Word32) -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') - --- method TargetList::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TargetList::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -targetListRemove _obj target = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let target' = unsafeManagedPtrGetPtr target - gtk_target_list_remove _obj' target' - touchManagedPtr _obj - touchManagedPtr target - return () - --- method TargetList::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TargetList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -targetListUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_target_list_unref _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.TargetList where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TargetList = TargetList (ForeignPtr TargetList) -instance BoxedObject TargetList where 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,69 +0,0 @@ - -{- | -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(..) , - noTargetPair , - - - -- * Properties --- ** Flags - targetPairReadFlags , - - --- ** Info - targetPairReadInfo , - - --- ** Target - targetPairReadTarget , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype TargetPair = TargetPair (ForeignPtr TargetPair) -noTargetPair :: Maybe TargetPair -noTargetPair = Nothing - -targetPairReadTarget :: TargetPair -> IO Gdk.Atom -targetPairReadTarget s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gdk.Atom) - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - val' <- (\x -> Gdk.Atom <$> newForeignPtr_ x) val - return val' - -targetPairReadFlags :: TargetPair -> IO Word32 -targetPairReadFlags s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -targetPairReadInfo :: TargetPair -> IO Word32 -targetPairReadInfo s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.TargetPair where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TargetPair = TargetPair (ForeignPtr TargetPair) 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,110 +0,0 @@ - -{- | -Copyright : Will Thompson, 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(..) , - noTextAppearance , - - - -- * Properties --- ** BgColor - textAppearanceReadBgColor , - - --- ** DrawBg - textAppearanceReadDrawBg , - - --- ** FgColor - textAppearanceReadFgColor , - - --- ** InsideSelection - textAppearanceReadInsideSelection , - - --- ** IsText - textAppearanceReadIsText , - - --- ** Rise - textAppearanceReadRise , - - --- ** Strikethrough - textAppearanceReadStrikethrough , - - --- ** Underline - textAppearanceReadUnderline , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -import qualified GI.Gdk as Gdk - -newtype TextAppearance = TextAppearance (ForeignPtr TextAppearance) -noTextAppearance :: Maybe TextAppearance -noTextAppearance = Nothing - -textAppearanceReadBgColor :: TextAppearance -> IO Gdk.Color -textAppearanceReadBgColor s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gdk.Color) - val' <- (newBoxed Gdk.Color) val - return val' - -textAppearanceReadFgColor :: TextAppearance -> IO Gdk.Color -textAppearanceReadFgColor s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO (Ptr Gdk.Color) - val' <- (newBoxed Gdk.Color) val - return val' - -textAppearanceReadRise :: TextAppearance -> IO Int32 -textAppearanceReadRise s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int32 - return val - -textAppearanceReadUnderline :: TextAppearance -> IO Word32 -textAppearanceReadUnderline s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -textAppearanceReadStrikethrough :: TextAppearance -> IO Word32 -textAppearanceReadStrikethrough s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -textAppearanceReadDrawBg :: TextAppearance -> IO Word32 -textAppearanceReadDrawBg s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 36) :: IO Word32 - return val - -textAppearanceReadInsideSelection :: TextAppearance -> IO Word32 -textAppearanceReadInsideSelection s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - -textAppearanceReadIsText :: TextAppearance -> IO Word32 -textAppearanceReadIsText s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 44) :: IO Word32 - return val - - 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,10 +0,0 @@ -module GI.Gtk.Structs.TextAppearance where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TextAppearance = TextAppearance (ForeignPtr TextAppearance) 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,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) - -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(..) , - noTextAttributes , - - - -- * Methods --- ** textAttributesCopy - textAttributesCopy , - - --- ** textAttributesCopyValues - textAttributesCopyValues , - - --- ** textAttributesNew - textAttributesNew , - - --- ** textAttributesRef - textAttributesRef , - - --- ** textAttributesUnref - textAttributesUnref , - - - - - -- * Properties --- ** Appearance - textAttributesReadAppearance , - - --- ** BgFullHeight - textAttributesReadBgFullHeight , - - --- ** Direction - textAttributesReadDirection , - - --- ** Editable - textAttributesReadEditable , - - --- ** Font - textAttributesReadFont , - - --- ** FontScale - textAttributesReadFontScale , - - --- ** Indent - textAttributesReadIndent , - - --- ** Invisible - textAttributesReadInvisible , - - --- ** Justification - textAttributesReadJustification , - - --- ** Language - textAttributesReadLanguage , - - --- ** LeftMargin - textAttributesReadLeftMargin , - - --- ** LetterSpacing - textAttributesReadLetterSpacing , - - --- ** NoFallback - textAttributesReadNoFallback , - - --- ** PixelsAboveLines - textAttributesReadPixelsAboveLines , - - --- ** PixelsBelowLines - textAttributesReadPixelsBelowLines , - - --- ** PixelsInsideWrap - textAttributesReadPixelsInsideWrap , - - --- ** RightMargin - textAttributesReadRightMargin , - - --- ** Tabs - textAttributesReadTabs , - - --- ** WrapMode - textAttributesReadWrapMode , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - -noTextAttributes :: Maybe TextAttributes -noTextAttributes = Nothing - -textAttributesReadAppearance :: TextAttributes -> IO TextAppearance -textAttributesReadAppearance s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO (Ptr TextAppearance) - val' <- (newPtr 48 TextAppearance) val - return val' - -textAttributesReadJustification :: TextAttributes -> IO Justification -textAttributesReadJustification s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 52) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -textAttributesReadDirection :: TextAttributes -> IO TextDirection -textAttributesReadDirection s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -textAttributesReadFont :: TextAttributes -> IO Pango.FontDescription -textAttributesReadFont s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO (Ptr Pango.FontDescription) - val' <- (newBoxed Pango.FontDescription) val - return val' - -textAttributesReadFontScale :: TextAttributes -> IO Double -textAttributesReadFontScale s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -textAttributesReadLeftMargin :: TextAttributes -> IO Int32 -textAttributesReadLeftMargin s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO Int32 - return val - -textAttributesReadRightMargin :: TextAttributes -> IO Int32 -textAttributesReadRightMargin s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 84) :: IO Int32 - return val - -textAttributesReadIndent :: TextAttributes -> IO Int32 -textAttributesReadIndent s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 88) :: IO Int32 - return val - -textAttributesReadPixelsAboveLines :: TextAttributes -> IO Int32 -textAttributesReadPixelsAboveLines s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 92) :: IO Int32 - return val - -textAttributesReadPixelsBelowLines :: TextAttributes -> IO Int32 -textAttributesReadPixelsBelowLines s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 96) :: IO Int32 - return val - -textAttributesReadPixelsInsideWrap :: TextAttributes -> IO Int32 -textAttributesReadPixelsInsideWrap s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 100) :: IO Int32 - return val - -textAttributesReadTabs :: TextAttributes -> IO Pango.TabArray -textAttributesReadTabs s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 104) :: IO (Ptr Pango.TabArray) - val' <- (newBoxed Pango.TabArray) val - return val' - -textAttributesReadWrapMode :: TextAttributes -> IO WrapMode -textAttributesReadWrapMode s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 112) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -textAttributesReadLanguage :: TextAttributes -> IO Pango.Language -textAttributesReadLanguage s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 120) :: IO (Ptr Pango.Language) - val' <- (newBoxed Pango.Language) val - return val' - -textAttributesReadInvisible :: TextAttributes -> IO Word32 -textAttributesReadInvisible s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 136) :: IO Word32 - return val - -textAttributesReadBgFullHeight :: TextAttributes -> IO Word32 -textAttributesReadBgFullHeight s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 140) :: IO Word32 - return val - -textAttributesReadEditable :: TextAttributes -> IO Word32 -textAttributesReadEditable s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 144) :: IO Word32 - return val - -textAttributesReadNoFallback :: TextAttributes -> IO Word32 -textAttributesReadNoFallback s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 148) :: IO Word32 - return val - -textAttributesReadLetterSpacing :: TextAttributes -> IO Int32 -textAttributesReadLetterSpacing s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 160) :: IO Int32 - return val - --- method TextAttributes::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextAttributes::copy_values --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -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 () - --- method TextAttributes::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextAttributes::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textAttributesUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_attributes_unref _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.TextAttributes where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TextAttributes = TextAttributes (ForeignPtr TextAttributes) -instance BoxedObject TextAttributes where 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,32 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype TextBTree = TextBTree (ForeignPtr TextBTree) -noTextBTree :: Maybe TextBTree -noTextBTree = Nothing - - 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,10 +0,0 @@ -module GI.Gtk.Structs.TextBTree where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TextBTree = TextBTree (ForeignPtr TextBTree) 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,2900 +0,0 @@ - -{- | -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(..) , - noTextIter , - - - -- * Methods --- ** textIterAssign - textIterAssign , - - --- ** textIterBackwardChar - textIterBackwardChar , - - --- ** textIterBackwardChars - textIterBackwardChars , - - --- ** textIterBackwardCursorPosition - textIterBackwardCursorPosition , - - --- ** textIterBackwardCursorPositions - textIterBackwardCursorPositions , - - --- ** textIterBackwardFindChar - textIterBackwardFindChar , - - --- ** textIterBackwardLine - textIterBackwardLine , - - --- ** textIterBackwardLines - textIterBackwardLines , - - --- ** textIterBackwardSearch - textIterBackwardSearch , - - --- ** textIterBackwardSentenceStart - textIterBackwardSentenceStart , - - --- ** textIterBackwardSentenceStarts - textIterBackwardSentenceStarts , - - --- ** textIterBackwardToTagToggle - textIterBackwardToTagToggle , - - --- ** textIterBackwardVisibleCursorPosition - textIterBackwardVisibleCursorPosition , - - --- ** textIterBackwardVisibleCursorPositions - textIterBackwardVisibleCursorPositions , - - --- ** textIterBackwardVisibleLine - textIterBackwardVisibleLine , - - --- ** textIterBackwardVisibleLines - textIterBackwardVisibleLines , - - --- ** textIterBackwardVisibleWordStart - textIterBackwardVisibleWordStart , - - --- ** textIterBackwardVisibleWordStarts - textIterBackwardVisibleWordStarts , - - --- ** textIterBackwardWordStart - textIterBackwardWordStart , - - --- ** textIterBackwardWordStarts - textIterBackwardWordStarts , - - --- ** textIterBeginsTag - textIterBeginsTag , - - --- ** textIterCanInsert - textIterCanInsert , - - --- ** textIterCompare - textIterCompare , - - --- ** textIterCopy - textIterCopy , - - --- ** textIterEditable - textIterEditable , - - --- ** textIterEndsLine - textIterEndsLine , - - --- ** textIterEndsSentence - textIterEndsSentence , - - --- ** textIterEndsTag - textIterEndsTag , - - --- ** textIterEndsWord - textIterEndsWord , - - --- ** textIterEqual - textIterEqual , - - --- ** textIterForwardChar - textIterForwardChar , - - --- ** textIterForwardChars - textIterForwardChars , - - --- ** textIterForwardCursorPosition - textIterForwardCursorPosition , - - --- ** textIterForwardCursorPositions - textIterForwardCursorPositions , - - --- ** textIterForwardFindChar - textIterForwardFindChar , - - --- ** textIterForwardLine - textIterForwardLine , - - --- ** textIterForwardLines - textIterForwardLines , - - --- ** textIterForwardSearch - textIterForwardSearch , - - --- ** textIterForwardSentenceEnd - textIterForwardSentenceEnd , - - --- ** textIterForwardSentenceEnds - textIterForwardSentenceEnds , - - --- ** textIterForwardToEnd - textIterForwardToEnd , - - --- ** textIterForwardToLineEnd - textIterForwardToLineEnd , - - --- ** textIterForwardToTagToggle - textIterForwardToTagToggle , - - --- ** textIterForwardVisibleCursorPosition - textIterForwardVisibleCursorPosition , - - --- ** textIterForwardVisibleCursorPositions - textIterForwardVisibleCursorPositions , - - --- ** textIterForwardVisibleLine - textIterForwardVisibleLine , - - --- ** textIterForwardVisibleLines - textIterForwardVisibleLines , - - --- ** textIterForwardVisibleWordEnd - textIterForwardVisibleWordEnd , - - --- ** textIterForwardVisibleWordEnds - textIterForwardVisibleWordEnds , - - --- ** textIterForwardWordEnd - textIterForwardWordEnd , - - --- ** textIterForwardWordEnds - textIterForwardWordEnds , - - --- ** textIterFree - textIterFree , - - --- ** textIterGetAttributes - textIterGetAttributes , - - --- ** textIterGetBuffer - textIterGetBuffer , - - --- ** textIterGetBytesInLine - textIterGetBytesInLine , - - --- ** textIterGetChar - textIterGetChar , - - --- ** textIterGetCharsInLine - textIterGetCharsInLine , - - --- ** textIterGetChildAnchor - textIterGetChildAnchor , - - --- ** textIterGetLanguage - textIterGetLanguage , - - --- ** textIterGetLine - textIterGetLine , - - --- ** textIterGetLineIndex - textIterGetLineIndex , - - --- ** textIterGetLineOffset - textIterGetLineOffset , - - --- ** textIterGetMarks - textIterGetMarks , - - --- ** textIterGetOffset - textIterGetOffset , - - --- ** textIterGetPixbuf - textIterGetPixbuf , - - --- ** textIterGetSlice - textIterGetSlice , - - --- ** textIterGetTags - textIterGetTags , - - --- ** textIterGetText - textIterGetText , - - --- ** textIterGetToggledTags - textIterGetToggledTags , - - --- ** textIterGetVisibleLineIndex - textIterGetVisibleLineIndex , - - --- ** textIterGetVisibleLineOffset - textIterGetVisibleLineOffset , - - --- ** textIterGetVisibleSlice - textIterGetVisibleSlice , - - --- ** textIterGetVisibleText - textIterGetVisibleText , - - --- ** textIterHasTag - textIterHasTag , - - --- ** textIterInRange - textIterInRange , - - --- ** textIterInsideSentence - textIterInsideSentence , - - --- ** textIterInsideWord - textIterInsideWord , - - --- ** textIterIsCursorPosition - textIterIsCursorPosition , - - --- ** textIterIsEnd - textIterIsEnd , - - --- ** textIterIsStart - textIterIsStart , - - --- ** textIterOrder - textIterOrder , - - --- ** textIterSetLine - textIterSetLine , - - --- ** textIterSetLineIndex - textIterSetLineIndex , - - --- ** textIterSetLineOffset - textIterSetLineOffset , - - --- ** textIterSetOffset - textIterSetOffset , - - --- ** textIterSetVisibleLineIndex - textIterSetVisibleLineIndex , - - --- ** textIterSetVisibleLineOffset - textIterSetVisibleLineOffset , - - --- ** textIterStartsLine - textIterStartsLine , - - --- ** textIterStartsSentence - textIterStartsSentence , - - --- ** textIterStartsWord - textIterStartsWord , - - --- ** textIterTogglesTag - textIterTogglesTag , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - -noTextIter :: Maybe TextIter -noTextIter = Nothing - --- method TextIter::assign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textIterAssign _obj other = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let other' = unsafeManagedPtrGetPtr other - gtk_text_iter_assign _obj' other' - touchManagedPtr _obj - touchManagedPtr other - return () - --- method TextIter::backward_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterBackwardChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_char _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterBackwardChars :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::backward_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterBackwardCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterBackwardCursorPositions :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::backward_find_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TVoid - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterBackwardFindChar :: - (MonadIO m) => - TextIter -> -- _obj - TextCharPredicate -> -- pred - Maybe (TextIter) -> -- limit - m Bool -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 user_data = nullPtr - result <- gtk_text_iter_backward_find_char _obj' pred' user_data maybeLimit - let result' = (/= 0) result - safeFreeFunPtr $ castFunPtrToPtr pred' - touchManagedPtr _obj - whenJust limit touchManagedPtr - return result' - --- method TextIter::backward_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterBackwardLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterBackwardLines :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::backward_search --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -textIterBackwardSearch _obj str flags limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - let flags' = gflagsToWord flags - match_start <- callocBoxedBytes 80 :: IO (Ptr TextIter) - match_end <- 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' match_start match_end maybeLimit - let result' = (/= 0) result - match_start' <- (wrapBoxed TextIter) match_start - match_end' <- (wrapBoxed TextIter) match_end - touchManagedPtr _obj - whenJust limit touchManagedPtr - freeMem str' - return (result', match_start', match_end') - --- method TextIter::backward_sentence_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterBackwardSentenceStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_sentence_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_sentence_starts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterBackwardSentenceStarts :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::backward_to_tag_toggle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::backward_visible_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::backward_visible_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterBackwardVisibleCursorPositions :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::backward_visible_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterBackwardVisibleLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_visible_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_visible_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterBackwardVisibleLines :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::backward_visible_word_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::backward_visible_word_starts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterBackwardVisibleWordStarts :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::backward_word_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterBackwardWordStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_backward_word_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::backward_word_starts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterBackwardWordStarts :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::begins_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::can_insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editability", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_editability", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- default_editability - m Bool -textIterCanInsert _obj default_editability = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let default_editability' = (fromIntegral . fromEnum) default_editability - result <- gtk_text_iter_can_insert _obj' default_editability' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::compare --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method TextIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::editable --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "default_setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- default_setting - m Bool -textIterEditable _obj default_setting = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let default_setting' = (fromIntegral . fromEnum) default_setting - result <- gtk_text_iter_editable _obj' default_setting' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::ends_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterEndsLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::ends_sentence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterEndsSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::ends_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::ends_word --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterEndsWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_ends_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::forward_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterForwardChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_char _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterForwardChars :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::forward_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterForwardCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterForwardCursorPositions :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::forward_find_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pred", argType = TInterface "Gtk" "TextCharPredicate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TVoid - Ptr TextIter -> -- limit : TInterface "Gtk" "TextIter" - IO CInt - - -textIterForwardFindChar :: - (MonadIO m) => - TextIter -> -- _obj - TextCharPredicate -> -- pred - Maybe (TextIter) -> -- limit - m Bool -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 user_data = nullPtr - result <- gtk_text_iter_forward_find_char _obj' pred' user_data maybeLimit - let result' = (/= 0) result - safeFreeFunPtr $ castFunPtrToPtr pred' - touchManagedPtr _obj - whenJust limit touchManagedPtr - return result' - --- method TextIter::forward_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterForwardLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterForwardLines :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::forward_search --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_start", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_end", argType = TInterface "Gtk" "TextIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "TextSearchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -textIterForwardSearch _obj str flags limit = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - let flags' = gflagsToWord flags - match_start <- callocBoxedBytes 80 :: IO (Ptr TextIter) - match_end <- 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' match_start match_end maybeLimit - let result' = (/= 0) result - match_start' <- (wrapBoxed TextIter) match_start - match_end' <- (wrapBoxed TextIter) match_end - touchManagedPtr _obj - whenJust limit touchManagedPtr - freeMem str' - return (result', match_start', match_end') - --- method TextIter::forward_sentence_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterForwardSentenceEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_sentence_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_sentence_ends --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterForwardSentenceEnds :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::forward_to_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textIterForwardToEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_forward_to_end _obj' - touchManagedPtr _obj - return () - --- method TextIter::forward_to_line_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::forward_to_tag_toggle --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::forward_visible_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::forward_visible_cursor_positions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterForwardVisibleCursorPositions :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::forward_visible_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterForwardVisibleLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_visible_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_visible_lines --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterForwardVisibleLines :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::forward_visible_word_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::forward_visible_word_ends --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterForwardVisibleWordEnds :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::forward_word_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterForwardWordEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_forward_word_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::forward_word_ends --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32 - IO CInt - - -textIterForwardWordEnds :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- count - m Bool -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' - --- method TextIter::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_free _obj' - touchManagedPtr _obj - return () - --- method TextIter::get_attributes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "values", argType = TInterface "Gtk" "TextAttributes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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) -textIterGetAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - values <- callocBoxedBytes 176 :: IO (Ptr TextAttributes) - result <- gtk_text_iter_get_attributes _obj' values - let result' = (/= 0) result - values' <- (wrapBoxed TextAttributes) values - touchManagedPtr _obj - return (result', values') - --- method TextIter::get_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::get_bytes_in_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textIterGetBytesInLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_bytes_in_line _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_char --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterGetChar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_char _obj' - let result' = (chr . fromIntegral) result - touchManagedPtr _obj - return result' - --- method TextIter::get_chars_in_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textIterGetCharsInLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_chars_in_line _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_child_anchor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::get_language --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::get_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textIterGetLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textIterGetLineIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line_index _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textIterGetLineOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_line_offset _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_marks --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -textIterGetMarks _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_marks _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_marks" result - result' <- unpackGSList result - result'' <- mapM (newObject TextMark) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method TextIter::get_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textIterGetOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_offset _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::get_slice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::get_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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] -textIterGetTags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_tags _obj' - checkUnexpectedReturnNULL "gtk_text_iter_get_tags" result - result' <- unpackGSList result - result'' <- mapM (newObject TextTag) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method TextIter::get_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::get_toggled_tags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "toggled_on", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -> -- toggled_on - m [TextTag] -textIterGetToggledTags _obj toggled_on = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let toggled_on' = (fromIntegral . fromEnum) toggled_on - result <- gtk_text_iter_get_toggled_tags _obj' toggled_on' - checkUnexpectedReturnNULL "gtk_text_iter_get_toggled_tags" result - result' <- unpackGSList result - result'' <- mapM (newObject TextTag) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method TextIter::get_visible_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textIterGetVisibleLineIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_visible_line_index _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_visible_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -textIterGetVisibleLineOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_get_visible_line_offset _obj' - touchManagedPtr _obj - return result - --- method TextIter::get_visible_slice --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::get_visible_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::has_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::in_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TextIter::inside_sentence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterInsideSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_inside_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::inside_word --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterInsideWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_inside_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::is_cursor_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterIsCursorPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_cursor_position _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::is_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterIsEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::is_start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterIsStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_is_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::order --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -textIterOrder _obj second = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let second' = unsafeManagedPtrGetPtr second - gtk_text_iter_order _obj' second' - touchManagedPtr _obj - touchManagedPtr second - return () - --- method TextIter::set_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_number", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_line" gtk_text_iter_set_line :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- line_number : TBasicType TInt32 - IO () - - -textIterSetLine :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- line_number - m () -textIterSetLine _obj line_number = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line _obj' line_number - touchManagedPtr _obj - return () - --- method TextIter::set_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_line_index" gtk_text_iter_set_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- byte_on_line : TBasicType TInt32 - IO () - - -textIterSetLineIndex :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- byte_on_line - m () -textIterSetLineIndex _obj byte_on_line = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line_index _obj' byte_on_line - touchManagedPtr _obj - return () - --- method TextIter::set_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_line_offset" gtk_text_iter_set_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_on_line : TBasicType TInt32 - IO () - - -textIterSetLineOffset :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- char_on_line - m () -textIterSetLineOffset _obj char_on_line = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_line_offset _obj' char_on_line - touchManagedPtr _obj - return () - --- method TextIter::set_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_offset" gtk_text_iter_set_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_offset : TBasicType TInt32 - IO () - - -textIterSetOffset :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- char_offset - m () -textIterSetOffset _obj char_offset = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_offset _obj' char_offset - touchManagedPtr _obj - return () - --- method TextIter::set_visible_line_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "byte_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_visible_line_index" gtk_text_iter_set_visible_line_index :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- byte_on_line : TBasicType TInt32 - IO () - - -textIterSetVisibleLineIndex :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- byte_on_line - m () -textIterSetVisibleLineIndex _obj byte_on_line = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_visible_line_index _obj' byte_on_line - touchManagedPtr _obj - return () - --- method TextIter::set_visible_line_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "char_on_line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_text_iter_set_visible_line_offset" gtk_text_iter_set_visible_line_offset :: - Ptr TextIter -> -- _obj : TInterface "Gtk" "TextIter" - Int32 -> -- char_on_line : TBasicType TInt32 - IO () - - -textIterSetVisibleLineOffset :: - (MonadIO m) => - TextIter -> -- _obj - Int32 -> -- char_on_line - m () -textIterSetVisibleLineOffset _obj char_on_line = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_text_iter_set_visible_line_offset _obj' char_on_line - touchManagedPtr _obj - return () - --- method TextIter::starts_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterStartsLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_line _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::starts_sentence --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterStartsSentence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_sentence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::starts_word --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -textIterStartsWord _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_text_iter_starts_word _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TextIter::toggles_tag --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TextIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TInterface "Gtk" "TextTag", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - - 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,11 +0,0 @@ -module GI.Gtk.Structs.TextIter where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TextIter = TextIter (ForeignPtr TextIter) -instance BoxedObject TextIter where 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,32 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype ThemeEngine = ThemeEngine (ForeignPtr ThemeEngine) -noThemeEngine :: Maybe ThemeEngine -noThemeEngine = Nothing - - 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,10 +0,0 @@ -module GI.Gtk.Structs.ThemeEngine where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ThemeEngine = ThemeEngine (ForeignPtr ThemeEngine) 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,100 +0,0 @@ - -{- | -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(..) , - noToggleActionEntry , - - - -- * Properties --- ** Accelerator - toggleActionEntryReadAccelerator , - - --- ** IsActive - toggleActionEntryReadIsActive , - - --- ** Label - toggleActionEntryReadLabel , - - --- ** Name - toggleActionEntryReadName , - - --- ** StockId - toggleActionEntryReadStockId , - - --- ** Tooltip - toggleActionEntryReadTooltip , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype ToggleActionEntry = ToggleActionEntry (ForeignPtr ToggleActionEntry) -noToggleActionEntry :: Maybe ToggleActionEntry -noToggleActionEntry = Nothing - -toggleActionEntryReadName :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -toggleActionEntryReadStockId :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadStockId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -toggleActionEntryReadLabel :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadLabel s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -toggleActionEntryReadAccelerator :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadAccelerator s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -toggleActionEntryReadTooltip :: ToggleActionEntry -> IO T.Text -toggleActionEntryReadTooltip s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' - --- XXX Skipped getter for "ToggleActionEntry:callback" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -toggleActionEntryReadIsActive :: ToggleActionEntry -> IO Bool -toggleActionEntryReadIsActive s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CInt - let val' = (/= 0) val - return val' - - 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,10 +0,0 @@ -module GI.Gtk.Structs.ToggleActionEntry where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ToggleActionEntry = ToggleActionEntry (ForeignPtr ToggleActionEntry) 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,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) - -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(..) , - noTreeIter , - - - -- * Methods --- ** treeIterCopy - treeIterCopy , - - --- ** treeIterFree - treeIterFree , - - - - - -- * Properties --- ** Stamp - treeIterReadStamp , - - --- ** UserData - treeIterReadUserData , - - --- ** UserData2 - treeIterReadUserData2 , - - --- ** UserData3 - treeIterReadUserData3 , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype 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 - -noTreeIter :: Maybe TreeIter -noTreeIter = Nothing - -treeIterReadStamp :: TreeIter -> IO Int32 -treeIterReadStamp s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -treeIterReadUserData :: TreeIter -> IO (Ptr ()) -treeIterReadUserData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) - return val - -treeIterReadUserData2 :: TreeIter -> IO (Ptr ()) -treeIterReadUserData2 s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr ()) - return val - -treeIterReadUserData3 :: TreeIter -> IO (Ptr ()) -treeIterReadUserData3 s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) - return val - --- method TreeIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeIter::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_iter_free _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.TreeIter where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TreeIter = TreeIter (ForeignPtr TreeIter) -instance BoxedObject TreeIter where 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,578 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 - treePathAppendIndex , - - --- ** treePathCompare - treePathCompare , - - --- ** treePathCopy - treePathCopy , - - --- ** treePathDown - treePathDown , - - --- ** treePathFree - treePathFree , - - --- ** treePathGetDepth - treePathGetDepth , - - --- ** treePathGetIndices - treePathGetIndices , - - --- ** treePathIsAncestor - treePathIsAncestor , - - --- ** treePathIsDescendant - treePathIsDescendant , - - --- ** treePathNew - treePathNew , - - --- ** treePathNewFirst - treePathNewFirst , - - --- ** treePathNewFromIndices - treePathNewFromIndices , - - --- ** treePathNewFromString - treePathNewFromString , - - --- ** treePathNext - treePathNext , - - --- ** treePathPrependIndex - treePathPrependIndex , - - --- ** treePathPrev - treePathPrev , - - --- ** treePathToString - treePathToString , - - --- ** treePathUp - treePathUp , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype 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 - --- method TreePath::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : 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 -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 : [] --- hInArgs : [] --- returnType : 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 -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 {argName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "indices", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TInt32) - Word64 -> -- length : TBasicType TUInt64 - IO (Ptr TreePath) - - -treePathNewFromIndices :: - (MonadIO m) => - [Int32] -> -- indices - m TreePath -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 {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -treePathAppendIndex :: - (MonadIO m) => - TreePath -> -- _obj - Int32 -> -- index_ - m () -treePathAppendIndex _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_append_index _obj' index_ - touchManagedPtr _obj - return () - --- method TreePath::compare --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -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 - --- method TreePath::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreePath::down --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treePathDown _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_down _obj' - touchManagedPtr _obj - return () - --- method TreePath::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treePathFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_free _obj' - touchManagedPtr _obj - return () - --- method TreePath::get_depth --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- 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 -treePathGetDepth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_path_get_depth _obj' - touchManagedPtr _obj - return result - --- method TreePath::get_indices --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 1 (TBasicType TInt32) --- 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 TInt32 - IO (Ptr Int32) - - -treePathGetIndices :: - (MonadIO m) => - TreePath -> -- _obj - m [Int32] -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' - --- method TreePath::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreePath::is_descendant --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ancestor", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreePath::next --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treePathNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_next _obj' - touchManagedPtr _obj - return () - --- method TreePath::prepend_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 TInt32 - IO () - - -treePathPrependIndex :: - (MonadIO m) => - TreePath -> -- _obj - Int32 -> -- index_ - m () -treePathPrependIndex _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_path_prepend_index _obj' index_ - touchManagedPtr _obj - return () - --- method TreePath::prev --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treePathPrev _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_path_prev _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TreePath::to_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreePath::up --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treePathUp _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_path_up _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - - 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,11 +0,0 @@ -module GI.Gtk.Structs.TreePath where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TreePath = TreePath (ForeignPtr TreePath) -instance BoxedObject TreePath where 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,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) - -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 - treeRowReferenceCopy , - - --- ** treeRowReferenceFree - treeRowReferenceFree , - - --- ** treeRowReferenceGetModel - treeRowReferenceGetModel , - - --- ** treeRowReferenceGetPath - treeRowReferenceGetPath , - - --- ** treeRowReferenceNew - treeRowReferenceNew , - - --- ** treeRowReferenceNewProxy - treeRowReferenceNewProxy , - - --- ** treeRowReferenceValid - treeRowReferenceValid , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks -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 - --- method TreeRowReference::new --- method type : Constructor --- Args : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "proxy", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TInterface "Gtk" "TreePath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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 {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeRowReference::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- 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 () -treeRowReferenceFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_tree_row_reference_free _obj' - touchManagedPtr _obj - return () - --- method TreeRowReference::get_model --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -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' - --- method TreeRowReference::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 TreePath -treeRowReferenceGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_row_reference_get_path _obj' - checkUnexpectedReturnNULL "gtk_tree_row_reference_get_path" result - result' <- (wrapBoxed TreePath) result - touchManagedPtr _obj - return result' - --- method TreeRowReference::valid --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeRowReference", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : 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 -treeRowReferenceValid _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_tree_row_reference_valid _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - - 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,11 +0,0 @@ -module GI.Gtk.Structs.TreeRowReference where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TreeRowReference = TreeRowReference (ForeignPtr TreeRowReference) -instance BoxedObject TreeRowReference where diff --git a/GI/Gtk/Structs/WidgetAuxInfo.hs b/GI/Gtk/Structs/WidgetAuxInfo.hs deleted file mode 100644 --- a/GI/Gtk/Structs/WidgetAuxInfo.hs +++ /dev/null @@ -1,81 +0,0 @@ - -{- | -Copyright : Will Thompson, 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.WidgetAuxInfo - ( - --- * Exported types - WidgetAuxInfo(..) , - noWidgetAuxInfo , - - - -- * Properties --- ** Halign - widgetAuxInfoReadHalign , - - --- ** Height - widgetAuxInfoReadHeight , - - --- ** Margin - widgetAuxInfoReadMargin , - - --- ** Valign - widgetAuxInfoReadValign , - - --- ** Width - widgetAuxInfoReadWidth , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype WidgetAuxInfo = WidgetAuxInfo (ForeignPtr WidgetAuxInfo) -noWidgetAuxInfo :: Maybe WidgetAuxInfo -noWidgetAuxInfo = Nothing - -widgetAuxInfoReadWidth :: WidgetAuxInfo -> IO Int32 -widgetAuxInfoReadWidth s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -widgetAuxInfoReadHeight :: WidgetAuxInfo -> IO Int32 -widgetAuxInfoReadHeight s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -widgetAuxInfoReadHalign :: WidgetAuxInfo -> IO Word32 -widgetAuxInfoReadHalign s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -widgetAuxInfoReadValign :: WidgetAuxInfo -> IO Word32 -widgetAuxInfoReadValign s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -widgetAuxInfoReadMargin :: WidgetAuxInfo -> IO Border -widgetAuxInfoReadMargin s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Border) - val' <- (newBoxed Border) val - return val' - - diff --git a/GI/Gtk/Structs/WidgetAuxInfo.hs-boot b/GI/Gtk/Structs/WidgetAuxInfo.hs-boot deleted file mode 100644 --- a/GI/Gtk/Structs/WidgetAuxInfo.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.Gtk.Structs.WidgetAuxInfo where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WidgetAuxInfo = WidgetAuxInfo (ForeignPtr WidgetAuxInfo) 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,1248 +0,0 @@ - -{- | -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 - widgetPathAppendForWidget , - - --- ** widgetPathAppendType - widgetPathAppendType , - - --- ** widgetPathAppendWithSiblings - widgetPathAppendWithSiblings , - - --- ** widgetPathCopy - widgetPathCopy , - - --- ** widgetPathFree - widgetPathFree , - - --- ** widgetPathGetObjectType - widgetPathGetObjectType , - - --- ** widgetPathHasParent - widgetPathHasParent , - - --- ** widgetPathIsType - widgetPathIsType , - - --- ** widgetPathIterAddClass - widgetPathIterAddClass , - - --- ** widgetPathIterAddRegion - widgetPathIterAddRegion , - - --- ** widgetPathIterClearClasses - widgetPathIterClearClasses , - - --- ** widgetPathIterClearRegions - widgetPathIterClearRegions , - - --- ** widgetPathIterGetName - widgetPathIterGetName , - - --- ** widgetPathIterGetObjectType - widgetPathIterGetObjectType , - - --- ** widgetPathIterGetSiblingIndex - widgetPathIterGetSiblingIndex , - - --- ** widgetPathIterGetSiblings - widgetPathIterGetSiblings , - - --- ** widgetPathIterGetState - widgetPathIterGetState , - - --- ** widgetPathIterHasClass - widgetPathIterHasClass , - - --- ** widgetPathIterHasName - widgetPathIterHasName , - - --- ** widgetPathIterHasQclass - widgetPathIterHasQclass , - - --- ** widgetPathIterHasQname - widgetPathIterHasQname , - - --- ** widgetPathIterHasQregion - widgetPathIterHasQregion , - - --- ** widgetPathIterHasRegion - widgetPathIterHasRegion , - - --- ** widgetPathIterListClasses - widgetPathIterListClasses , - - --- ** widgetPathIterListRegions - widgetPathIterListRegions , - - --- ** widgetPathIterRemoveClass - widgetPathIterRemoveClass , - - --- ** widgetPathIterRemoveRegion - widgetPathIterRemoveRegion , - - --- ** widgetPathIterSetName - widgetPathIterSetName , - - --- ** widgetPathIterSetObjectType - widgetPathIterSetObjectType , - - --- ** widgetPathIterSetState - widgetPathIterSetState , - - --- ** widgetPathLength - widgetPathLength , - - --- ** widgetPathNew - widgetPathNew , - - --- ** widgetPathPrependType - widgetPathPrependType , - - --- ** widgetPathRef - widgetPathRef , - - --- ** widgetPathToString - widgetPathToString , - - --- ** widgetPathUnref - widgetPathUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype WidgetPath = WidgetPath (ForeignPtr WidgetPath) -foreign import ccall "gtk_widget_path_get_type" c_gtk_widget_path_get_type :: - IO GType - -instance BoxedObject WidgetPath where - boxedType _ = c_gtk_widget_path_get_type - -noWidgetPath :: Maybe WidgetPath -noWidgetPath = Nothing - --- method WidgetPath::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_new" gtk_widget_path_new :: - IO (Ptr WidgetPath) - - -widgetPathNew :: - (MonadIO m) => - m WidgetPath -widgetPathNew = liftIO $ do - result <- gtk_widget_path_new - checkUnexpectedReturnNULL "gtk_widget_path_new" result - result' <- (wrapBoxed WidgetPath) result - return result' - --- method WidgetPath::append_for_widget --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_append_for_widget" gtk_widget_path_append_for_widget :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Ptr Widget -> -- widget : TInterface "Gtk" "Widget" - IO Int32 - - -widgetPathAppendForWidget :: - (MonadIO m, WidgetK a) => - WidgetPath -> -- _obj - a -> -- widget - m Int32 -widgetPathAppendForWidget _obj widget = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let widget' = unsafeManagedPtrCastPtr widget - result <- gtk_widget_path_append_for_widget _obj' widget' - touchManagedPtr _obj - touchManagedPtr widget - return result - --- method WidgetPath::append_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_append_type" gtk_widget_path_append_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - CGType -> -- type : TBasicType TGType - IO Int32 - - -widgetPathAppendType :: - (MonadIO m) => - WidgetPath -> -- _obj - GType -> -- type - m Int32 -widgetPathAppendType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - result <- gtk_widget_path_append_type _obj' type_' - touchManagedPtr _obj - return result - --- method WidgetPath::append_with_siblings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "siblings", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling_index", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_append_with_siblings" gtk_widget_path_append_with_siblings :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Ptr WidgetPath -> -- siblings : TInterface "Gtk" "WidgetPath" - Word32 -> -- sibling_index : TBasicType TUInt32 - IO Int32 - - -widgetPathAppendWithSiblings :: - (MonadIO m) => - WidgetPath -> -- _obj - WidgetPath -> -- siblings - Word32 -> -- sibling_index - m Int32 -widgetPathAppendWithSiblings _obj siblings sibling_index = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let siblings' = unsafeManagedPtrGetPtr siblings - result <- gtk_widget_path_append_with_siblings _obj' siblings' sibling_index - touchManagedPtr _obj - touchManagedPtr siblings - return result - --- method WidgetPath::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_copy" gtk_widget_path_copy :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO (Ptr WidgetPath) - - -widgetPathCopy :: - (MonadIO m) => - WidgetPath -> -- _obj - m WidgetPath -widgetPathCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_copy _obj' - checkUnexpectedReturnNULL "gtk_widget_path_copy" result - result' <- (wrapBoxed WidgetPath) result - touchManagedPtr _obj - return result' - --- method WidgetPath::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_free" gtk_widget_path_free :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO () - - -widgetPathFree :: - (MonadIO m) => - WidgetPath -> -- _obj - m () -widgetPathFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_widget_path_free _obj' - touchManagedPtr _obj - return () - --- method WidgetPath::get_object_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TGType --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_get_object_type" gtk_widget_path_get_object_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO CGType - - -widgetPathGetObjectType :: - (MonadIO m) => - WidgetPath -> -- _obj - m GType -widgetPathGetObjectType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_get_object_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - --- method WidgetPath::has_parent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_has_parent" gtk_widget_path_has_parent :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - CGType -> -- type : TBasicType TGType - IO CInt - - -widgetPathHasParent :: - (MonadIO m) => - WidgetPath -> -- _obj - GType -> -- type - m Bool -widgetPathHasParent _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - result <- gtk_widget_path_has_parent _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WidgetPath::is_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_is_type" gtk_widget_path_is_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - CGType -> -- type : TBasicType TGType - IO CInt - - -widgetPathIsType :: - (MonadIO m) => - WidgetPath -> -- _obj - GType -> -- type - m Bool -widgetPathIsType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - result <- gtk_widget_path_is_type _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WidgetPath::iter_add_class --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_add_class" gtk_widget_path_iter_add_class :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetPathIterAddClass :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m () -widgetPathIterAddClass _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - gtk_widget_path_iter_add_class _obj' pos name' - touchManagedPtr _obj - freeMem name' - return () - --- method WidgetPath::iter_add_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_add_region" gtk_widget_path_iter_add_region :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CString -> -- name : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gtk" "RegionFlags" - IO () - -{-# DEPRECATED widgetPathIterAddRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterAddRegion :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - [RegionFlags] -> -- flags - m () -widgetPathIterAddRegion _obj pos name flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - let flags' = gflagsToWord flags - gtk_widget_path_iter_add_region _obj' pos name' flags' - touchManagedPtr _obj - freeMem name' - return () - --- method WidgetPath::iter_clear_classes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_clear_classes" gtk_widget_path_iter_clear_classes :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO () - - -widgetPathIterClearClasses :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m () -widgetPathIterClearClasses _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_widget_path_iter_clear_classes _obj' pos - touchManagedPtr _obj - return () - --- method WidgetPath::iter_clear_regions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_clear_regions" gtk_widget_path_iter_clear_regions :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO () - -{-# DEPRECATED widgetPathIterClearRegions ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterClearRegions :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m () -widgetPathIterClearRegions _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_widget_path_iter_clear_regions _obj' pos - touchManagedPtr _obj - return () - --- method WidgetPath::iter_get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_get_name" gtk_widget_path_iter_get_name :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO CString - - -widgetPathIterGetName :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m T.Text -widgetPathIterGetName _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_name _obj' pos - checkUnexpectedReturnNULL "gtk_widget_path_iter_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method WidgetPath::iter_get_object_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TGType --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_get_object_type" gtk_widget_path_iter_get_object_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO CGType - - -widgetPathIterGetObjectType :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m GType -widgetPathIterGetObjectType _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_object_type _obj' pos - let result' = GType result - touchManagedPtr _obj - return result' - --- method WidgetPath::iter_get_sibling_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_get_sibling_index" gtk_widget_path_iter_get_sibling_index :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO Word32 - - -widgetPathIterGetSiblingIndex :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m Word32 -widgetPathIterGetSiblingIndex _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_sibling_index _obj' pos - touchManagedPtr _obj - return result - --- method WidgetPath::iter_get_siblings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_get_siblings" gtk_widget_path_iter_get_siblings :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO (Ptr WidgetPath) - - -widgetPathIterGetSiblings :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m WidgetPath -widgetPathIterGetSiblings _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_siblings _obj' pos - checkUnexpectedReturnNULL "gtk_widget_path_iter_get_siblings" result - result' <- (newBoxed WidgetPath) result - touchManagedPtr _obj - return result' - --- method WidgetPath::iter_get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "StateFlags" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_get_state" gtk_widget_path_iter_get_state :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO CUInt - - -widgetPathIterGetState :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m [StateFlags] -widgetPathIterGetState _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_get_state _obj' pos - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method WidgetPath::iter_has_class --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_has_class" gtk_widget_path_iter_has_class :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CString -> -- name : TBasicType TUTF8 - IO CInt - - -widgetPathIterHasClass :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m Bool -widgetPathIterHasClass _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- gtk_widget_path_iter_has_class _obj' pos name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem name' - return result' - --- method WidgetPath::iter_has_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_has_name" gtk_widget_path_iter_has_name :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CString -> -- name : TBasicType TUTF8 - IO CInt - - -widgetPathIterHasName :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m Bool -widgetPathIterHasName _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- gtk_widget_path_iter_has_name _obj' pos name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem name' - return result' - --- method WidgetPath::iter_has_qclass --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_has_qclass" gtk_widget_path_iter_has_qclass :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - Word32 -> -- qname : TBasicType TUInt32 - IO CInt - - -widgetPathIterHasQclass :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - Word32 -> -- qname - m Bool -widgetPathIterHasQclass _obj pos qname = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_has_qclass _obj' pos qname - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WidgetPath::iter_has_qname --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_has_qname" gtk_widget_path_iter_has_qname :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - Word32 -> -- qname : TBasicType TUInt32 - IO CInt - - -widgetPathIterHasQname :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - Word32 -> -- qname - m Bool -widgetPathIterHasQname _obj pos qname = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_has_qname _obj' pos qname - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method WidgetPath::iter_has_qregion --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "qname", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_has_qregion" gtk_widget_path_iter_has_qregion :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - Word32 -> -- qname : TBasicType TUInt32 - Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags" - IO CInt - -{-# DEPRECATED widgetPathIterHasQregion ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterHasQregion :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - Word32 -> -- qname - m (Bool,[RegionFlags]) -widgetPathIterHasQregion _obj pos qname = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - flags <- allocMem :: IO (Ptr CUInt) - result <- gtk_widget_path_iter_has_qregion _obj' pos qname flags - let result' = (/= 0) result - flags' <- peek flags - let flags'' = wordToGFlags flags' - touchManagedPtr _obj - freeMem flags - return (result', flags'') - --- method WidgetPath::iter_has_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gtk" "RegionFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_has_region" gtk_widget_path_iter_has_region :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CString -> -- name : TBasicType TUTF8 - Ptr CUInt -> -- flags : TInterface "Gtk" "RegionFlags" - IO CInt - -{-# DEPRECATED widgetPathIterHasRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterHasRegion :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m (Bool,[RegionFlags]) -widgetPathIterHasRegion _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - flags <- allocMem :: IO (Ptr CUInt) - result <- gtk_widget_path_iter_has_region _obj' pos name' flags - let result' = (/= 0) result - flags' <- peek flags - let flags'' = wordToGFlags flags' - touchManagedPtr _obj - freeMem name' - freeMem flags - return (result', flags'') - --- method WidgetPath::iter_list_classes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_list_classes" gtk_widget_path_iter_list_classes :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO (Ptr (GSList CString)) - - -widgetPathIterListClasses :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m [T.Text] -widgetPathIterListClasses _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_list_classes _obj' pos - checkUnexpectedReturnNULL "gtk_widget_path_iter_list_classes" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method WidgetPath::iter_list_regions --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_list_regions" gtk_widget_path_iter_list_regions :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - IO (Ptr (GSList CString)) - -{-# DEPRECATED widgetPathIterListRegions ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterListRegions :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - m [T.Text] -widgetPathIterListRegions _obj pos = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_iter_list_regions _obj' pos - checkUnexpectedReturnNULL "gtk_widget_path_iter_list_regions" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method WidgetPath::iter_remove_class --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_remove_class" gtk_widget_path_iter_remove_class :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetPathIterRemoveClass :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m () -widgetPathIterRemoveClass _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - gtk_widget_path_iter_remove_class _obj' pos name' - touchManagedPtr _obj - freeMem name' - return () - --- method WidgetPath::iter_remove_region --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_remove_region" gtk_widget_path_iter_remove_region :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CString -> -- name : TBasicType TUTF8 - IO () - -{-# DEPRECATED widgetPathIterRemoveRegion ["(Since version 3.14)","The use of regions is deprecated."]#-} -widgetPathIterRemoveRegion :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m () -widgetPathIterRemoveRegion _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - gtk_widget_path_iter_remove_region _obj' pos name' - touchManagedPtr _obj - freeMem name' - return () - --- method WidgetPath::iter_set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_set_name" gtk_widget_path_iter_set_name :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CString -> -- name : TBasicType TUTF8 - IO () - - -widgetPathIterSetName :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - T.Text -> -- name - m () -widgetPathIterSetName _obj pos name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - gtk_widget_path_iter_set_name _obj' pos name' - touchManagedPtr _obj - freeMem name' - return () - --- method WidgetPath::iter_set_object_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_set_object_type" gtk_widget_path_iter_set_object_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CGType -> -- type : TBasicType TGType - IO () - - -widgetPathIterSetObjectType :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - GType -> -- type - m () -widgetPathIterSetObjectType _obj pos type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - gtk_widget_path_iter_set_object_type _obj' pos type_' - touchManagedPtr _obj - return () - --- method WidgetPath::iter_set_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gtk" "StateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_iter_set_state" gtk_widget_path_iter_set_state :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - Int32 -> -- pos : TBasicType TInt32 - CUInt -> -- state : TInterface "Gtk" "StateFlags" - IO () - - -widgetPathIterSetState :: - (MonadIO m) => - WidgetPath -> -- _obj - Int32 -> -- pos - [StateFlags] -> -- state - m () -widgetPathIterSetState _obj pos state = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let state' = gflagsToWord state - gtk_widget_path_iter_set_state _obj' pos state' - touchManagedPtr _obj - return () - --- method WidgetPath::length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_length" gtk_widget_path_length :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO Int32 - - -widgetPathLength :: - (MonadIO m) => - WidgetPath -> -- _obj - m Int32 -widgetPathLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_length _obj' - touchManagedPtr _obj - return result - --- method WidgetPath::prepend_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_prepend_type" gtk_widget_path_prepend_type :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - CGType -> -- type : TBasicType TGType - IO () - - -widgetPathPrependType :: - (MonadIO m) => - WidgetPath -> -- _obj - GType -> -- type - m () -widgetPathPrependType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - gtk_widget_path_prepend_type _obj' type_' - touchManagedPtr _obj - return () - --- method WidgetPath::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gtk" "WidgetPath" --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_ref" gtk_widget_path_ref :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO (Ptr WidgetPath) - - -widgetPathRef :: - (MonadIO m) => - WidgetPath -> -- _obj - m WidgetPath -widgetPathRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_ref _obj' - checkUnexpectedReturnNULL "gtk_widget_path_ref" result - result' <- (wrapBoxed WidgetPath) result - touchManagedPtr _obj - return result' - --- method WidgetPath::to_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_to_string" gtk_widget_path_to_string :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO CString - - -widgetPathToString :: - (MonadIO m) => - WidgetPath -> -- _obj - m T.Text -widgetPathToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gtk_widget_path_to_string _obj' - checkUnexpectedReturnNULL "gtk_widget_path_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method WidgetPath::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "WidgetPath", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gtk_widget_path_unref" gtk_widget_path_unref :: - Ptr WidgetPath -> -- _obj : TInterface "Gtk" "WidgetPath" - IO () - - -widgetPathUnref :: - (MonadIO m) => - WidgetPath -> -- _obj - m () -widgetPathUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gtk_widget_path_unref _obj' - touchManagedPtr _obj - return () - - 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,11 +0,0 @@ -module GI.Gtk.Structs.WidgetPath where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WidgetPath = WidgetPath (ForeignPtr WidgetPath) -instance BoxedObject WidgetPath where 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,32 +0,0 @@ - -{- | -Copyright : Will Thompson, 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 Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gtk.Types -import GI.Gtk.Callbacks - -newtype WindowGeometryInfo = WindowGeometryInfo (ForeignPtr WindowGeometryInfo) -noWindowGeometryInfo :: Maybe WindowGeometryInfo -noWindowGeometryInfo = Nothing - - 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,10 +0,0 @@ -module GI.Gtk.Structs.WindowGeometryInfo where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WindowGeometryInfo = WindowGeometryInfo (ForeignPtr WindowGeometryInfo) diff --git a/GI/Gtk/Types.hs b/GI/Gtk/Types.hs deleted file mode 100644 --- a/GI/Gtk/Types.hs +++ /dev/null @@ -1,658 +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.WidgetAuxInfo , - 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.WidgetAuxInfo -import {-# SOURCE #-} GI.Gtk.Structs.WidgetPath -import {-# SOURCE #-} GI.Gtk.Structs.WindowGeometryInfo - -import GI.Gtk.Enums -import GI.Gtk.Flags - diff --git a/GI/GtkAttributes.hs b/GI/GtkAttributes.hs new file mode 100644 --- /dev/null +++ b/GI/GtkAttributes.hs @@ -0,0 +1,24897 @@ +{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} + +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, + TypeFamilies, MultiParamTypeClasses, KindSignatures, + FlexibleInstances, UndecidableInstances, DataKinds, + OverloadedStrings, NegativeLiterals, FlexibleContexts #-} + +module GI.GtkAttributes where + +import Prelude () +import Data.GI.Base.ShortPrelude +import Data.Char +import Data.Int +import Data.Word +import qualified Data.ByteString.Char8 as B +import Data.ByteString.Char8 (ByteString) +import qualified Data.Map as Map +import Foreign.C +import Foreign.Ptr +import Foreign.ForeignPtr +import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) +import Foreign.Storable (peek, poke, sizeOf) +import Control.Applicative ((<$>)) +import Control.Exception (onException) +import Control.Monad.IO.Class +import qualified Data.Text as T + +import Data.GI.Base.Attributes hiding (get, set) +import Data.GI.Base.BasicTypes +import Data.GI.Base.BasicConversions +import Data.GI.Base.Closure +import Data.GI.Base.GError +import Data.GI.Base.GHashTable +import Data.GI.Base.GParamSpec +import Data.GI.Base.GVariant +import Data.GI.Base.GValue +import Data.GI.Base.ManagedPtr +import Data.GI.Base.Overloading +import Data.GI.Base.Properties hiding (new) +import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) +import Data.GI.Base.Utils + +import qualified GI.Atk as Atk +import qualified GI.AtkAttributes as AtkA +import qualified GI.Gdk as Gdk +import qualified GI.GdkAttributes as GdkA +import qualified GI.GdkPixbuf as GdkPixbuf +import qualified GI.GdkPixbufAttributes as GdkPixbufA +import qualified GI.Gio as Gio +import qualified GI.GioAttributes as GioA +import qualified GI.Pango as Pango +import qualified GI.PangoAttributes as PangoA +import qualified GI.Cairo as Cairo +import qualified GI.CairoAttributes as CairoA +import GI.Gtk + +-- VVV Prop "artists" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] +getAboutDialogArtists obj = liftIO $ getObjectPropertyStringArray obj "artists" + +setAboutDialogArtists :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () +setAboutDialogArtists obj val = liftIO $ setObjectPropertyStringArray obj "artists" val + +constructAboutDialogArtists :: [T.Text] -> IO ([Char], GValue) +constructAboutDialogArtists val = constructObjectPropertyStringArray "artists" 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 = "AboutDialog::artists" + attrGet _ = getAboutDialogArtists + attrSet _ = setAboutDialogArtists + attrConstruct _ = constructAboutDialogArtists + +-- VVV Prop "authors" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] +getAboutDialogAuthors obj = liftIO $ getObjectPropertyStringArray obj "authors" + +setAboutDialogAuthors :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () +setAboutDialogAuthors obj val = liftIO $ setObjectPropertyStringArray obj "authors" val + +constructAboutDialogAuthors :: [T.Text] -> IO ([Char], GValue) +constructAboutDialogAuthors val = constructObjectPropertyStringArray "authors" 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 = "AboutDialog::authors" + attrGet _ = getAboutDialogAuthors + attrSet _ = setAboutDialogAuthors + attrConstruct _ = constructAboutDialogAuthors + +-- VVV Prop "comments" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogComments obj = liftIO $ getObjectPropertyString obj "comments" + +setAboutDialogComments :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogComments obj val = liftIO $ setObjectPropertyString obj "comments" val + +constructAboutDialogComments :: T.Text -> IO ([Char], GValue) +constructAboutDialogComments val = constructObjectPropertyString "comments" val + +data AboutDialogCommentsPropertyInfo +instance AttrInfo AboutDialogCommentsPropertyInfo where + type AttrAllowedOps AboutDialogCommentsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogCommentsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogCommentsPropertyInfo = AboutDialogK + type AttrGetType AboutDialogCommentsPropertyInfo = T.Text + type AttrLabel AboutDialogCommentsPropertyInfo = "AboutDialog::comments" + attrGet _ = getAboutDialogComments + attrSet _ = setAboutDialogComments + attrConstruct _ = constructAboutDialogComments + +-- VVV Prop "copyright" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogCopyright obj = liftIO $ getObjectPropertyString obj "copyright" + +setAboutDialogCopyright :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogCopyright obj val = liftIO $ setObjectPropertyString obj "copyright" val + +constructAboutDialogCopyright :: T.Text -> IO ([Char], GValue) +constructAboutDialogCopyright val = constructObjectPropertyString "copyright" val + +data AboutDialogCopyrightPropertyInfo +instance AttrInfo AboutDialogCopyrightPropertyInfo where + type AttrAllowedOps AboutDialogCopyrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogCopyrightPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogCopyrightPropertyInfo = AboutDialogK + type AttrGetType AboutDialogCopyrightPropertyInfo = T.Text + type AttrLabel AboutDialogCopyrightPropertyInfo = "AboutDialog::copyright" + attrGet _ = getAboutDialogCopyright + attrSet _ = setAboutDialogCopyright + attrConstruct _ = constructAboutDialogCopyright + +-- VVV Prop "documenters" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> m [T.Text] +getAboutDialogDocumenters obj = liftIO $ getObjectPropertyStringArray obj "documenters" + +setAboutDialogDocumenters :: (MonadIO m, AboutDialogK o) => o -> [T.Text] -> m () +setAboutDialogDocumenters obj val = liftIO $ setObjectPropertyStringArray obj "documenters" val + +constructAboutDialogDocumenters :: [T.Text] -> IO ([Char], GValue) +constructAboutDialogDocumenters val = constructObjectPropertyStringArray "documenters" 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 = "AboutDialog::documenters" + attrGet _ = getAboutDialogDocumenters + attrSet _ = setAboutDialogDocumenters + attrConstruct _ = constructAboutDialogDocumenters + +-- VVV Prop "license" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogLicense obj = liftIO $ getObjectPropertyString obj "license" + +setAboutDialogLicense :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogLicense obj val = liftIO $ setObjectPropertyString obj "license" val + +constructAboutDialogLicense :: T.Text -> IO ([Char], GValue) +constructAboutDialogLicense val = constructObjectPropertyString "license" val + +data AboutDialogLicensePropertyInfo +instance AttrInfo AboutDialogLicensePropertyInfo where + type AttrAllowedOps AboutDialogLicensePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogLicensePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogLicensePropertyInfo = AboutDialogK + type AttrGetType AboutDialogLicensePropertyInfo = T.Text + type AttrLabel AboutDialogLicensePropertyInfo = "AboutDialog::license" + attrGet _ = getAboutDialogLicense + attrSet _ = setAboutDialogLicense + attrConstruct _ = constructAboutDialogLicense + +-- VVV Prop "license-type" + -- Type: TInterface "Gtk" "License" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "AboutDialog::license-type" + attrGet _ = getAboutDialogLicenseType + attrSet _ = setAboutDialogLicenseType + attrConstruct _ = constructAboutDialogLicenseType + +-- VVV Prop "logo" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogLogo :: (MonadIO m, AboutDialogK o) => o -> m GdkPixbuf.Pixbuf +getAboutDialogLogo obj = liftIO $ getObjectPropertyObject obj "logo" GdkPixbuf.Pixbuf + +setAboutDialogLogo :: (MonadIO m, AboutDialogK o, GdkPixbuf.PixbufK a) => o -> a -> m () +setAboutDialogLogo obj val = liftIO $ setObjectPropertyObject obj "logo" val + +constructAboutDialogLogo :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructAboutDialogLogo val = constructObjectPropertyObject "logo" val + +data AboutDialogLogoPropertyInfo +instance AttrInfo AboutDialogLogoPropertyInfo where + type AttrAllowedOps AboutDialogLogoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogLogoPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint AboutDialogLogoPropertyInfo = AboutDialogK + type AttrGetType AboutDialogLogoPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel AboutDialogLogoPropertyInfo = "AboutDialog::logo" + attrGet _ = getAboutDialogLogo + attrSet _ = setAboutDialogLogo + attrConstruct _ = constructAboutDialogLogo + +-- VVV Prop "logo-icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogLogoIconName obj = liftIO $ getObjectPropertyString obj "logo-icon-name" + +setAboutDialogLogoIconName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogLogoIconName obj val = liftIO $ setObjectPropertyString obj "logo-icon-name" val + +constructAboutDialogLogoIconName :: T.Text -> IO ([Char], GValue) +constructAboutDialogLogoIconName val = constructObjectPropertyString "logo-icon-name" val + +data AboutDialogLogoIconNamePropertyInfo +instance AttrInfo AboutDialogLogoIconNamePropertyInfo where + type AttrAllowedOps AboutDialogLogoIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogLogoIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogLogoIconNamePropertyInfo = AboutDialogK + type AttrGetType AboutDialogLogoIconNamePropertyInfo = T.Text + type AttrLabel AboutDialogLogoIconNamePropertyInfo = "AboutDialog::logo-icon-name" + attrGet _ = getAboutDialogLogoIconName + attrSet _ = setAboutDialogLogoIconName + attrConstruct _ = constructAboutDialogLogoIconName + +-- VVV Prop "program-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogProgramName obj = liftIO $ getObjectPropertyString obj "program-name" + +setAboutDialogProgramName :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogProgramName obj val = liftIO $ setObjectPropertyString obj "program-name" val + +constructAboutDialogProgramName :: T.Text -> IO ([Char], GValue) +constructAboutDialogProgramName val = constructObjectPropertyString "program-name" 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 = "AboutDialog::program-name" + attrGet _ = getAboutDialogProgramName + attrSet _ = setAboutDialogProgramName + attrConstruct _ = constructAboutDialogProgramName + +-- VVV Prop "translator-credits" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogTranslatorCredits obj = liftIO $ getObjectPropertyString obj "translator-credits" + +setAboutDialogTranslatorCredits :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogTranslatorCredits obj val = liftIO $ setObjectPropertyString obj "translator-credits" val + +constructAboutDialogTranslatorCredits :: T.Text -> IO ([Char], GValue) +constructAboutDialogTranslatorCredits val = constructObjectPropertyString "translator-credits" val + +data AboutDialogTranslatorCreditsPropertyInfo +instance AttrInfo AboutDialogTranslatorCreditsPropertyInfo where + type AttrAllowedOps AboutDialogTranslatorCreditsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogTranslatorCreditsPropertyInfo = AboutDialogK + type AttrGetType AboutDialogTranslatorCreditsPropertyInfo = T.Text + type AttrLabel AboutDialogTranslatorCreditsPropertyInfo = "AboutDialog::translator-credits" + attrGet _ = getAboutDialogTranslatorCredits + attrSet _ = setAboutDialogTranslatorCredits + attrConstruct _ = constructAboutDialogTranslatorCredits + +-- VVV Prop "version" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogVersion obj = liftIO $ getObjectPropertyString obj "version" + +setAboutDialogVersion :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogVersion obj val = liftIO $ setObjectPropertyString obj "version" val + +constructAboutDialogVersion :: T.Text -> IO ([Char], GValue) +constructAboutDialogVersion val = constructObjectPropertyString "version" val + +data AboutDialogVersionPropertyInfo +instance AttrInfo AboutDialogVersionPropertyInfo where + type AttrAllowedOps AboutDialogVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogVersionPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogVersionPropertyInfo = AboutDialogK + type AttrGetType AboutDialogVersionPropertyInfo = T.Text + type AttrLabel AboutDialogVersionPropertyInfo = "AboutDialog::version" + attrGet _ = getAboutDialogVersion + attrSet _ = setAboutDialogVersion + attrConstruct _ = constructAboutDialogVersion + +-- VVV Prop "website" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogWebsite obj = liftIO $ getObjectPropertyString obj "website" + +setAboutDialogWebsite :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogWebsite obj val = liftIO $ setObjectPropertyString obj "website" val + +constructAboutDialogWebsite :: T.Text -> IO ([Char], GValue) +constructAboutDialogWebsite val = constructObjectPropertyString "website" val + +data AboutDialogWebsitePropertyInfo +instance AttrInfo AboutDialogWebsitePropertyInfo where + type AttrAllowedOps AboutDialogWebsitePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AboutDialogWebsitePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AboutDialogWebsitePropertyInfo = AboutDialogK + type AttrGetType AboutDialogWebsitePropertyInfo = T.Text + type AttrLabel AboutDialogWebsitePropertyInfo = "AboutDialog::website" + attrGet _ = getAboutDialogWebsite + attrSet _ = setAboutDialogWebsite + attrConstruct _ = constructAboutDialogWebsite + +-- VVV Prop "website-label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> m T.Text +getAboutDialogWebsiteLabel obj = liftIO $ getObjectPropertyString obj "website-label" + +setAboutDialogWebsiteLabel :: (MonadIO m, AboutDialogK o) => o -> T.Text -> m () +setAboutDialogWebsiteLabel obj val = liftIO $ setObjectPropertyString obj "website-label" val + +constructAboutDialogWebsiteLabel :: T.Text -> IO ([Char], GValue) +constructAboutDialogWebsiteLabel val = constructObjectPropertyString "website-label" 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 = "AboutDialog::website-label" + attrGet _ = getAboutDialogWebsiteLabel + attrSet _ = setAboutDialogWebsiteLabel + attrConstruct _ = constructAboutDialogWebsiteLabel + +-- VVV Prop "wrap-license" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "AboutDialog::wrap-license" + attrGet _ = getAboutDialogWrapLicense + attrSet _ = setAboutDialogWrapLicense + attrConstruct _ = constructAboutDialogWrapLicense + +type instance AttributeList AboutDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("artists", AboutDialogArtistsPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("authors", AboutDialogAuthorsPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("comments", AboutDialogCommentsPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("copyright", AboutDialogCopyrightPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("documenters", AboutDialogDocumentersPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("license", AboutDialogLicensePropertyInfo), '("license-type", AboutDialogLicenseTypePropertyInfo), '("logo", AboutDialogLogoPropertyInfo), '("logo-icon-name", AboutDialogLogoIconNamePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("program-name", AboutDialogProgramNamePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("translator-credits", AboutDialogTranslatorCreditsPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("version", AboutDialogVersionPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("website", AboutDialogWebsitePropertyInfo), '("website-label", AboutDialogWebsiteLabelPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo), '("wrap-license", AboutDialogWrapLicensePropertyInfo)] + +-- VVV Prop "is-locked" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "AccelGroup::is-locked" + attrGet _ = getAccelGroupIsLocked + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "modifier-mask" + -- Type: TInterface "Gdk" "ModifierType" + -- Flags: [PropertyReadable] + +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 = "AccelGroup::modifier-mask" + attrGet _ = getAccelGroupModifierMask + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList AccelGroup = '[ '("is-locked", AccelGroupIsLockedPropertyInfo), '("modifier-mask", AccelGroupModifierMaskPropertyInfo)] + +--- XXX Duplicated object with different types: + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], 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], propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], 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] + +getAccelLabelAccelClosure :: (MonadIO m, AccelLabelK o) => o -> m 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" val + +constructAccelLabelAccelClosure :: Closure -> IO ([Char], GValue) +constructAccelLabelAccelClosure val = constructObjectPropertyBoxed "accel-closure" val + +data AccelLabelAccelClosurePropertyInfo +instance AttrInfo AccelLabelAccelClosurePropertyInfo where + type AttrAllowedOps AccelLabelAccelClosurePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AccelLabelAccelClosurePropertyInfo = (~) Closure + type AttrBaseTypeConstraint AccelLabelAccelClosurePropertyInfo = AccelLabelK + type AttrGetType AccelLabelAccelClosurePropertyInfo = Closure + type AttrLabel AccelLabelAccelClosurePropertyInfo = "AccelLabel::accel-closure" + attrGet _ = getAccelLabelAccelClosure + attrSet _ = setAccelLabelAccelClosure + attrConstruct _ = constructAccelLabelAccelClosure + +-- VVV Prop "accel-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o) => o -> m Widget +getAccelLabelAccelWidget obj = liftIO $ getObjectPropertyObject obj "accel-widget" Widget + +setAccelLabelAccelWidget :: (MonadIO m, AccelLabelK o, WidgetK a) => o -> a -> m () +setAccelLabelAccelWidget obj val = liftIO $ setObjectPropertyObject obj "accel-widget" val + +constructAccelLabelAccelWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructAccelLabelAccelWidget val = constructObjectPropertyObject "accel-widget" 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 = "AccelLabel::accel-widget" + attrGet _ = getAccelLabelAccelWidget + attrSet _ = setAccelLabelAccelWidget + attrConstruct _ = constructAccelLabelAccelWidget + +type instance AttributeList AccelLabel = '[ '("accel-closure", AccelLabelAccelClosurePropertyInfo), '("accel-widget", AccelLabelAccelWidgetPropertyInfo), '("angle", LabelAnglePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", LabelCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-width-chars", LabelMaxWidthCharsPropertyInfo), '("mnemonic-keyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonic-widget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selection-bound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("single-line-mode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("track-visited-links", LabelTrackVisitedLinksPropertyInfo), '("use-markup", LabelUseMarkupPropertyInfo), '("use-underline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", LabelWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrap-mode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] + +type instance AttributeList AccelMap = '[ ] + +-- VVV Prop "widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getAccessibleWidget :: (MonadIO m, AccessibleK o) => o -> m Widget +getAccessibleWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget + +setAccessibleWidget :: (MonadIO m, AccessibleK o, WidgetK a) => o -> a -> m () +setAccessibleWidget obj val = liftIO $ setObjectPropertyObject obj "widget" val + +constructAccessibleWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructAccessibleWidget val = constructObjectPropertyObject "widget" val + +data AccessibleWidgetPropertyInfo +instance AttrInfo AccessibleWidgetPropertyInfo where + type AttrAllowedOps AccessibleWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AccessibleWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint AccessibleWidgetPropertyInfo = AccessibleK + type AttrGetType AccessibleWidgetPropertyInfo = Widget + type AttrLabel AccessibleWidgetPropertyInfo = "Accessible::widget" + attrGet _ = getAccessibleWidget + attrSet _ = setAccessibleWidget + attrConstruct _ = constructAccessibleWidget + +type instance AttributeList Accessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "action-group" + -- Type: TInterface "Gtk" "ActionGroup" + -- Flags: [PropertyReadable,PropertyWritable] + +getActionActionGroup :: (MonadIO m, ActionK o) => o -> m 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" val + +constructActionActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue) +constructActionActionGroup val = constructObjectPropertyObject "action-group" val + +data ActionActionGroupPropertyInfo +instance AttrInfo ActionActionGroupPropertyInfo where + type AttrAllowedOps ActionActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionActionGroupPropertyInfo = ActionGroupK + type AttrBaseTypeConstraint ActionActionGroupPropertyInfo = ActionK + type AttrGetType ActionActionGroupPropertyInfo = ActionGroup + type AttrLabel ActionActionGroupPropertyInfo = "Action::action-group" + attrGet _ = getActionActionGroup + attrSet _ = setActionActionGroup + attrConstruct _ = constructActionActionGroup + +-- VVV Prop "always-show-image" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Action::always-show-image" + attrGet _ = getActionAlwaysShowImage + attrSet _ = setActionAlwaysShowImage + attrConstruct _ = constructActionAlwaysShowImage + +-- VVV Prop "gicon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getActionGicon :: (MonadIO m, ActionK o) => o -> m Gio.Icon +getActionGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon + +setActionGicon :: (MonadIO m, ActionK o, Gio.IconK a) => o -> a -> m () +setActionGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val + +constructActionGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructActionGicon val = constructObjectPropertyObject "gicon" 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 = "Action::gicon" + attrGet _ = getActionGicon + attrSet _ = setActionGicon + attrConstruct _ = constructActionGicon + +-- VVV Prop "hide-if-empty" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Action::hide-if-empty" + attrGet _ = getActionHideIfEmpty + attrSet _ = setActionHideIfEmpty + attrConstruct _ = constructActionHideIfEmpty + +-- VVV Prop "icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getActionIconName :: (MonadIO m, ActionK o) => o -> m T.Text +getActionIconName obj = liftIO $ getObjectPropertyString obj "icon-name" + +setActionIconName :: (MonadIO m, ActionK o) => o -> T.Text -> m () +setActionIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val + +constructActionIconName :: T.Text -> IO ([Char], GValue) +constructActionIconName val = constructObjectPropertyString "icon-name" 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 = "Action::icon-name" + attrGet _ = getActionIconName + attrSet _ = setActionIconName + attrConstruct _ = constructActionIconName + +-- VVV Prop "is-important" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Action::is-important" + attrGet _ = getActionIsImportant + attrSet _ = setActionIsImportant + attrConstruct _ = constructActionIsImportant + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getActionLabel :: (MonadIO m, ActionK o) => o -> m T.Text +getActionLabel obj = liftIO $ getObjectPropertyString obj "label" + +setActionLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m () +setActionLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructActionLabel :: T.Text -> IO ([Char], GValue) +constructActionLabel val = constructObjectPropertyString "label" 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 = "Action::label" + attrGet _ = getActionLabel + attrSet _ = setActionLabel + attrConstruct _ = constructActionLabel + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getActionName :: (MonadIO m, ActionK o) => o -> m T.Text +getActionName obj = liftIO $ getObjectPropertyString obj "name" + +constructActionName :: T.Text -> IO ([Char], GValue) +constructActionName val = constructObjectPropertyString "name" val + +data ActionNamePropertyInfo +instance AttrInfo ActionNamePropertyInfo where + type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK + type AttrGetType ActionNamePropertyInfo = T.Text + type AttrLabel ActionNamePropertyInfo = "Action::name" + attrGet _ = getActionName + attrSet _ = undefined + attrConstruct _ = constructActionName + +-- VVV Prop "sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Action::sensitive" + attrGet _ = getActionSensitive + attrSet _ = setActionSensitive + attrConstruct _ = constructActionSensitive + +-- VVV Prop "short-label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getActionShortLabel :: (MonadIO m, ActionK o) => o -> m T.Text +getActionShortLabel obj = liftIO $ getObjectPropertyString obj "short-label" + +setActionShortLabel :: (MonadIO m, ActionK o) => o -> T.Text -> m () +setActionShortLabel obj val = liftIO $ setObjectPropertyString obj "short-label" val + +constructActionShortLabel :: T.Text -> IO ([Char], GValue) +constructActionShortLabel val = constructObjectPropertyString "short-label" 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 = "Action::short-label" + attrGet _ = getActionShortLabel + attrSet _ = setActionShortLabel + attrConstruct _ = constructActionShortLabel + +-- VVV Prop "stock-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getActionStockId :: (MonadIO m, ActionK o) => o -> m T.Text +getActionStockId obj = liftIO $ getObjectPropertyString obj "stock-id" + +setActionStockId :: (MonadIO m, ActionK o) => o -> T.Text -> m () +setActionStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val + +constructActionStockId :: T.Text -> IO ([Char], GValue) +constructActionStockId val = constructObjectPropertyString "stock-id" 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 = "Action::stock-id" + attrGet _ = getActionStockId + attrSet _ = setActionStockId + attrConstruct _ = constructActionStockId + +-- VVV Prop "tooltip" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getActionTooltip :: (MonadIO m, ActionK o) => o -> m T.Text +getActionTooltip obj = liftIO $ getObjectPropertyString obj "tooltip" + +setActionTooltip :: (MonadIO m, ActionK o) => o -> T.Text -> m () +setActionTooltip obj val = liftIO $ setObjectPropertyString obj "tooltip" val + +constructActionTooltip :: T.Text -> IO ([Char], GValue) +constructActionTooltip val = constructObjectPropertyString "tooltip" 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 = "Action::tooltip" + attrGet _ = getActionTooltip + attrSet _ = setActionTooltip + attrConstruct _ = constructActionTooltip + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Action::visible" + attrGet _ = getActionVisible + attrSet _ = setActionVisible + attrConstruct _ = constructActionVisible + +-- VVV Prop "visible-horizontal" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Action::visible-horizontal" + attrGet _ = getActionVisibleHorizontal + attrSet _ = setActionVisibleHorizontal + attrConstruct _ = constructActionVisibleHorizontal + +-- VVV Prop "visible-overflown" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Action::visible-overflown" + attrGet _ = getActionVisibleOverflown + attrSet _ = setActionVisibleOverflown + attrConstruct _ = constructActionVisibleOverflown + +-- VVV Prop "visible-vertical" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Action::visible-vertical" + attrGet _ = getActionVisibleVertical + attrSet _ = setActionVisibleVertical + attrConstruct _ = constructActionVisibleVertical + +type instance AttributeList Action = '[ '("action-group", ActionActionGroupPropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] + +type instance AttributeList ActionBar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "accel-group" + -- Type: TInterface "Gtk" "AccelGroup" + -- Flags: [PropertyReadable,PropertyWritable] + +getActionGroupAccelGroup :: (MonadIO m, ActionGroupK o) => o -> m AccelGroup +getActionGroupAccelGroup obj = liftIO $ getObjectPropertyObject obj "accel-group" AccelGroup + +setActionGroupAccelGroup :: (MonadIO m, ActionGroupK o, AccelGroupK a) => o -> a -> m () +setActionGroupAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val + +constructActionGroupAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) +constructActionGroupAccelGroup val = constructObjectPropertyObject "accel-group" val + +data ActionGroupAccelGroupPropertyInfo +instance AttrInfo ActionGroupAccelGroupPropertyInfo where + type AttrAllowedOps ActionGroupAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionGroupAccelGroupPropertyInfo = AccelGroupK + type AttrBaseTypeConstraint ActionGroupAccelGroupPropertyInfo = ActionGroupK + type AttrGetType ActionGroupAccelGroupPropertyInfo = AccelGroup + type AttrLabel ActionGroupAccelGroupPropertyInfo = "ActionGroup::accel-group" + attrGet _ = getActionGroupAccelGroup + attrSet _ = setActionGroupAccelGroup + attrConstruct _ = constructActionGroupAccelGroup + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getActionGroupName :: (MonadIO m, ActionGroupK o) => o -> m T.Text +getActionGroupName obj = liftIO $ getObjectPropertyString obj "name" + +constructActionGroupName :: T.Text -> IO ([Char], GValue) +constructActionGroupName val = constructObjectPropertyString "name" val + +data ActionGroupNamePropertyInfo +instance AttrInfo ActionGroupNamePropertyInfo where + type AttrAllowedOps ActionGroupNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionGroupNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ActionGroupNamePropertyInfo = ActionGroupK + type AttrGetType ActionGroupNamePropertyInfo = T.Text + type AttrLabel ActionGroupNamePropertyInfo = "ActionGroup::name" + attrGet _ = getActionGroupName + attrSet _ = undefined + attrConstruct _ = constructActionGroupName + +-- VVV Prop "sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ActionGroup::sensitive" + attrGet _ = getActionGroupSensitive + attrSet _ = setActionGroupSensitive + attrConstruct _ = constructActionGroupSensitive + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ActionGroup::visible" + attrGet _ = getActionGroupVisible + attrSet _ = setActionGroupVisible + attrConstruct _ = constructActionGroupVisible + +type instance AttributeList ActionGroup = '[ '("accel-group", ActionGroupAccelGroupPropertyInfo), '("name", ActionGroupNamePropertyInfo), '("sensitive", ActionGroupSensitivePropertyInfo), '("visible", ActionGroupVisiblePropertyInfo)] + +-- VVV Prop "action-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getActionableActionName :: (MonadIO m, ActionableK o) => o -> m T.Text +getActionableActionName obj = liftIO $ getObjectPropertyString obj "action-name" + +setActionableActionName :: (MonadIO m, ActionableK o) => o -> T.Text -> m () +setActionableActionName obj val = liftIO $ setObjectPropertyString obj "action-name" val + +constructActionableActionName :: T.Text -> IO ([Char], GValue) +constructActionableActionName val = constructObjectPropertyString "action-name" 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 = "Actionable::action-name" + attrGet _ = getActionableActionName + attrSet _ = setActionableActionName + attrConstruct _ = constructActionableActionName + +-- VVV Prop "action-target" + -- Type: TVariant + -- Flags: [PropertyReadable,PropertyWritable] + +getActionableActionTarget :: (MonadIO m, ActionableK o) => o -> m GVariant +getActionableActionTarget obj = liftIO $ getObjectPropertyVariant obj "action-target" + +setActionableActionTarget :: (MonadIO m, ActionableK o) => o -> GVariant -> m () +setActionableActionTarget obj val = liftIO $ setObjectPropertyVariant obj "action-target" val + +constructActionableActionTarget :: GVariant -> IO ([Char], GValue) +constructActionableActionTarget val = constructObjectPropertyVariant "action-target" val + +data ActionableActionTargetPropertyInfo +instance AttrInfo ActionableActionTargetPropertyInfo where + type AttrAllowedOps ActionableActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ActionableActionTargetPropertyInfo = (~) GVariant + type AttrBaseTypeConstraint ActionableActionTargetPropertyInfo = ActionableK + type AttrGetType ActionableActionTargetPropertyInfo = GVariant + type AttrLabel ActionableActionTargetPropertyInfo = "Actionable::action-target" + attrGet _ = getActionableActionTarget + attrSet _ = setActionableActionTarget + attrConstruct _ = constructActionableActionTarget + +type instance AttributeList Actionable = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "related-action" + -- Type: TInterface "Gtk" "Action" + -- Flags: [PropertyReadable,PropertyWritable] + +getActivatableRelatedAction :: (MonadIO m, ActivatableK o) => o -> m Action +getActivatableRelatedAction obj = liftIO $ getObjectPropertyObject obj "related-action" Action + +setActivatableRelatedAction :: (MonadIO m, ActivatableK o, ActionK a) => o -> a -> m () +setActivatableRelatedAction obj val = liftIO $ setObjectPropertyObject obj "related-action" val + +constructActivatableRelatedAction :: (ActionK a) => a -> IO ([Char], GValue) +constructActivatableRelatedAction val = constructObjectPropertyObject "related-action" 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 = "Activatable::related-action" + attrGet _ = getActivatableRelatedAction + attrSet _ = setActivatableRelatedAction + attrConstruct _ = constructActivatableRelatedAction + +-- VVV Prop "use-action-appearance" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Activatable::use-action-appearance" + attrGet _ = getActivatableUseActionAppearance + attrSet _ = setActivatableUseActionAppearance + attrConstruct _ = constructActivatableUseActionAppearance + +type instance AttributeList Activatable = '[ '("related-action", ActivatableRelatedActionPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo)] + +-- VVV Prop "lower" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Adjustment::lower" + attrGet _ = getAdjustmentLower + attrSet _ = setAdjustmentLower + attrConstruct _ = constructAdjustmentLower + +-- VVV Prop "page-increment" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Adjustment::page-increment" + attrGet _ = getAdjustmentPageIncrement + attrSet _ = setAdjustmentPageIncrement + attrConstruct _ = constructAdjustmentPageIncrement + +-- VVV Prop "page-size" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Adjustment::page-size" + attrGet _ = getAdjustmentPageSize + attrSet _ = setAdjustmentPageSize + attrConstruct _ = constructAdjustmentPageSize + +-- VVV Prop "step-increment" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Adjustment::step-increment" + attrGet _ = getAdjustmentStepIncrement + attrSet _ = setAdjustmentStepIncrement + attrConstruct _ = constructAdjustmentStepIncrement + +-- VVV Prop "upper" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Adjustment::upper" + attrGet _ = getAdjustmentUpper + attrSet _ = setAdjustmentUpper + attrConstruct _ = constructAdjustmentUpper + +-- VVV Prop "value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Adjustment::value" + attrGet _ = getAdjustmentValue + attrSet _ = setAdjustmentValue + attrConstruct _ = constructAdjustmentValue + +type instance AttributeList Adjustment = '[ '("lower", AdjustmentLowerPropertyInfo), '("page-increment", AdjustmentPageIncrementPropertyInfo), '("page-size", AdjustmentPageSizePropertyInfo), '("step-increment", AdjustmentStepIncrementPropertyInfo), '("upper", AdjustmentUpperPropertyInfo), '("value", AdjustmentValuePropertyInfo)] + +-- VVV Prop "bottom-padding" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 +getAlignmentBottomPadding obj = liftIO $ getObjectPropertyCUInt obj "bottom-padding" + +setAlignmentBottomPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () +setAlignmentBottomPadding obj val = liftIO $ setObjectPropertyCUInt obj "bottom-padding" val + +constructAlignmentBottomPadding :: Word32 -> IO ([Char], GValue) +constructAlignmentBottomPadding val = constructObjectPropertyCUInt "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 = "Alignment::bottom-padding" + attrGet _ = getAlignmentBottomPadding + attrSet _ = setAlignmentBottomPadding + attrConstruct _ = constructAlignmentBottomPadding + +-- VVV Prop "left-padding" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 +getAlignmentLeftPadding obj = liftIO $ getObjectPropertyCUInt obj "left-padding" + +setAlignmentLeftPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () +setAlignmentLeftPadding obj val = liftIO $ setObjectPropertyCUInt obj "left-padding" val + +constructAlignmentLeftPadding :: Word32 -> IO ([Char], GValue) +constructAlignmentLeftPadding val = constructObjectPropertyCUInt "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 = "Alignment::left-padding" + attrGet _ = getAlignmentLeftPadding + attrSet _ = setAlignmentLeftPadding + attrConstruct _ = constructAlignmentLeftPadding + +-- VVV Prop "right-padding" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 +getAlignmentRightPadding obj = liftIO $ getObjectPropertyCUInt obj "right-padding" + +setAlignmentRightPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () +setAlignmentRightPadding obj val = liftIO $ setObjectPropertyCUInt obj "right-padding" val + +constructAlignmentRightPadding :: Word32 -> IO ([Char], GValue) +constructAlignmentRightPadding val = constructObjectPropertyCUInt "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 = "Alignment::right-padding" + attrGet _ = getAlignmentRightPadding + attrSet _ = setAlignmentRightPadding + attrConstruct _ = constructAlignmentRightPadding + +-- VVV Prop "top-padding" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> m Word32 +getAlignmentTopPadding obj = liftIO $ getObjectPropertyCUInt obj "top-padding" + +setAlignmentTopPadding :: (MonadIO m, AlignmentK o) => o -> Word32 -> m () +setAlignmentTopPadding obj val = liftIO $ setObjectPropertyCUInt obj "top-padding" val + +constructAlignmentTopPadding :: Word32 -> IO ([Char], GValue) +constructAlignmentTopPadding val = constructObjectPropertyCUInt "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 = "Alignment::top-padding" + attrGet _ = getAlignmentTopPadding + attrSet _ = setAlignmentTopPadding + attrConstruct _ = constructAlignmentTopPadding + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Alignment::xalign" + attrGet _ = getAlignmentXalign + attrSet _ = setAlignmentXalign + attrConstruct _ = constructAlignmentXalign + +-- VVV Prop "xscale" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Alignment::xscale" + attrGet _ = getAlignmentXscale + attrSet _ = setAlignmentXscale + attrConstruct _ = constructAlignmentXscale + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Alignment::yalign" + attrGet _ = getAlignmentYalign + attrSet _ = setAlignmentYalign + attrConstruct _ = constructAlignmentYalign + +-- VVV Prop "yscale" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Alignment::yscale" + attrGet _ = getAlignmentYscale + attrSet _ = setAlignmentYscale + attrConstruct _ = constructAlignmentYscale + +type instance AttributeList Alignment = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("bottom-padding", AlignmentBottomPaddingPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("left-padding", AlignmentLeftPaddingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-padding", AlignmentRightPaddingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("top-padding", AlignmentTopPaddingPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AlignmentXalignPropertyInfo), '("xscale", AlignmentXscalePropertyInfo), '("yalign", AlignmentYalignPropertyInfo), '("yscale", AlignmentYscalePropertyInfo)] + +-- VVV Prop "content-type" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAppChooserContentType :: (MonadIO m, AppChooserK o) => o -> m T.Text +getAppChooserContentType obj = liftIO $ getObjectPropertyString obj "content-type" + +constructAppChooserContentType :: T.Text -> IO ([Char], GValue) +constructAppChooserContentType val = constructObjectPropertyString "content-type" val + +data AppChooserContentTypePropertyInfo +instance AttrInfo AppChooserContentTypePropertyInfo where + type AttrAllowedOps AppChooserContentTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserContentTypePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AppChooserContentTypePropertyInfo = AppChooserK + type AttrGetType AppChooserContentTypePropertyInfo = T.Text + type AttrLabel AppChooserContentTypePropertyInfo = "AppChooser::content-type" + attrGet _ = getAppChooserContentType + attrSet _ = undefined + attrConstruct _ = constructAppChooserContentType + +type instance AttributeList AppChooser = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "heading" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> m T.Text +getAppChooserButtonHeading obj = liftIO $ getObjectPropertyString obj "heading" + +setAppChooserButtonHeading :: (MonadIO m, AppChooserButtonK o) => o -> T.Text -> m () +setAppChooserButtonHeading obj val = liftIO $ setObjectPropertyString obj "heading" val + +constructAppChooserButtonHeading :: T.Text -> IO ([Char], GValue) +constructAppChooserButtonHeading val = constructObjectPropertyString "heading" 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 = "AppChooserButton::heading" + attrGet _ = getAppChooserButtonHeading + attrSet _ = setAppChooserButtonHeading + attrConstruct _ = constructAppChooserButtonHeading + +-- VVV Prop "show-default-item" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "AppChooserButton::show-default-item" + attrGet _ = getAppChooserButtonShowDefaultItem + attrSet _ = setAppChooserButtonShowDefaultItem + attrConstruct _ = constructAppChooserButtonShowDefaultItem + +-- VVV Prop "show-dialog-item" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "AppChooserButton::show-dialog-item" + attrGet _ = getAppChooserButtonShowDialogItem + attrSet _ = setAppChooserButtonShowDialogItem + attrConstruct _ = constructAppChooserButtonShowDialogItem + +type instance AttributeList AppChooserButton = '[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("heading", AppChooserButtonHeadingPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-default-item", AppChooserButtonShowDefaultItemPropertyInfo), '("show-dialog-item", AppChooserButtonShowDialogItemPropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] + +-- VVV Prop "gfile" + -- Type: TInterface "Gio" "File" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAppChooserDialogGfile :: (MonadIO m, AppChooserDialogK o) => o -> m Gio.File +getAppChooserDialogGfile obj = liftIO $ getObjectPropertyObject obj "gfile" Gio.File + +constructAppChooserDialogGfile :: (Gio.FileK a) => a -> IO ([Char], GValue) +constructAppChooserDialogGfile val = constructObjectPropertyObject "gfile" val + +data AppChooserDialogGfilePropertyInfo +instance AttrInfo AppChooserDialogGfilePropertyInfo where + type AttrAllowedOps AppChooserDialogGfilePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AppChooserDialogGfilePropertyInfo = Gio.FileK + type AttrBaseTypeConstraint AppChooserDialogGfilePropertyInfo = AppChooserDialogK + type AttrGetType AppChooserDialogGfilePropertyInfo = Gio.File + type AttrLabel AppChooserDialogGfilePropertyInfo = "AppChooserDialog::gfile" + attrGet _ = getAppChooserDialogGfile + attrSet _ = undefined + attrConstruct _ = constructAppChooserDialogGfile + +-- VVV Prop "heading" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> m T.Text +getAppChooserDialogHeading obj = liftIO $ getObjectPropertyString obj "heading" + +setAppChooserDialogHeading :: (MonadIO m, AppChooserDialogK o) => o -> T.Text -> m () +setAppChooserDialogHeading obj val = liftIO $ setObjectPropertyString obj "heading" val + +constructAppChooserDialogHeading :: T.Text -> IO ([Char], GValue) +constructAppChooserDialogHeading val = constructObjectPropertyString "heading" 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 = "AppChooserDialog::heading" + attrGet _ = getAppChooserDialogHeading + attrSet _ = setAppChooserDialogHeading + attrConstruct _ = constructAppChooserDialogHeading + +type instance AttributeList AppChooserDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gfile", AppChooserDialogGfilePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("heading", AppChooserDialogHeadingPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "default-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> m T.Text +getAppChooserWidgetDefaultText obj = liftIO $ getObjectPropertyString obj "default-text" + +setAppChooserWidgetDefaultText :: (MonadIO m, AppChooserWidgetK o) => o -> T.Text -> m () +setAppChooserWidgetDefaultText obj val = liftIO $ setObjectPropertyString obj "default-text" val + +constructAppChooserWidgetDefaultText :: T.Text -> IO ([Char], GValue) +constructAppChooserWidgetDefaultText val = constructObjectPropertyString "default-text" 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 = "AppChooserWidget::default-text" + attrGet _ = getAppChooserWidgetDefaultText + attrSet _ = setAppChooserWidgetDefaultText + attrConstruct _ = constructAppChooserWidgetDefaultText + +-- VVV Prop "show-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "AppChooserWidget::show-all" + attrGet _ = getAppChooserWidgetShowAll + attrSet _ = setAppChooserWidgetShowAll + attrConstruct _ = constructAppChooserWidgetShowAll + +-- VVV Prop "show-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "AppChooserWidget::show-default" + attrGet _ = getAppChooserWidgetShowDefault + attrSet _ = setAppChooserWidgetShowDefault + attrConstruct _ = constructAppChooserWidgetShowDefault + +-- VVV Prop "show-fallback" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "AppChooserWidget::show-fallback" + attrGet _ = getAppChooserWidgetShowFallback + attrSet _ = setAppChooserWidgetShowFallback + attrConstruct _ = constructAppChooserWidgetShowFallback + +-- VVV Prop "show-other" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "AppChooserWidget::show-other" + attrGet _ = getAppChooserWidgetShowOther + attrSet _ = setAppChooserWidgetShowOther + attrConstruct _ = constructAppChooserWidgetShowOther + +-- VVV Prop "show-recommended" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "AppChooserWidget::show-recommended" + attrGet _ = getAppChooserWidgetShowRecommended + attrSet _ = setAppChooserWidgetShowRecommended + attrConstruct _ = constructAppChooserWidgetShowRecommended + +type instance AttributeList AppChooserWidget = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("content-type", AppChooserContentTypePropertyInfo), '("default-text", AppChooserWidgetDefaultTextPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-all", AppChooserWidgetShowAllPropertyInfo), '("show-default", AppChooserWidgetShowDefaultPropertyInfo), '("show-fallback", AppChooserWidgetShowFallbackPropertyInfo), '("show-other", AppChooserWidgetShowOtherPropertyInfo), '("show-recommended", AppChooserWidgetShowRecommendedPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "active-window" + -- Type: TInterface "Gtk" "Window" + -- Flags: [PropertyReadable] + +getApplicationActiveWindow :: (MonadIO m, ApplicationK o) => o -> m Window +getApplicationActiveWindow obj = liftIO $ getObjectPropertyObject obj "active-window" Window + +data ApplicationActiveWindowPropertyInfo +instance AttrInfo ApplicationActiveWindowPropertyInfo where + type AttrAllowedOps ApplicationActiveWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ApplicationActiveWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint ApplicationActiveWindowPropertyInfo = ApplicationK + type AttrGetType ApplicationActiveWindowPropertyInfo = Window + type AttrLabel ApplicationActiveWindowPropertyInfo = "Application::active-window" + attrGet _ = getApplicationActiveWindow + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "app-menu" + -- Type: TInterface "Gio" "MenuModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getApplicationAppMenu :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel +getApplicationAppMenu obj = liftIO $ 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" val + +constructApplicationAppMenu :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) +constructApplicationAppMenu val = constructObjectPropertyObject "app-menu" val + +data ApplicationAppMenuPropertyInfo +instance AttrInfo ApplicationAppMenuPropertyInfo where + type AttrAllowedOps ApplicationAppMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ApplicationAppMenuPropertyInfo = Gio.MenuModelK + type AttrBaseTypeConstraint ApplicationAppMenuPropertyInfo = ApplicationK + type AttrGetType ApplicationAppMenuPropertyInfo = Gio.MenuModel + type AttrLabel ApplicationAppMenuPropertyInfo = "Application::app-menu" + attrGet _ = getApplicationAppMenu + attrSet _ = setApplicationAppMenu + attrConstruct _ = constructApplicationAppMenu + +-- VVV Prop "menubar" + -- Type: TInterface "Gio" "MenuModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getApplicationMenubar :: (MonadIO m, ApplicationK o) => o -> m Gio.MenuModel +getApplicationMenubar obj = liftIO $ getObjectPropertyObject obj "menubar" Gio.MenuModel + +setApplicationMenubar :: (MonadIO m, ApplicationK o, Gio.MenuModelK a) => o -> a -> m () +setApplicationMenubar obj val = liftIO $ setObjectPropertyObject obj "menubar" val + +constructApplicationMenubar :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) +constructApplicationMenubar val = constructObjectPropertyObject "menubar" val + +data ApplicationMenubarPropertyInfo +instance AttrInfo ApplicationMenubarPropertyInfo where + type AttrAllowedOps ApplicationMenubarPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ApplicationMenubarPropertyInfo = Gio.MenuModelK + type AttrBaseTypeConstraint ApplicationMenubarPropertyInfo = ApplicationK + type AttrGetType ApplicationMenubarPropertyInfo = Gio.MenuModel + type AttrLabel ApplicationMenubarPropertyInfo = "Application::menubar" + attrGet _ = getApplicationMenubar + attrSet _ = setApplicationMenubar + attrConstruct _ = constructApplicationMenubar + +-- VVV Prop "register-session" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Application::register-session" + attrGet _ = getApplicationRegisterSession + attrSet _ = setApplicationRegisterSession + attrConstruct _ = constructApplicationRegisterSession + +type instance AttributeList Application = '[ '("action-group", GioA.ApplicationActionGroupPropertyInfo), '("active-window", ApplicationActiveWindowPropertyInfo), '("app-menu", ApplicationAppMenuPropertyInfo), '("application-id", GioA.ApplicationApplicationIdPropertyInfo), '("flags", GioA.ApplicationFlagsPropertyInfo), '("inactivity-timeout", GioA.ApplicationInactivityTimeoutPropertyInfo), '("is-busy", GioA.ApplicationIsBusyPropertyInfo), '("is-registered", GioA.ApplicationIsRegisteredPropertyInfo), '("is-remote", GioA.ApplicationIsRemotePropertyInfo), '("menubar", ApplicationMenubarPropertyInfo), '("register-session", ApplicationRegisterSessionPropertyInfo), '("resource-base-path", GioA.ApplicationResourceBasePathPropertyInfo)] + +-- VVV Prop "show-menubar" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "ApplicationWindow::show-menubar" + attrGet _ = getApplicationWindowShowMenubar + attrSet _ = setApplicationWindowShowMenubar + attrConstruct _ = constructApplicationWindowShowMenubar + +type instance AttributeList ApplicationWindow = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-menubar", ApplicationWindowShowMenubarPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "arrow-type" + -- Type: TInterface "Gtk" "ArrowType" + -- Flags: [PropertyReadable,PropertyWritable] + +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::arrow-type" + attrGet _ = getArrowArrowType + attrSet _ = setArrowArrowType + attrConstruct _ = constructArrowArrowType + +-- VVV Prop "shadow-type" + -- Type: TInterface "Gtk" "ShadowType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Arrow::shadow-type" + attrGet _ = getArrowShadowType + attrSet _ = setArrowShadowType + attrConstruct _ = constructArrowShadowType + +type instance AttributeList Arrow = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("arrow-type", ArrowArrowTypePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ArrowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] + +type instance AttributeList ArrowAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "obey-child" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "AspectFrame::obey-child" + attrGet _ = getAspectFrameObeyChild + attrSet _ = setAspectFrameObeyChild + attrConstruct _ = constructAspectFrameObeyChild + +-- VVV Prop "ratio" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "AspectFrame::ratio" + attrGet _ = getAspectFrameRatio + attrSet _ = setAspectFrameRatio + attrConstruct _ = constructAspectFrameRatio + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "AspectFrame::xalign" + attrGet _ = getAspectFrameXalign + attrSet _ = setAspectFrameXalign + attrConstruct _ = constructAspectFrameXalign + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "AspectFrame::yalign" + attrGet _ = getAspectFrameYalign + attrSet _ = setAspectFrameYalign + attrConstruct _ = constructAspectFrameYalign + +type instance AttributeList AspectFrame = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("label-widget", FrameLabelWidgetPropertyInfo), '("label-xalign", FrameLabelXalignPropertyInfo), '("label-yalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("obey-child", AspectFrameObeyChildPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("ratio", AspectFrameRatioPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", AspectFrameXalignPropertyInfo), '("yalign", AspectFrameYalignPropertyInfo)] + +-- VVV Prop "use-header-bar" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAssistantUseHeaderBar :: (MonadIO m, AssistantK o) => o -> m Int32 +getAssistantUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar" + +constructAssistantUseHeaderBar :: Int32 -> IO ([Char], GValue) +constructAssistantUseHeaderBar val = constructObjectPropertyCInt "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 = "Assistant::use-header-bar" + attrGet _ = getAssistantUseHeaderBar + attrSet _ = undefined + attrConstruct _ = constructAssistantUseHeaderBar + +type instance AttributeList Assistant = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", AssistantUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +type instance AttributeList Bin = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList BooleanCellAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "baseline-position" + -- Type: TInterface "Gtk" "BaselinePosition" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Box::baseline-position" + attrGet _ = getBoxBaselinePosition + attrSet _ = setBoxBaselinePosition + attrConstruct _ = constructBoxBaselinePosition + +-- VVV Prop "homogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Box::homogeneous" + attrGet _ = getBoxHomogeneous + attrSet _ = setBoxHomogeneous + attrConstruct _ = constructBoxHomogeneous + +-- VVV Prop "spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getBoxSpacing :: (MonadIO m, BoxK o) => o -> m Int32 +getBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" + +setBoxSpacing :: (MonadIO m, BoxK o) => o -> Int32 -> m () +setBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val + +constructBoxSpacing :: Int32 -> IO ([Char], GValue) +constructBoxSpacing val = constructObjectPropertyCInt "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 = "Box::spacing" + attrGet _ = getBoxSpacing + attrSet _ = setBoxSpacing + attrConstruct _ = constructBoxSpacing + +type instance AttributeList Box = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList Buildable = '[ ] + +-- VVV Prop "translation-domain" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> m T.Text +getBuilderTranslationDomain obj = liftIO $ getObjectPropertyString obj "translation-domain" + +setBuilderTranslationDomain :: (MonadIO m, BuilderK o) => o -> T.Text -> m () +setBuilderTranslationDomain obj val = liftIO $ setObjectPropertyString obj "translation-domain" val + +constructBuilderTranslationDomain :: T.Text -> IO ([Char], GValue) +constructBuilderTranslationDomain val = constructObjectPropertyString "translation-domain" val + +data BuilderTranslationDomainPropertyInfo +instance AttrInfo BuilderTranslationDomainPropertyInfo where + type AttrAllowedOps BuilderTranslationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint BuilderTranslationDomainPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint BuilderTranslationDomainPropertyInfo = BuilderK + type AttrGetType BuilderTranslationDomainPropertyInfo = T.Text + type AttrLabel BuilderTranslationDomainPropertyInfo = "Builder::translation-domain" + attrGet _ = getBuilderTranslationDomain + attrSet _ = setBuilderTranslationDomain + attrConstruct _ = constructBuilderTranslationDomain + +type instance AttributeList Builder = '[ '("translation-domain", BuilderTranslationDomainPropertyInfo)] + +-- VVV Prop "always-show-image" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Button::always-show-image" + attrGet _ = getButtonAlwaysShowImage + attrSet _ = setButtonAlwaysShowImage + attrConstruct _ = constructButtonAlwaysShowImage + +-- VVV Prop "focus-on-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Button::focus-on-click" + attrGet _ = getButtonFocusOnClick + attrSet _ = setButtonFocusOnClick + attrConstruct _ = constructButtonFocusOnClick + +-- VVV Prop "image" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getButtonImage :: (MonadIO m, ButtonK o) => o -> m Widget +getButtonImage obj = liftIO $ getObjectPropertyObject obj "image" Widget + +setButtonImage :: (MonadIO m, ButtonK o, WidgetK a) => o -> a -> m () +setButtonImage obj val = liftIO $ setObjectPropertyObject obj "image" val + +constructButtonImage :: (WidgetK a) => a -> IO ([Char], GValue) +constructButtonImage val = constructObjectPropertyObject "image" 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 = "Button::image" + attrGet _ = getButtonImage + attrSet _ = setButtonImage + attrConstruct _ = constructButtonImage + +-- VVV Prop "image-position" + -- Type: TInterface "Gtk" "PositionType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Button::image-position" + attrGet _ = getButtonImagePosition + attrSet _ = setButtonImagePosition + attrConstruct _ = constructButtonImagePosition + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getButtonLabel :: (MonadIO m, ButtonK o) => o -> m T.Text +getButtonLabel obj = liftIO $ getObjectPropertyString obj "label" + +setButtonLabel :: (MonadIO m, ButtonK o) => o -> T.Text -> m () +setButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructButtonLabel :: T.Text -> IO ([Char], GValue) +constructButtonLabel val = constructObjectPropertyString "label" 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 = "Button::label" + attrGet _ = getButtonLabel + attrSet _ = setButtonLabel + attrConstruct _ = constructButtonLabel + +-- VVV Prop "relief" + -- Type: TInterface "Gtk" "ReliefStyle" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Button::relief" + attrGet _ = getButtonRelief + attrSet _ = setButtonRelief + attrConstruct _ = constructButtonRelief + +-- VVV Prop "use-stock" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Button::use-stock" + attrGet _ = getButtonUseStock + attrSet _ = setButtonUseStock + attrConstruct _ = constructButtonUseStock + +-- VVV Prop "use-underline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Button::use-underline" + attrGet _ = getButtonUseUnderline + attrSet _ = setButtonUseUnderline + attrConstruct _ = constructButtonUseUnderline + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Button::xalign" + attrGet _ = getButtonXalign + attrSet _ = setButtonXalign + attrConstruct _ = constructButtonXalign + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Button::yalign" + attrGet _ = getButtonYalign + attrSet _ = setButtonYalign + attrConstruct _ = constructButtonYalign + +type instance AttributeList Button = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +type instance AttributeList ButtonAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "layout-style" + -- Type: TInterface "Gtk" "ButtonBoxStyle" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ButtonBox::layout-style" + attrGet _ = getButtonBoxLayoutStyle + attrSet _ = setButtonBoxLayoutStyle + attrConstruct _ = constructButtonBoxLayoutStyle + +type instance AttributeList ButtonBox = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "day" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCalendarDay :: (MonadIO m, CalendarK o) => o -> m Int32 +getCalendarDay obj = liftIO $ getObjectPropertyCInt obj "day" + +setCalendarDay :: (MonadIO m, CalendarK o) => o -> Int32 -> m () +setCalendarDay obj val = liftIO $ setObjectPropertyCInt obj "day" val + +constructCalendarDay :: Int32 -> IO ([Char], GValue) +constructCalendarDay val = constructObjectPropertyCInt "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 = "Calendar::day" + attrGet _ = getCalendarDay + attrSet _ = setCalendarDay + attrConstruct _ = constructCalendarDay + +-- VVV Prop "detail-height-rows" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> m Int32 +getCalendarDetailHeightRows obj = liftIO $ getObjectPropertyCInt obj "detail-height-rows" + +setCalendarDetailHeightRows :: (MonadIO m, CalendarK o) => o -> Int32 -> m () +setCalendarDetailHeightRows obj val = liftIO $ setObjectPropertyCInt obj "detail-height-rows" val + +constructCalendarDetailHeightRows :: Int32 -> IO ([Char], GValue) +constructCalendarDetailHeightRows val = constructObjectPropertyCInt "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 = "Calendar::detail-height-rows" + attrGet _ = getCalendarDetailHeightRows + attrSet _ = setCalendarDetailHeightRows + attrConstruct _ = constructCalendarDetailHeightRows + +-- VVV Prop "detail-width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> m Int32 +getCalendarDetailWidthChars obj = liftIO $ getObjectPropertyCInt obj "detail-width-chars" + +setCalendarDetailWidthChars :: (MonadIO m, CalendarK o) => o -> Int32 -> m () +setCalendarDetailWidthChars obj val = liftIO $ setObjectPropertyCInt obj "detail-width-chars" val + +constructCalendarDetailWidthChars :: Int32 -> IO ([Char], GValue) +constructCalendarDetailWidthChars val = constructObjectPropertyCInt "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 = "Calendar::detail-width-chars" + attrGet _ = getCalendarDetailWidthChars + attrSet _ = setCalendarDetailWidthChars + attrConstruct _ = constructCalendarDetailWidthChars + +-- VVV Prop "month" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCalendarMonth :: (MonadIO m, CalendarK o) => o -> m Int32 +getCalendarMonth obj = liftIO $ getObjectPropertyCInt obj "month" + +setCalendarMonth :: (MonadIO m, CalendarK o) => o -> Int32 -> m () +setCalendarMonth obj val = liftIO $ setObjectPropertyCInt obj "month" val + +constructCalendarMonth :: Int32 -> IO ([Char], GValue) +constructCalendarMonth val = constructObjectPropertyCInt "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 = "Calendar::month" + attrGet _ = getCalendarMonth + attrSet _ = setCalendarMonth + attrConstruct _ = constructCalendarMonth + +-- VVV Prop "no-month-change" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Calendar::no-month-change" + attrGet _ = getCalendarNoMonthChange + attrSet _ = setCalendarNoMonthChange + attrConstruct _ = constructCalendarNoMonthChange + +-- VVV Prop "show-day-names" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Calendar::show-day-names" + attrGet _ = getCalendarShowDayNames + attrSet _ = setCalendarShowDayNames + attrConstruct _ = constructCalendarShowDayNames + +-- VVV Prop "show-details" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Calendar::show-details" + attrGet _ = getCalendarShowDetails + attrSet _ = setCalendarShowDetails + attrConstruct _ = constructCalendarShowDetails + +-- VVV Prop "show-heading" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Calendar::show-heading" + attrGet _ = getCalendarShowHeading + attrSet _ = setCalendarShowHeading + attrConstruct _ = constructCalendarShowHeading + +-- VVV Prop "show-week-numbers" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Calendar::show-week-numbers" + attrGet _ = getCalendarShowWeekNumbers + attrSet _ = setCalendarShowWeekNumbers + attrConstruct _ = constructCalendarShowWeekNumbers + +-- VVV Prop "year" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCalendarYear :: (MonadIO m, CalendarK o) => o -> m Int32 +getCalendarYear obj = liftIO $ getObjectPropertyCInt obj "year" + +setCalendarYear :: (MonadIO m, CalendarK o) => o -> Int32 -> m () +setCalendarYear obj val = liftIO $ setObjectPropertyCInt obj "year" val + +constructCalendarYear :: Int32 -> IO ([Char], GValue) +constructCalendarYear val = constructObjectPropertyCInt "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 = "Calendar::year" + attrGet _ = getCalendarYear + attrSet _ = setCalendarYear + attrConstruct _ = constructCalendarYear + +type instance AttributeList Calendar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("day", CalendarDayPropertyInfo), '("detail-height-rows", CalendarDetailHeightRowsPropertyInfo), '("detail-width-chars", CalendarDetailWidthCharsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("month", CalendarMonthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-month-change", CalendarNoMonthChangePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-day-names", CalendarShowDayNamesPropertyInfo), '("show-details", CalendarShowDetailsPropertyInfo), '("show-heading", CalendarShowHeadingPropertyInfo), '("show-week-numbers", CalendarShowWeekNumbersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("year", CalendarYearPropertyInfo)] + +type instance AttributeList CellAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList CellAccessibleParent = '[ ] + +-- VVV Prop "edit-widget" + -- Type: TInterface "Gtk" "CellEditable" + -- Flags: [PropertyReadable] + +getCellAreaEditWidget :: (MonadIO m, CellAreaK o) => o -> m CellEditable +getCellAreaEditWidget obj = liftIO $ getObjectPropertyObject obj "edit-widget" CellEditable + +data CellAreaEditWidgetPropertyInfo +instance AttrInfo CellAreaEditWidgetPropertyInfo where + type AttrAllowedOps CellAreaEditWidgetPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint CellAreaEditWidgetPropertyInfo = (~) () + type AttrBaseTypeConstraint CellAreaEditWidgetPropertyInfo = CellAreaK + type AttrGetType CellAreaEditWidgetPropertyInfo = CellEditable + type AttrLabel CellAreaEditWidgetPropertyInfo = "CellArea::edit-widget" + attrGet _ = getCellAreaEditWidget + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "edited-cell" + -- Type: TInterface "Gtk" "CellRenderer" + -- Flags: [PropertyReadable] + +getCellAreaEditedCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer +getCellAreaEditedCell obj = liftIO $ getObjectPropertyObject obj "edited-cell" CellRenderer + +data CellAreaEditedCellPropertyInfo +instance AttrInfo CellAreaEditedCellPropertyInfo where + type AttrAllowedOps CellAreaEditedCellPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint CellAreaEditedCellPropertyInfo = (~) () + type AttrBaseTypeConstraint CellAreaEditedCellPropertyInfo = CellAreaK + type AttrGetType CellAreaEditedCellPropertyInfo = CellRenderer + type AttrLabel CellAreaEditedCellPropertyInfo = "CellArea::edited-cell" + attrGet _ = getCellAreaEditedCell + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "focus-cell" + -- Type: TInterface "Gtk" "CellRenderer" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellAreaFocusCell :: (MonadIO m, CellAreaK o) => o -> m CellRenderer +getCellAreaFocusCell obj = liftIO $ getObjectPropertyObject obj "focus-cell" CellRenderer + +setCellAreaFocusCell :: (MonadIO m, CellAreaK o, CellRendererK a) => o -> a -> m () +setCellAreaFocusCell obj val = liftIO $ setObjectPropertyObject obj "focus-cell" val + +constructCellAreaFocusCell :: (CellRendererK a) => a -> IO ([Char], GValue) +constructCellAreaFocusCell val = constructObjectPropertyObject "focus-cell" 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 = "CellArea::focus-cell" + attrGet _ = getCellAreaFocusCell + attrSet _ = setCellAreaFocusCell + attrConstruct _ = constructCellAreaFocusCell + +type instance AttributeList CellArea = '[ '("edit-widget", CellAreaEditWidgetPropertyInfo), '("edited-cell", CellAreaEditedCellPropertyInfo), '("focus-cell", CellAreaFocusCellPropertyInfo)] + +-- VVV Prop "spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> m Int32 +getCellAreaBoxSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" + +setCellAreaBoxSpacing :: (MonadIO m, CellAreaBoxK o) => o -> Int32 -> m () +setCellAreaBoxSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val + +constructCellAreaBoxSpacing :: Int32 -> IO ([Char], GValue) +constructCellAreaBoxSpacing val = constructObjectPropertyCInt "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 = "CellAreaBox::spacing" + attrGet _ = getCellAreaBoxSpacing + attrSet _ = setCellAreaBoxSpacing + attrConstruct _ = constructCellAreaBoxSpacing + +type instance AttributeList CellAreaBox = '[ '("edit-widget", CellAreaEditWidgetPropertyInfo), '("edited-cell", CellAreaEditedCellPropertyInfo), '("focus-cell", CellAreaFocusCellPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("spacing", CellAreaBoxSpacingPropertyInfo)] + +-- VVV Prop "area" + -- Type: TInterface "Gtk" "CellArea" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCellAreaContextArea :: (MonadIO m, CellAreaContextK o) => o -> m CellArea +getCellAreaContextArea obj = liftIO $ getObjectPropertyObject obj "area" CellArea + +constructCellAreaContextArea :: (CellAreaK a) => a -> IO ([Char], GValue) +constructCellAreaContextArea val = constructObjectPropertyObject "area" val + +data CellAreaContextAreaPropertyInfo +instance AttrInfo CellAreaContextAreaPropertyInfo where + type AttrAllowedOps CellAreaContextAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaK + type AttrBaseTypeConstraint CellAreaContextAreaPropertyInfo = CellAreaContextK + type AttrGetType CellAreaContextAreaPropertyInfo = CellArea + type AttrLabel CellAreaContextAreaPropertyInfo = "CellAreaContext::area" + attrGet _ = getCellAreaContextArea + attrSet _ = undefined + attrConstruct _ = constructCellAreaContextArea + +-- VVV Prop "minimum-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getCellAreaContextMinimumHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32 +getCellAreaContextMinimumHeight obj = liftIO $ getObjectPropertyCInt 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 = "CellAreaContext::minimum-height" + attrGet _ = getCellAreaContextMinimumHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "minimum-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getCellAreaContextMinimumWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32 +getCellAreaContextMinimumWidth obj = liftIO $ getObjectPropertyCInt 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 = "CellAreaContext::minimum-width" + attrGet _ = getCellAreaContextMinimumWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "natural-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getCellAreaContextNaturalHeight :: (MonadIO m, CellAreaContextK o) => o -> m Int32 +getCellAreaContextNaturalHeight obj = liftIO $ getObjectPropertyCInt 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 = "CellAreaContext::natural-height" + attrGet _ = getCellAreaContextNaturalHeight + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "natural-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getCellAreaContextNaturalWidth :: (MonadIO m, CellAreaContextK o) => o -> m Int32 +getCellAreaContextNaturalWidth obj = liftIO $ getObjectPropertyCInt 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 = "CellAreaContext::natural-width" + attrGet _ = getCellAreaContextNaturalWidth + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList CellAreaContext = '[ '("area", CellAreaContextAreaPropertyInfo), '("minimum-height", CellAreaContextMinimumHeightPropertyInfo), '("minimum-width", CellAreaContextMinimumWidthPropertyInfo), '("natural-height", CellAreaContextNaturalHeightPropertyInfo), '("natural-width", CellAreaContextNaturalWidthPropertyInfo)] + +-- VVV Prop "editing-canceled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellEditable::editing-canceled" + attrGet _ = getCellEditableEditingCanceled + attrSet _ = setCellEditableEditingCanceled + attrConstruct _ = constructCellEditableEditingCanceled + +type instance AttributeList CellEditable = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList CellLayout = '[ ] + +-- VVV Prop "cell-background" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setCellRendererCellBackground :: (MonadIO m, CellRendererK o) => o -> T.Text -> m () +setCellRendererCellBackground obj val = liftIO $ setObjectPropertyString obj "cell-background" val + +constructCellRendererCellBackground :: T.Text -> IO ([Char], GValue) +constructCellRendererCellBackground val = constructObjectPropertyString "cell-background" val + +data CellRendererCellBackgroundPropertyInfo +instance AttrInfo CellRendererCellBackgroundPropertyInfo where + type AttrAllowedOps CellRendererCellBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint CellRendererCellBackgroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererCellBackgroundPropertyInfo = CellRendererK + type AttrGetType CellRendererCellBackgroundPropertyInfo = () + type AttrLabel CellRendererCellBackgroundPropertyInfo = "CellRenderer::cell-background" + attrGet _ = undefined + attrSet _ = setCellRendererCellBackground + attrConstruct _ = constructCellRendererCellBackground + +-- VVV Prop "cell-background-gdk" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererCellBackgroundGdk :: (MonadIO m, CellRendererK o) => o -> m 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" val + +constructCellRendererCellBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) +constructCellRendererCellBackgroundGdk val = constructObjectPropertyBoxed "cell-background-gdk" val + +data CellRendererCellBackgroundGdkPropertyInfo +instance AttrInfo CellRendererCellBackgroundGdkPropertyInfo where + type AttrAllowedOps CellRendererCellBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = (~) Gdk.Color + type AttrBaseTypeConstraint CellRendererCellBackgroundGdkPropertyInfo = CellRendererK + type AttrGetType CellRendererCellBackgroundGdkPropertyInfo = Gdk.Color + type AttrLabel CellRendererCellBackgroundGdkPropertyInfo = "CellRenderer::cell-background-gdk" + attrGet _ = getCellRendererCellBackgroundGdk + attrSet _ = setCellRendererCellBackgroundGdk + attrConstruct _ = constructCellRendererCellBackgroundGdk + +-- VVV Prop "cell-background-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererCellBackgroundRgba :: (MonadIO m, CellRendererK o) => o -> m 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" val + +constructCellRendererCellBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructCellRendererCellBackgroundRgba val = constructObjectPropertyBoxed "cell-background-rgba" val + +data CellRendererCellBackgroundRgbaPropertyInfo +instance AttrInfo CellRendererCellBackgroundRgbaPropertyInfo where + type AttrAllowedOps CellRendererCellBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint CellRendererCellBackgroundRgbaPropertyInfo = CellRendererK + type AttrGetType CellRendererCellBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrLabel CellRendererCellBackgroundRgbaPropertyInfo = "CellRenderer::cell-background-rgba" + attrGet _ = getCellRendererCellBackgroundRgba + attrSet _ = setCellRendererCellBackgroundRgba + attrConstruct _ = constructCellRendererCellBackgroundRgba + +-- VVV Prop "cell-background-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRenderer::cell-background-set" + attrGet _ = getCellRendererCellBackgroundSet + attrSet _ = setCellRendererCellBackgroundSet + attrConstruct _ = constructCellRendererCellBackgroundSet + +-- VVV Prop "editing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "CellRenderer::editing" + attrGet _ = getCellRendererEditing + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> m Int32 +getCellRendererHeight obj = liftIO $ getObjectPropertyCInt obj "height" + +setCellRendererHeight :: (MonadIO m, CellRendererK o) => o -> Int32 -> m () +setCellRendererHeight obj val = liftIO $ setObjectPropertyCInt obj "height" val + +constructCellRendererHeight :: Int32 -> IO ([Char], GValue) +constructCellRendererHeight val = constructObjectPropertyCInt "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 = "CellRenderer::height" + attrGet _ = getCellRendererHeight + attrSet _ = setCellRendererHeight + attrConstruct _ = constructCellRendererHeight + +-- VVV Prop "is-expanded" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRenderer::is-expanded" + attrGet _ = getCellRendererIsExpanded + attrSet _ = setCellRendererIsExpanded + attrConstruct _ = constructCellRendererIsExpanded + +-- VVV Prop "is-expander" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRenderer::is-expander" + attrGet _ = getCellRendererIsExpander + attrSet _ = setCellRendererIsExpander + attrConstruct _ = constructCellRendererIsExpander + +-- VVV Prop "mode" + -- Type: TInterface "Gtk" "CellRendererMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRenderer::mode" + attrGet _ = getCellRendererMode + attrSet _ = setCellRendererMode + attrConstruct _ = constructCellRendererMode + +-- VVV Prop "sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRenderer::sensitive" + attrGet _ = getCellRendererSensitive + attrSet _ = setCellRendererSensitive + attrConstruct _ = constructCellRendererSensitive + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRenderer::visible" + attrGet _ = getCellRendererVisible + attrSet _ = setCellRendererVisible + attrConstruct _ = constructCellRendererVisible + +-- VVV Prop "width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> m Int32 +getCellRendererWidth obj = liftIO $ getObjectPropertyCInt obj "width" + +setCellRendererWidth :: (MonadIO m, CellRendererK o) => o -> Int32 -> m () +setCellRendererWidth obj val = liftIO $ setObjectPropertyCInt obj "width" val + +constructCellRendererWidth :: Int32 -> IO ([Char], GValue) +constructCellRendererWidth val = constructObjectPropertyCInt "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 = "CellRenderer::width" + attrGet _ = getCellRendererWidth + attrSet _ = setCellRendererWidth + attrConstruct _ = constructCellRendererWidth + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRenderer::xalign" + attrGet _ = getCellRendererXalign + attrSet _ = setCellRendererXalign + attrConstruct _ = constructCellRendererXalign + +-- VVV Prop "xpad" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> m Word32 +getCellRendererXpad obj = liftIO $ getObjectPropertyCUInt obj "xpad" + +setCellRendererXpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m () +setCellRendererXpad obj val = liftIO $ setObjectPropertyCUInt obj "xpad" val + +constructCellRendererXpad :: Word32 -> IO ([Char], GValue) +constructCellRendererXpad val = constructObjectPropertyCUInt "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 = "CellRenderer::xpad" + attrGet _ = getCellRendererXpad + attrSet _ = setCellRendererXpad + attrConstruct _ = constructCellRendererXpad + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRenderer::yalign" + attrGet _ = getCellRendererYalign + attrSet _ = setCellRendererYalign + attrConstruct _ = constructCellRendererYalign + +-- VVV Prop "ypad" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> m Word32 +getCellRendererYpad obj = liftIO $ getObjectPropertyCUInt obj "ypad" + +setCellRendererYpad :: (MonadIO m, CellRendererK o) => o -> Word32 -> m () +setCellRendererYpad obj val = liftIO $ setObjectPropertyCUInt obj "ypad" val + +constructCellRendererYpad :: Word32 -> IO ([Char], GValue) +constructCellRendererYpad val = constructObjectPropertyCUInt "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 = "CellRenderer::ypad" + attrGet _ = getCellRendererYpad + attrSet _ = setCellRendererYpad + attrConstruct _ = constructCellRendererYpad + +type instance AttributeList CellRenderer = '[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "accel-key" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> m Word32 +getCellRendererAccelAccelKey obj = liftIO $ getObjectPropertyCUInt obj "accel-key" + +setCellRendererAccelAccelKey :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m () +setCellRendererAccelAccelKey obj val = liftIO $ setObjectPropertyCUInt obj "accel-key" val + +constructCellRendererAccelAccelKey :: Word32 -> IO ([Char], GValue) +constructCellRendererAccelAccelKey val = constructObjectPropertyCUInt "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 = "CellRendererAccel::accel-key" + attrGet _ = getCellRendererAccelAccelKey + attrSet _ = setCellRendererAccelAccelKey + attrConstruct _ = constructCellRendererAccelAccelKey + +-- VVV Prop "accel-mode" + -- Type: TInterface "Gtk" "CellRendererAccelMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererAccel::accel-mode" + attrGet _ = getCellRendererAccelAccelMode + attrSet _ = setCellRendererAccelAccelMode + attrConstruct _ = constructCellRendererAccelAccelMode + +-- VVV Prop "accel-mods" + -- Type: TInterface "Gdk" "ModifierType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererAccel::accel-mods" + attrGet _ = getCellRendererAccelAccelMods + attrSet _ = setCellRendererAccelAccelMods + attrConstruct _ = constructCellRendererAccelAccelMods + +-- VVV Prop "keycode" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> m Word32 +getCellRendererAccelKeycode obj = liftIO $ getObjectPropertyCUInt obj "keycode" + +setCellRendererAccelKeycode :: (MonadIO m, CellRendererAccelK o) => o -> Word32 -> m () +setCellRendererAccelKeycode obj val = liftIO $ setObjectPropertyCUInt obj "keycode" val + +constructCellRendererAccelKeycode :: Word32 -> IO ([Char], GValue) +constructCellRendererAccelKeycode val = constructObjectPropertyCUInt "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 = "CellRendererAccel::keycode" + attrGet _ = getCellRendererAccelKeycode + attrSet _ = setCellRendererAccelKeycode + attrConstruct _ = constructCellRendererAccelKeycode + +type instance AttributeList CellRendererAccel = '[ '("accel-key", CellRendererAccelAccelKeyPropertyInfo), '("accel-mode", CellRendererAccelAccelModePropertyInfo), '("accel-mods", CellRendererAccelAccelModsPropertyInfo), '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("keycode", CellRendererAccelKeycodePropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "has-entry" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererCombo::has-entry" + attrGet _ = getCellRendererComboHasEntry + attrSet _ = setCellRendererComboHasEntry + attrConstruct _ = constructCellRendererComboHasEntry + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererComboModel :: (MonadIO m, CellRendererComboK o) => o -> m 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" val + +constructCellRendererComboModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructCellRendererComboModel val = constructObjectPropertyObject "model" val + +data CellRendererComboModelPropertyInfo +instance AttrInfo CellRendererComboModelPropertyInfo where + type AttrAllowedOps CellRendererComboModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererComboModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint CellRendererComboModelPropertyInfo = CellRendererComboK + type AttrGetType CellRendererComboModelPropertyInfo = TreeModel + type AttrLabel CellRendererComboModelPropertyInfo = "CellRendererCombo::model" + attrGet _ = getCellRendererComboModel + attrSet _ = setCellRendererComboModel + attrConstruct _ = constructCellRendererComboModel + +-- VVV Prop "text-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> m Int32 +getCellRendererComboTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" + +setCellRendererComboTextColumn :: (MonadIO m, CellRendererComboK o) => o -> Int32 -> m () +setCellRendererComboTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val + +constructCellRendererComboTextColumn :: Int32 -> IO ([Char], GValue) +constructCellRendererComboTextColumn val = constructObjectPropertyCInt "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 = "CellRendererCombo::text-column" + attrGet _ = getCellRendererComboTextColumn + attrSet _ = setCellRendererComboTextColumn + attrConstruct _ = constructCellRendererComboTextColumn + +type instance AttributeList CellRendererCombo = '[ '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("has-entry", CellRendererComboHasEntryPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("model", CellRendererComboModelPropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("text-column", CellRendererComboTextColumnPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "follow-state" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererPixbuf::follow-state" + attrGet _ = getCellRendererPixbufFollowState + attrSet _ = setCellRendererPixbufFollowState + attrConstruct _ = constructCellRendererPixbufFollowState + +-- VVV Prop "gicon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufGicon :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val + +constructCellRendererPixbufGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructCellRendererPixbufGicon val = constructObjectPropertyObject "gicon" val + +data CellRendererPixbufGiconPropertyInfo +instance AttrInfo CellRendererPixbufGiconPropertyInfo where + type AttrAllowedOps CellRendererPixbufGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererPixbufGiconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint CellRendererPixbufGiconPropertyInfo = CellRendererPixbufK + type AttrGetType CellRendererPixbufGiconPropertyInfo = Gio.Icon + type AttrLabel CellRendererPixbufGiconPropertyInfo = "CellRendererPixbuf::gicon" + attrGet _ = getCellRendererPixbufGicon + attrSet _ = setCellRendererPixbufGicon + attrConstruct _ = constructCellRendererPixbufGicon + +-- VVV Prop "icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufIconName :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val + +constructCellRendererPixbufIconName :: T.Text -> IO ([Char], GValue) +constructCellRendererPixbufIconName val = constructObjectPropertyString "icon-name" val + +data CellRendererPixbufIconNamePropertyInfo +instance AttrInfo CellRendererPixbufIconNamePropertyInfo where + type AttrAllowedOps CellRendererPixbufIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererPixbufIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererPixbufIconNamePropertyInfo = CellRendererPixbufK + type AttrGetType CellRendererPixbufIconNamePropertyInfo = T.Text + type AttrLabel CellRendererPixbufIconNamePropertyInfo = "CellRendererPixbuf::icon-name" + attrGet _ = getCellRendererPixbufIconName + attrSet _ = setCellRendererPixbufIconName + attrConstruct _ = constructCellRendererPixbufIconName + +-- VVV Prop "pixbuf" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufPixbuf :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val + +constructCellRendererPixbufPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructCellRendererPixbufPixbuf val = constructObjectPropertyObject "pixbuf" val + +data CellRendererPixbufPixbufPropertyInfo +instance AttrInfo CellRendererPixbufPixbufPropertyInfo where + type AttrAllowedOps CellRendererPixbufPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint CellRendererPixbufPixbufPropertyInfo = CellRendererPixbufK + type AttrGetType CellRendererPixbufPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel CellRendererPixbufPixbufPropertyInfo = "CellRendererPixbuf::pixbuf" + attrGet _ = getCellRendererPixbufPixbuf + attrSet _ = setCellRendererPixbufPixbuf + attrConstruct _ = constructCellRendererPixbufPixbuf + +-- VVV Prop "pixbuf-expander-closed" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufPixbufExpanderClosed :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val + +constructCellRendererPixbufPixbufExpanderClosed :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructCellRendererPixbufPixbufExpanderClosed val = constructObjectPropertyObject "pixbuf-expander-closed" val + +data CellRendererPixbufPixbufExpanderClosedPropertyInfo +instance AttrInfo CellRendererPixbufPixbufExpanderClosedPropertyInfo where + type AttrAllowedOps CellRendererPixbufPixbufExpanderClosedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderClosedPropertyInfo = CellRendererPixbufK + type AttrGetType CellRendererPixbufPixbufExpanderClosedPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel CellRendererPixbufPixbufExpanderClosedPropertyInfo = "CellRendererPixbuf::pixbuf-expander-closed" + attrGet _ = getCellRendererPixbufPixbufExpanderClosed + attrSet _ = setCellRendererPixbufPixbufExpanderClosed + attrConstruct _ = constructCellRendererPixbufPixbufExpanderClosed + +-- VVV Prop "pixbuf-expander-open" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufPixbufExpanderOpen :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val + +constructCellRendererPixbufPixbufExpanderOpen :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructCellRendererPixbufPixbufExpanderOpen val = constructObjectPropertyObject "pixbuf-expander-open" val + +data CellRendererPixbufPixbufExpanderOpenPropertyInfo +instance AttrInfo CellRendererPixbufPixbufExpanderOpenPropertyInfo where + type AttrAllowedOps CellRendererPixbufPixbufExpanderOpenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint CellRendererPixbufPixbufExpanderOpenPropertyInfo = CellRendererPixbufK + type AttrGetType CellRendererPixbufPixbufExpanderOpenPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel CellRendererPixbufPixbufExpanderOpenPropertyInfo = "CellRendererPixbuf::pixbuf-expander-open" + attrGet _ = getCellRendererPixbufPixbufExpanderOpen + attrSet _ = setCellRendererPixbufPixbufExpanderOpen + attrConstruct _ = constructCellRendererPixbufPixbufExpanderOpen + +-- VVV Prop "stock-detail" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufStockDetail :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val + +constructCellRendererPixbufStockDetail :: T.Text -> IO ([Char], GValue) +constructCellRendererPixbufStockDetail val = constructObjectPropertyString "stock-detail" val + +data CellRendererPixbufStockDetailPropertyInfo +instance AttrInfo CellRendererPixbufStockDetailPropertyInfo where + type AttrAllowedOps CellRendererPixbufStockDetailPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererPixbufStockDetailPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererPixbufStockDetailPropertyInfo = CellRendererPixbufK + type AttrGetType CellRendererPixbufStockDetailPropertyInfo = T.Text + type AttrLabel CellRendererPixbufStockDetailPropertyInfo = "CellRendererPixbuf::stock-detail" + attrGet _ = getCellRendererPixbufStockDetail + attrSet _ = setCellRendererPixbufStockDetail + attrConstruct _ = constructCellRendererPixbufStockDetail + +-- VVV Prop "stock-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufStockId :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val + +constructCellRendererPixbufStockId :: T.Text -> IO ([Char], GValue) +constructCellRendererPixbufStockId val = constructObjectPropertyString "stock-id" val + +data CellRendererPixbufStockIdPropertyInfo +instance AttrInfo CellRendererPixbufStockIdPropertyInfo where + type AttrAllowedOps CellRendererPixbufStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererPixbufStockIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererPixbufStockIdPropertyInfo = CellRendererPixbufK + type AttrGetType CellRendererPixbufStockIdPropertyInfo = T.Text + type AttrLabel CellRendererPixbufStockIdPropertyInfo = "CellRendererPixbuf::stock-id" + attrGet _ = getCellRendererPixbufStockId + attrSet _ = setCellRendererPixbufStockId + attrConstruct _ = constructCellRendererPixbufStockId + +-- VVV Prop "stock-size" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> m Word32 +getCellRendererPixbufStockSize obj = liftIO $ getObjectPropertyCUInt obj "stock-size" + +setCellRendererPixbufStockSize :: (MonadIO m, CellRendererPixbufK o) => o -> Word32 -> m () +setCellRendererPixbufStockSize obj val = liftIO $ setObjectPropertyCUInt obj "stock-size" val + +constructCellRendererPixbufStockSize :: Word32 -> IO ([Char], GValue) +constructCellRendererPixbufStockSize val = constructObjectPropertyCUInt "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 = "CellRendererPixbuf::stock-size" + attrGet _ = getCellRendererPixbufStockSize + attrSet _ = setCellRendererPixbufStockSize + attrConstruct _ = constructCellRendererPixbufStockSize + +-- VVV Prop "surface" + -- Type: TInterface "cairo" "Surface" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererPixbufSurface :: (MonadIO m, CellRendererPixbufK o) => o -> m 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" val + +constructCellRendererPixbufSurface :: Cairo.Surface -> IO ([Char], GValue) +constructCellRendererPixbufSurface val = constructObjectPropertyBoxed "surface" val + +data CellRendererPixbufSurfacePropertyInfo +instance AttrInfo CellRendererPixbufSurfacePropertyInfo where + type AttrAllowedOps CellRendererPixbufSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererPixbufSurfacePropertyInfo = (~) Cairo.Surface + type AttrBaseTypeConstraint CellRendererPixbufSurfacePropertyInfo = CellRendererPixbufK + type AttrGetType CellRendererPixbufSurfacePropertyInfo = Cairo.Surface + type AttrLabel CellRendererPixbufSurfacePropertyInfo = "CellRendererPixbuf::surface" + attrGet _ = getCellRendererPixbufSurface + attrSet _ = setCellRendererPixbufSurface + attrConstruct _ = constructCellRendererPixbufSurface + +type instance AttributeList CellRendererPixbuf = '[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("follow-state", CellRendererPixbufFollowStatePropertyInfo), '("gicon", CellRendererPixbufGiconPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("icon-name", CellRendererPixbufIconNamePropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pixbuf", CellRendererPixbufPixbufPropertyInfo), '("pixbuf-expander-closed", CellRendererPixbufPixbufExpanderClosedPropertyInfo), '("pixbuf-expander-open", CellRendererPixbufPixbufExpanderOpenPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("stock-detail", CellRendererPixbufStockDetailPropertyInfo), '("stock-id", CellRendererPixbufStockIdPropertyInfo), '("stock-size", CellRendererPixbufStockSizePropertyInfo), '("surface", CellRendererPixbufSurfacePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "inverted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererProgress::inverted" + attrGet _ = getCellRendererProgressInverted + attrSet _ = setCellRendererProgressInverted + attrConstruct _ = constructCellRendererProgressInverted + +-- VVV Prop "pulse" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> m Int32 +getCellRendererProgressPulse obj = liftIO $ getObjectPropertyCInt obj "pulse" + +setCellRendererProgressPulse :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m () +setCellRendererProgressPulse obj val = liftIO $ setObjectPropertyCInt obj "pulse" val + +constructCellRendererProgressPulse :: Int32 -> IO ([Char], GValue) +constructCellRendererProgressPulse val = constructObjectPropertyCInt "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 = "CellRendererProgress::pulse" + attrGet _ = getCellRendererProgressPulse + attrSet _ = setCellRendererProgressPulse + attrConstruct _ = constructCellRendererProgressPulse + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> m T.Text +getCellRendererProgressText obj = liftIO $ getObjectPropertyString obj "text" + +setCellRendererProgressText :: (MonadIO m, CellRendererProgressK o) => o -> T.Text -> m () +setCellRendererProgressText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructCellRendererProgressText :: T.Text -> IO ([Char], GValue) +constructCellRendererProgressText val = constructObjectPropertyString "text" val + +data CellRendererProgressTextPropertyInfo +instance AttrInfo CellRendererProgressTextPropertyInfo where + type AttrAllowedOps CellRendererProgressTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererProgressTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererProgressTextPropertyInfo = CellRendererProgressK + type AttrGetType CellRendererProgressTextPropertyInfo = T.Text + type AttrLabel CellRendererProgressTextPropertyInfo = "CellRendererProgress::text" + attrGet _ = getCellRendererProgressText + attrSet _ = setCellRendererProgressText + attrConstruct _ = constructCellRendererProgressText + +-- VVV Prop "text-xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererProgress::text-xalign" + attrGet _ = getCellRendererProgressTextXalign + attrSet _ = setCellRendererProgressTextXalign + attrConstruct _ = constructCellRendererProgressTextXalign + +-- VVV Prop "text-yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererProgress::text-yalign" + attrGet _ = getCellRendererProgressTextYalign + attrSet _ = setCellRendererProgressTextYalign + attrConstruct _ = constructCellRendererProgressTextYalign + +-- VVV Prop "value" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> m Int32 +getCellRendererProgressValue obj = liftIO $ getObjectPropertyCInt obj "value" + +setCellRendererProgressValue :: (MonadIO m, CellRendererProgressK o) => o -> Int32 -> m () +setCellRendererProgressValue obj val = liftIO $ setObjectPropertyCInt obj "value" val + +constructCellRendererProgressValue :: Int32 -> IO ([Char], GValue) +constructCellRendererProgressValue val = constructObjectPropertyCInt "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 = "CellRendererProgress::value" + attrGet _ = getCellRendererProgressValue + attrSet _ = setCellRendererProgressValue + attrConstruct _ = constructCellRendererProgressValue + +type instance AttributeList CellRendererProgress = '[ '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inverted", CellRendererProgressInvertedPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("pulse", CellRendererProgressPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("text", CellRendererProgressTextPropertyInfo), '("text-xalign", CellRendererProgressTextXalignPropertyInfo), '("text-yalign", CellRendererProgressTextYalignPropertyInfo), '("value", CellRendererProgressValuePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "adjustment" + -- Type: TInterface "Gtk" "Adjustment" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererSpinAdjustment :: (MonadIO m, CellRendererSpinK o) => o -> m 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" val + +constructCellRendererSpinAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) +constructCellRendererSpinAdjustment val = constructObjectPropertyObject "adjustment" val + +data CellRendererSpinAdjustmentPropertyInfo +instance AttrInfo CellRendererSpinAdjustmentPropertyInfo where + type AttrAllowedOps CellRendererSpinAdjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererSpinAdjustmentPropertyInfo = AdjustmentK + type AttrBaseTypeConstraint CellRendererSpinAdjustmentPropertyInfo = CellRendererSpinK + type AttrGetType CellRendererSpinAdjustmentPropertyInfo = Adjustment + type AttrLabel CellRendererSpinAdjustmentPropertyInfo = "CellRendererSpin::adjustment" + attrGet _ = getCellRendererSpinAdjustment + attrSet _ = setCellRendererSpinAdjustment + attrConstruct _ = constructCellRendererSpinAdjustment + +-- VVV Prop "climb-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererSpin::climb-rate" + attrGet _ = getCellRendererSpinClimbRate + attrSet _ = setCellRendererSpinClimbRate + attrConstruct _ = constructCellRendererSpinClimbRate + +-- VVV Prop "digits" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> m Word32 +getCellRendererSpinDigits obj = liftIO $ getObjectPropertyCUInt obj "digits" + +setCellRendererSpinDigits :: (MonadIO m, CellRendererSpinK o) => o -> Word32 -> m () +setCellRendererSpinDigits obj val = liftIO $ setObjectPropertyCUInt obj "digits" val + +constructCellRendererSpinDigits :: Word32 -> IO ([Char], GValue) +constructCellRendererSpinDigits val = constructObjectPropertyCUInt "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 = "CellRendererSpin::digits" + attrGet _ = getCellRendererSpinDigits + attrSet _ = setCellRendererSpinDigits + attrConstruct _ = constructCellRendererSpinDigits + +type instance AttributeList CellRendererSpin = '[ '("adjustment", CellRendererSpinAdjustmentPropertyInfo), '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("climb-rate", CellRendererSpinClimbRatePropertyInfo), '("digits", CellRendererSpinDigitsPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererSpinner::active" + attrGet _ = getCellRendererSpinnerActive + attrSet _ = setCellRendererSpinnerActive + attrConstruct _ = constructCellRendererSpinnerActive + +-- VVV Prop "pulse" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> m Word32 +getCellRendererSpinnerPulse obj = liftIO $ getObjectPropertyCUInt obj "pulse" + +setCellRendererSpinnerPulse :: (MonadIO m, CellRendererSpinnerK o) => o -> Word32 -> m () +setCellRendererSpinnerPulse obj val = liftIO $ setObjectPropertyCUInt obj "pulse" val + +constructCellRendererSpinnerPulse :: Word32 -> IO ([Char], GValue) +constructCellRendererSpinnerPulse val = constructObjectPropertyCUInt "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 = "CellRendererSpinner::pulse" + attrGet _ = getCellRendererSpinnerPulse + attrSet _ = setCellRendererSpinnerPulse + attrConstruct _ = constructCellRendererSpinnerPulse + +-- VVV Prop "size" + -- Type: TInterface "Gtk" "IconSize" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererSpinner::size" + attrGet _ = getCellRendererSpinnerSize + attrSet _ = setCellRendererSpinnerSize + attrConstruct _ = constructCellRendererSpinnerSize + +type instance AttributeList CellRendererSpinner = '[ '("active", CellRendererSpinnerActivePropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("pulse", CellRendererSpinnerPulsePropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("size", CellRendererSpinnerSizePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "align-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::align-set" + attrGet _ = getCellRendererTextAlignSet + attrSet _ = setCellRendererTextAlignSet + attrConstruct _ = constructCellRendererTextAlignSet + +-- VVV Prop "alignment" + -- Type: TInterface "Pango" "Alignment" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::alignment" + attrGet _ = getCellRendererTextAlignment + attrSet _ = setCellRendererTextAlignment + attrConstruct _ = constructCellRendererTextAlignment + +-- VVV Prop "attributes" + -- Type: TInterface "Pango" "AttrList" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextAttributes :: (MonadIO m, CellRendererTextK o) => o -> m 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" val + +constructCellRendererTextAttributes :: Pango.AttrList -> IO ([Char], GValue) +constructCellRendererTextAttributes val = constructObjectPropertyBoxed "attributes" val + +data CellRendererTextAttributesPropertyInfo +instance AttrInfo CellRendererTextAttributesPropertyInfo where + type AttrAllowedOps CellRendererTextAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextAttributesPropertyInfo = (~) Pango.AttrList + type AttrBaseTypeConstraint CellRendererTextAttributesPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextAttributesPropertyInfo = Pango.AttrList + type AttrLabel CellRendererTextAttributesPropertyInfo = "CellRendererText::attributes" + attrGet _ = getCellRendererTextAttributes + attrSet _ = setCellRendererTextAttributes + attrConstruct _ = constructCellRendererTextAttributes + +-- VVV Prop "background" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setCellRendererTextBackground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () +setCellRendererTextBackground obj val = liftIO $ setObjectPropertyString obj "background" val + +constructCellRendererTextBackground :: T.Text -> IO ([Char], GValue) +constructCellRendererTextBackground val = constructObjectPropertyString "background" val + +data CellRendererTextBackgroundPropertyInfo +instance AttrInfo CellRendererTextBackgroundPropertyInfo where + type AttrAllowedOps CellRendererTextBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint CellRendererTextBackgroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererTextBackgroundPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextBackgroundPropertyInfo = () + type AttrLabel CellRendererTextBackgroundPropertyInfo = "CellRendererText::background" + attrGet _ = undefined + attrSet _ = setCellRendererTextBackground + attrConstruct _ = constructCellRendererTextBackground + +-- VVV Prop "background-gdk" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextBackgroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m 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" val + +constructCellRendererTextBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) +constructCellRendererTextBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val + +data CellRendererTextBackgroundGdkPropertyInfo +instance AttrInfo CellRendererTextBackgroundGdkPropertyInfo where + type AttrAllowedOps CellRendererTextBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = (~) Gdk.Color + type AttrBaseTypeConstraint CellRendererTextBackgroundGdkPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextBackgroundGdkPropertyInfo = Gdk.Color + type AttrLabel CellRendererTextBackgroundGdkPropertyInfo = "CellRendererText::background-gdk" + attrGet _ = getCellRendererTextBackgroundGdk + attrSet _ = setCellRendererTextBackgroundGdk + attrConstruct _ = constructCellRendererTextBackgroundGdk + +-- VVV Prop "background-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextBackgroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m 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" val + +constructCellRendererTextBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructCellRendererTextBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val + +data CellRendererTextBackgroundRgbaPropertyInfo +instance AttrInfo CellRendererTextBackgroundRgbaPropertyInfo where + type AttrAllowedOps CellRendererTextBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint CellRendererTextBackgroundRgbaPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrLabel CellRendererTextBackgroundRgbaPropertyInfo = "CellRendererText::background-rgba" + attrGet _ = getCellRendererTextBackgroundRgba + attrSet _ = setCellRendererTextBackgroundRgba + attrConstruct _ = constructCellRendererTextBackgroundRgba + +-- VVV Prop "background-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::background-set" + attrGet _ = getCellRendererTextBackgroundSet + attrSet _ = setCellRendererTextBackgroundSet + attrConstruct _ = constructCellRendererTextBackgroundSet + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::editable" + attrGet _ = getCellRendererTextEditable + attrSet _ = setCellRendererTextEditable + attrConstruct _ = constructCellRendererTextEditable + +-- VVV Prop "editable-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::editable-set" + attrGet _ = getCellRendererTextEditableSet + attrSet _ = setCellRendererTextEditableSet + attrConstruct _ = constructCellRendererTextEditableSet + +-- VVV Prop "ellipsize" + -- Type: TInterface "Pango" "EllipsizeMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::ellipsize" + attrGet _ = getCellRendererTextEllipsize + attrSet _ = setCellRendererTextEllipsize + attrConstruct _ = constructCellRendererTextEllipsize + +-- VVV Prop "ellipsize-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::ellipsize-set" + attrGet _ = getCellRendererTextEllipsizeSet + attrSet _ = setCellRendererTextEllipsizeSet + attrConstruct _ = constructCellRendererTextEllipsizeSet + +-- VVV Prop "family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextFamily obj = liftIO $ getObjectPropertyString obj "family" + +setCellRendererTextFamily :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () +setCellRendererTextFamily obj val = liftIO $ setObjectPropertyString obj "family" val + +constructCellRendererTextFamily :: T.Text -> IO ([Char], GValue) +constructCellRendererTextFamily val = constructObjectPropertyString "family" val + +data CellRendererTextFamilyPropertyInfo +instance AttrInfo CellRendererTextFamilyPropertyInfo where + type AttrAllowedOps CellRendererTextFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererTextFamilyPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextFamilyPropertyInfo = T.Text + type AttrLabel CellRendererTextFamilyPropertyInfo = "CellRendererText::family" + attrGet _ = getCellRendererTextFamily + attrSet _ = setCellRendererTextFamily + attrConstruct _ = constructCellRendererTextFamily + +-- VVV Prop "family-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::family-set" + attrGet _ = getCellRendererTextFamilySet + attrSet _ = setCellRendererTextFamilySet + attrConstruct _ = constructCellRendererTextFamilySet + +-- VVV Prop "font" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextFont obj = liftIO $ getObjectPropertyString obj "font" + +setCellRendererTextFont :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () +setCellRendererTextFont obj val = liftIO $ setObjectPropertyString obj "font" val + +constructCellRendererTextFont :: T.Text -> IO ([Char], GValue) +constructCellRendererTextFont val = constructObjectPropertyString "font" val + +data CellRendererTextFontPropertyInfo +instance AttrInfo CellRendererTextFontPropertyInfo where + type AttrAllowedOps CellRendererTextFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextFontPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererTextFontPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextFontPropertyInfo = T.Text + type AttrLabel CellRendererTextFontPropertyInfo = "CellRendererText::font" + attrGet _ = getCellRendererTextFont + attrSet _ = setCellRendererTextFont + attrConstruct _ = constructCellRendererTextFont + +-- VVV Prop "font-desc" + -- Type: TInterface "Pango" "FontDescription" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextFontDesc :: (MonadIO m, CellRendererTextK o) => o -> m 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" val + +constructCellRendererTextFontDesc :: Pango.FontDescription -> IO ([Char], GValue) +constructCellRendererTextFontDesc val = constructObjectPropertyBoxed "font-desc" val + +data CellRendererTextFontDescPropertyInfo +instance AttrInfo CellRendererTextFontDescPropertyInfo where + type AttrAllowedOps CellRendererTextFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextFontDescPropertyInfo = (~) Pango.FontDescription + type AttrBaseTypeConstraint CellRendererTextFontDescPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextFontDescPropertyInfo = Pango.FontDescription + type AttrLabel CellRendererTextFontDescPropertyInfo = "CellRendererText::font-desc" + attrGet _ = getCellRendererTextFontDesc + attrSet _ = setCellRendererTextFontDesc + attrConstruct _ = constructCellRendererTextFontDesc + +-- VVV Prop "foreground" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setCellRendererTextForeground :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () +setCellRendererTextForeground obj val = liftIO $ setObjectPropertyString obj "foreground" val + +constructCellRendererTextForeground :: T.Text -> IO ([Char], GValue) +constructCellRendererTextForeground val = constructObjectPropertyString "foreground" val + +data CellRendererTextForegroundPropertyInfo +instance AttrInfo CellRendererTextForegroundPropertyInfo where + type AttrAllowedOps CellRendererTextForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint CellRendererTextForegroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererTextForegroundPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextForegroundPropertyInfo = () + type AttrLabel CellRendererTextForegroundPropertyInfo = "CellRendererText::foreground" + attrGet _ = undefined + attrSet _ = setCellRendererTextForeground + attrConstruct _ = constructCellRendererTextForeground + +-- VVV Prop "foreground-gdk" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextForegroundGdk :: (MonadIO m, CellRendererTextK o) => o -> m 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" val + +constructCellRendererTextForegroundGdk :: Gdk.Color -> IO ([Char], GValue) +constructCellRendererTextForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" val + +data CellRendererTextForegroundGdkPropertyInfo +instance AttrInfo CellRendererTextForegroundGdkPropertyInfo where + type AttrAllowedOps CellRendererTextForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextForegroundGdkPropertyInfo = (~) Gdk.Color + type AttrBaseTypeConstraint CellRendererTextForegroundGdkPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextForegroundGdkPropertyInfo = Gdk.Color + type AttrLabel CellRendererTextForegroundGdkPropertyInfo = "CellRendererText::foreground-gdk" + attrGet _ = getCellRendererTextForegroundGdk + attrSet _ = setCellRendererTextForegroundGdk + attrConstruct _ = constructCellRendererTextForegroundGdk + +-- VVV Prop "foreground-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextForegroundRgba :: (MonadIO m, CellRendererTextK o) => o -> m 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" val + +constructCellRendererTextForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructCellRendererTextForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" val + +data CellRendererTextForegroundRgbaPropertyInfo +instance AttrInfo CellRendererTextForegroundRgbaPropertyInfo where + type AttrAllowedOps CellRendererTextForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint CellRendererTextForegroundRgbaPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextForegroundRgbaPropertyInfo = Gdk.RGBA + type AttrLabel CellRendererTextForegroundRgbaPropertyInfo = "CellRendererText::foreground-rgba" + attrGet _ = getCellRendererTextForegroundRgba + attrSet _ = setCellRendererTextForegroundRgba + attrConstruct _ = constructCellRendererTextForegroundRgba + +-- VVV Prop "foreground-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::foreground-set" + attrGet _ = getCellRendererTextForegroundSet + attrSet _ = setCellRendererTextForegroundSet + attrConstruct _ = constructCellRendererTextForegroundSet + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextLanguage obj = liftIO $ getObjectPropertyString obj "language" + +setCellRendererTextLanguage :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () +setCellRendererTextLanguage obj val = liftIO $ setObjectPropertyString obj "language" val + +constructCellRendererTextLanguage :: T.Text -> IO ([Char], GValue) +constructCellRendererTextLanguage val = constructObjectPropertyString "language" val + +data CellRendererTextLanguagePropertyInfo +instance AttrInfo CellRendererTextLanguagePropertyInfo where + type AttrAllowedOps CellRendererTextLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextLanguagePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererTextLanguagePropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextLanguagePropertyInfo = T.Text + type AttrLabel CellRendererTextLanguagePropertyInfo = "CellRendererText::language" + attrGet _ = getCellRendererTextLanguage + attrSet _ = setCellRendererTextLanguage + attrConstruct _ = constructCellRendererTextLanguage + +-- VVV Prop "language-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::language-set" + attrGet _ = getCellRendererTextLanguageSet + attrSet _ = setCellRendererTextLanguageSet + attrConstruct _ = constructCellRendererTextLanguageSet + +-- VVV Prop "markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setCellRendererTextMarkup :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () +setCellRendererTextMarkup obj val = liftIO $ setObjectPropertyString obj "markup" val + +constructCellRendererTextMarkup :: T.Text -> IO ([Char], GValue) +constructCellRendererTextMarkup val = constructObjectPropertyString "markup" val + +data CellRendererTextMarkupPropertyInfo +instance AttrInfo CellRendererTextMarkupPropertyInfo where + type AttrAllowedOps CellRendererTextMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint CellRendererTextMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererTextMarkupPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextMarkupPropertyInfo = () + type AttrLabel CellRendererTextMarkupPropertyInfo = "CellRendererText::markup" + attrGet _ = undefined + attrSet _ = setCellRendererTextMarkup + attrConstruct _ = constructCellRendererTextMarkup + +-- VVV Prop "max-width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32 +getCellRendererTextMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" + +setCellRendererTextMaxWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () +setCellRendererTextMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val + +constructCellRendererTextMaxWidthChars :: Int32 -> IO ([Char], GValue) +constructCellRendererTextMaxWidthChars val = constructObjectPropertyCInt "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 = "CellRendererText::max-width-chars" + attrGet _ = getCellRendererTextMaxWidthChars + attrSet _ = setCellRendererTextMaxWidthChars + attrConstruct _ = constructCellRendererTextMaxWidthChars + +-- VVV Prop "placeholder-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextPlaceholderText :: (MonadIO m, CellRendererTextK o) => o -> m 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" val + +constructCellRendererTextPlaceholderText :: T.Text -> IO ([Char], GValue) +constructCellRendererTextPlaceholderText val = constructObjectPropertyString "placeholder-text" val + +data CellRendererTextPlaceholderTextPropertyInfo +instance AttrInfo CellRendererTextPlaceholderTextPropertyInfo where + type AttrAllowedOps CellRendererTextPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererTextPlaceholderTextPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextPlaceholderTextPropertyInfo = T.Text + type AttrLabel CellRendererTextPlaceholderTextPropertyInfo = "CellRendererText::placeholder-text" + attrGet _ = getCellRendererTextPlaceholderText + attrSet _ = setCellRendererTextPlaceholderText + attrConstruct _ = constructCellRendererTextPlaceholderText + +-- VVV Prop "rise" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> m Int32 +getCellRendererTextRise obj = liftIO $ getObjectPropertyCInt obj "rise" + +setCellRendererTextRise :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () +setCellRendererTextRise obj val = liftIO $ setObjectPropertyCInt obj "rise" val + +constructCellRendererTextRise :: Int32 -> IO ([Char], GValue) +constructCellRendererTextRise val = constructObjectPropertyCInt "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 = "CellRendererText::rise" + attrGet _ = getCellRendererTextRise + attrSet _ = setCellRendererTextRise + attrConstruct _ = constructCellRendererTextRise + +-- VVV Prop "rise-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::rise-set" + attrGet _ = getCellRendererTextRiseSet + attrSet _ = setCellRendererTextRiseSet + attrConstruct _ = constructCellRendererTextRiseSet + +-- VVV Prop "scale" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::scale" + attrGet _ = getCellRendererTextScale + attrSet _ = setCellRendererTextScale + attrConstruct _ = constructCellRendererTextScale + +-- VVV Prop "scale-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::scale-set" + attrGet _ = getCellRendererTextScaleSet + attrSet _ = setCellRendererTextScaleSet + attrConstruct _ = constructCellRendererTextScaleSet + +-- VVV Prop "single-paragraph-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::single-paragraph-mode" + attrGet _ = getCellRendererTextSingleParagraphMode + attrSet _ = setCellRendererTextSingleParagraphMode + attrConstruct _ = constructCellRendererTextSingleParagraphMode + +-- VVV Prop "size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> m Int32 +getCellRendererTextSize obj = liftIO $ getObjectPropertyCInt obj "size" + +setCellRendererTextSize :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () +setCellRendererTextSize obj val = liftIO $ setObjectPropertyCInt obj "size" val + +constructCellRendererTextSize :: Int32 -> IO ([Char], GValue) +constructCellRendererTextSize val = constructObjectPropertyCInt "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 = "CellRendererText::size" + attrGet _ = getCellRendererTextSize + attrSet _ = setCellRendererTextSize + attrConstruct _ = constructCellRendererTextSize + +-- VVV Prop "size-points" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::size-points" + attrGet _ = getCellRendererTextSizePoints + attrSet _ = setCellRendererTextSizePoints + attrConstruct _ = constructCellRendererTextSizePoints + +-- VVV Prop "size-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::size-set" + attrGet _ = getCellRendererTextSizeSet + attrSet _ = setCellRendererTextSizeSet + attrConstruct _ = constructCellRendererTextSizeSet + +-- VVV Prop "stretch" + -- Type: TInterface "Pango" "Stretch" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::stretch" + attrGet _ = getCellRendererTextStretch + attrSet _ = setCellRendererTextStretch + attrConstruct _ = constructCellRendererTextStretch + +-- VVV Prop "stretch-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::stretch-set" + attrGet _ = getCellRendererTextStretchSet + attrSet _ = setCellRendererTextStretchSet + attrConstruct _ = constructCellRendererTextStretchSet + +-- VVV Prop "strikethrough" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::strikethrough" + attrGet _ = getCellRendererTextStrikethrough + attrSet _ = setCellRendererTextStrikethrough + attrConstruct _ = constructCellRendererTextStrikethrough + +-- VVV Prop "strikethrough-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::strikethrough-set" + attrGet _ = getCellRendererTextStrikethroughSet + attrSet _ = setCellRendererTextStrikethroughSet + attrConstruct _ = constructCellRendererTextStrikethroughSet + +-- VVV Prop "style" + -- Type: TInterface "Pango" "Style" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::style" + attrGet _ = getCellRendererTextStyle + attrSet _ = setCellRendererTextStyle + attrConstruct _ = constructCellRendererTextStyle + +-- VVV Prop "style-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::style-set" + attrGet _ = getCellRendererTextStyleSet + attrSet _ = setCellRendererTextStyleSet + attrConstruct _ = constructCellRendererTextStyleSet + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> m T.Text +getCellRendererTextText obj = liftIO $ getObjectPropertyString obj "text" + +setCellRendererTextText :: (MonadIO m, CellRendererTextK o) => o -> T.Text -> m () +setCellRendererTextText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructCellRendererTextText :: T.Text -> IO ([Char], GValue) +constructCellRendererTextText val = constructObjectPropertyString "text" val + +data CellRendererTextTextPropertyInfo +instance AttrInfo CellRendererTextTextPropertyInfo where + type AttrAllowedOps CellRendererTextTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellRendererTextTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellRendererTextTextPropertyInfo = CellRendererTextK + type AttrGetType CellRendererTextTextPropertyInfo = T.Text + type AttrLabel CellRendererTextTextPropertyInfo = "CellRendererText::text" + attrGet _ = getCellRendererTextText + attrSet _ = setCellRendererTextText + attrConstruct _ = constructCellRendererTextText + +-- VVV Prop "underline" + -- Type: TInterface "Pango" "Underline" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::underline" + attrGet _ = getCellRendererTextUnderline + attrSet _ = setCellRendererTextUnderline + attrConstruct _ = constructCellRendererTextUnderline + +-- VVV Prop "underline-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::underline-set" + attrGet _ = getCellRendererTextUnderlineSet + attrSet _ = setCellRendererTextUnderlineSet + attrConstruct _ = constructCellRendererTextUnderlineSet + +-- VVV Prop "variant" + -- Type: TInterface "Pango" "Variant" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::variant" + attrGet _ = getCellRendererTextVariant + attrSet _ = setCellRendererTextVariant + attrConstruct _ = constructCellRendererTextVariant + +-- VVV Prop "variant-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::variant-set" + attrGet _ = getCellRendererTextVariantSet + attrSet _ = setCellRendererTextVariantSet + attrConstruct _ = constructCellRendererTextVariantSet + +-- VVV Prop "weight" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> m Int32 +getCellRendererTextWeight obj = liftIO $ getObjectPropertyCInt obj "weight" + +setCellRendererTextWeight :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () +setCellRendererTextWeight obj val = liftIO $ setObjectPropertyCInt obj "weight" val + +constructCellRendererTextWeight :: Int32 -> IO ([Char], GValue) +constructCellRendererTextWeight val = constructObjectPropertyCInt "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 = "CellRendererText::weight" + attrGet _ = getCellRendererTextWeight + attrSet _ = setCellRendererTextWeight + attrConstruct _ = constructCellRendererTextWeight + +-- VVV Prop "weight-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::weight-set" + attrGet _ = getCellRendererTextWeightSet + attrSet _ = setCellRendererTextWeightSet + attrConstruct _ = constructCellRendererTextWeightSet + +-- VVV Prop "width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> m Int32 +getCellRendererTextWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" + +setCellRendererTextWidthChars :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () +setCellRendererTextWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val + +constructCellRendererTextWidthChars :: Int32 -> IO ([Char], GValue) +constructCellRendererTextWidthChars val = constructObjectPropertyCInt "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 = "CellRendererText::width-chars" + attrGet _ = getCellRendererTextWidthChars + attrSet _ = setCellRendererTextWidthChars + attrConstruct _ = constructCellRendererTextWidthChars + +-- VVV Prop "wrap-mode" + -- Type: TInterface "Pango" "WrapMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererText::wrap-mode" + attrGet _ = getCellRendererTextWrapMode + attrSet _ = setCellRendererTextWrapMode + attrConstruct _ = constructCellRendererTextWrapMode + +-- VVV Prop "wrap-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> m Int32 +getCellRendererTextWrapWidth obj = liftIO $ getObjectPropertyCInt obj "wrap-width" + +setCellRendererTextWrapWidth :: (MonadIO m, CellRendererTextK o) => o -> Int32 -> m () +setCellRendererTextWrapWidth obj val = liftIO $ setObjectPropertyCInt obj "wrap-width" val + +constructCellRendererTextWrapWidth :: Int32 -> IO ([Char], GValue) +constructCellRendererTextWrapWidth val = constructObjectPropertyCInt "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 = "CellRendererText::wrap-width" + attrGet _ = getCellRendererTextWrapWidth + attrSet _ = setCellRendererTextWrapWidth + attrConstruct _ = constructCellRendererTextWrapWidth + +type instance AttributeList CellRendererText = '[ '("align-set", CellRendererTextAlignSetPropertyInfo), '("alignment", CellRendererTextAlignmentPropertyInfo), '("attributes", CellRendererTextAttributesPropertyInfo), '("background", CellRendererTextBackgroundPropertyInfo), '("background-gdk", CellRendererTextBackgroundGdkPropertyInfo), '("background-rgba", CellRendererTextBackgroundRgbaPropertyInfo), '("background-set", CellRendererTextBackgroundSetPropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editable", CellRendererTextEditablePropertyInfo), '("editable-set", CellRendererTextEditableSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("ellipsize", CellRendererTextEllipsizePropertyInfo), '("ellipsize-set", CellRendererTextEllipsizeSetPropertyInfo), '("family", CellRendererTextFamilyPropertyInfo), '("family-set", CellRendererTextFamilySetPropertyInfo), '("font", CellRendererTextFontPropertyInfo), '("font-desc", CellRendererTextFontDescPropertyInfo), '("foreground", CellRendererTextForegroundPropertyInfo), '("foreground-gdk", CellRendererTextForegroundGdkPropertyInfo), '("foreground-rgba", CellRendererTextForegroundRgbaPropertyInfo), '("foreground-set", CellRendererTextForegroundSetPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("language", CellRendererTextLanguagePropertyInfo), '("language-set", CellRendererTextLanguageSetPropertyInfo), '("markup", CellRendererTextMarkupPropertyInfo), '("max-width-chars", CellRendererTextMaxWidthCharsPropertyInfo), '("mode", CellRendererModePropertyInfo), '("placeholder-text", CellRendererTextPlaceholderTextPropertyInfo), '("rise", CellRendererTextRisePropertyInfo), '("rise-set", CellRendererTextRiseSetPropertyInfo), '("scale", CellRendererTextScalePropertyInfo), '("scale-set", CellRendererTextScaleSetPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("single-paragraph-mode", CellRendererTextSingleParagraphModePropertyInfo), '("size", CellRendererTextSizePropertyInfo), '("size-points", CellRendererTextSizePointsPropertyInfo), '("size-set", CellRendererTextSizeSetPropertyInfo), '("stretch", CellRendererTextStretchPropertyInfo), '("stretch-set", CellRendererTextStretchSetPropertyInfo), '("strikethrough", CellRendererTextStrikethroughPropertyInfo), '("strikethrough-set", CellRendererTextStrikethroughSetPropertyInfo), '("style", CellRendererTextStylePropertyInfo), '("style-set", CellRendererTextStyleSetPropertyInfo), '("text", CellRendererTextTextPropertyInfo), '("underline", CellRendererTextUnderlinePropertyInfo), '("underline-set", CellRendererTextUnderlineSetPropertyInfo), '("variant", CellRendererTextVariantPropertyInfo), '("variant-set", CellRendererTextVariantSetPropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("weight", CellRendererTextWeightPropertyInfo), '("weight-set", CellRendererTextWeightSetPropertyInfo), '("width", CellRendererWidthPropertyInfo), '("width-chars", CellRendererTextWidthCharsPropertyInfo), '("wrap-mode", CellRendererTextWrapModePropertyInfo), '("wrap-width", CellRendererTextWrapWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "activatable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererToggle::activatable" + attrGet _ = getCellRendererToggleActivatable + attrSet _ = setCellRendererToggleActivatable + attrConstruct _ = constructCellRendererToggleActivatable + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererToggle::active" + attrGet _ = getCellRendererToggleActive + attrSet _ = setCellRendererToggleActive + attrConstruct _ = constructCellRendererToggleActive + +-- VVV Prop "inconsistent" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererToggle::inconsistent" + attrGet _ = getCellRendererToggleInconsistent + attrSet _ = setCellRendererToggleInconsistent + attrConstruct _ = constructCellRendererToggleInconsistent + +-- VVV Prop "indicator-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> m Int32 +getCellRendererToggleIndicatorSize obj = liftIO $ getObjectPropertyCInt obj "indicator-size" + +setCellRendererToggleIndicatorSize :: (MonadIO m, CellRendererToggleK o) => o -> Int32 -> m () +setCellRendererToggleIndicatorSize obj val = liftIO $ setObjectPropertyCInt obj "indicator-size" val + +constructCellRendererToggleIndicatorSize :: Int32 -> IO ([Char], GValue) +constructCellRendererToggleIndicatorSize val = constructObjectPropertyCInt "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 = "CellRendererToggle::indicator-size" + attrGet _ = getCellRendererToggleIndicatorSize + attrSet _ = setCellRendererToggleIndicatorSize + attrConstruct _ = constructCellRendererToggleIndicatorSize + +-- VVV Prop "radio" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellRendererToggle::radio" + attrGet _ = getCellRendererToggleRadio + attrSet _ = setCellRendererToggleRadio + attrConstruct _ = constructCellRendererToggleRadio + +type instance AttributeList CellRendererToggle = '[ '("activatable", CellRendererToggleActivatablePropertyInfo), '("active", CellRendererToggleActivePropertyInfo), '("cell-background", CellRendererCellBackgroundPropertyInfo), '("cell-background-gdk", CellRendererCellBackgroundGdkPropertyInfo), '("cell-background-rgba", CellRendererCellBackgroundRgbaPropertyInfo), '("cell-background-set", CellRendererCellBackgroundSetPropertyInfo), '("editing", CellRendererEditingPropertyInfo), '("height", CellRendererHeightPropertyInfo), '("inconsistent", CellRendererToggleInconsistentPropertyInfo), '("indicator-size", CellRendererToggleIndicatorSizePropertyInfo), '("is-expanded", CellRendererIsExpandedPropertyInfo), '("is-expander", CellRendererIsExpanderPropertyInfo), '("mode", CellRendererModePropertyInfo), '("radio", CellRendererToggleRadioPropertyInfo), '("sensitive", CellRendererSensitivePropertyInfo), '("visible", CellRendererVisiblePropertyInfo), '("width", CellRendererWidthPropertyInfo), '("xalign", CellRendererXalignPropertyInfo), '("xpad", CellRendererXpadPropertyInfo), '("yalign", CellRendererYalignPropertyInfo), '("ypad", CellRendererYpadPropertyInfo)] + +-- VVV Prop "background" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setCellViewBackground :: (MonadIO m, CellViewK o) => o -> T.Text -> m () +setCellViewBackground obj val = liftIO $ setObjectPropertyString obj "background" val + +constructCellViewBackground :: T.Text -> IO ([Char], GValue) +constructCellViewBackground val = constructObjectPropertyString "background" val + +data CellViewBackgroundPropertyInfo +instance AttrInfo CellViewBackgroundPropertyInfo where + type AttrAllowedOps CellViewBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint CellViewBackgroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CellViewBackgroundPropertyInfo = CellViewK + type AttrGetType CellViewBackgroundPropertyInfo = () + type AttrLabel CellViewBackgroundPropertyInfo = "CellView::background" + attrGet _ = undefined + attrSet _ = setCellViewBackground + attrConstruct _ = constructCellViewBackground + +-- VVV Prop "background-gdk" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellViewBackgroundGdk :: (MonadIO m, CellViewK o) => o -> m 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" val + +constructCellViewBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) +constructCellViewBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val + +data CellViewBackgroundGdkPropertyInfo +instance AttrInfo CellViewBackgroundGdkPropertyInfo where + type AttrAllowedOps CellViewBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellViewBackgroundGdkPropertyInfo = (~) Gdk.Color + type AttrBaseTypeConstraint CellViewBackgroundGdkPropertyInfo = CellViewK + type AttrGetType CellViewBackgroundGdkPropertyInfo = Gdk.Color + type AttrLabel CellViewBackgroundGdkPropertyInfo = "CellView::background-gdk" + attrGet _ = getCellViewBackgroundGdk + attrSet _ = setCellViewBackgroundGdk + attrConstruct _ = constructCellViewBackgroundGdk + +-- VVV Prop "background-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellViewBackgroundRgba :: (MonadIO m, CellViewK o) => o -> m 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" val + +constructCellViewBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructCellViewBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" 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 = Gdk.RGBA + type AttrLabel CellViewBackgroundRgbaPropertyInfo = "CellView::background-rgba" + attrGet _ = getCellViewBackgroundRgba + attrSet _ = setCellViewBackgroundRgba + attrConstruct _ = constructCellViewBackgroundRgba + +-- VVV Prop "background-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellView::background-set" + attrGet _ = getCellViewBackgroundSet + attrSet _ = setCellViewBackgroundSet + attrConstruct _ = constructCellViewBackgroundSet + +-- VVV Prop "cell-area" + -- Type: TInterface "Gtk" "CellArea" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCellViewCellArea :: (MonadIO m, CellViewK o) => o -> m CellArea +getCellViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea + +constructCellViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) +constructCellViewCellArea val = constructObjectPropertyObject "cell-area" val + +data CellViewCellAreaPropertyInfo +instance AttrInfo CellViewCellAreaPropertyInfo where + type AttrAllowedOps CellViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellViewCellAreaPropertyInfo = CellAreaK + type AttrBaseTypeConstraint CellViewCellAreaPropertyInfo = CellViewK + type AttrGetType CellViewCellAreaPropertyInfo = CellArea + type AttrLabel CellViewCellAreaPropertyInfo = "CellView::cell-area" + attrGet _ = getCellViewCellArea + attrSet _ = undefined + attrConstruct _ = constructCellViewCellArea + +-- VVV Prop "cell-area-context" + -- Type: TInterface "Gtk" "CellAreaContext" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCellViewCellAreaContext :: (MonadIO m, CellViewK o) => o -> m CellAreaContext +getCellViewCellAreaContext obj = liftIO $ getObjectPropertyObject obj "cell-area-context" CellAreaContext + +constructCellViewCellAreaContext :: (CellAreaContextK a) => a -> IO ([Char], GValue) +constructCellViewCellAreaContext val = constructObjectPropertyObject "cell-area-context" val + +data CellViewCellAreaContextPropertyInfo +instance AttrInfo CellViewCellAreaContextPropertyInfo where + type AttrAllowedOps CellViewCellAreaContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellViewCellAreaContextPropertyInfo = CellAreaContextK + type AttrBaseTypeConstraint CellViewCellAreaContextPropertyInfo = CellViewK + type AttrGetType CellViewCellAreaContextPropertyInfo = CellAreaContext + type AttrLabel CellViewCellAreaContextPropertyInfo = "CellView::cell-area-context" + attrGet _ = getCellViewCellAreaContext + attrSet _ = undefined + attrConstruct _ = constructCellViewCellAreaContext + +-- VVV Prop "draw-sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellView::draw-sensitive" + attrGet _ = getCellViewDrawSensitive + attrSet _ = setCellViewDrawSensitive + attrConstruct _ = constructCellViewDrawSensitive + +-- VVV Prop "fit-model" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CellView::fit-model" + attrGet _ = getCellViewFitModel + attrSet _ = setCellViewFitModel + attrConstruct _ = constructCellViewFitModel + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getCellViewModel :: (MonadIO m, CellViewK o) => o -> m TreeModel +getCellViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel + +setCellViewModel :: (MonadIO m, CellViewK o, TreeModelK a) => o -> a -> m () +setCellViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val + +constructCellViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructCellViewModel val = constructObjectPropertyObject "model" val + +data CellViewModelPropertyInfo +instance AttrInfo CellViewModelPropertyInfo where + type AttrAllowedOps CellViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CellViewModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint CellViewModelPropertyInfo = CellViewK + type AttrGetType CellViewModelPropertyInfo = TreeModel + type AttrLabel CellViewModelPropertyInfo = "CellView::model" + attrGet _ = getCellViewModel + attrSet _ = setCellViewModel + attrConstruct _ = constructCellViewModel + +type instance AttributeList CellView = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("background", CellViewBackgroundPropertyInfo), '("background-gdk", CellViewBackgroundGdkPropertyInfo), '("background-rgba", CellViewBackgroundRgbaPropertyInfo), '("background-set", CellViewBackgroundSetPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", CellViewCellAreaPropertyInfo), '("cell-area-context", CellViewCellAreaContextPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-sensitive", CellViewDrawSensitivePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fit-model", CellViewFitModelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", CellViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList CheckButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CheckMenuItem::active" + attrGet _ = getCheckMenuItemActive + attrSet _ = setCheckMenuItemActive + attrConstruct _ = constructCheckMenuItemActive + +-- VVV Prop "draw-as-radio" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CheckMenuItem::draw-as-radio" + attrGet _ = getCheckMenuItemDrawAsRadio + attrSet _ = setCheckMenuItemDrawAsRadio + attrConstruct _ = constructCheckMenuItemDrawAsRadio + +-- VVV Prop "inconsistent" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "CheckMenuItem::inconsistent" + attrGet _ = getCheckMenuItemInconsistent + attrSet _ = setCheckMenuItemInconsistent + attrConstruct _ = constructCheckMenuItemInconsistent + +type instance AttributeList CheckMenuItem = '[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-as-radio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList CheckMenuItemAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList Clipboard = '[ ] + +-- VVV Prop "alpha" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> m Word32 +getColorButtonAlpha obj = liftIO $ getObjectPropertyCUInt obj "alpha" + +setColorButtonAlpha :: (MonadIO m, ColorButtonK o) => o -> Word32 -> m () +setColorButtonAlpha obj val = liftIO $ setObjectPropertyCUInt obj "alpha" val + +constructColorButtonAlpha :: Word32 -> IO ([Char], GValue) +constructColorButtonAlpha val = constructObjectPropertyCUInt "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 = "ColorButton::alpha" + attrGet _ = getColorButtonAlpha + attrSet _ = setColorButtonAlpha + attrConstruct _ = constructColorButtonAlpha + +-- VVV Prop "color" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getColorButtonColor :: (MonadIO m, ColorButtonK o) => o -> m 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" val + +constructColorButtonColor :: Gdk.Color -> IO ([Char], GValue) +constructColorButtonColor val = constructObjectPropertyBoxed "color" 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 = Gdk.Color + type AttrLabel ColorButtonColorPropertyInfo = "ColorButton::color" + attrGet _ = getColorButtonColor + attrSet _ = setColorButtonColor + attrConstruct _ = constructColorButtonColor + +-- VVV Prop "rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getColorButtonRgba :: (MonadIO m, ColorButtonK o) => o -> m 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" val + +constructColorButtonRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructColorButtonRgba val = constructObjectPropertyBoxed "rgba" val + +data ColorButtonRgbaPropertyInfo +instance AttrInfo ColorButtonRgbaPropertyInfo where + type AttrAllowedOps ColorButtonRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ColorButtonRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint ColorButtonRgbaPropertyInfo = ColorButtonK + type AttrGetType ColorButtonRgbaPropertyInfo = Gdk.RGBA + type AttrLabel ColorButtonRgbaPropertyInfo = "ColorButton::rgba" + attrGet _ = getColorButtonRgba + attrSet _ = setColorButtonRgba + attrConstruct _ = constructColorButtonRgba + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> m T.Text +getColorButtonTitle obj = liftIO $ getObjectPropertyString obj "title" + +setColorButtonTitle :: (MonadIO m, ColorButtonK o) => o -> T.Text -> m () +setColorButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructColorButtonTitle :: T.Text -> IO ([Char], GValue) +constructColorButtonTitle val = constructObjectPropertyString "title" 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 = "ColorButton::title" + attrGet _ = getColorButtonTitle + attrSet _ = setColorButtonTitle + attrConstruct _ = constructColorButtonTitle + +-- VVV Prop "use-alpha" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ColorButton::use-alpha" + attrGet _ = getColorButtonUseAlpha + attrSet _ = setColorButtonUseAlpha + attrConstruct _ = constructColorButtonUseAlpha + +type instance AttributeList ColorButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("alpha", ColorButtonAlphaPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("color", ColorButtonColorPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorButtonRgbaPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", ColorButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-alpha", ColorButtonUseAlphaPropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +-- VVV Prop "rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getColorChooserRgba :: (MonadIO m, ColorChooserK o) => o -> m 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" val + +constructColorChooserRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructColorChooserRgba val = constructObjectPropertyBoxed "rgba" 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 = Gdk.RGBA + type AttrLabel ColorChooserRgbaPropertyInfo = "ColorChooser::rgba" + attrGet _ = getColorChooserRgba + attrSet _ = setColorChooserRgba + attrConstruct _ = constructColorChooserRgba + +-- VVV Prop "use-alpha" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ColorChooser::use-alpha" + attrGet _ = getColorChooserUseAlpha + attrSet _ = setColorChooserUseAlpha + attrConstruct _ = constructColorChooserUseAlpha + +type instance AttributeList ColorChooser = '[ '("rgba", ColorChooserRgbaPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo)] + +-- VVV Prop "show-editor" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ColorChooserDialog::show-editor" + attrGet _ = getColorChooserDialogShowEditor + attrSet _ = setColorChooserDialogShowEditor + attrConstruct _ = constructColorChooserDialogShowEditor + +type instance AttributeList ColorChooserDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-editor", ColorChooserDialogShowEditorPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "show-editor" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ColorChooserWidget::show-editor" + attrGet _ = getColorChooserWidgetShowEditor + attrSet _ = setColorChooserWidgetShowEditor + attrConstruct _ = constructColorChooserWidgetShowEditor + +type instance AttributeList ColorChooserWidget = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rgba", ColorChooserRgbaPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-editor", ColorChooserWidgetShowEditorPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-alpha", ColorChooserUseAlphaPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "current-alpha" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> m Word32 +getColorSelectionCurrentAlpha obj = liftIO $ getObjectPropertyCUInt obj "current-alpha" + +setColorSelectionCurrentAlpha :: (MonadIO m, ColorSelectionK o) => o -> Word32 -> m () +setColorSelectionCurrentAlpha obj val = liftIO $ setObjectPropertyCUInt obj "current-alpha" val + +constructColorSelectionCurrentAlpha :: Word32 -> IO ([Char], GValue) +constructColorSelectionCurrentAlpha val = constructObjectPropertyCUInt "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 = "ColorSelection::current-alpha" + attrGet _ = getColorSelectionCurrentAlpha + attrSet _ = setColorSelectionCurrentAlpha + attrConstruct _ = constructColorSelectionCurrentAlpha + +-- VVV Prop "current-color" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getColorSelectionCurrentColor :: (MonadIO m, ColorSelectionK o) => o -> m 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" val + +constructColorSelectionCurrentColor :: Gdk.Color -> IO ([Char], GValue) +constructColorSelectionCurrentColor val = constructObjectPropertyBoxed "current-color" 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 = Gdk.Color + type AttrLabel ColorSelectionCurrentColorPropertyInfo = "ColorSelection::current-color" + attrGet _ = getColorSelectionCurrentColor + attrSet _ = setColorSelectionCurrentColor + attrConstruct _ = constructColorSelectionCurrentColor + +-- VVV Prop "current-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getColorSelectionCurrentRgba :: (MonadIO m, ColorSelectionK o) => o -> m 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" val + +constructColorSelectionCurrentRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructColorSelectionCurrentRgba val = constructObjectPropertyBoxed "current-rgba" 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 = Gdk.RGBA + type AttrLabel ColorSelectionCurrentRgbaPropertyInfo = "ColorSelection::current-rgba" + attrGet _ = getColorSelectionCurrentRgba + attrSet _ = setColorSelectionCurrentRgba + attrConstruct _ = constructColorSelectionCurrentRgba + +-- VVV Prop "has-opacity-control" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ColorSelection::has-opacity-control" + attrGet _ = getColorSelectionHasOpacityControl + attrSet _ = setColorSelectionHasOpacityControl + attrConstruct _ = constructColorSelectionHasOpacityControl + +-- VVV Prop "has-palette" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ColorSelection::has-palette" + attrGet _ = getColorSelectionHasPalette + attrSet _ = setColorSelectionHasPalette + attrConstruct _ = constructColorSelectionHasPalette + +type instance AttributeList ColorSelection = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("current-alpha", ColorSelectionCurrentAlphaPropertyInfo), '("current-color", ColorSelectionCurrentColorPropertyInfo), '("current-rgba", ColorSelectionCurrentRgbaPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-opacity-control", ColorSelectionHasOpacityControlPropertyInfo), '("has-palette", ColorSelectionHasPalettePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "cancel-button" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable] + +getColorSelectionDialogCancelButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget +getColorSelectionDialogCancelButton obj = liftIO $ getObjectPropertyObject obj "cancel-button" Widget + +data ColorSelectionDialogCancelButtonPropertyInfo +instance AttrInfo ColorSelectionDialogCancelButtonPropertyInfo where + type AttrAllowedOps ColorSelectionDialogCancelButtonPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = (~) () + type AttrBaseTypeConstraint ColorSelectionDialogCancelButtonPropertyInfo = ColorSelectionDialogK + type AttrGetType ColorSelectionDialogCancelButtonPropertyInfo = Widget + type AttrLabel ColorSelectionDialogCancelButtonPropertyInfo = "ColorSelectionDialog::cancel-button" + attrGet _ = getColorSelectionDialogCancelButton + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "color-selection" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable] + +getColorSelectionDialogColorSelection :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget +getColorSelectionDialogColorSelection obj = liftIO $ getObjectPropertyObject obj "color-selection" Widget + +data ColorSelectionDialogColorSelectionPropertyInfo +instance AttrInfo ColorSelectionDialogColorSelectionPropertyInfo where + type AttrAllowedOps ColorSelectionDialogColorSelectionPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = (~) () + type AttrBaseTypeConstraint ColorSelectionDialogColorSelectionPropertyInfo = ColorSelectionDialogK + type AttrGetType ColorSelectionDialogColorSelectionPropertyInfo = Widget + type AttrLabel ColorSelectionDialogColorSelectionPropertyInfo = "ColorSelectionDialog::color-selection" + attrGet _ = getColorSelectionDialogColorSelection + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "help-button" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable] + +getColorSelectionDialogHelpButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget +getColorSelectionDialogHelpButton obj = liftIO $ getObjectPropertyObject obj "help-button" Widget + +data ColorSelectionDialogHelpButtonPropertyInfo +instance AttrInfo ColorSelectionDialogHelpButtonPropertyInfo where + type AttrAllowedOps ColorSelectionDialogHelpButtonPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = (~) () + type AttrBaseTypeConstraint ColorSelectionDialogHelpButtonPropertyInfo = ColorSelectionDialogK + type AttrGetType ColorSelectionDialogHelpButtonPropertyInfo = Widget + type AttrLabel ColorSelectionDialogHelpButtonPropertyInfo = "ColorSelectionDialog::help-button" + attrGet _ = getColorSelectionDialogHelpButton + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ok-button" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable] + +getColorSelectionDialogOkButton :: (MonadIO m, ColorSelectionDialogK o) => o -> m Widget +getColorSelectionDialogOkButton obj = liftIO $ getObjectPropertyObject obj "ok-button" Widget + +data ColorSelectionDialogOkButtonPropertyInfo +instance AttrInfo ColorSelectionDialogOkButtonPropertyInfo where + type AttrAllowedOps ColorSelectionDialogOkButtonPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = (~) () + type AttrBaseTypeConstraint ColorSelectionDialogOkButtonPropertyInfo = ColorSelectionDialogK + type AttrGetType ColorSelectionDialogOkButtonPropertyInfo = Widget + type AttrLabel ColorSelectionDialogOkButtonPropertyInfo = "ColorSelectionDialog::ok-button" + attrGet _ = getColorSelectionDialogOkButton + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList ColorSelectionDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cancel-button", ColorSelectionDialogCancelButtonPropertyInfo), '("child", ContainerChildPropertyInfo), '("color-selection", ColorSelectionDialogColorSelectionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("help-button", ColorSelectionDialogHelpButtonPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("ok-button", ColorSelectionDialogOkButtonPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "active" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> m Int32 +getComboBoxActive obj = liftIO $ getObjectPropertyCInt obj "active" + +setComboBoxActive :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () +setComboBoxActive obj val = liftIO $ setObjectPropertyCInt obj "active" val + +constructComboBoxActive :: Int32 -> IO ([Char], GValue) +constructComboBoxActive val = constructObjectPropertyCInt "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 = "ComboBox::active" + attrGet _ = getComboBoxActive + attrSet _ = setComboBoxActive + attrConstruct _ = constructComboBoxActive + +-- VVV Prop "active-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxActiveId :: (MonadIO m, ComboBoxK o) => o -> m 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" val + +constructComboBoxActiveId :: T.Text -> IO ([Char], GValue) +constructComboBoxActiveId val = constructObjectPropertyString "active-id" val + +data ComboBoxActiveIdPropertyInfo +instance AttrInfo ComboBoxActiveIdPropertyInfo where + type AttrAllowedOps ComboBoxActiveIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ComboBoxActiveIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ComboBoxActiveIdPropertyInfo = ComboBoxK + type AttrGetType ComboBoxActiveIdPropertyInfo = T.Text + type AttrLabel ComboBoxActiveIdPropertyInfo = "ComboBox::active-id" + attrGet _ = getComboBoxActiveId + attrSet _ = setComboBoxActiveId + attrConstruct _ = constructComboBoxActiveId + +-- VVV Prop "add-tearoffs" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ComboBox::add-tearoffs" + attrGet _ = getComboBoxAddTearoffs + attrSet _ = setComboBoxAddTearoffs + attrConstruct _ = constructComboBoxAddTearoffs + +-- VVV Prop "button-sensitivity" + -- Type: TInterface "Gtk" "SensitivityType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ComboBox::button-sensitivity" + attrGet _ = getComboBoxButtonSensitivity + attrSet _ = setComboBoxButtonSensitivity + attrConstruct _ = constructComboBoxButtonSensitivity + +-- VVV Prop "cell-area" + -- Type: TInterface "Gtk" "CellArea" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getComboBoxCellArea :: (MonadIO m, ComboBoxK o) => o -> m CellArea +getComboBoxCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea + +constructComboBoxCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) +constructComboBoxCellArea val = constructObjectPropertyObject "cell-area" val + +data ComboBoxCellAreaPropertyInfo +instance AttrInfo ComboBoxCellAreaPropertyInfo where + type AttrAllowedOps ComboBoxCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ComboBoxCellAreaPropertyInfo = CellAreaK + type AttrBaseTypeConstraint ComboBoxCellAreaPropertyInfo = ComboBoxK + type AttrGetType ComboBoxCellAreaPropertyInfo = CellArea + type AttrLabel ComboBoxCellAreaPropertyInfo = "ComboBox::cell-area" + attrGet _ = getComboBoxCellArea + attrSet _ = undefined + attrConstruct _ = constructComboBoxCellArea + +-- VVV Prop "column-span-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 +getComboBoxColumnSpanColumn obj = liftIO $ getObjectPropertyCInt obj "column-span-column" + +setComboBoxColumnSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () +setComboBoxColumnSpanColumn obj val = liftIO $ setObjectPropertyCInt obj "column-span-column" val + +constructComboBoxColumnSpanColumn :: Int32 -> IO ([Char], GValue) +constructComboBoxColumnSpanColumn val = constructObjectPropertyCInt "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 = "ComboBox::column-span-column" + attrGet _ = getComboBoxColumnSpanColumn + attrSet _ = setComboBoxColumnSpanColumn + attrConstruct _ = constructComboBoxColumnSpanColumn + +-- VVV Prop "entry-text-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 +getComboBoxEntryTextColumn obj = liftIO $ getObjectPropertyCInt obj "entry-text-column" + +setComboBoxEntryTextColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () +setComboBoxEntryTextColumn obj val = liftIO $ setObjectPropertyCInt obj "entry-text-column" val + +constructComboBoxEntryTextColumn :: Int32 -> IO ([Char], GValue) +constructComboBoxEntryTextColumn val = constructObjectPropertyCInt "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 = "ComboBox::entry-text-column" + attrGet _ = getComboBoxEntryTextColumn + attrSet _ = setComboBoxEntryTextColumn + attrConstruct _ = constructComboBoxEntryTextColumn + +-- VVV Prop "focus-on-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ComboBox::focus-on-click" + attrGet _ = getComboBoxFocusOnClick + attrSet _ = setComboBoxFocusOnClick + attrConstruct _ = constructComboBoxFocusOnClick + +-- VVV Prop "has-entry" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +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 = "ComboBox::has-entry" + attrGet _ = getComboBoxHasEntry + attrSet _ = undefined + attrConstruct _ = constructComboBoxHasEntry + +-- VVV Prop "has-frame" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ComboBox::has-frame" + attrGet _ = getComboBoxHasFrame + attrSet _ = setComboBoxHasFrame + attrConstruct _ = constructComboBoxHasFrame + +-- VVV Prop "id-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 +getComboBoxIdColumn obj = liftIO $ getObjectPropertyCInt obj "id-column" + +setComboBoxIdColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () +setComboBoxIdColumn obj val = liftIO $ setObjectPropertyCInt obj "id-column" val + +constructComboBoxIdColumn :: Int32 -> IO ([Char], GValue) +constructComboBoxIdColumn val = constructObjectPropertyCInt "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 = "ComboBox::id-column" + attrGet _ = getComboBoxIdColumn + attrSet _ = setComboBoxIdColumn + attrConstruct _ = constructComboBoxIdColumn + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxModel :: (MonadIO m, ComboBoxK o) => o -> m TreeModel +getComboBoxModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel + +setComboBoxModel :: (MonadIO m, ComboBoxK o, TreeModelK a) => o -> a -> m () +setComboBoxModel obj val = liftIO $ setObjectPropertyObject obj "model" val + +constructComboBoxModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructComboBoxModel val = constructObjectPropertyObject "model" val + +data ComboBoxModelPropertyInfo +instance AttrInfo ComboBoxModelPropertyInfo where + type AttrAllowedOps ComboBoxModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ComboBoxModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint ComboBoxModelPropertyInfo = ComboBoxK + type AttrGetType ComboBoxModelPropertyInfo = TreeModel + type AttrLabel ComboBoxModelPropertyInfo = "ComboBox::model" + attrGet _ = getComboBoxModel + attrSet _ = setComboBoxModel + attrConstruct _ = constructComboBoxModel + +-- VVV Prop "popup-fixed-width" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ComboBox::popup-fixed-width" + attrGet _ = getComboBoxPopupFixedWidth + attrSet _ = setComboBoxPopupFixedWidth + attrConstruct _ = constructComboBoxPopupFixedWidth + +-- VVV Prop "popup-shown" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "ComboBox::popup-shown" + attrGet _ = getComboBoxPopupShown + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "row-span-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> m Int32 +getComboBoxRowSpanColumn obj = liftIO $ getObjectPropertyCInt obj "row-span-column" + +setComboBoxRowSpanColumn :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () +setComboBoxRowSpanColumn obj val = liftIO $ setObjectPropertyCInt obj "row-span-column" val + +constructComboBoxRowSpanColumn :: Int32 -> IO ([Char], GValue) +constructComboBoxRowSpanColumn val = constructObjectPropertyCInt "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 = "ComboBox::row-span-column" + attrGet _ = getComboBoxRowSpanColumn + attrSet _ = setComboBoxRowSpanColumn + attrConstruct _ = constructComboBoxRowSpanColumn + +-- VVV Prop "tearoff-title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxTearoffTitle :: (MonadIO m, ComboBoxK o) => o -> m 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" val + +constructComboBoxTearoffTitle :: T.Text -> IO ([Char], GValue) +constructComboBoxTearoffTitle val = constructObjectPropertyString "tearoff-title" val + +data ComboBoxTearoffTitlePropertyInfo +instance AttrInfo ComboBoxTearoffTitlePropertyInfo where + type AttrAllowedOps ComboBoxTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ComboBoxTearoffTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ComboBoxTearoffTitlePropertyInfo = ComboBoxK + type AttrGetType ComboBoxTearoffTitlePropertyInfo = T.Text + type AttrLabel ComboBoxTearoffTitlePropertyInfo = "ComboBox::tearoff-title" + attrGet _ = getComboBoxTearoffTitle + attrSet _ = setComboBoxTearoffTitle + attrConstruct _ = constructComboBoxTearoffTitle + +-- VVV Prop "wrap-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> m Int32 +getComboBoxWrapWidth obj = liftIO $ getObjectPropertyCInt obj "wrap-width" + +setComboBoxWrapWidth :: (MonadIO m, ComboBoxK o) => o -> Int32 -> m () +setComboBoxWrapWidth obj val = liftIO $ setObjectPropertyCInt obj "wrap-width" val + +constructComboBoxWrapWidth :: Int32 -> IO ([Char], GValue) +constructComboBoxWrapWidth val = constructObjectPropertyCInt "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 = "ComboBox::wrap-width" + attrGet _ = getComboBoxWrapWidth + attrSet _ = setComboBoxWrapWidth + attrConstruct _ = constructComboBoxWrapWidth + +type instance AttributeList ComboBox = '[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] + +type instance AttributeList ComboBoxAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList ComboBoxText = '[ '("active", ComboBoxActivePropertyInfo), '("active-id", ComboBoxActiveIdPropertyInfo), '("add-tearoffs", ComboBoxAddTearoffsPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("button-sensitivity", ComboBoxButtonSensitivityPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", ComboBoxCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-span-column", ComboBoxColumnSpanColumnPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("entry-text-column", ComboBoxEntryTextColumnPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ComboBoxFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-entry", ComboBoxHasEntryPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", ComboBoxHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("id-column", ComboBoxIdColumnPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", ComboBoxModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popup-fixed-width", ComboBoxPopupFixedWidthPropertyInfo), '("popup-shown", ComboBoxPopupShownPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-span-column", ComboBoxRowSpanColumnPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tearoff-title", ComboBoxTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-width", ComboBoxWrapWidthPropertyInfo)] + +-- VVV Prop "border-width" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> m Word32 +getContainerBorderWidth obj = liftIO $ getObjectPropertyCUInt obj "border-width" + +setContainerBorderWidth :: (MonadIO m, ContainerK o) => o -> Word32 -> m () +setContainerBorderWidth obj val = liftIO $ setObjectPropertyCUInt obj "border-width" val + +constructContainerBorderWidth :: Word32 -> IO ([Char], GValue) +constructContainerBorderWidth val = constructObjectPropertyCUInt "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 = "Container::border-width" + attrGet _ = getContainerBorderWidth + attrSet _ = setContainerBorderWidth + attrConstruct _ = constructContainerBorderWidth + +-- VVV Prop "child" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyWritable] + +setContainerChild :: (MonadIO m, ContainerK o, WidgetK a) => o -> a -> m () +setContainerChild obj val = liftIO $ setObjectPropertyObject obj "child" val + +constructContainerChild :: (WidgetK a) => a -> IO ([Char], GValue) +constructContainerChild val = constructObjectPropertyObject "child" val + +data ContainerChildPropertyInfo +instance AttrInfo ContainerChildPropertyInfo where + type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint ContainerChildPropertyInfo = WidgetK + type AttrBaseTypeConstraint ContainerChildPropertyInfo = ContainerK + type AttrGetType ContainerChildPropertyInfo = () + type AttrLabel ContainerChildPropertyInfo = "Container::child" + attrGet _ = undefined + attrSet _ = setContainerChild + attrConstruct _ = constructContainerChild + +-- VVV Prop "resize-mode" + -- Type: TInterface "Gtk" "ResizeMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Container::resize-mode" + attrGet _ = getContainerResizeMode + attrSet _ = setContainerResizeMode + attrConstruct _ = constructContainerResizeMode + +type instance AttributeList Container = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList ContainerAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList ContainerCellAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList CssProvider = '[ ] + +-- VVV Prop "use-header-bar" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getDialogUseHeaderBar :: (MonadIO m, DialogK o) => o -> m Int32 +getDialogUseHeaderBar obj = liftIO $ getObjectPropertyCInt obj "use-header-bar" + +constructDialogUseHeaderBar :: Int32 -> IO ([Char], GValue) +constructDialogUseHeaderBar val = constructObjectPropertyCInt "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 = "Dialog::use-header-bar" + attrGet _ = getDialogUseHeaderBar + attrSet _ = undefined + attrConstruct _ = constructDialogUseHeaderBar + +type instance AttributeList Dialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +type instance AttributeList DrawingArea = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList Editable = '[ ] + +-- VVV Prop "activates-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::activates-default" + attrGet _ = getEntryActivatesDefault + attrSet _ = setEntryActivatesDefault + attrConstruct _ = constructEntryActivatesDefault + +-- VVV Prop "attributes" + -- Type: TInterface "Pango" "AttrList" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryAttributes :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryAttributes :: Pango.AttrList -> IO ([Char], GValue) +constructEntryAttributes val = constructObjectPropertyBoxed "attributes" 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 = Pango.AttrList + type AttrLabel EntryAttributesPropertyInfo = "Entry::attributes" + attrGet _ = getEntryAttributes + attrSet _ = setEntryAttributes + attrConstruct _ = constructEntryAttributes + +-- VVV Prop "buffer" + -- Type: TInterface "Gtk" "EntryBuffer" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getEntryBuffer :: (MonadIO m, EntryK o) => o -> m EntryBuffer +getEntryBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" EntryBuffer + +setEntryBuffer :: (MonadIO m, EntryK o, EntryBufferK a) => o -> a -> m () +setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val + +constructEntryBuffer :: (EntryBufferK a) => a -> IO ([Char], GValue) +constructEntryBuffer val = constructObjectPropertyObject "buffer" 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 = "Entry::buffer" + attrGet _ = getEntryBuffer + attrSet _ = setEntryBuffer + attrConstruct _ = constructEntryBuffer + +-- VVV Prop "caps-lock-warning" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::caps-lock-warning" + attrGet _ = getEntryCapsLockWarning + attrSet _ = setEntryCapsLockWarning + attrConstruct _ = constructEntryCapsLockWarning + +-- VVV Prop "completion" + -- Type: TInterface "Gtk" "EntryCompletion" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryCompletion :: (MonadIO m, EntryK o) => o -> m EntryCompletion +getEntryCompletion obj = liftIO $ getObjectPropertyObject obj "completion" EntryCompletion + +setEntryCompletion :: (MonadIO m, EntryK o, EntryCompletionK a) => o -> a -> m () +setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" val + +constructEntryCompletion :: (EntryCompletionK a) => a -> IO ([Char], GValue) +constructEntryCompletion val = constructObjectPropertyObject "completion" val + +data EntryCompletionPropertyInfo +instance AttrInfo EntryCompletionPropertyInfo where + type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryCompletionPropertyInfo = EntryCompletionK + type AttrBaseTypeConstraint EntryCompletionPropertyInfo = EntryK + type AttrGetType EntryCompletionPropertyInfo = EntryCompletion + type AttrLabel EntryCompletionPropertyInfo = "Entry::completion" + attrGet _ = getEntryCompletion + attrSet _ = setEntryCompletion + attrConstruct _ = constructEntryCompletion + +-- VVV Prop "cursor-position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getEntryCursorPosition :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryCursorPosition obj = liftIO $ getObjectPropertyCInt 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 = "Entry::cursor-position" + attrGet _ = getEntryCursorPosition + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::editable" + attrGet _ = getEntryEditable + attrSet _ = setEntryEditable + attrConstruct _ = constructEntryEditable + +-- VVV Prop "has-frame" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::has-frame" + attrGet _ = getEntryHasFrame + attrSet _ = setEntryHasFrame + attrConstruct _ = constructEntryHasFrame + +-- VVV Prop "im-module" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryImModule :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryImModule :: T.Text -> IO ([Char], GValue) +constructEntryImModule val = constructObjectPropertyString "im-module" val + +data EntryImModulePropertyInfo +instance AttrInfo EntryImModulePropertyInfo where + type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryImModulePropertyInfo = EntryK + type AttrGetType EntryImModulePropertyInfo = T.Text + type AttrLabel EntryImModulePropertyInfo = "Entry::im-module" + attrGet _ = getEntryImModule + attrSet _ = setEntryImModule + attrConstruct _ = constructEntryImModule + +-- VVV Prop "inner-border" + -- Type: TInterface "Gtk" "Border" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryInnerBorder :: Border -> IO ([Char], GValue) +constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" val + +data EntryInnerBorderPropertyInfo +instance AttrInfo EntryInnerBorderPropertyInfo where + type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Border + type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = EntryK + type AttrGetType EntryInnerBorderPropertyInfo = Border + type AttrLabel EntryInnerBorderPropertyInfo = "Entry::inner-border" + attrGet _ = getEntryInnerBorder + attrSet _ = setEntryInnerBorder + attrConstruct _ = constructEntryInnerBorder + +-- VVV Prop "input-hints" + -- Type: TInterface "Gtk" "InputHints" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::input-hints" + attrGet _ = getEntryInputHints + attrSet _ = setEntryInputHints + attrConstruct _ = constructEntryInputHints + +-- VVV Prop "input-purpose" + -- Type: TInterface "Gtk" "InputPurpose" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::input-purpose" + attrGet _ = getEntryInputPurpose + attrSet _ = setEntryInputPurpose + attrConstruct _ = constructEntryInputPurpose + +-- VVV Prop "invisible-char" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> m Word32 +getEntryInvisibleChar obj = liftIO $ getObjectPropertyCUInt obj "invisible-char" + +setEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> Word32 -> m () +setEntryInvisibleChar obj val = liftIO $ setObjectPropertyCUInt obj "invisible-char" val + +constructEntryInvisibleChar :: Word32 -> IO ([Char], GValue) +constructEntryInvisibleChar val = constructObjectPropertyCUInt "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 = "Entry::invisible-char" + attrGet _ = getEntryInvisibleChar + attrSet _ = setEntryInvisibleChar + attrConstruct _ = constructEntryInvisibleChar + +-- VVV Prop "invisible-char-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::invisible-char-set" + attrGet _ = getEntryInvisibleCharSet + attrSet _ = setEntryInvisibleCharSet + attrConstruct _ = constructEntryInvisibleCharSet + +-- VVV Prop "max-length" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryMaxLength :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length" + +setEntryMaxLength :: (MonadIO m, EntryK o) => o -> Int32 -> m () +setEntryMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val + +constructEntryMaxLength :: Int32 -> IO ([Char], GValue) +constructEntryMaxLength val = constructObjectPropertyCInt "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 = "Entry::max-length" + attrGet _ = getEntryMaxLength + attrSet _ = setEntryMaxLength + attrConstruct _ = constructEntryMaxLength + +-- VVV Prop "max-width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" + +setEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () +setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val + +constructEntryMaxWidthChars :: Int32 -> IO ([Char], GValue) +constructEntryMaxWidthChars val = constructObjectPropertyCInt "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 = "Entry::max-width-chars" + attrGet _ = getEntryMaxWidthChars + attrSet _ = setEntryMaxWidthChars + attrConstruct _ = constructEntryMaxWidthChars + +-- VVV Prop "overwrite-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::overwrite-mode" + attrGet _ = getEntryOverwriteMode + attrSet _ = setEntryOverwriteMode + attrConstruct _ = constructEntryOverwriteMode + +-- VVV Prop "placeholder-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text" + +setEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val + +constructEntryPlaceholderText :: T.Text -> IO ([Char], GValue) +constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" val + +data EntryPlaceholderTextPropertyInfo +instance AttrInfo EntryPlaceholderTextPropertyInfo where + type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPlaceholderTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPlaceholderTextPropertyInfo = EntryK + type AttrGetType EntryPlaceholderTextPropertyInfo = T.Text + type AttrLabel EntryPlaceholderTextPropertyInfo = "Entry::placeholder-text" + attrGet _ = getEntryPlaceholderText + attrSet _ = setEntryPlaceholderText + attrConstruct _ = constructEntryPlaceholderText + +-- VVV Prop "populate-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::populate-all" + attrGet _ = getEntryPopulateAll + attrSet _ = setEntryPopulateAll + attrConstruct _ = constructEntryPopulateAll + +-- VVV Prop "primary-icon-activatable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::primary-icon-activatable" + attrGet _ = getEntryPrimaryIconActivatable + attrSet _ = setEntryPrimaryIconActivatable + attrConstruct _ = constructEntryPrimaryIconActivatable + +-- VVV Prop "primary-icon-gicon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryPrimaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" val + +data EntryPrimaryIconGiconPropertyInfo +instance AttrInfo EntryPrimaryIconGiconPropertyInfo where + type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconGiconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint EntryPrimaryIconGiconPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconGiconPropertyInfo = Gio.Icon + type AttrLabel EntryPrimaryIconGiconPropertyInfo = "Entry::primary-icon-gicon" + attrGet _ = getEntryPrimaryIconGicon + attrSet _ = setEntryPrimaryIconGicon + attrConstruct _ = constructEntryPrimaryIconGicon + +-- VVV Prop "primary-icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryPrimaryIconName :: T.Text -> IO ([Char], GValue) +constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" val + +data EntryPrimaryIconNamePropertyInfo +instance AttrInfo EntryPrimaryIconNamePropertyInfo where + type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPrimaryIconNamePropertyInfo = EntryK + type AttrGetType EntryPrimaryIconNamePropertyInfo = T.Text + type AttrLabel EntryPrimaryIconNamePropertyInfo = "Entry::primary-icon-name" + attrGet _ = getEntryPrimaryIconName + attrSet _ = setEntryPrimaryIconName + attrConstruct _ = constructEntryPrimaryIconName + +-- VVV Prop "primary-icon-pixbuf" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryPrimaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" val + +data EntryPrimaryIconPixbufPropertyInfo +instance AttrInfo EntryPrimaryIconPixbufPropertyInfo where + type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint EntryPrimaryIconPixbufPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel EntryPrimaryIconPixbufPropertyInfo = "Entry::primary-icon-pixbuf" + attrGet _ = getEntryPrimaryIconPixbuf + attrSet _ = setEntryPrimaryIconPixbuf + attrConstruct _ = constructEntryPrimaryIconPixbuf + +-- VVV Prop "primary-icon-sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::primary-icon-sensitive" + attrGet _ = getEntryPrimaryIconSensitive + attrSet _ = setEntryPrimaryIconSensitive + attrConstruct _ = constructEntryPrimaryIconSensitive + +-- VVV Prop "primary-icon-stock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryPrimaryIconStock :: T.Text -> IO ([Char], GValue) +constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" val + +data EntryPrimaryIconStockPropertyInfo +instance AttrInfo EntryPrimaryIconStockPropertyInfo where + type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconStockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPrimaryIconStockPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconStockPropertyInfo = T.Text + type AttrLabel EntryPrimaryIconStockPropertyInfo = "Entry::primary-icon-stock" + attrGet _ = getEntryPrimaryIconStock + attrSet _ = setEntryPrimaryIconStock + attrConstruct _ = constructEntryPrimaryIconStock + +-- VVV Prop "primary-icon-storage-type" + -- Type: TInterface "Gtk" "ImageType" + -- Flags: [PropertyReadable] + +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 = "Entry::primary-icon-storage-type" + attrGet _ = getEntryPrimaryIconStorageType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "primary-icon-tooltip-markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryPrimaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) +constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" val + +data EntryPrimaryIconTooltipMarkupPropertyInfo +instance AttrInfo EntryPrimaryIconTooltipMarkupPropertyInfo where + type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = T.Text + type AttrLabel EntryPrimaryIconTooltipMarkupPropertyInfo = "Entry::primary-icon-tooltip-markup" + attrGet _ = getEntryPrimaryIconTooltipMarkup + attrSet _ = setEntryPrimaryIconTooltipMarkup + attrConstruct _ = constructEntryPrimaryIconTooltipMarkup + +-- VVV Prop "primary-icon-tooltip-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryPrimaryIconTooltipText :: T.Text -> IO ([Char], GValue) +constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" val + +data EntryPrimaryIconTooltipTextPropertyInfo +instance AttrInfo EntryPrimaryIconTooltipTextPropertyInfo where + type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = EntryK + type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = T.Text + type AttrLabel EntryPrimaryIconTooltipTextPropertyInfo = "Entry::primary-icon-tooltip-text" + attrGet _ = getEntryPrimaryIconTooltipText + attrSet _ = setEntryPrimaryIconTooltipText + attrConstruct _ = constructEntryPrimaryIconTooltipText + +-- VVV Prop "progress-fraction" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::progress-fraction" + attrGet _ = getEntryProgressFraction + attrSet _ = setEntryProgressFraction + attrConstruct _ = constructEntryProgressFraction + +-- VVV Prop "progress-pulse-step" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::progress-pulse-step" + attrGet _ = getEntryProgressPulseStep + attrSet _ = setEntryProgressPulseStep + attrConstruct _ = constructEntryProgressPulseStep + +-- VVV Prop "scroll-offset" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getEntryScrollOffset :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryScrollOffset obj = liftIO $ getObjectPropertyCInt 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 = "Entry::scroll-offset" + attrGet _ = getEntryScrollOffset + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "secondary-icon-activatable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::secondary-icon-activatable" + attrGet _ = getEntrySecondaryIconActivatable + attrSet _ = setEntrySecondaryIconActivatable + attrConstruct _ = constructEntrySecondaryIconActivatable + +-- VVV Prop "secondary-icon-gicon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntrySecondaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" val + +data EntrySecondaryIconGiconPropertyInfo +instance AttrInfo EntrySecondaryIconGiconPropertyInfo where + type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconGiconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint EntrySecondaryIconGiconPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconGiconPropertyInfo = Gio.Icon + type AttrLabel EntrySecondaryIconGiconPropertyInfo = "Entry::secondary-icon-gicon" + attrGet _ = getEntrySecondaryIconGicon + attrSet _ = setEntrySecondaryIconGicon + attrConstruct _ = constructEntrySecondaryIconGicon + +-- VVV Prop "secondary-icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntrySecondaryIconName :: T.Text -> IO ([Char], GValue) +constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" val + +data EntrySecondaryIconNamePropertyInfo +instance AttrInfo EntrySecondaryIconNamePropertyInfo where + type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntrySecondaryIconNamePropertyInfo = EntryK + type AttrGetType EntrySecondaryIconNamePropertyInfo = T.Text + type AttrLabel EntrySecondaryIconNamePropertyInfo = "Entry::secondary-icon-name" + attrGet _ = getEntrySecondaryIconName + attrSet _ = setEntrySecondaryIconName + attrConstruct _ = constructEntrySecondaryIconName + +-- VVV Prop "secondary-icon-pixbuf" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntrySecondaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" val + +data EntrySecondaryIconPixbufPropertyInfo +instance AttrInfo EntrySecondaryIconPixbufPropertyInfo where + type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint EntrySecondaryIconPixbufPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel EntrySecondaryIconPixbufPropertyInfo = "Entry::secondary-icon-pixbuf" + attrGet _ = getEntrySecondaryIconPixbuf + attrSet _ = setEntrySecondaryIconPixbuf + attrConstruct _ = constructEntrySecondaryIconPixbuf + +-- VVV Prop "secondary-icon-sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::secondary-icon-sensitive" + attrGet _ = getEntrySecondaryIconSensitive + attrSet _ = setEntrySecondaryIconSensitive + attrConstruct _ = constructEntrySecondaryIconSensitive + +-- VVV Prop "secondary-icon-stock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntrySecondaryIconStock :: T.Text -> IO ([Char], GValue) +constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" val + +data EntrySecondaryIconStockPropertyInfo +instance AttrInfo EntrySecondaryIconStockPropertyInfo where + type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconStockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntrySecondaryIconStockPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconStockPropertyInfo = T.Text + type AttrLabel EntrySecondaryIconStockPropertyInfo = "Entry::secondary-icon-stock" + attrGet _ = getEntrySecondaryIconStock + attrSet _ = setEntrySecondaryIconStock + attrConstruct _ = constructEntrySecondaryIconStock + +-- VVV Prop "secondary-icon-storage-type" + -- Type: TInterface "Gtk" "ImageType" + -- Flags: [PropertyReadable] + +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 = "Entry::secondary-icon-storage-type" + attrGet _ = getEntrySecondaryIconStorageType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "secondary-icon-tooltip-markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntrySecondaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue) +constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" val + +data EntrySecondaryIconTooltipMarkupPropertyInfo +instance AttrInfo EntrySecondaryIconTooltipMarkupPropertyInfo where + type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = T.Text + type AttrLabel EntrySecondaryIconTooltipMarkupPropertyInfo = "Entry::secondary-icon-tooltip-markup" + attrGet _ = getEntrySecondaryIconTooltipMarkup + attrSet _ = setEntrySecondaryIconTooltipMarkup + attrConstruct _ = constructEntrySecondaryIconTooltipMarkup + +-- VVV Prop "secondary-icon-tooltip-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntrySecondaryIconTooltipText :: T.Text -> IO ([Char], GValue) +constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" val + +data EntrySecondaryIconTooltipTextPropertyInfo +instance AttrInfo EntrySecondaryIconTooltipTextPropertyInfo where + type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = EntryK + type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = T.Text + type AttrLabel EntrySecondaryIconTooltipTextPropertyInfo = "Entry::secondary-icon-tooltip-text" + attrGet _ = getEntrySecondaryIconTooltipText + attrSet _ = setEntrySecondaryIconTooltipText + attrConstruct _ = constructEntrySecondaryIconTooltipText + +-- VVV Prop "selection-bound" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getEntrySelectionBound :: (MonadIO m, EntryK o) => o -> m Int32 +getEntrySelectionBound obj = liftIO $ getObjectPropertyCInt 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 = "Entry::selection-bound" + attrGet _ = getEntrySelectionBound + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "shadow-type" + -- Type: TInterface "Gtk" "ShadowType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::shadow-type" + attrGet _ = getEntryShadowType + attrSet _ = setEntryShadowType + attrConstruct _ = constructEntryShadowType + +-- VVV Prop "tabs" + -- Type: TInterface "Pango" "TabArray" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryTabs :: (MonadIO m, EntryK o) => o -> m 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" val + +constructEntryTabs :: Pango.TabArray -> IO ([Char], GValue) +constructEntryTabs val = constructObjectPropertyBoxed "tabs" 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 = Pango.TabArray + type AttrLabel EntryTabsPropertyInfo = "Entry::tabs" + attrGet _ = getEntryTabs + attrSet _ = setEntryTabs + attrConstruct _ = constructEntryTabs + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryText :: (MonadIO m, EntryK o) => o -> m T.Text +getEntryText obj = liftIO $ getObjectPropertyString obj "text" + +setEntryText :: (MonadIO m, EntryK o) => o -> T.Text -> m () +setEntryText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructEntryText :: T.Text -> IO ([Char], GValue) +constructEntryText val = constructObjectPropertyString "text" 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 = "Entry::text" + attrGet _ = getEntryText + attrSet _ = setEntryText + attrConstruct _ = constructEntryText + +-- VVV Prop "text-length" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getEntryTextLength :: (MonadIO m, EntryK o) => o -> m Word32 +getEntryTextLength obj = liftIO $ getObjectPropertyCUInt 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 = "Entry::text-length" + attrGet _ = getEntryTextLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "truncate-multiline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::truncate-multiline" + attrGet _ = getEntryTruncateMultiline + attrSet _ = setEntryTruncateMultiline + attrConstruct _ = constructEntryTruncateMultiline + +-- VVV Prop "visibility" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::visibility" + attrGet _ = getEntryVisibility + attrSet _ = setEntryVisibility + attrConstruct _ = constructEntryVisibility + +-- VVV Prop "width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryWidthChars :: (MonadIO m, EntryK o) => o -> m Int32 +getEntryWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" + +setEntryWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m () +setEntryWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val + +constructEntryWidthChars :: Int32 -> IO ([Char], GValue) +constructEntryWidthChars val = constructObjectPropertyCInt "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 = "Entry::width-chars" + attrGet _ = getEntryWidthChars + attrSet _ = setEntryWidthChars + attrConstruct _ = constructEntryWidthChars + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Entry::xalign" + attrGet _ = getEntryXalign + attrSet _ = setEntryXalign + attrConstruct _ = constructEntryXalign + +type instance AttributeList Entry = '[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] + +type instance AttributeList EntryAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "length" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getEntryBufferLength :: (MonadIO m, EntryBufferK o) => o -> m Word32 +getEntryBufferLength obj = liftIO $ getObjectPropertyCUInt 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 = "EntryBuffer::length" + attrGet _ = getEntryBufferLength + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "max-length" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> m Int32 +getEntryBufferMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length" + +setEntryBufferMaxLength :: (MonadIO m, EntryBufferK o) => o -> Int32 -> m () +setEntryBufferMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val + +constructEntryBufferMaxLength :: Int32 -> IO ([Char], GValue) +constructEntryBufferMaxLength val = constructObjectPropertyCInt "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 = "EntryBuffer::max-length" + attrGet _ = getEntryBufferMaxLength + attrSet _ = setEntryBufferMaxLength + attrConstruct _ = constructEntryBufferMaxLength + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> m T.Text +getEntryBufferText obj = liftIO $ getObjectPropertyString obj "text" + +setEntryBufferText :: (MonadIO m, EntryBufferK o) => o -> T.Text -> m () +setEntryBufferText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructEntryBufferText :: T.Text -> IO ([Char], GValue) +constructEntryBufferText val = constructObjectPropertyString "text" val + +data EntryBufferTextPropertyInfo +instance AttrInfo EntryBufferTextPropertyInfo where + type AttrAllowedOps EntryBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryBufferTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint EntryBufferTextPropertyInfo = EntryBufferK + type AttrGetType EntryBufferTextPropertyInfo = T.Text + type AttrLabel EntryBufferTextPropertyInfo = "EntryBuffer::text" + attrGet _ = getEntryBufferText + attrSet _ = setEntryBufferText + attrConstruct _ = constructEntryBufferText + +type instance AttributeList EntryBuffer = '[ '("length", EntryBufferLengthPropertyInfo), '("max-length", EntryBufferMaxLengthPropertyInfo), '("text", EntryBufferTextPropertyInfo)] + +-- VVV Prop "cell-area" + -- Type: TInterface "Gtk" "CellArea" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getEntryCompletionCellArea :: (MonadIO m, EntryCompletionK o) => o -> m CellArea +getEntryCompletionCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea + +constructEntryCompletionCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) +constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" val + +data EntryCompletionCellAreaPropertyInfo +instance AttrInfo EntryCompletionCellAreaPropertyInfo where + type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = CellAreaK + type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = EntryCompletionK + type AttrGetType EntryCompletionCellAreaPropertyInfo = CellArea + type AttrLabel EntryCompletionCellAreaPropertyInfo = "EntryCompletion::cell-area" + attrGet _ = getEntryCompletionCellArea + attrSet _ = undefined + attrConstruct _ = constructEntryCompletionCellArea + +-- VVV Prop "inline-completion" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "EntryCompletion::inline-completion" + attrGet _ = getEntryCompletionInlineCompletion + attrSet _ = setEntryCompletionInlineCompletion + attrConstruct _ = constructEntryCompletionInlineCompletion + +-- VVV Prop "inline-selection" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "EntryCompletion::inline-selection" + attrGet _ = getEntryCompletionInlineSelection + attrSet _ = setEntryCompletionInlineSelection + attrConstruct _ = constructEntryCompletionInlineSelection + +-- VVV Prop "minimum-key-length" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> m Int32 +getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyCInt obj "minimum-key-length" + +setEntryCompletionMinimumKeyLength :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m () +setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyCInt obj "minimum-key-length" val + +constructEntryCompletionMinimumKeyLength :: Int32 -> IO ([Char], GValue) +constructEntryCompletionMinimumKeyLength val = constructObjectPropertyCInt "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 = "EntryCompletion::minimum-key-length" + attrGet _ = getEntryCompletionMinimumKeyLength + attrSet _ = setEntryCompletionMinimumKeyLength + attrConstruct _ = constructEntryCompletionMinimumKeyLength + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryCompletionModel :: (MonadIO m, EntryCompletionK o) => o -> m TreeModel +getEntryCompletionModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel + +setEntryCompletionModel :: (MonadIO m, EntryCompletionK o, TreeModelK a) => o -> a -> m () +setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" val + +constructEntryCompletionModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructEntryCompletionModel val = constructObjectPropertyObject "model" val + +data EntryCompletionModelPropertyInfo +instance AttrInfo EntryCompletionModelPropertyInfo where + type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = EntryCompletionK + type AttrGetType EntryCompletionModelPropertyInfo = TreeModel + type AttrLabel EntryCompletionModelPropertyInfo = "EntryCompletion::model" + attrGet _ = getEntryCompletionModel + attrSet _ = setEntryCompletionModel + attrConstruct _ = constructEntryCompletionModel + +-- VVV Prop "popup-completion" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "EntryCompletion::popup-completion" + attrGet _ = getEntryCompletionPopupCompletion + attrSet _ = setEntryCompletionPopupCompletion + attrConstruct _ = constructEntryCompletionPopupCompletion + +-- VVV Prop "popup-set-width" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "EntryCompletion::popup-set-width" + attrGet _ = getEntryCompletionPopupSetWidth + attrSet _ = setEntryCompletionPopupSetWidth + attrConstruct _ = constructEntryCompletionPopupSetWidth + +-- VVV Prop "popup-single-match" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "EntryCompletion::popup-single-match" + attrGet _ = getEntryCompletionPopupSingleMatch + attrSet _ = setEntryCompletionPopupSingleMatch + attrConstruct _ = constructEntryCompletionPopupSingleMatch + +-- VVV Prop "text-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> m Int32 +getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" + +setEntryCompletionTextColumn :: (MonadIO m, EntryCompletionK o) => o -> Int32 -> m () +setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val + +constructEntryCompletionTextColumn :: Int32 -> IO ([Char], GValue) +constructEntryCompletionTextColumn val = constructObjectPropertyCInt "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 = "EntryCompletion::text-column" + attrGet _ = getEntryCompletionTextColumn + attrSet _ = setEntryCompletionTextColumn + attrConstruct _ = constructEntryCompletionTextColumn + +type instance AttributeList EntryCompletion = '[ '("cell-area", EntryCompletionCellAreaPropertyInfo), '("inline-completion", EntryCompletionInlineCompletionPropertyInfo), '("inline-selection", EntryCompletionInlineSelectionPropertyInfo), '("minimum-key-length", EntryCompletionMinimumKeyLengthPropertyInfo), '("model", EntryCompletionModelPropertyInfo), '("popup-completion", EntryCompletionPopupCompletionPropertyInfo), '("popup-set-width", EntryCompletionPopupSetWidthPropertyInfo), '("popup-single-match", EntryCompletionPopupSingleMatchPropertyInfo), '("text-column", EntryCompletionTextColumnPropertyInfo)] + +type instance AttributeList EntryIconAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo)] + +-- VVV Prop "above-child" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "EventBox::above-child" + attrGet _ = getEventBoxAboveChild + attrSet _ = setEventBoxAboveChild + attrConstruct _ = constructEventBoxAboveChild + +-- VVV Prop "visible-window" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "EventBox::visible-window" + attrGet _ = getEventBoxVisibleWindow + attrSet _ = setEventBoxVisibleWindow + attrConstruct _ = constructEventBoxVisibleWindow + +type instance AttributeList EventBox = '[ '("above-child", EventBoxAboveChildPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-window", EventBoxVisibleWindowPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "propagation-phase" + -- Type: TInterface "Gtk" "PropagationPhase" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "EventController::propagation-phase" + attrGet _ = getEventControllerPropagationPhase + attrSet _ = setEventControllerPropagationPhase + attrConstruct _ = constructEventControllerPropagationPhase + +-- VVV Prop "widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getEventControllerWidget :: (MonadIO m, EventControllerK o) => o -> m Widget +getEventControllerWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget + +constructEventControllerWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructEventControllerWidget val = constructObjectPropertyObject "widget" val + +data EventControllerWidgetPropertyInfo +instance AttrInfo EventControllerWidgetPropertyInfo where + type AttrAllowedOps EventControllerWidgetPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint EventControllerWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint EventControllerWidgetPropertyInfo = EventControllerK + type AttrGetType EventControllerWidgetPropertyInfo = Widget + type AttrLabel EventControllerWidgetPropertyInfo = "EventController::widget" + attrGet _ = getEventControllerWidget + attrSet _ = undefined + attrConstruct _ = constructEventControllerWidget + +type instance AttributeList EventController = '[ '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo)] + +-- VVV Prop "expanded" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Expander::expanded" + attrGet _ = getExpanderExpanded + attrSet _ = setExpanderExpanded + attrConstruct _ = constructExpanderExpanded + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getExpanderLabel :: (MonadIO m, ExpanderK o) => o -> m T.Text +getExpanderLabel obj = liftIO $ getObjectPropertyString obj "label" + +setExpanderLabel :: (MonadIO m, ExpanderK o) => o -> T.Text -> m () +setExpanderLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructExpanderLabel :: T.Text -> IO ([Char], GValue) +constructExpanderLabel val = constructObjectPropertyString "label" val + +data ExpanderLabelPropertyInfo +instance AttrInfo ExpanderLabelPropertyInfo where + type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ExpanderLabelPropertyInfo = ExpanderK + type AttrGetType ExpanderLabelPropertyInfo = T.Text + type AttrLabel ExpanderLabelPropertyInfo = "Expander::label" + attrGet _ = getExpanderLabel + attrSet _ = setExpanderLabel + attrConstruct _ = constructExpanderLabel + +-- VVV Prop "label-fill" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Expander::label-fill" + attrGet _ = getExpanderLabelFill + attrSet _ = setExpanderLabelFill + attrConstruct _ = constructExpanderLabelFill + +-- VVV Prop "label-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getExpanderLabelWidget :: (MonadIO m, ExpanderK o) => o -> m Widget +getExpanderLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget + +setExpanderLabelWidget :: (MonadIO m, ExpanderK o, WidgetK a) => o -> a -> m () +setExpanderLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val + +constructExpanderLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructExpanderLabelWidget val = constructObjectPropertyObject "label-widget" val + +data ExpanderLabelWidgetPropertyInfo +instance AttrInfo ExpanderLabelWidgetPropertyInfo where + type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ExpanderLabelWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint ExpanderLabelWidgetPropertyInfo = ExpanderK + type AttrGetType ExpanderLabelWidgetPropertyInfo = Widget + type AttrLabel ExpanderLabelWidgetPropertyInfo = "Expander::label-widget" + attrGet _ = getExpanderLabelWidget + attrSet _ = setExpanderLabelWidget + attrConstruct _ = constructExpanderLabelWidget + +-- VVV Prop "resize-toplevel" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Expander::resize-toplevel" + attrGet _ = getExpanderResizeToplevel + attrSet _ = setExpanderResizeToplevel + attrConstruct _ = constructExpanderResizeToplevel + +-- VVV Prop "spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> m Int32 +getExpanderSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" + +setExpanderSpacing :: (MonadIO m, ExpanderK o) => o -> Int32 -> m () +setExpanderSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val + +constructExpanderSpacing :: Int32 -> IO ([Char], GValue) +constructExpanderSpacing val = constructObjectPropertyCInt "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 = "Expander::spacing" + attrGet _ = getExpanderSpacing + attrSet _ = setExpanderSpacing + attrConstruct _ = constructExpanderSpacing + +-- VVV Prop "use-markup" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Expander::use-markup" + attrGet _ = getExpanderUseMarkup + attrSet _ = setExpanderUseMarkup + attrConstruct _ = constructExpanderUseMarkup + +-- VVV Prop "use-underline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Expander::use-underline" + attrGet _ = getExpanderUseUnderline + attrSet _ = setExpanderUseUnderline + attrConstruct _ = constructExpanderUseUnderline + +type instance AttributeList Expander = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("label-fill", ExpanderLabelFillPropertyInfo), '("label-widget", ExpanderLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("resize-toplevel", ExpanderResizeToplevelPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-markup", ExpanderUseMarkupPropertyInfo), '("use-underline", ExpanderUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList ExpanderAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "action" + -- Type: TInterface "Gtk" "FileChooserAction" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooser::action" + attrGet _ = getFileChooserAction + attrSet _ = setFileChooserAction + attrConstruct _ = constructFileChooserAction + +-- VVV Prop "create-folders" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooser::create-folders" + attrGet _ = getFileChooserCreateFolders + attrSet _ = setFileChooserCreateFolders + attrConstruct _ = constructFileChooserCreateFolders + +-- VVV Prop "do-overwrite-confirmation" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooser::do-overwrite-confirmation" + attrGet _ = getFileChooserDoOverwriteConfirmation + attrSet _ = setFileChooserDoOverwriteConfirmation + attrConstruct _ = constructFileChooserDoOverwriteConfirmation + +-- VVV Prop "extra-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserExtraWidget :: (MonadIO m, FileChooserK o) => o -> m Widget +getFileChooserExtraWidget obj = liftIO $ getObjectPropertyObject obj "extra-widget" Widget + +setFileChooserExtraWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () +setFileChooserExtraWidget obj val = liftIO $ setObjectPropertyObject obj "extra-widget" val + +constructFileChooserExtraWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructFileChooserExtraWidget val = constructObjectPropertyObject "extra-widget" 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 = "FileChooser::extra-widget" + attrGet _ = getFileChooserExtraWidget + attrSet _ = setFileChooserExtraWidget + attrConstruct _ = constructFileChooserExtraWidget + +-- VVV Prop "filter" + -- Type: TInterface "Gtk" "FileFilter" + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserFilter :: (MonadIO m, FileChooserK o) => o -> m FileFilter +getFileChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" FileFilter + +setFileChooserFilter :: (MonadIO m, FileChooserK o, FileFilterK a) => o -> a -> m () +setFileChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val + +constructFileChooserFilter :: (FileFilterK a) => a -> IO ([Char], GValue) +constructFileChooserFilter val = constructObjectPropertyObject "filter" 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 = "FileChooser::filter" + attrGet _ = getFileChooserFilter + attrSet _ = setFileChooserFilter + attrConstruct _ = constructFileChooserFilter + +-- VVV Prop "local-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooser::local-only" + attrGet _ = getFileChooserLocalOnly + attrSet _ = setFileChooserLocalOnly + attrConstruct _ = constructFileChooserLocalOnly + +-- VVV Prop "preview-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserPreviewWidget :: (MonadIO m, FileChooserK o) => o -> m Widget +getFileChooserPreviewWidget obj = liftIO $ getObjectPropertyObject obj "preview-widget" Widget + +setFileChooserPreviewWidget :: (MonadIO m, FileChooserK o, WidgetK a) => o -> a -> m () +setFileChooserPreviewWidget obj val = liftIO $ setObjectPropertyObject obj "preview-widget" val + +constructFileChooserPreviewWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructFileChooserPreviewWidget val = constructObjectPropertyObject "preview-widget" 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 = "FileChooser::preview-widget" + attrGet _ = getFileChooserPreviewWidget + attrSet _ = setFileChooserPreviewWidget + attrConstruct _ = constructFileChooserPreviewWidget + +-- VVV Prop "preview-widget-active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooser::preview-widget-active" + attrGet _ = getFileChooserPreviewWidgetActive + attrSet _ = setFileChooserPreviewWidgetActive + attrConstruct _ = constructFileChooserPreviewWidgetActive + +-- VVV Prop "select-multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooser::select-multiple" + attrGet _ = getFileChooserSelectMultiple + attrSet _ = setFileChooserSelectMultiple + attrConstruct _ = constructFileChooserSelectMultiple + +-- VVV Prop "show-hidden" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooser::show-hidden" + attrGet _ = getFileChooserShowHidden + attrSet _ = setFileChooserShowHidden + attrConstruct _ = constructFileChooserShowHidden + +-- VVV Prop "use-preview-label" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooser::use-preview-label" + attrGet _ = getFileChooserUsePreviewLabel + attrSet _ = setFileChooserUsePreviewLabel + attrConstruct _ = constructFileChooserUsePreviewLabel + +type instance AttributeList FileChooser = '[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "dialog" + -- Type: TInterface "Gtk" "FileChooser" + -- Flags: [PropertyWritable,PropertyConstructOnly] + +constructFileChooserButtonDialog :: (FileChooserK a) => a -> IO ([Char], GValue) +constructFileChooserButtonDialog val = constructObjectPropertyObject "dialog" val + +data FileChooserButtonDialogPropertyInfo +instance AttrInfo FileChooserButtonDialogPropertyInfo where + type AttrAllowedOps FileChooserButtonDialogPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserK + type AttrBaseTypeConstraint FileChooserButtonDialogPropertyInfo = FileChooserButtonK + type AttrGetType FileChooserButtonDialogPropertyInfo = () + type AttrLabel FileChooserButtonDialogPropertyInfo = "FileChooserButton::dialog" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructFileChooserButtonDialog + +-- VVV Prop "focus-on-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooserButton::focus-on-click" + attrGet _ = getFileChooserButtonFocusOnClick + attrSet _ = setFileChooserButtonFocusOnClick + attrConstruct _ = constructFileChooserButtonFocusOnClick + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> m T.Text +getFileChooserButtonTitle obj = liftIO $ getObjectPropertyString obj "title" + +setFileChooserButtonTitle :: (MonadIO m, FileChooserButtonK o) => o -> T.Text -> m () +setFileChooserButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructFileChooserButtonTitle :: T.Text -> IO ([Char], GValue) +constructFileChooserButtonTitle val = constructObjectPropertyString "title" 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 = "FileChooserButton::title" + attrGet _ = getFileChooserButtonTitle + attrSet _ = setFileChooserButtonTitle + attrConstruct _ = constructFileChooserButtonTitle + +-- VVV Prop "width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> m Int32 +getFileChooserButtonWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" + +setFileChooserButtonWidthChars :: (MonadIO m, FileChooserButtonK o) => o -> Int32 -> m () +setFileChooserButtonWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val + +constructFileChooserButtonWidthChars :: Int32 -> IO ([Char], GValue) +constructFileChooserButtonWidthChars val = constructObjectPropertyCInt "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 = "FileChooserButton::width-chars" + attrGet _ = getFileChooserButtonWidthChars + attrSet _ = setFileChooserButtonWidthChars + attrConstruct _ = constructFileChooserButtonWidthChars + +type instance AttributeList FileChooserButton = '[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("dialog", FileChooserButtonDialogPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focus-on-click", FileChooserButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FileChooserButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", FileChooserButtonWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList FileChooserDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "search-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FileChooserWidget::search-mode" + attrGet _ = getFileChooserWidgetSearchMode + attrSet _ = setFileChooserWidgetSearchMode + attrConstruct _ = constructFileChooserWidgetSearchMode + +-- VVV Prop "subtitle" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getFileChooserWidgetSubtitle :: (MonadIO m, FileChooserWidgetK o) => o -> m T.Text +getFileChooserWidgetSubtitle obj = liftIO $ getObjectPropertyString obj "subtitle" + +data FileChooserWidgetSubtitlePropertyInfo +instance AttrInfo FileChooserWidgetSubtitlePropertyInfo where + type AttrAllowedOps FileChooserWidgetSubtitlePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint FileChooserWidgetSubtitlePropertyInfo = (~) () + type AttrBaseTypeConstraint FileChooserWidgetSubtitlePropertyInfo = FileChooserWidgetK + type AttrGetType FileChooserWidgetSubtitlePropertyInfo = T.Text + type AttrLabel FileChooserWidgetSubtitlePropertyInfo = "FileChooserWidget::subtitle" + attrGet _ = getFileChooserWidgetSubtitle + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList FileChooserWidget = '[ '("action", FileChooserActionPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("create-folders", FileChooserCreateFoldersPropertyInfo), '("do-overwrite-confirmation", FileChooserDoOverwriteConfirmationPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("extra-widget", FileChooserExtraWidgetPropertyInfo), '("filter", FileChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("local-only", FileChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-widget", FileChooserPreviewWidgetPropertyInfo), '("preview-widget-active", FileChooserPreviewWidgetActivePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-mode", FileChooserWidgetSearchModePropertyInfo), '("select-multiple", FileChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-hidden", FileChooserShowHiddenPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", FileChooserWidgetSubtitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-preview-label", FileChooserUsePreviewLabelPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList FileFilter = '[ ] + +type instance AttributeList Fixed = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "activate-on-single-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FlowBox::activate-on-single-click" + attrGet _ = getFlowBoxActivateOnSingleClick + attrSet _ = setFlowBoxActivateOnSingleClick + attrConstruct _ = constructFlowBoxActivateOnSingleClick + +-- VVV Prop "column-spacing" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32 +getFlowBoxColumnSpacing obj = liftIO $ getObjectPropertyCUInt obj "column-spacing" + +setFlowBoxColumnSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () +setFlowBoxColumnSpacing obj val = liftIO $ setObjectPropertyCUInt obj "column-spacing" val + +constructFlowBoxColumnSpacing :: Word32 -> IO ([Char], GValue) +constructFlowBoxColumnSpacing val = constructObjectPropertyCUInt "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 = "FlowBox::column-spacing" + attrGet _ = getFlowBoxColumnSpacing + attrSet _ = setFlowBoxColumnSpacing + attrConstruct _ = constructFlowBoxColumnSpacing + +-- VVV Prop "homogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FlowBox::homogeneous" + attrGet _ = getFlowBoxHomogeneous + attrSet _ = setFlowBoxHomogeneous + attrConstruct _ = constructFlowBoxHomogeneous + +-- VVV Prop "max-children-per-line" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32 +getFlowBoxMaxChildrenPerLine obj = liftIO $ getObjectPropertyCUInt obj "max-children-per-line" + +setFlowBoxMaxChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () +setFlowBoxMaxChildrenPerLine obj val = liftIO $ setObjectPropertyCUInt obj "max-children-per-line" val + +constructFlowBoxMaxChildrenPerLine :: Word32 -> IO ([Char], GValue) +constructFlowBoxMaxChildrenPerLine val = constructObjectPropertyCUInt "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 = "FlowBox::max-children-per-line" + attrGet _ = getFlowBoxMaxChildrenPerLine + attrSet _ = setFlowBoxMaxChildrenPerLine + attrConstruct _ = constructFlowBoxMaxChildrenPerLine + +-- VVV Prop "min-children-per-line" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> m Word32 +getFlowBoxMinChildrenPerLine obj = liftIO $ getObjectPropertyCUInt obj "min-children-per-line" + +setFlowBoxMinChildrenPerLine :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () +setFlowBoxMinChildrenPerLine obj val = liftIO $ setObjectPropertyCUInt obj "min-children-per-line" val + +constructFlowBoxMinChildrenPerLine :: Word32 -> IO ([Char], GValue) +constructFlowBoxMinChildrenPerLine val = constructObjectPropertyCUInt "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 = "FlowBox::min-children-per-line" + attrGet _ = getFlowBoxMinChildrenPerLine + attrSet _ = setFlowBoxMinChildrenPerLine + attrConstruct _ = constructFlowBoxMinChildrenPerLine + +-- VVV Prop "row-spacing" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> m Word32 +getFlowBoxRowSpacing obj = liftIO $ getObjectPropertyCUInt obj "row-spacing" + +setFlowBoxRowSpacing :: (MonadIO m, FlowBoxK o) => o -> Word32 -> m () +setFlowBoxRowSpacing obj val = liftIO $ setObjectPropertyCUInt obj "row-spacing" val + +constructFlowBoxRowSpacing :: Word32 -> IO ([Char], GValue) +constructFlowBoxRowSpacing val = constructObjectPropertyCUInt "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 = "FlowBox::row-spacing" + attrGet _ = getFlowBoxRowSpacing + attrSet _ = setFlowBoxRowSpacing + attrConstruct _ = constructFlowBoxRowSpacing + +-- VVV Prop "selection-mode" + -- Type: TInterface "Gtk" "SelectionMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FlowBox::selection-mode" + attrGet _ = getFlowBoxSelectionMode + attrSet _ = setFlowBoxSelectionMode + attrConstruct _ = constructFlowBoxSelectionMode + +type instance AttributeList FlowBox = '[ '("activate-on-single-click", FlowBoxActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", FlowBoxColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-children-per-line", FlowBoxMaxChildrenPerLinePropertyInfo), '("min-children-per-line", FlowBoxMinChildrenPerLinePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", FlowBoxRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", FlowBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList FlowBoxAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList FlowBoxChild = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList FlowBoxChildAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "font-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> m T.Text +getFontButtonFontName obj = liftIO $ getObjectPropertyString obj "font-name" + +setFontButtonFontName :: (MonadIO m, FontButtonK o) => o -> T.Text -> m () +setFontButtonFontName obj val = liftIO $ setObjectPropertyString obj "font-name" val + +constructFontButtonFontName :: T.Text -> IO ([Char], GValue) +constructFontButtonFontName val = constructObjectPropertyString "font-name" val + +data FontButtonFontNamePropertyInfo +instance AttrInfo FontButtonFontNamePropertyInfo where + type AttrAllowedOps FontButtonFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FontButtonFontNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint FontButtonFontNamePropertyInfo = FontButtonK + type AttrGetType FontButtonFontNamePropertyInfo = T.Text + type AttrLabel FontButtonFontNamePropertyInfo = "FontButton::font-name" + attrGet _ = getFontButtonFontName + attrSet _ = setFontButtonFontName + attrConstruct _ = constructFontButtonFontName + +-- VVV Prop "show-size" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FontButton::show-size" + attrGet _ = getFontButtonShowSize + attrSet _ = setFontButtonShowSize + attrConstruct _ = constructFontButtonShowSize + +-- VVV Prop "show-style" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FontButton::show-style" + attrGet _ = getFontButtonShowStyle + attrSet _ = setFontButtonShowStyle + attrConstruct _ = constructFontButtonShowStyle + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> m T.Text +getFontButtonTitle obj = liftIO $ getObjectPropertyString obj "title" + +setFontButtonTitle :: (MonadIO m, FontButtonK o) => o -> T.Text -> m () +setFontButtonTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructFontButtonTitle :: T.Text -> IO ([Char], GValue) +constructFontButtonTitle val = constructObjectPropertyString "title" 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 = "FontButton::title" + attrGet _ = getFontButtonTitle + attrSet _ = setFontButtonTitle + attrConstruct _ = constructFontButtonTitle + +-- VVV Prop "use-font" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FontButton::use-font" + attrGet _ = getFontButtonUseFont + attrSet _ = setFontButtonUseFont + attrConstruct _ = constructFontButtonUseFont + +-- VVV Prop "use-size" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FontButton::use-size" + attrGet _ = getFontButtonUseSize + attrSet _ = setFontButtonUseSize + attrConstruct _ = constructFontButtonUseSize + +type instance AttributeList FontButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("font-name", FontButtonFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("show-size", FontButtonShowSizePropertyInfo), '("show-style", FontButtonShowStylePropertyInfo), '("style", WidgetStylePropertyInfo), '("title", FontButtonTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-font", FontButtonUseFontPropertyInfo), '("use-size", FontButtonUseSizePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +-- VVV Prop "font" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFontChooserFont :: (MonadIO m, FontChooserK o) => o -> m T.Text +getFontChooserFont obj = liftIO $ getObjectPropertyString obj "font" + +setFontChooserFont :: (MonadIO m, FontChooserK o) => o -> T.Text -> m () +setFontChooserFont obj val = liftIO $ setObjectPropertyString obj "font" val + +constructFontChooserFont :: T.Text -> IO ([Char], GValue) +constructFontChooserFont val = constructObjectPropertyString "font" 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 = T.Text + type AttrLabel FontChooserFontPropertyInfo = "FontChooser::font" + attrGet _ = getFontChooserFont + attrSet _ = setFontChooserFont + attrConstruct _ = constructFontChooserFont + +-- VVV Prop "font-desc" + -- Type: TInterface "Pango" "FontDescription" + -- Flags: [PropertyReadable,PropertyWritable] + +getFontChooserFontDesc :: (MonadIO m, FontChooserK o) => o -> m 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" val + +constructFontChooserFontDesc :: Pango.FontDescription -> IO ([Char], GValue) +constructFontChooserFontDesc val = constructObjectPropertyBoxed "font-desc" 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 = Pango.FontDescription + type AttrLabel FontChooserFontDescPropertyInfo = "FontChooser::font-desc" + attrGet _ = getFontChooserFontDesc + attrSet _ = setFontChooserFontDesc + attrConstruct _ = constructFontChooserFontDesc + +-- VVV Prop "preview-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFontChooserPreviewText :: (MonadIO m, FontChooserK o) => o -> m 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" val + +constructFontChooserPreviewText :: T.Text -> IO ([Char], GValue) +constructFontChooserPreviewText val = constructObjectPropertyString "preview-text" 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 = T.Text + type AttrLabel FontChooserPreviewTextPropertyInfo = "FontChooser::preview-text" + attrGet _ = getFontChooserPreviewText + attrSet _ = setFontChooserPreviewText + attrConstruct _ = constructFontChooserPreviewText + +-- VVV Prop "show-preview-entry" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "FontChooser::show-preview-entry" + attrGet _ = getFontChooserShowPreviewEntry + attrSet _ = setFontChooserShowPreviewEntry + attrConstruct _ = constructFontChooserShowPreviewEntry + +type instance AttributeList FontChooser = '[ '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo)] + +type instance AttributeList FontChooserDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +type instance AttributeList FontChooserWidget = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("font", FontChooserFontPropertyInfo), '("font-desc", FontChooserFontDescPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontChooserPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-preview-entry", FontChooserShowPreviewEntryPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "font-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFontSelectionFontName :: (MonadIO m, FontSelectionK o) => o -> m 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" val + +constructFontSelectionFontName :: T.Text -> IO ([Char], GValue) +constructFontSelectionFontName val = constructObjectPropertyString "font-name" val + +data FontSelectionFontNamePropertyInfo +instance AttrInfo FontSelectionFontNamePropertyInfo where + type AttrAllowedOps FontSelectionFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FontSelectionFontNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint FontSelectionFontNamePropertyInfo = FontSelectionK + type AttrGetType FontSelectionFontNamePropertyInfo = T.Text + type AttrLabel FontSelectionFontNamePropertyInfo = "FontSelection::font-name" + attrGet _ = getFontSelectionFontName + attrSet _ = setFontSelectionFontName + attrConstruct _ = constructFontSelectionFontName + +-- VVV Prop "preview-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> m T.Text +getFontSelectionPreviewText obj = liftIO $ getObjectPropertyString obj "preview-text" + +setFontSelectionPreviewText :: (MonadIO m, FontSelectionK o) => o -> T.Text -> m () +setFontSelectionPreviewText obj val = liftIO $ setObjectPropertyString obj "preview-text" val + +constructFontSelectionPreviewText :: T.Text -> IO ([Char], GValue) +constructFontSelectionPreviewText val = constructObjectPropertyString "preview-text" 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 = "FontSelection::preview-text" + attrGet _ = getFontSelectionPreviewText + attrSet _ = setFontSelectionPreviewText + attrConstruct _ = constructFontSelectionPreviewText + +type instance AttributeList FontSelection = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("font-name", FontSelectionFontNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("preview-text", FontSelectionPreviewTextPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList FontSelectionDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getFrameLabel :: (MonadIO m, FrameK o) => o -> m T.Text +getFrameLabel obj = liftIO $ getObjectPropertyString obj "label" + +setFrameLabel :: (MonadIO m, FrameK o) => o -> T.Text -> m () +setFrameLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructFrameLabel :: T.Text -> IO ([Char], GValue) +constructFrameLabel val = constructObjectPropertyString "label" val + +data FrameLabelPropertyInfo +instance AttrInfo FrameLabelPropertyInfo where + type AttrAllowedOps FrameLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FrameLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint FrameLabelPropertyInfo = FrameK + type AttrGetType FrameLabelPropertyInfo = T.Text + type AttrLabel FrameLabelPropertyInfo = "Frame::label" + attrGet _ = getFrameLabel + attrSet _ = setFrameLabel + attrConstruct _ = constructFrameLabel + +-- VVV Prop "label-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getFrameLabelWidget :: (MonadIO m, FrameK o) => o -> m 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" val + +constructFrameLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructFrameLabelWidget val = constructObjectPropertyObject "label-widget" val + +data FrameLabelWidgetPropertyInfo +instance AttrInfo FrameLabelWidgetPropertyInfo where + type AttrAllowedOps FrameLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint FrameLabelWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint FrameLabelWidgetPropertyInfo = FrameK + type AttrGetType FrameLabelWidgetPropertyInfo = Widget + type AttrLabel FrameLabelWidgetPropertyInfo = "Frame::label-widget" + attrGet _ = getFrameLabelWidget + attrSet _ = setFrameLabelWidget + attrConstruct _ = constructFrameLabelWidget + +-- VVV Prop "label-xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Frame::label-xalign" + attrGet _ = getFrameLabelXalign + attrSet _ = setFrameLabelXalign + attrConstruct _ = constructFrameLabelXalign + +-- VVV Prop "label-yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Frame::label-yalign" + attrGet _ = getFrameLabelYalign + attrSet _ = setFrameLabelYalign + attrConstruct _ = constructFrameLabelYalign + +-- VVV Prop "shadow-type" + -- Type: TInterface "Gtk" "ShadowType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Frame::shadow-type" + attrGet _ = getFrameShadowType + attrSet _ = setFrameShadowType + attrConstruct _ = constructFrameShadowType + +type instance AttributeList Frame = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", FrameLabelPropertyInfo), '("label-widget", FrameLabelWidgetPropertyInfo), '("label-xalign", FrameLabelXalignPropertyInfo), '("label-yalign", FrameLabelYalignPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", FrameShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList FrameAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "auto-render" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "GLArea::auto-render" + attrGet _ = getGLAreaAutoRender + attrSet _ = setGLAreaAutoRender + attrConstruct _ = constructGLAreaAutoRender + +-- VVV Prop "context" + -- Type: TInterface "Gdk" "GLContext" + -- Flags: [PropertyReadable] + +getGLAreaContext :: (MonadIO m, GLAreaK o) => o -> m Gdk.GLContext +getGLAreaContext obj = liftIO $ getObjectPropertyObject obj "context" Gdk.GLContext + +data GLAreaContextPropertyInfo +instance AttrInfo GLAreaContextPropertyInfo where + type AttrAllowedOps GLAreaContextPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint GLAreaContextPropertyInfo = (~) () + type AttrBaseTypeConstraint GLAreaContextPropertyInfo = GLAreaK + type AttrGetType GLAreaContextPropertyInfo = Gdk.GLContext + type AttrLabel GLAreaContextPropertyInfo = "GLArea::context" + attrGet _ = getGLAreaContext + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "has-alpha" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "GLArea::has-alpha" + attrGet _ = getGLAreaHasAlpha + attrSet _ = setGLAreaHasAlpha + attrConstruct _ = constructGLAreaHasAlpha + +-- VVV Prop "has-depth-buffer" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "GLArea::has-depth-buffer" + attrGet _ = getGLAreaHasDepthBuffer + attrSet _ = setGLAreaHasDepthBuffer + attrConstruct _ = constructGLAreaHasDepthBuffer + +-- VVV Prop "has-stencil-buffer" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "GLArea::has-stencil-buffer" + attrGet _ = getGLAreaHasStencilBuffer + attrSet _ = setGLAreaHasStencilBuffer + attrConstruct _ = constructGLAreaHasStencilBuffer + +type instance AttributeList GLArea = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("auto-render", GLAreaAutoRenderPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("context", GLAreaContextPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-alpha", GLAreaHasAlphaPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-depth-buffer", GLAreaHasDepthBufferPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-stencil-buffer", GLAreaHasStencilBufferPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "n-points" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getGestureNPoints :: (MonadIO m, GestureK o) => o -> m Word32 +getGestureNPoints obj = liftIO $ getObjectPropertyCUInt obj "n-points" + +constructGestureNPoints :: Word32 -> IO ([Char], GValue) +constructGestureNPoints val = constructObjectPropertyCUInt "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 = "Gesture::n-points" + attrGet _ = getGestureNPoints + attrSet _ = undefined + attrConstruct _ = constructGestureNPoints + +-- VVV Prop "window" + -- Type: TInterface "Gdk" "Window" + -- Flags: [PropertyReadable,PropertyWritable] + +getGestureWindow :: (MonadIO m, GestureK o) => o -> m Gdk.Window +getGestureWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window + +setGestureWindow :: (MonadIO m, GestureK o, Gdk.WindowK a) => o -> a -> m () +setGestureWindow obj val = liftIO $ setObjectPropertyObject obj "window" val + +constructGestureWindow :: (Gdk.WindowK a) => a -> IO ([Char], GValue) +constructGestureWindow val = constructObjectPropertyObject "window" val + +data GestureWindowPropertyInfo +instance AttrInfo GestureWindowPropertyInfo where + type AttrAllowedOps GestureWindowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint GestureWindowPropertyInfo = Gdk.WindowK + type AttrBaseTypeConstraint GestureWindowPropertyInfo = GestureK + type AttrGetType GestureWindowPropertyInfo = Gdk.Window + type AttrLabel GestureWindowPropertyInfo = "Gesture::window" + attrGet _ = getGestureWindow + attrSet _ = setGestureWindow + attrConstruct _ = constructGestureWindow + +type instance AttributeList Gesture = '[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +type instance AttributeList GestureDrag = '[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +-- VVV Prop "delay-factor" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "GestureLongPress::delay-factor" + attrGet _ = getGestureLongPressDelayFactor + attrSet _ = setGestureLongPressDelayFactor + attrConstruct _ = constructGestureLongPressDelayFactor + +type instance AttributeList GestureLongPress = '[ '("button", GestureSingleButtonPropertyInfo), '("delay-factor", GestureLongPressDelayFactorPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +type instance AttributeList GestureMultiPress = '[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +-- VVV Prop "orientation" + -- Type: TInterface "Gtk" "Orientation" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "GesturePan::orientation" + attrGet _ = getGesturePanOrientation + attrSet _ = setGesturePanOrientation + attrConstruct _ = constructGesturePanOrientation + +type instance AttributeList GesturePan = '[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("orientation", GesturePanOrientationPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +type instance AttributeList GestureRotate = '[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +-- VVV Prop "button" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> m Word32 +getGestureSingleButton obj = liftIO $ getObjectPropertyCUInt obj "button" + +setGestureSingleButton :: (MonadIO m, GestureSingleK o) => o -> Word32 -> m () +setGestureSingleButton obj val = liftIO $ setObjectPropertyCUInt obj "button" val + +constructGestureSingleButton :: Word32 -> IO ([Char], GValue) +constructGestureSingleButton val = constructObjectPropertyCUInt "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 = "GestureSingle::button" + attrGet _ = getGestureSingleButton + attrSet _ = setGestureSingleButton + attrConstruct _ = constructGestureSingleButton + +-- VVV Prop "exclusive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "GestureSingle::exclusive" + attrGet _ = getGestureSingleExclusive + attrSet _ = setGestureSingleExclusive + attrConstruct _ = constructGestureSingleExclusive + +-- VVV Prop "touch-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "GestureSingle::touch-only" + attrGet _ = getGestureSingleTouchOnly + attrSet _ = setGestureSingleTouchOnly + attrConstruct _ = constructGestureSingleTouchOnly + +type instance AttributeList GestureSingle = '[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +type instance AttributeList GestureSwipe = '[ '("button", GestureSingleButtonPropertyInfo), '("exclusive", GestureSingleExclusivePropertyInfo), '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("touch-only", GestureSingleTouchOnlyPropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +type instance AttributeList GestureZoom = '[ '("n-points", GestureNPointsPropertyInfo), '("propagation-phase", EventControllerPropagationPhasePropertyInfo), '("widget", EventControllerWidgetPropertyInfo), '("window", GestureWindowPropertyInfo)] + +-- VVV Prop "baseline-row" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getGridBaselineRow :: (MonadIO m, GridK o) => o -> m Int32 +getGridBaselineRow obj = liftIO $ getObjectPropertyCInt obj "baseline-row" + +setGridBaselineRow :: (MonadIO m, GridK o) => o -> Int32 -> m () +setGridBaselineRow obj val = liftIO $ setObjectPropertyCInt obj "baseline-row" val + +constructGridBaselineRow :: Int32 -> IO ([Char], GValue) +constructGridBaselineRow val = constructObjectPropertyCInt "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 = "Grid::baseline-row" + attrGet _ = getGridBaselineRow + attrSet _ = setGridBaselineRow + attrConstruct _ = constructGridBaselineRow + +-- VVV Prop "column-homogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Grid::column-homogeneous" + attrGet _ = getGridColumnHomogeneous + attrSet _ = setGridColumnHomogeneous + attrConstruct _ = constructGridColumnHomogeneous + +-- VVV Prop "column-spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getGridColumnSpacing :: (MonadIO m, GridK o) => o -> m Int32 +getGridColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing" + +setGridColumnSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m () +setGridColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val + +constructGridColumnSpacing :: Int32 -> IO ([Char], GValue) +constructGridColumnSpacing val = constructObjectPropertyCInt "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 = "Grid::column-spacing" + attrGet _ = getGridColumnSpacing + attrSet _ = setGridColumnSpacing + attrConstruct _ = constructGridColumnSpacing + +-- VVV Prop "row-homogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Grid::row-homogeneous" + attrGet _ = getGridRowHomogeneous + attrSet _ = setGridRowHomogeneous + attrConstruct _ = constructGridRowHomogeneous + +-- VVV Prop "row-spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getGridRowSpacing :: (MonadIO m, GridK o) => o -> m Int32 +getGridRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing" + +setGridRowSpacing :: (MonadIO m, GridK o) => o -> Int32 -> m () +setGridRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val + +constructGridRowSpacing :: Int32 -> IO ([Char], GValue) +constructGridRowSpacing val = constructObjectPropertyCInt "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 = "Grid::row-spacing" + attrGet _ = getGridRowSpacing + attrSet _ = setGridRowSpacing + attrConstruct _ = constructGridRowSpacing + +type instance AttributeList Grid = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-row", GridBaselineRowPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-homogeneous", GridColumnHomogeneousPropertyInfo), '("column-spacing", GridColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-homogeneous", GridRowHomogeneousPropertyInfo), '("row-spacing", GridRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList HBox = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList HButtonBox = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList HPaned = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList HSV = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList HScale = '[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList HScrollbar = '[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList HSeparator = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "child-detached" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "HandleBox::child-detached" + attrGet _ = getHandleBoxChildDetached + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "handle-position" + -- Type: TInterface "Gtk" "PositionType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "HandleBox::handle-position" + attrGet _ = getHandleBoxHandlePosition + attrSet _ = setHandleBoxHandlePosition + attrConstruct _ = constructHandleBoxHandlePosition + +-- VVV Prop "shadow-type" + -- Type: TInterface "Gtk" "ShadowType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "HandleBox::shadow-type" + attrGet _ = getHandleBoxShadowType + attrSet _ = setHandleBoxShadowType + attrConstruct _ = constructHandleBoxShadowType + +-- VVV Prop "snap-edge" + -- Type: TInterface "Gtk" "PositionType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "HandleBox::snap-edge" + attrGet _ = getHandleBoxSnapEdge + attrSet _ = setHandleBoxSnapEdge + attrConstruct _ = constructHandleBoxSnapEdge + +-- VVV Prop "snap-edge-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "HandleBox::snap-edge-set" + attrGet _ = getHandleBoxSnapEdgeSet + attrSet _ = setHandleBoxSnapEdgeSet + attrConstruct _ = constructHandleBoxSnapEdgeSet + +type instance AttributeList HandleBox = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-detached", HandleBoxChildDetachedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("handle-position", HandleBoxHandlePositionPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", HandleBoxShadowTypePropertyInfo), '("snap-edge", HandleBoxSnapEdgePropertyInfo), '("snap-edge-set", HandleBoxSnapEdgeSetPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "custom-title" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o) => o -> m Widget +getHeaderBarCustomTitle obj = liftIO $ getObjectPropertyObject obj "custom-title" Widget + +setHeaderBarCustomTitle :: (MonadIO m, HeaderBarK o, WidgetK a) => o -> a -> m () +setHeaderBarCustomTitle obj val = liftIO $ setObjectPropertyObject obj "custom-title" val + +constructHeaderBarCustomTitle :: (WidgetK a) => a -> IO ([Char], GValue) +constructHeaderBarCustomTitle val = constructObjectPropertyObject "custom-title" val + +data HeaderBarCustomTitlePropertyInfo +instance AttrInfo HeaderBarCustomTitlePropertyInfo where + type AttrAllowedOps HeaderBarCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HeaderBarCustomTitlePropertyInfo = WidgetK + type AttrBaseTypeConstraint HeaderBarCustomTitlePropertyInfo = HeaderBarK + type AttrGetType HeaderBarCustomTitlePropertyInfo = Widget + type AttrLabel HeaderBarCustomTitlePropertyInfo = "HeaderBar::custom-title" + attrGet _ = getHeaderBarCustomTitle + attrSet _ = setHeaderBarCustomTitle + attrConstruct _ = constructHeaderBarCustomTitle + +-- VVV Prop "decoration-layout" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> m T.Text +getHeaderBarDecorationLayout obj = liftIO $ getObjectPropertyString obj "decoration-layout" + +setHeaderBarDecorationLayout :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () +setHeaderBarDecorationLayout obj val = liftIO $ setObjectPropertyString obj "decoration-layout" val + +constructHeaderBarDecorationLayout :: T.Text -> IO ([Char], GValue) +constructHeaderBarDecorationLayout val = constructObjectPropertyString "decoration-layout" val + +data HeaderBarDecorationLayoutPropertyInfo +instance AttrInfo HeaderBarDecorationLayoutPropertyInfo where + type AttrAllowedOps HeaderBarDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HeaderBarDecorationLayoutPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HeaderBarDecorationLayoutPropertyInfo = HeaderBarK + type AttrGetType HeaderBarDecorationLayoutPropertyInfo = T.Text + type AttrLabel HeaderBarDecorationLayoutPropertyInfo = "HeaderBar::decoration-layout" + attrGet _ = getHeaderBarDecorationLayout + attrSet _ = setHeaderBarDecorationLayout + attrConstruct _ = constructHeaderBarDecorationLayout + +-- VVV Prop "decoration-layout-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "HeaderBar::decoration-layout-set" + attrGet _ = getHeaderBarDecorationLayoutSet + attrSet _ = setHeaderBarDecorationLayoutSet + attrConstruct _ = constructHeaderBarDecorationLayoutSet + +-- VVV Prop "has-subtitle" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "HeaderBar::has-subtitle" + attrGet _ = getHeaderBarHasSubtitle + attrSet _ = setHeaderBarHasSubtitle + attrConstruct _ = constructHeaderBarHasSubtitle + +-- VVV Prop "show-close-button" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "HeaderBar::show-close-button" + attrGet _ = getHeaderBarShowCloseButton + attrSet _ = setHeaderBarShowCloseButton + attrConstruct _ = constructHeaderBarShowCloseButton + +-- VVV Prop "spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> m Int32 +getHeaderBarSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" + +setHeaderBarSpacing :: (MonadIO m, HeaderBarK o) => o -> Int32 -> m () +setHeaderBarSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val + +constructHeaderBarSpacing :: Int32 -> IO ([Char], GValue) +constructHeaderBarSpacing val = constructObjectPropertyCInt "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 = "HeaderBar::spacing" + attrGet _ = getHeaderBarSpacing + attrSet _ = setHeaderBarSpacing + attrConstruct _ = constructHeaderBarSpacing + +-- VVV Prop "subtitle" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text +getHeaderBarSubtitle obj = liftIO $ getObjectPropertyString obj "subtitle" + +setHeaderBarSubtitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () +setHeaderBarSubtitle obj val = liftIO $ setObjectPropertyString obj "subtitle" val + +constructHeaderBarSubtitle :: T.Text -> IO ([Char], GValue) +constructHeaderBarSubtitle val = constructObjectPropertyString "subtitle" val + +data HeaderBarSubtitlePropertyInfo +instance AttrInfo HeaderBarSubtitlePropertyInfo where + type AttrAllowedOps HeaderBarSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HeaderBarSubtitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HeaderBarSubtitlePropertyInfo = HeaderBarK + type AttrGetType HeaderBarSubtitlePropertyInfo = T.Text + type AttrLabel HeaderBarSubtitlePropertyInfo = "HeaderBar::subtitle" + attrGet _ = getHeaderBarSubtitle + attrSet _ = setHeaderBarSubtitle + attrConstruct _ = constructHeaderBarSubtitle + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> m T.Text +getHeaderBarTitle obj = liftIO $ getObjectPropertyString obj "title" + +setHeaderBarTitle :: (MonadIO m, HeaderBarK o) => o -> T.Text -> m () +setHeaderBarTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructHeaderBarTitle :: T.Text -> IO ([Char], GValue) +constructHeaderBarTitle val = constructObjectPropertyString "title" val + +data HeaderBarTitlePropertyInfo +instance AttrInfo HeaderBarTitlePropertyInfo where + type AttrAllowedOps HeaderBarTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint HeaderBarTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint HeaderBarTitlePropertyInfo = HeaderBarK + type AttrGetType HeaderBarTitlePropertyInfo = T.Text + type AttrLabel HeaderBarTitlePropertyInfo = "HeaderBar::title" + attrGet _ = getHeaderBarTitle + attrSet _ = setHeaderBarTitle + attrConstruct _ = constructHeaderBarTitle + +type instance AttributeList HeaderBar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("custom-title", HeaderBarCustomTitlePropertyInfo), '("decoration-layout", HeaderBarDecorationLayoutPropertyInfo), '("decoration-layout-set", HeaderBarDecorationLayoutSetPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-subtitle", HeaderBarHasSubtitlePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", HeaderBarShowCloseButtonPropertyInfo), '("spacing", HeaderBarSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("subtitle", HeaderBarSubtitlePropertyInfo), '("title", HeaderBarTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "input-hints" + -- Type: TInterface "Gtk" "InputHints" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "IMContext::input-hints" + attrGet _ = getIMContextInputHints + attrSet _ = setIMContextInputHints + attrConstruct _ = constructIMContextInputHints + +-- VVV Prop "input-purpose" + -- Type: TInterface "Gtk" "InputPurpose" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "IMContext::input-purpose" + attrGet _ = getIMContextInputPurpose + attrSet _ = setIMContextInputPurpose + attrConstruct _ = constructIMContextInputPurpose + +type instance AttributeList IMContext = '[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] + +type instance AttributeList IMContextSimple = '[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] + +type instance AttributeList IMMulticontext = '[ '("input-hints", IMContextInputHintsPropertyInfo), '("input-purpose", IMContextInputPurposePropertyInfo)] + +type instance AttributeList IconFactory = '[ ] + +type instance AttributeList IconInfo = '[ ] + +type instance AttributeList IconTheme = '[ ] + +-- VVV Prop "activate-on-single-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "IconView::activate-on-single-click" + attrGet _ = getIconViewActivateOnSingleClick + attrSet _ = setIconViewActivateOnSingleClick + attrConstruct _ = constructIconViewActivateOnSingleClick + +-- VVV Prop "cell-area" + -- Type: TInterface "Gtk" "CellArea" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getIconViewCellArea :: (MonadIO m, IconViewK o) => o -> m CellArea +getIconViewCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea + +constructIconViewCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) +constructIconViewCellArea val = constructObjectPropertyObject "cell-area" val + +data IconViewCellAreaPropertyInfo +instance AttrInfo IconViewCellAreaPropertyInfo where + type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewCellAreaPropertyInfo = CellAreaK + type AttrBaseTypeConstraint IconViewCellAreaPropertyInfo = IconViewK + type AttrGetType IconViewCellAreaPropertyInfo = CellArea + type AttrLabel IconViewCellAreaPropertyInfo = "IconView::cell-area" + attrGet _ = getIconViewCellArea + attrSet _ = undefined + attrConstruct _ = constructIconViewCellArea + +-- VVV Prop "column-spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "column-spacing" + +setIconViewColumnSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "column-spacing" val + +constructIconViewColumnSpacing :: Int32 -> IO ([Char], GValue) +constructIconViewColumnSpacing val = constructObjectPropertyCInt "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 = "IconView::column-spacing" + attrGet _ = getIconViewColumnSpacing + attrSet _ = setIconViewColumnSpacing + attrConstruct _ = constructIconViewColumnSpacing + +-- VVV Prop "columns" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewColumns :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewColumns obj = liftIO $ getObjectPropertyCInt obj "columns" + +setIconViewColumns :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewColumns obj val = liftIO $ setObjectPropertyCInt obj "columns" val + +constructIconViewColumns :: Int32 -> IO ([Char], GValue) +constructIconViewColumns val = constructObjectPropertyCInt "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 = "IconView::columns" + attrGet _ = getIconViewColumns + attrSet _ = setIconViewColumns + attrConstruct _ = constructIconViewColumns + +-- VVV Prop "item-orientation" + -- Type: TInterface "Gtk" "Orientation" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "IconView::item-orientation" + attrGet _ = getIconViewItemOrientation + attrSet _ = setIconViewItemOrientation + attrConstruct _ = constructIconViewItemOrientation + +-- VVV Prop "item-padding" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewItemPadding obj = liftIO $ getObjectPropertyCInt obj "item-padding" + +setIconViewItemPadding :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewItemPadding obj val = liftIO $ setObjectPropertyCInt obj "item-padding" val + +constructIconViewItemPadding :: Int32 -> IO ([Char], GValue) +constructIconViewItemPadding val = constructObjectPropertyCInt "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 = "IconView::item-padding" + attrGet _ = getIconViewItemPadding + attrSet _ = setIconViewItemPadding + attrConstruct _ = constructIconViewItemPadding + +-- VVV Prop "item-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewItemWidth obj = liftIO $ getObjectPropertyCInt obj "item-width" + +setIconViewItemWidth :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewItemWidth obj val = liftIO $ setObjectPropertyCInt obj "item-width" val + +constructIconViewItemWidth :: Int32 -> IO ([Char], GValue) +constructIconViewItemWidth val = constructObjectPropertyCInt "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 = "IconView::item-width" + attrGet _ = getIconViewItemWidth + attrSet _ = setIconViewItemWidth + attrConstruct _ = constructIconViewItemWidth + +-- VVV Prop "margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewMargin :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewMargin obj = liftIO $ getObjectPropertyCInt obj "margin" + +setIconViewMargin :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val + +constructIconViewMargin :: Int32 -> IO ([Char], GValue) +constructIconViewMargin val = constructObjectPropertyCInt "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 = "IconView::margin" + attrGet _ = getIconViewMargin + attrSet _ = setIconViewMargin + attrConstruct _ = constructIconViewMargin + +-- VVV Prop "markup-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewMarkupColumn obj = liftIO $ getObjectPropertyCInt obj "markup-column" + +setIconViewMarkupColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewMarkupColumn obj val = liftIO $ setObjectPropertyCInt obj "markup-column" val + +constructIconViewMarkupColumn :: Int32 -> IO ([Char], GValue) +constructIconViewMarkupColumn val = constructObjectPropertyCInt "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 = "IconView::markup-column" + attrGet _ = getIconViewMarkupColumn + attrSet _ = setIconViewMarkupColumn + attrConstruct _ = constructIconViewMarkupColumn + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewModel :: (MonadIO m, IconViewK o) => o -> m TreeModel +getIconViewModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel + +setIconViewModel :: (MonadIO m, IconViewK o, TreeModelK a) => o -> a -> m () +setIconViewModel obj val = liftIO $ setObjectPropertyObject obj "model" val + +constructIconViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructIconViewModel val = constructObjectPropertyObject "model" val + +data IconViewModelPropertyInfo +instance AttrInfo IconViewModelPropertyInfo where + type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint IconViewModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint IconViewModelPropertyInfo = IconViewK + type AttrGetType IconViewModelPropertyInfo = TreeModel + type AttrLabel IconViewModelPropertyInfo = "IconView::model" + attrGet _ = getIconViewModel + attrSet _ = setIconViewModel + attrConstruct _ = constructIconViewModel + +-- VVV Prop "pixbuf-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewPixbufColumn obj = liftIO $ getObjectPropertyCInt obj "pixbuf-column" + +setIconViewPixbufColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewPixbufColumn obj val = liftIO $ setObjectPropertyCInt obj "pixbuf-column" val + +constructIconViewPixbufColumn :: Int32 -> IO ([Char], GValue) +constructIconViewPixbufColumn val = constructObjectPropertyCInt "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 = "IconView::pixbuf-column" + attrGet _ = getIconViewPixbufColumn + attrSet _ = setIconViewPixbufColumn + attrConstruct _ = constructIconViewPixbufColumn + +-- VVV Prop "reorderable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "IconView::reorderable" + attrGet _ = getIconViewReorderable + attrSet _ = setIconViewReorderable + attrConstruct _ = constructIconViewReorderable + +-- VVV Prop "row-spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewRowSpacing obj = liftIO $ getObjectPropertyCInt obj "row-spacing" + +setIconViewRowSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewRowSpacing obj val = liftIO $ setObjectPropertyCInt obj "row-spacing" val + +constructIconViewRowSpacing :: Int32 -> IO ([Char], GValue) +constructIconViewRowSpacing val = constructObjectPropertyCInt "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 = "IconView::row-spacing" + attrGet _ = getIconViewRowSpacing + attrSet _ = setIconViewRowSpacing + attrConstruct _ = constructIconViewRowSpacing + +-- VVV Prop "selection-mode" + -- Type: TInterface "Gtk" "SelectionMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "IconView::selection-mode" + attrGet _ = getIconViewSelectionMode + attrSet _ = setIconViewSelectionMode + attrConstruct _ = constructIconViewSelectionMode + +-- VVV Prop "spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewSpacing :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" + +setIconViewSpacing :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val + +constructIconViewSpacing :: Int32 -> IO ([Char], GValue) +constructIconViewSpacing val = constructObjectPropertyCInt "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 = "IconView::spacing" + attrGet _ = getIconViewSpacing + attrSet _ = setIconViewSpacing + attrConstruct _ = constructIconViewSpacing + +-- VVV Prop "text-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewTextColumn obj = liftIO $ getObjectPropertyCInt obj "text-column" + +setIconViewTextColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewTextColumn obj val = liftIO $ setObjectPropertyCInt obj "text-column" val + +constructIconViewTextColumn :: Int32 -> IO ([Char], GValue) +constructIconViewTextColumn val = constructObjectPropertyCInt "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 = "IconView::text-column" + attrGet _ = getIconViewTextColumn + attrSet _ = setIconViewTextColumn + attrConstruct _ = constructIconViewTextColumn + +-- VVV Prop "tooltip-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> m Int32 +getIconViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" + +setIconViewTooltipColumn :: (MonadIO m, IconViewK o) => o -> Int32 -> m () +setIconViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val + +constructIconViewTooltipColumn :: Int32 -> IO ([Char], GValue) +constructIconViewTooltipColumn val = constructObjectPropertyCInt "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 = "IconView::tooltip-column" + attrGet _ = getIconViewTooltipColumn + attrSet _ = setIconViewTooltipColumn + attrConstruct _ = constructIconViewTooltipColumn + +type instance AttributeList IconView = '[ '("activate-on-single-click", IconViewActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("cell-area", IconViewCellAreaPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("item-orientation", IconViewItemOrientationPropertyInfo), '("item-padding", IconViewItemPaddingPropertyInfo), '("item-width", IconViewItemWidthPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("markup-column", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf-column", IconViewPixbufColumnPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", IconViewRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", IconViewSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("text-column", IconViewTextColumnPropertyInfo), '("tooltip-column", IconViewTooltipColumnPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList IconViewAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "file" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getImageFile :: (MonadIO m, ImageK o) => o -> m T.Text +getImageFile obj = liftIO $ getObjectPropertyString obj "file" + +setImageFile :: (MonadIO m, ImageK o) => o -> T.Text -> m () +setImageFile obj val = liftIO $ setObjectPropertyString obj "file" val + +constructImageFile :: T.Text -> IO ([Char], GValue) +constructImageFile val = constructObjectPropertyString "file" val + +data ImageFilePropertyInfo +instance AttrInfo ImageFilePropertyInfo where + type AttrAllowedOps ImageFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImageFilePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ImageFilePropertyInfo = ImageK + type AttrGetType ImageFilePropertyInfo = T.Text + type AttrLabel ImageFilePropertyInfo = "Image::file" + attrGet _ = getImageFile + attrSet _ = setImageFile + attrConstruct _ = constructImageFile + +-- VVV Prop "gicon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getImageGicon :: (MonadIO m, ImageK o) => o -> m 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" val + +constructImageGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructImageGicon val = constructObjectPropertyObject "gicon" val + +data ImageGiconPropertyInfo +instance AttrInfo ImageGiconPropertyInfo where + type AttrAllowedOps ImageGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImageGiconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint ImageGiconPropertyInfo = ImageK + type AttrGetType ImageGiconPropertyInfo = Gio.Icon + type AttrLabel ImageGiconPropertyInfo = "Image::gicon" + attrGet _ = getImageGicon + attrSet _ = setImageGicon + attrConstruct _ = constructImageGicon + +-- VVV Prop "icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getImageIconName :: (MonadIO m, ImageK o) => o -> m 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" val + +constructImageIconName :: T.Text -> IO ([Char], GValue) +constructImageIconName val = constructObjectPropertyString "icon-name" val + +data ImageIconNamePropertyInfo +instance AttrInfo ImageIconNamePropertyInfo where + type AttrAllowedOps ImageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImageIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ImageIconNamePropertyInfo = ImageK + type AttrGetType ImageIconNamePropertyInfo = T.Text + type AttrLabel ImageIconNamePropertyInfo = "Image::icon-name" + attrGet _ = getImageIconName + attrSet _ = setImageIconName + attrConstruct _ = constructImageIconName + +-- VVV Prop "icon-set" + -- Type: TInterface "Gtk" "IconSet" + -- Flags: [PropertyReadable,PropertyWritable] + +getImageIconSet :: (MonadIO m, ImageK o) => o -> m 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" val + +constructImageIconSet :: IconSet -> IO ([Char], GValue) +constructImageIconSet val = constructObjectPropertyBoxed "icon-set" val + +data ImageIconSetPropertyInfo +instance AttrInfo ImageIconSetPropertyInfo where + type AttrAllowedOps ImageIconSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImageIconSetPropertyInfo = (~) IconSet + type AttrBaseTypeConstraint ImageIconSetPropertyInfo = ImageK + type AttrGetType ImageIconSetPropertyInfo = IconSet + type AttrLabel ImageIconSetPropertyInfo = "Image::icon-set" + attrGet _ = getImageIconSet + attrSet _ = setImageIconSet + attrConstruct _ = constructImageIconSet + +-- VVV Prop "icon-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getImageIconSize :: (MonadIO m, ImageK o) => o -> m Int32 +getImageIconSize obj = liftIO $ getObjectPropertyCInt obj "icon-size" + +setImageIconSize :: (MonadIO m, ImageK o) => o -> Int32 -> m () +setImageIconSize obj val = liftIO $ setObjectPropertyCInt obj "icon-size" val + +constructImageIconSize :: Int32 -> IO ([Char], GValue) +constructImageIconSize val = constructObjectPropertyCInt "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 = "Image::icon-size" + attrGet _ = getImageIconSize + attrSet _ = setImageIconSize + attrConstruct _ = constructImageIconSize + +-- VVV Prop "pixbuf" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getImagePixbuf :: (MonadIO m, ImageK o) => o -> m GdkPixbuf.Pixbuf +getImagePixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf + +setImagePixbuf :: (MonadIO m, ImageK o, GdkPixbuf.PixbufK a) => o -> a -> m () +setImagePixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val + +constructImagePixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructImagePixbuf val = constructObjectPropertyObject "pixbuf" val + +data ImagePixbufPropertyInfo +instance AttrInfo ImagePixbufPropertyInfo where + type AttrAllowedOps ImagePixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImagePixbufPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint ImagePixbufPropertyInfo = ImageK + type AttrGetType ImagePixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel ImagePixbufPropertyInfo = "Image::pixbuf" + attrGet _ = getImagePixbuf + attrSet _ = setImagePixbuf + attrConstruct _ = constructImagePixbuf + +-- VVV Prop "pixbuf-animation" + -- Type: TInterface "GdkPixbuf" "PixbufAnimation" + -- Flags: [PropertyReadable,PropertyWritable] + +getImagePixbufAnimation :: (MonadIO m, ImageK o) => o -> m 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" val + +constructImagePixbufAnimation :: (GdkPixbuf.PixbufAnimationK a) => a -> IO ([Char], GValue) +constructImagePixbufAnimation val = constructObjectPropertyObject "pixbuf-animation" val + +data ImagePixbufAnimationPropertyInfo +instance AttrInfo ImagePixbufAnimationPropertyInfo where + type AttrAllowedOps ImagePixbufAnimationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimationK + type AttrBaseTypeConstraint ImagePixbufAnimationPropertyInfo = ImageK + type AttrGetType ImagePixbufAnimationPropertyInfo = GdkPixbuf.PixbufAnimation + type AttrLabel ImagePixbufAnimationPropertyInfo = "Image::pixbuf-animation" + attrGet _ = getImagePixbufAnimation + attrSet _ = setImagePixbufAnimation + attrConstruct _ = constructImagePixbufAnimation + +-- VVV Prop "pixel-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getImagePixelSize :: (MonadIO m, ImageK o) => o -> m Int32 +getImagePixelSize obj = liftIO $ getObjectPropertyCInt obj "pixel-size" + +setImagePixelSize :: (MonadIO m, ImageK o) => o -> Int32 -> m () +setImagePixelSize obj val = liftIO $ setObjectPropertyCInt obj "pixel-size" val + +constructImagePixelSize :: Int32 -> IO ([Char], GValue) +constructImagePixelSize val = constructObjectPropertyCInt "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 = "Image::pixel-size" + attrGet _ = getImagePixelSize + attrSet _ = setImagePixelSize + attrConstruct _ = constructImagePixelSize + +-- VVV Prop "resource" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getImageResource :: (MonadIO m, ImageK o) => o -> m T.Text +getImageResource obj = liftIO $ getObjectPropertyString obj "resource" + +setImageResource :: (MonadIO m, ImageK o) => o -> T.Text -> m () +setImageResource obj val = liftIO $ setObjectPropertyString obj "resource" val + +constructImageResource :: T.Text -> IO ([Char], GValue) +constructImageResource val = constructObjectPropertyString "resource" val + +data ImageResourcePropertyInfo +instance AttrInfo ImageResourcePropertyInfo where + type AttrAllowedOps ImageResourcePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImageResourcePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ImageResourcePropertyInfo = ImageK + type AttrGetType ImageResourcePropertyInfo = T.Text + type AttrLabel ImageResourcePropertyInfo = "Image::resource" + attrGet _ = getImageResource + attrSet _ = setImageResource + attrConstruct _ = constructImageResource + +-- VVV Prop "stock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getImageStock :: (MonadIO m, ImageK o) => o -> m T.Text +getImageStock obj = liftIO $ getObjectPropertyString obj "stock" + +setImageStock :: (MonadIO m, ImageK o) => o -> T.Text -> m () +setImageStock obj val = liftIO $ setObjectPropertyString obj "stock" val + +constructImageStock :: T.Text -> IO ([Char], GValue) +constructImageStock val = constructObjectPropertyString "stock" val + +data ImageStockPropertyInfo +instance AttrInfo ImageStockPropertyInfo where + type AttrAllowedOps ImageStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImageStockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ImageStockPropertyInfo = ImageK + type AttrGetType ImageStockPropertyInfo = T.Text + type AttrLabel ImageStockPropertyInfo = "Image::stock" + attrGet _ = getImageStock + attrSet _ = setImageStock + attrConstruct _ = constructImageStock + +-- VVV Prop "storage-type" + -- Type: TInterface "Gtk" "ImageType" + -- Flags: [PropertyReadable] + +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 = "Image::storage-type" + attrGet _ = getImageStorageType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "surface" + -- Type: TInterface "cairo" "Surface" + -- Flags: [PropertyReadable,PropertyWritable] + +getImageSurface :: (MonadIO m, ImageK o) => o -> m 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" val + +constructImageSurface :: Cairo.Surface -> IO ([Char], GValue) +constructImageSurface val = constructObjectPropertyBoxed "surface" val + +data ImageSurfacePropertyInfo +instance AttrInfo ImageSurfacePropertyInfo where + type AttrAllowedOps ImageSurfacePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImageSurfacePropertyInfo = (~) Cairo.Surface + type AttrBaseTypeConstraint ImageSurfacePropertyInfo = ImageK + type AttrGetType ImageSurfacePropertyInfo = Cairo.Surface + type AttrLabel ImageSurfacePropertyInfo = "Image::surface" + attrGet _ = getImageSurface + attrSet _ = setImageSurface + attrConstruct _ = constructImageSurface + +-- VVV Prop "use-fallback" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Image::use-fallback" + attrGet _ = getImageUseFallback + attrSet _ = setImageUseFallback + attrConstruct _ = constructImageUseFallback + +type instance AttributeList Image = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("file", ImageFilePropertyInfo), '("gicon", ImageGiconPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ImageIconNamePropertyInfo), '("icon-set", ImageIconSetPropertyInfo), '("icon-size", ImageIconSizePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixbuf", ImagePixbufPropertyInfo), '("pixbuf-animation", ImagePixbufAnimationPropertyInfo), '("pixel-size", ImagePixelSizePropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resource", ImageResourcePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock", ImageStockPropertyInfo), '("storage-type", ImageStorageTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("surface", ImageSurfacePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-fallback", ImageUseFallbackPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] + +type instance AttributeList ImageAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList ImageCellAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "accel-group" + -- Type: TInterface "Gtk" "AccelGroup" + -- Flags: [PropertyWritable] + +setImageMenuItemAccelGroup :: (MonadIO m, ImageMenuItemK o, AccelGroupK a) => o -> a -> m () +setImageMenuItemAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val + +constructImageMenuItemAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) +constructImageMenuItemAccelGroup val = constructObjectPropertyObject "accel-group" 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 = "ImageMenuItem::accel-group" + attrGet _ = undefined + attrSet _ = setImageMenuItemAccelGroup + attrConstruct _ = constructImageMenuItemAccelGroup + +-- VVV Prop "always-show-image" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "ImageMenuItem::always-show-image" + attrGet _ = getImageMenuItemAlwaysShowImage + attrSet _ = setImageMenuItemAlwaysShowImage + attrConstruct _ = constructImageMenuItemAlwaysShowImage + +-- VVV Prop "image" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getImageMenuItemImage :: (MonadIO m, ImageMenuItemK o) => o -> m Widget +getImageMenuItemImage obj = liftIO $ getObjectPropertyObject obj "image" Widget + +setImageMenuItemImage :: (MonadIO m, ImageMenuItemK o, WidgetK a) => o -> a -> m () +setImageMenuItemImage obj val = liftIO $ setObjectPropertyObject obj "image" val + +constructImageMenuItemImage :: (WidgetK a) => a -> IO ([Char], GValue) +constructImageMenuItemImage val = constructObjectPropertyObject "image" val + +data ImageMenuItemImagePropertyInfo +instance AttrInfo ImageMenuItemImagePropertyInfo where + type AttrAllowedOps ImageMenuItemImagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ImageMenuItemImagePropertyInfo = WidgetK + type AttrBaseTypeConstraint ImageMenuItemImagePropertyInfo = ImageMenuItemK + type AttrGetType ImageMenuItemImagePropertyInfo = Widget + type AttrLabel ImageMenuItemImagePropertyInfo = "ImageMenuItem::image" + attrGet _ = getImageMenuItemImage + attrSet _ = setImageMenuItemImage + attrConstruct _ = constructImageMenuItemImage + +-- VVV Prop "use-stock" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "ImageMenuItem::use-stock" + attrGet _ = getImageMenuItemUseStock + attrSet _ = setImageMenuItemUseStock + attrConstruct _ = constructImageMenuItemUseStock + +type instance AttributeList ImageMenuItem = '[ '("accel-group", ImageMenuItemAccelGroupPropertyInfo), '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ImageMenuItemAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ImageMenuItemImagePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ImageMenuItemUseStockPropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "message-type" + -- Type: TInterface "Gtk" "MessageType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "InfoBar::message-type" + attrGet _ = getInfoBarMessageType + attrSet _ = setInfoBarMessageType + attrConstruct _ = constructInfoBarMessageType + +-- VVV Prop "show-close-button" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "InfoBar::show-close-button" + attrGet _ = getInfoBarShowCloseButton + attrSet _ = setInfoBarShowCloseButton + attrConstruct _ = constructInfoBarShowCloseButton + +type instance AttributeList InfoBar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("message-type", InfoBarMessageTypePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", InfoBarShowCloseButtonPropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "screen" + -- Type: TInterface "Gdk" "Screen" + -- Flags: [PropertyReadable,PropertyWritable] + +getInvisibleScreen :: (MonadIO m, InvisibleK o) => o -> m Gdk.Screen +getInvisibleScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen + +setInvisibleScreen :: (MonadIO m, InvisibleK o, Gdk.ScreenK a) => o -> a -> m () +setInvisibleScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val + +constructInvisibleScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) +constructInvisibleScreen val = constructObjectPropertyObject "screen" 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 = "Invisible::screen" + attrGet _ = getInvisibleScreen + attrSet _ = setInvisibleScreen + attrConstruct _ = constructInvisibleScreen + +type instance AttributeList Invisible = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", InvisibleScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +--- XXX Duplicated object with different types: + --- Name {namespace = "Gtk", name = "Label"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "xalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], 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], propTransfer = TransferNothing, propDeprecated = Nothing} + --- Name {namespace = "Gtk", name = "Misc"} -> Property {propName = "yalign", propType = TBasicType TFloat, propFlags = [PropertyReadable,PropertyWritable], 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] + +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 = "Label::angle" + attrGet _ = getLabelAngle + attrSet _ = setLabelAngle + attrConstruct _ = constructLabelAngle + +-- VVV Prop "attributes" + -- Type: TInterface "Pango" "AttrList" + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelAttributes :: (MonadIO m, LabelK o) => o -> m Pango.AttrList +getLabelAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList + +setLabelAttributes :: (MonadIO m, LabelK o) => o -> Pango.AttrList -> m () +setLabelAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val + +constructLabelAttributes :: Pango.AttrList -> IO ([Char], GValue) +constructLabelAttributes val = constructObjectPropertyBoxed "attributes" val + +data LabelAttributesPropertyInfo +instance AttrInfo LabelAttributesPropertyInfo where + type AttrAllowedOps LabelAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelAttributesPropertyInfo = (~) Pango.AttrList + type AttrBaseTypeConstraint LabelAttributesPropertyInfo = LabelK + type AttrGetType LabelAttributesPropertyInfo = Pango.AttrList + type AttrLabel LabelAttributesPropertyInfo = "Label::attributes" + attrGet _ = getLabelAttributes + attrSet _ = setLabelAttributes + attrConstruct _ = constructLabelAttributes + +-- VVV Prop "cursor-position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getLabelCursorPosition :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelCursorPosition obj = liftIO $ getObjectPropertyCInt 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 = "Label::cursor-position" + attrGet _ = getLabelCursorPosition + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "ellipsize" + -- Type: TInterface "Pango" "EllipsizeMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::ellipsize" + attrGet _ = getLabelEllipsize + attrSet _ = setLabelEllipsize + attrConstruct _ = constructLabelEllipsize + +-- VVV Prop "justify" + -- Type: TInterface "Gtk" "Justification" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::justify" + attrGet _ = getLabelJustify + attrSet _ = setLabelJustify + attrConstruct _ = constructLabelJustify + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelLabel :: (MonadIO m, LabelK o) => o -> m T.Text +getLabelLabel obj = liftIO $ getObjectPropertyString obj "label" + +setLabelLabel :: (MonadIO m, LabelK o) => o -> T.Text -> m () +setLabelLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructLabelLabel :: T.Text -> IO ([Char], GValue) +constructLabelLabel val = constructObjectPropertyString "label" 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::label" + attrGet _ = getLabelLabel + attrSet _ = setLabelLabel + attrConstruct _ = constructLabelLabel + +-- VVV Prop "lines" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelLines :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelLines obj = liftIO $ getObjectPropertyCInt obj "lines" + +setLabelLines :: (MonadIO m, LabelK o) => o -> Int32 -> m () +setLabelLines obj val = liftIO $ setObjectPropertyCInt obj "lines" val + +constructLabelLines :: Int32 -> IO ([Char], GValue) +constructLabelLines val = constructObjectPropertyCInt "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 = "Label::lines" + attrGet _ = getLabelLines + attrSet _ = setLabelLines + attrConstruct _ = constructLabelLines + +-- VVV Prop "max-width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars" + +setLabelMaxWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () +setLabelMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val + +constructLabelMaxWidthChars :: Int32 -> IO ([Char], GValue) +constructLabelMaxWidthChars val = constructObjectPropertyCInt "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 = "Label::max-width-chars" + attrGet _ = getLabelMaxWidthChars + attrSet _ = setLabelMaxWidthChars + attrConstruct _ = constructLabelMaxWidthChars + +-- VVV Prop "mnemonic-keyval" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable] + +getLabelMnemonicKeyval :: (MonadIO m, LabelK o) => o -> m Word32 +getLabelMnemonicKeyval obj = liftIO $ getObjectPropertyCUInt 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 = "Label::mnemonic-keyval" + attrGet _ = getLabelMnemonicKeyval + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mnemonic-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelMnemonicWidget :: (MonadIO m, LabelK o) => o -> m Widget +getLabelMnemonicWidget obj = liftIO $ getObjectPropertyObject obj "mnemonic-widget" Widget + +setLabelMnemonicWidget :: (MonadIO m, LabelK o, WidgetK a) => o -> a -> m () +setLabelMnemonicWidget obj val = liftIO $ setObjectPropertyObject obj "mnemonic-widget" val + +constructLabelMnemonicWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructLabelMnemonicWidget val = constructObjectPropertyObject "mnemonic-widget" val + +data LabelMnemonicWidgetPropertyInfo +instance AttrInfo LabelMnemonicWidgetPropertyInfo where + type AttrAllowedOps LabelMnemonicWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LabelMnemonicWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint LabelMnemonicWidgetPropertyInfo = LabelK + type AttrGetType LabelMnemonicWidgetPropertyInfo = Widget + type AttrLabel LabelMnemonicWidgetPropertyInfo = "Label::mnemonic-widget" + attrGet _ = getLabelMnemonicWidget + attrSet _ = setLabelMnemonicWidget + attrConstruct _ = constructLabelMnemonicWidget + +-- VVV Prop "pattern" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setLabelPattern :: (MonadIO m, LabelK o) => o -> T.Text -> m () +setLabelPattern obj val = liftIO $ setObjectPropertyString obj "pattern" val + +constructLabelPattern :: T.Text -> IO ([Char], GValue) +constructLabelPattern val = constructObjectPropertyString "pattern" 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 = "Label::pattern" + attrGet _ = undefined + attrSet _ = setLabelPattern + attrConstruct _ = constructLabelPattern + +-- VVV Prop "selectable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::selectable" + attrGet _ = getLabelSelectable + attrSet _ = setLabelSelectable + attrConstruct _ = constructLabelSelectable + +-- VVV Prop "selection-bound" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getLabelSelectionBound :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelSelectionBound obj = liftIO $ getObjectPropertyCInt 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 = "Label::selection-bound" + attrGet _ = getLabelSelectionBound + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "single-line-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::single-line-mode" + attrGet _ = getLabelSingleLineMode + attrSet _ = setLabelSingleLineMode + attrConstruct _ = constructLabelSingleLineMode + +-- VVV Prop "track-visited-links" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::track-visited-links" + attrGet _ = getLabelTrackVisitedLinks + attrSet _ = setLabelTrackVisitedLinks + attrConstruct _ = constructLabelTrackVisitedLinks + +-- VVV Prop "use-markup" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::use-markup" + attrGet _ = getLabelUseMarkup + attrSet _ = setLabelUseMarkup + attrConstruct _ = constructLabelUseMarkup + +-- VVV Prop "use-underline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::use-underline" + attrGet _ = getLabelUseUnderline + attrSet _ = setLabelUseUnderline + attrConstruct _ = constructLabelUseUnderline + +-- VVV Prop "width-chars" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getLabelWidthChars :: (MonadIO m, LabelK o) => o -> m Int32 +getLabelWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars" + +setLabelWidthChars :: (MonadIO m, LabelK o) => o -> Int32 -> m () +setLabelWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val + +constructLabelWidthChars :: Int32 -> IO ([Char], GValue) +constructLabelWidthChars val = constructObjectPropertyCInt "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 = "Label::width-chars" + attrGet _ = getLabelWidthChars + attrSet _ = setLabelWidthChars + attrConstruct _ = constructLabelWidthChars + +-- VVV Prop "wrap" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::wrap" + attrGet _ = getLabelWrap + attrSet _ = setLabelWrap + attrConstruct _ = constructLabelWrap + +-- VVV Prop "wrap-mode" + -- Type: TInterface "Pango" "WrapMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::wrap-mode" + attrGet _ = getLabelWrapMode + attrSet _ = setLabelWrapMode + attrConstruct _ = constructLabelWrapMode + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::xalign" + attrGet _ = getLabelXalign + attrSet _ = setLabelXalign + attrConstruct _ = constructLabelXalign + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Label::yalign" + attrGet _ = getLabelYalign + attrSet _ = setLabelYalign + attrConstruct _ = constructLabelYalign + +type instance AttributeList Label = '[ '("angle", LabelAnglePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", LabelAttributesPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", LabelCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", LabelEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justify", LabelJustifyPropertyInfo), '("label", LabelLabelPropertyInfo), '("lines", LabelLinesPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-width-chars", LabelMaxWidthCharsPropertyInfo), '("mnemonic-keyval", LabelMnemonicKeyvalPropertyInfo), '("mnemonic-widget", LabelMnemonicWidgetPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pattern", LabelPatternPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", LabelSelectablePropertyInfo), '("selection-bound", LabelSelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("single-line-mode", LabelSingleLineModePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("track-visited-links", LabelTrackVisitedLinksPropertyInfo), '("use-markup", LabelUseMarkupPropertyInfo), '("use-underline", LabelUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", LabelWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", LabelWrapPropertyInfo), '("wrap-mode", LabelWrapModePropertyInfo), '("xpad", MiscXpadPropertyInfo), '("ypad", MiscYpadPropertyInfo)] + +type instance AttributeList LabelAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "height" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getLayoutHeight :: (MonadIO m, LayoutK o) => o -> m Word32 +getLayoutHeight obj = liftIO $ getObjectPropertyCUInt obj "height" + +setLayoutHeight :: (MonadIO m, LayoutK o) => o -> Word32 -> m () +setLayoutHeight obj val = liftIO $ setObjectPropertyCUInt obj "height" val + +constructLayoutHeight :: Word32 -> IO ([Char], GValue) +constructLayoutHeight val = constructObjectPropertyCUInt "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 = "Layout::height" + attrGet _ = getLayoutHeight + attrSet _ = setLayoutHeight + attrConstruct _ = constructLayoutHeight + +-- VVV Prop "width" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getLayoutWidth :: (MonadIO m, LayoutK o) => o -> m Word32 +getLayoutWidth obj = liftIO $ getObjectPropertyCUInt obj "width" + +setLayoutWidth :: (MonadIO m, LayoutK o) => o -> Word32 -> m () +setLayoutWidth obj val = liftIO $ setObjectPropertyCUInt obj "width" val + +constructLayoutWidth :: Word32 -> IO ([Char], GValue) +constructLayoutWidth val = constructObjectPropertyCUInt "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 = "Layout::width" + attrGet _ = getLayoutWidth + attrSet _ = setLayoutWidth + attrConstruct _ = constructLayoutWidth + +type instance AttributeList Layout = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height", LayoutHeightPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width", LayoutWidthPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "inverted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "LevelBar::inverted" + attrGet _ = getLevelBarInverted + attrSet _ = setLevelBarInverted + attrConstruct _ = constructLevelBarInverted + +-- VVV Prop "max-value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "LevelBar::max-value" + attrGet _ = getLevelBarMaxValue + attrSet _ = setLevelBarMaxValue + attrConstruct _ = constructLevelBarMaxValue + +-- VVV Prop "min-value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "LevelBar::min-value" + attrGet _ = getLevelBarMinValue + attrSet _ = setLevelBarMinValue + attrConstruct _ = constructLevelBarMinValue + +-- VVV Prop "mode" + -- Type: TInterface "Gtk" "LevelBarMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "LevelBar::mode" + attrGet _ = getLevelBarMode + attrSet _ = setLevelBarMode + attrConstruct _ = constructLevelBarMode + +-- VVV Prop "value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "LevelBar::value" + attrGet _ = getLevelBarValue + attrSet _ = setLevelBarValue + attrConstruct _ = constructLevelBarValue + +type instance AttributeList LevelBar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", LevelBarInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-value", LevelBarMaxValuePropertyInfo), '("min-value", LevelBarMinValuePropertyInfo), '("mode", LevelBarModePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", LevelBarValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList LevelBarAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "uri" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> m T.Text +getLinkButtonUri obj = liftIO $ getObjectPropertyString obj "uri" + +setLinkButtonUri :: (MonadIO m, LinkButtonK o) => o -> T.Text -> m () +setLinkButtonUri obj val = liftIO $ setObjectPropertyString obj "uri" val + +constructLinkButtonUri :: T.Text -> IO ([Char], GValue) +constructLinkButtonUri val = constructObjectPropertyString "uri" 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 = "LinkButton::uri" + attrGet _ = getLinkButtonUri + attrSet _ = setLinkButtonUri + attrConstruct _ = constructLinkButtonUri + +-- VVV Prop "visited" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "LinkButton::visited" + attrGet _ = getLinkButtonVisited + attrSet _ = setLinkButtonVisited + attrConstruct _ = constructLinkButtonVisited + +type instance AttributeList LinkButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("uri", LinkButtonUriPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visited", LinkButtonVisitedPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +type instance AttributeList LinkButtonAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "activate-on-single-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ListBox::activate-on-single-click" + attrGet _ = getListBoxActivateOnSingleClick + attrSet _ = setListBoxActivateOnSingleClick + attrConstruct _ = constructListBoxActivateOnSingleClick + +-- VVV Prop "selection-mode" + -- Type: TInterface "Gtk" "SelectionMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ListBox::selection-mode" + attrGet _ = getListBoxSelectionMode + attrSet _ = setListBoxSelectionMode + attrConstruct _ = constructListBoxSelectionMode + +type instance AttributeList ListBox = '[ '("activate-on-single-click", ListBoxActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selection-mode", ListBoxSelectionModePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList ListBoxAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "activatable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ListBoxRow::activatable" + attrGet _ = getListBoxRowActivatable + attrSet _ = setListBoxRowActivatable + attrConstruct _ = constructListBoxRowActivatable + +-- VVV Prop "selectable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ListBoxRow::selectable" + attrGet _ = getListBoxRowSelectable + attrSet _ = setListBoxRowSelectable + attrConstruct _ = constructListBoxRowSelectable + +type instance AttributeList ListBoxRow = '[ '("activatable", ListBoxRowActivatablePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("selectable", ListBoxRowSelectablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList ListBoxRowAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList ListStore = '[ ] + +-- VVV Prop "permission" + -- Type: TInterface "Gio" "Permission" + -- Flags: [PropertyReadable,PropertyWritable] + +getLockButtonPermission :: (MonadIO m, LockButtonK o) => o -> m Gio.Permission +getLockButtonPermission obj = liftIO $ getObjectPropertyObject obj "permission" Gio.Permission + +setLockButtonPermission :: (MonadIO m, LockButtonK o, Gio.PermissionK a) => o -> a -> m () +setLockButtonPermission obj val = liftIO $ setObjectPropertyObject obj "permission" val + +constructLockButtonPermission :: (Gio.PermissionK a) => a -> IO ([Char], GValue) +constructLockButtonPermission val = constructObjectPropertyObject "permission" val + +data LockButtonPermissionPropertyInfo +instance AttrInfo LockButtonPermissionPropertyInfo where + type AttrAllowedOps LockButtonPermissionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LockButtonPermissionPropertyInfo = Gio.PermissionK + type AttrBaseTypeConstraint LockButtonPermissionPropertyInfo = LockButtonK + type AttrGetType LockButtonPermissionPropertyInfo = Gio.Permission + type AttrLabel LockButtonPermissionPropertyInfo = "LockButton::permission" + attrGet _ = getLockButtonPermission + attrSet _ = setLockButtonPermission + attrConstruct _ = constructLockButtonPermission + +-- VVV Prop "text-lock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getLockButtonTextLock :: (MonadIO m, LockButtonK o) => o -> m 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" val + +constructLockButtonTextLock :: T.Text -> IO ([Char], GValue) +constructLockButtonTextLock val = constructObjectPropertyString "text-lock" val + +data LockButtonTextLockPropertyInfo +instance AttrInfo LockButtonTextLockPropertyInfo where + type AttrAllowedOps LockButtonTextLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LockButtonTextLockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint LockButtonTextLockPropertyInfo = LockButtonK + type AttrGetType LockButtonTextLockPropertyInfo = T.Text + type AttrLabel LockButtonTextLockPropertyInfo = "LockButton::text-lock" + attrGet _ = getLockButtonTextLock + attrSet _ = setLockButtonTextLock + attrConstruct _ = constructLockButtonTextLock + +-- VVV Prop "text-unlock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getLockButtonTextUnlock :: (MonadIO m, LockButtonK o) => o -> m 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" val + +constructLockButtonTextUnlock :: T.Text -> IO ([Char], GValue) +constructLockButtonTextUnlock val = constructObjectPropertyString "text-unlock" val + +data LockButtonTextUnlockPropertyInfo +instance AttrInfo LockButtonTextUnlockPropertyInfo where + type AttrAllowedOps LockButtonTextUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LockButtonTextUnlockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint LockButtonTextUnlockPropertyInfo = LockButtonK + type AttrGetType LockButtonTextUnlockPropertyInfo = T.Text + type AttrLabel LockButtonTextUnlockPropertyInfo = "LockButton::text-unlock" + attrGet _ = getLockButtonTextUnlock + attrSet _ = setLockButtonTextUnlock + attrConstruct _ = constructLockButtonTextUnlock + +-- VVV Prop "tooltip-lock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getLockButtonTooltipLock :: (MonadIO m, LockButtonK o) => o -> m 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" val + +constructLockButtonTooltipLock :: T.Text -> IO ([Char], GValue) +constructLockButtonTooltipLock val = constructObjectPropertyString "tooltip-lock" val + +data LockButtonTooltipLockPropertyInfo +instance AttrInfo LockButtonTooltipLockPropertyInfo where + type AttrAllowedOps LockButtonTooltipLockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LockButtonTooltipLockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint LockButtonTooltipLockPropertyInfo = LockButtonK + type AttrGetType LockButtonTooltipLockPropertyInfo = T.Text + type AttrLabel LockButtonTooltipLockPropertyInfo = "LockButton::tooltip-lock" + attrGet _ = getLockButtonTooltipLock + attrSet _ = setLockButtonTooltipLock + attrConstruct _ = constructLockButtonTooltipLock + +-- VVV Prop "tooltip-not-authorized" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getLockButtonTooltipNotAuthorized :: (MonadIO m, LockButtonK o) => o -> m 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" val + +constructLockButtonTooltipNotAuthorized :: T.Text -> IO ([Char], GValue) +constructLockButtonTooltipNotAuthorized val = constructObjectPropertyString "tooltip-not-authorized" val + +data LockButtonTooltipNotAuthorizedPropertyInfo +instance AttrInfo LockButtonTooltipNotAuthorizedPropertyInfo where + type AttrAllowedOps LockButtonTooltipNotAuthorizedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint LockButtonTooltipNotAuthorizedPropertyInfo = LockButtonK + type AttrGetType LockButtonTooltipNotAuthorizedPropertyInfo = T.Text + type AttrLabel LockButtonTooltipNotAuthorizedPropertyInfo = "LockButton::tooltip-not-authorized" + attrGet _ = getLockButtonTooltipNotAuthorized + attrSet _ = setLockButtonTooltipNotAuthorized + attrConstruct _ = constructLockButtonTooltipNotAuthorized + +-- VVV Prop "tooltip-unlock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getLockButtonTooltipUnlock :: (MonadIO m, LockButtonK o) => o -> m 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" val + +constructLockButtonTooltipUnlock :: T.Text -> IO ([Char], GValue) +constructLockButtonTooltipUnlock val = constructObjectPropertyString "tooltip-unlock" val + +data LockButtonTooltipUnlockPropertyInfo +instance AttrInfo LockButtonTooltipUnlockPropertyInfo where + type AttrAllowedOps LockButtonTooltipUnlockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint LockButtonTooltipUnlockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint LockButtonTooltipUnlockPropertyInfo = LockButtonK + type AttrGetType LockButtonTooltipUnlockPropertyInfo = T.Text + type AttrLabel LockButtonTooltipUnlockPropertyInfo = "LockButton::tooltip-unlock" + attrGet _ = getLockButtonTooltipUnlock + attrSet _ = setLockButtonTooltipUnlock + attrConstruct _ = constructLockButtonTooltipUnlock + +type instance AttributeList LockButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("permission", LockButtonPermissionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text-lock", LockButtonTextLockPropertyInfo), '("text-unlock", LockButtonTextUnlockPropertyInfo), '("tooltip-lock", LockButtonTooltipLockPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-not-authorized", LockButtonTooltipNotAuthorizedPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("tooltip-unlock", LockButtonTooltipUnlockPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +type instance AttributeList LockButtonAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "accel-group" + -- Type: TInterface "Gtk" "AccelGroup" + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuAccelGroup :: (MonadIO m, MenuK o) => o -> m AccelGroup +getMenuAccelGroup obj = liftIO $ getObjectPropertyObject obj "accel-group" AccelGroup + +setMenuAccelGroup :: (MonadIO m, MenuK o, AccelGroupK a) => o -> a -> m () +setMenuAccelGroup obj val = liftIO $ setObjectPropertyObject obj "accel-group" val + +constructMenuAccelGroup :: (AccelGroupK a) => a -> IO ([Char], GValue) +constructMenuAccelGroup val = constructObjectPropertyObject "accel-group" val + +data MenuAccelGroupPropertyInfo +instance AttrInfo MenuAccelGroupPropertyInfo where + type AttrAllowedOps MenuAccelGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuAccelGroupPropertyInfo = AccelGroupK + type AttrBaseTypeConstraint MenuAccelGroupPropertyInfo = MenuK + type AttrGetType MenuAccelGroupPropertyInfo = AccelGroup + type AttrLabel MenuAccelGroupPropertyInfo = "Menu::accel-group" + attrGet _ = getMenuAccelGroup + attrSet _ = setMenuAccelGroup + attrConstruct _ = constructMenuAccelGroup + +-- VVV Prop "accel-path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuAccelPath :: (MonadIO m, MenuK o) => o -> m T.Text +getMenuAccelPath obj = liftIO $ getObjectPropertyString obj "accel-path" + +setMenuAccelPath :: (MonadIO m, MenuK o) => o -> T.Text -> m () +setMenuAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" val + +constructMenuAccelPath :: T.Text -> IO ([Char], GValue) +constructMenuAccelPath val = constructObjectPropertyString "accel-path" val + +data MenuAccelPathPropertyInfo +instance AttrInfo MenuAccelPathPropertyInfo where + type AttrAllowedOps MenuAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuAccelPathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint MenuAccelPathPropertyInfo = MenuK + type AttrGetType MenuAccelPathPropertyInfo = T.Text + type AttrLabel MenuAccelPathPropertyInfo = "Menu::accel-path" + attrGet _ = getMenuAccelPath + attrSet _ = setMenuAccelPath + attrConstruct _ = constructMenuAccelPath + +-- VVV Prop "active" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuActive :: (MonadIO m, MenuK o) => o -> m Int32 +getMenuActive obj = liftIO $ getObjectPropertyCInt obj "active" + +setMenuActive :: (MonadIO m, MenuK o) => o -> Int32 -> m () +setMenuActive obj val = liftIO $ setObjectPropertyCInt obj "active" val + +constructMenuActive :: Int32 -> IO ([Char], GValue) +constructMenuActive val = constructObjectPropertyCInt "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 = "Menu::active" + attrGet _ = getMenuActive + attrSet _ = setMenuActive + attrConstruct _ = constructMenuActive + +-- VVV Prop "attach-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuAttachWidget :: (MonadIO m, MenuK o) => o -> m Widget +getMenuAttachWidget obj = liftIO $ getObjectPropertyObject obj "attach-widget" Widget + +setMenuAttachWidget :: (MonadIO m, MenuK o, WidgetK a) => o -> a -> m () +setMenuAttachWidget obj val = liftIO $ setObjectPropertyObject obj "attach-widget" val + +constructMenuAttachWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructMenuAttachWidget val = constructObjectPropertyObject "attach-widget" val + +data MenuAttachWidgetPropertyInfo +instance AttrInfo MenuAttachWidgetPropertyInfo where + type AttrAllowedOps MenuAttachWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuAttachWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint MenuAttachWidgetPropertyInfo = MenuK + type AttrGetType MenuAttachWidgetPropertyInfo = Widget + type AttrLabel MenuAttachWidgetPropertyInfo = "Menu::attach-widget" + attrGet _ = getMenuAttachWidget + attrSet _ = setMenuAttachWidget + attrConstruct _ = constructMenuAttachWidget + +-- VVV Prop "monitor" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuMonitor :: (MonadIO m, MenuK o) => o -> m Int32 +getMenuMonitor obj = liftIO $ getObjectPropertyCInt obj "monitor" + +setMenuMonitor :: (MonadIO m, MenuK o) => o -> Int32 -> m () +setMenuMonitor obj val = liftIO $ setObjectPropertyCInt obj "monitor" val + +constructMenuMonitor :: Int32 -> IO ([Char], GValue) +constructMenuMonitor val = constructObjectPropertyCInt "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 = "Menu::monitor" + attrGet _ = getMenuMonitor + attrSet _ = setMenuMonitor + attrConstruct _ = constructMenuMonitor + +-- VVV Prop "reserve-toggle-size" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Menu::reserve-toggle-size" + attrGet _ = getMenuReserveToggleSize + attrSet _ = setMenuReserveToggleSize + attrConstruct _ = constructMenuReserveToggleSize + +-- VVV Prop "tearoff-state" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Menu::tearoff-state" + attrGet _ = getMenuTearoffState + attrSet _ = setMenuTearoffState + attrConstruct _ = constructMenuTearoffState + +-- VVV Prop "tearoff-title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuTearoffTitle :: (MonadIO m, MenuK o) => o -> m 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" val + +constructMenuTearoffTitle :: T.Text -> IO ([Char], GValue) +constructMenuTearoffTitle val = constructObjectPropertyString "tearoff-title" val + +data MenuTearoffTitlePropertyInfo +instance AttrInfo MenuTearoffTitlePropertyInfo where + type AttrAllowedOps MenuTearoffTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuTearoffTitlePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint MenuTearoffTitlePropertyInfo = MenuK + type AttrGetType MenuTearoffTitlePropertyInfo = T.Text + type AttrLabel MenuTearoffTitlePropertyInfo = "Menu::tearoff-title" + attrGet _ = getMenuTearoffTitle + attrSet _ = setMenuTearoffTitle + attrConstruct _ = constructMenuTearoffTitle + +type instance AttributeList Menu = '[ '("accel-group", MenuAccelGroupPropertyInfo), '("accel-path", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attach-widget", MenuAttachWidgetPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reserve-toggle-size", MenuReserveToggleSizePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tearoff-state", MenuTearoffStatePropertyInfo), '("tearoff-title", MenuTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList MenuAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "child-pack-direction" + -- Type: TInterface "Gtk" "PackDirection" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MenuBar::child-pack-direction" + attrGet _ = getMenuBarChildPackDirection + attrSet _ = setMenuBarChildPackDirection + attrConstruct _ = constructMenuBarChildPackDirection + +-- VVV Prop "pack-direction" + -- Type: TInterface "Gtk" "PackDirection" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MenuBar::pack-direction" + attrGet _ = getMenuBarPackDirection + attrSet _ = setMenuBarPackDirection + attrConstruct _ = constructMenuBarPackDirection + +type instance AttributeList MenuBar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-pack-direction", MenuBarChildPackDirectionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("pack-direction", MenuBarPackDirectionPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "align-widget" + -- Type: TInterface "Gtk" "Container" + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuButtonAlignWidget :: (MonadIO m, MenuButtonK o) => o -> m 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" val + +constructMenuButtonAlignWidget :: (ContainerK a) => a -> IO ([Char], GValue) +constructMenuButtonAlignWidget val = constructObjectPropertyObject "align-widget" val + +data MenuButtonAlignWidgetPropertyInfo +instance AttrInfo MenuButtonAlignWidgetPropertyInfo where + type AttrAllowedOps MenuButtonAlignWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuButtonAlignWidgetPropertyInfo = ContainerK + type AttrBaseTypeConstraint MenuButtonAlignWidgetPropertyInfo = MenuButtonK + type AttrGetType MenuButtonAlignWidgetPropertyInfo = Container + type AttrLabel MenuButtonAlignWidgetPropertyInfo = "MenuButton::align-widget" + attrGet _ = getMenuButtonAlignWidget + attrSet _ = setMenuButtonAlignWidget + attrConstruct _ = constructMenuButtonAlignWidget + +-- VVV Prop "direction" + -- Type: TInterface "Gtk" "ArrowType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MenuButton::direction" + attrGet _ = getMenuButtonDirection + attrSet _ = setMenuButtonDirection + attrConstruct _ = constructMenuButtonDirection + +-- VVV Prop "menu-model" + -- Type: TInterface "Gio" "MenuModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuButtonMenuModel :: (MonadIO m, MenuButtonK o) => o -> m Gio.MenuModel +getMenuButtonMenuModel obj = liftIO $ 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" val + +constructMenuButtonMenuModel :: (Gio.MenuModelK a) => a -> IO ([Char], GValue) +constructMenuButtonMenuModel val = constructObjectPropertyObject "menu-model" val + +data MenuButtonMenuModelPropertyInfo +instance AttrInfo MenuButtonMenuModelPropertyInfo where + type AttrAllowedOps MenuButtonMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuButtonMenuModelPropertyInfo = Gio.MenuModelK + type AttrBaseTypeConstraint MenuButtonMenuModelPropertyInfo = MenuButtonK + type AttrGetType MenuButtonMenuModelPropertyInfo = Gio.MenuModel + type AttrLabel MenuButtonMenuModelPropertyInfo = "MenuButton::menu-model" + attrGet _ = getMenuButtonMenuModel + attrSet _ = setMenuButtonMenuModel + attrConstruct _ = constructMenuButtonMenuModel + +-- VVV Prop "popover" + -- Type: TInterface "Gtk" "Popover" + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuButtonPopover :: (MonadIO m, MenuButtonK o) => o -> m Popover +getMenuButtonPopover obj = liftIO $ getObjectPropertyObject obj "popover" Popover + +setMenuButtonPopover :: (MonadIO m, MenuButtonK o, PopoverK a) => o -> a -> m () +setMenuButtonPopover obj val = liftIO $ setObjectPropertyObject obj "popover" val + +constructMenuButtonPopover :: (PopoverK a) => a -> IO ([Char], GValue) +constructMenuButtonPopover val = constructObjectPropertyObject "popover" val + +data MenuButtonPopoverPropertyInfo +instance AttrInfo MenuButtonPopoverPropertyInfo where + type AttrAllowedOps MenuButtonPopoverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuButtonPopoverPropertyInfo = PopoverK + type AttrBaseTypeConstraint MenuButtonPopoverPropertyInfo = MenuButtonK + type AttrGetType MenuButtonPopoverPropertyInfo = Popover + type AttrLabel MenuButtonPopoverPropertyInfo = "MenuButton::popover" + attrGet _ = getMenuButtonPopover + attrSet _ = setMenuButtonPopover + attrConstruct _ = constructMenuButtonPopover + +-- VVV Prop "popup" + -- Type: TInterface "Gtk" "Menu" + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuButtonPopup :: (MonadIO m, MenuButtonK o) => o -> m Menu +getMenuButtonPopup obj = liftIO $ getObjectPropertyObject obj "popup" Menu + +setMenuButtonPopup :: (MonadIO m, MenuButtonK o, MenuK a) => o -> a -> m () +setMenuButtonPopup obj val = liftIO $ setObjectPropertyObject obj "popup" val + +constructMenuButtonPopup :: (MenuK a) => a -> IO ([Char], GValue) +constructMenuButtonPopup val = constructObjectPropertyObject "popup" val + +data MenuButtonPopupPropertyInfo +instance AttrInfo MenuButtonPopupPropertyInfo where + type AttrAllowedOps MenuButtonPopupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuButtonPopupPropertyInfo = MenuK + type AttrBaseTypeConstraint MenuButtonPopupPropertyInfo = MenuButtonK + type AttrGetType MenuButtonPopupPropertyInfo = Menu + type AttrLabel MenuButtonPopupPropertyInfo = "MenuButton::popup" + attrGet _ = getMenuButtonPopup + attrSet _ = setMenuButtonPopup + attrConstruct _ = constructMenuButtonPopup + +-- VVV Prop "use-popover" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MenuButton::use-popover" + attrGet _ = getMenuButtonUsePopover + attrSet _ = setMenuButtonUsePopover + attrConstruct _ = constructMenuButtonUsePopover + +type instance AttributeList MenuButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("align-widget", MenuButtonAlignWidgetPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("direction", MenuButtonDirectionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu-model", MenuButtonMenuModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("popover", MenuButtonPopoverPropertyInfo), '("popup", MenuButtonPopupPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-popover", MenuButtonUsePopoverPropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +type instance AttributeList MenuButtonAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "accel-path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> m T.Text +getMenuItemAccelPath obj = liftIO $ getObjectPropertyString obj "accel-path" + +setMenuItemAccelPath :: (MonadIO m, MenuItemK o) => o -> T.Text -> m () +setMenuItemAccelPath obj val = liftIO $ setObjectPropertyString obj "accel-path" val + +constructMenuItemAccelPath :: T.Text -> IO ([Char], GValue) +constructMenuItemAccelPath val = constructObjectPropertyString "accel-path" val + +data MenuItemAccelPathPropertyInfo +instance AttrInfo MenuItemAccelPathPropertyInfo where + type AttrAllowedOps MenuItemAccelPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuItemAccelPathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint MenuItemAccelPathPropertyInfo = MenuItemK + type AttrGetType MenuItemAccelPathPropertyInfo = T.Text + type AttrLabel MenuItemAccelPathPropertyInfo = "MenuItem::accel-path" + attrGet _ = getMenuItemAccelPath + attrSet _ = setMenuItemAccelPath + attrConstruct _ = constructMenuItemAccelPath + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> m T.Text +getMenuItemLabel obj = liftIO $ getObjectPropertyString obj "label" + +setMenuItemLabel :: (MonadIO m, MenuItemK o) => o -> T.Text -> m () +setMenuItemLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructMenuItemLabel :: T.Text -> IO ([Char], GValue) +constructMenuItemLabel val = constructObjectPropertyString "label" 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 = "MenuItem::label" + attrGet _ = getMenuItemLabel + attrSet _ = setMenuItemLabel + attrConstruct _ = constructMenuItemLabel + +-- VVV Prop "right-justified" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MenuItem::right-justified" + attrGet _ = getMenuItemRightJustified + attrSet _ = setMenuItemRightJustified + attrConstruct _ = constructMenuItemRightJustified + +-- VVV Prop "submenu" + -- Type: TInterface "Gtk" "Menu" + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuItemSubmenu :: (MonadIO m, MenuItemK o) => o -> m 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" val + +constructMenuItemSubmenu :: (MenuK a) => a -> IO ([Char], GValue) +constructMenuItemSubmenu val = constructObjectPropertyObject "submenu" val + +data MenuItemSubmenuPropertyInfo +instance AttrInfo MenuItemSubmenuPropertyInfo where + type AttrAllowedOps MenuItemSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuItemSubmenuPropertyInfo = MenuK + type AttrBaseTypeConstraint MenuItemSubmenuPropertyInfo = MenuItemK + type AttrGetType MenuItemSubmenuPropertyInfo = Menu + type AttrLabel MenuItemSubmenuPropertyInfo = "MenuItem::submenu" + attrGet _ = getMenuItemSubmenu + attrSet _ = setMenuItemSubmenu + attrConstruct _ = constructMenuItemSubmenu + +-- VVV Prop "use-underline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MenuItem::use-underline" + attrGet _ = getMenuItemUseUnderline + attrSet _ = setMenuItemUseUnderline + attrConstruct _ = constructMenuItemUseUnderline + +type instance AttributeList MenuItem = '[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList MenuItemAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "take-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MenuShell::take-focus" + attrGet _ = getMenuShellTakeFocus + attrSet _ = setMenuShellTakeFocus + attrConstruct _ = constructMenuShellTakeFocus + +type instance AttributeList MenuShell = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList MenuShellAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "menu" + -- Type: TInterface "Gtk" "Menu" + -- Flags: [PropertyReadable,PropertyWritable] + +getMenuToolButtonMenu :: (MonadIO m, MenuToolButtonK o) => o -> m 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" val + +constructMenuToolButtonMenu :: (MenuK a) => a -> IO ([Char], GValue) +constructMenuToolButtonMenu val = constructObjectPropertyObject "menu" val + +data MenuToolButtonMenuPropertyInfo +instance AttrInfo MenuToolButtonMenuPropertyInfo where + type AttrAllowedOps MenuToolButtonMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MenuToolButtonMenuPropertyInfo = MenuK + type AttrBaseTypeConstraint MenuToolButtonMenuPropertyInfo = MenuToolButtonK + type AttrGetType MenuToolButtonMenuPropertyInfo = Menu + type AttrLabel MenuToolButtonMenuPropertyInfo = "MenuToolButton::menu" + attrGet _ = getMenuToolButtonMenu + attrSet _ = setMenuToolButtonMenu + attrConstruct _ = constructMenuToolButtonMenu + +type instance AttributeList MenuToolButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu", MenuToolButtonMenuPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "buttons" + -- Type: TInterface "Gtk" "ButtonsType" + -- Flags: [PropertyWritable,PropertyConstructOnly] + +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 = "MessageDialog::buttons" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructMessageDialogButtons + +-- VVV Prop "image" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageDialogImage :: (MonadIO m, MessageDialogK o) => o -> m Widget +getMessageDialogImage obj = liftIO $ getObjectPropertyObject obj "image" Widget + +setMessageDialogImage :: (MonadIO m, MessageDialogK o, WidgetK a) => o -> a -> m () +setMessageDialogImage obj val = liftIO $ setObjectPropertyObject obj "image" val + +constructMessageDialogImage :: (WidgetK a) => a -> IO ([Char], GValue) +constructMessageDialogImage val = constructObjectPropertyObject "image" 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 = "MessageDialog::image" + attrGet _ = getMessageDialogImage + attrSet _ = setMessageDialogImage + attrConstruct _ = constructMessageDialogImage + +-- VVV Prop "message-area" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable] + +getMessageDialogMessageArea :: (MonadIO m, MessageDialogK o) => o -> m Widget +getMessageDialogMessageArea obj = liftIO $ getObjectPropertyObject obj "message-area" Widget + +data MessageDialogMessageAreaPropertyInfo +instance AttrInfo MessageDialogMessageAreaPropertyInfo where + type AttrAllowedOps MessageDialogMessageAreaPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint MessageDialogMessageAreaPropertyInfo = (~) () + type AttrBaseTypeConstraint MessageDialogMessageAreaPropertyInfo = MessageDialogK + type AttrGetType MessageDialogMessageAreaPropertyInfo = Widget + type AttrLabel MessageDialogMessageAreaPropertyInfo = "MessageDialog::message-area" + attrGet _ = getMessageDialogMessageArea + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "message-type" + -- Type: TInterface "Gtk" "MessageType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "MessageDialog::message-type" + attrGet _ = getMessageDialogMessageType + attrSet _ = setMessageDialogMessageType + attrConstruct _ = constructMessageDialogMessageType + +-- VVV Prop "secondary-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageDialogSecondaryText :: (MonadIO m, MessageDialogK o) => o -> m 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" val + +constructMessageDialogSecondaryText :: T.Text -> IO ([Char], GValue) +constructMessageDialogSecondaryText val = constructObjectPropertyString "secondary-text" val + +data MessageDialogSecondaryTextPropertyInfo +instance AttrInfo MessageDialogSecondaryTextPropertyInfo where + type AttrAllowedOps MessageDialogSecondaryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageDialogSecondaryTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint MessageDialogSecondaryTextPropertyInfo = MessageDialogK + type AttrGetType MessageDialogSecondaryTextPropertyInfo = T.Text + type AttrLabel MessageDialogSecondaryTextPropertyInfo = "MessageDialog::secondary-text" + attrGet _ = getMessageDialogSecondaryText + attrSet _ = setMessageDialogSecondaryText + attrConstruct _ = constructMessageDialogSecondaryText + +-- VVV Prop "secondary-use-markup" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MessageDialog::secondary-use-markup" + attrGet _ = getMessageDialogSecondaryUseMarkup + attrSet _ = setMessageDialogSecondaryUseMarkup + attrConstruct _ = constructMessageDialogSecondaryUseMarkup + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> m T.Text +getMessageDialogText obj = liftIO $ getObjectPropertyString obj "text" + +setMessageDialogText :: (MonadIO m, MessageDialogK o) => o -> T.Text -> m () +setMessageDialogText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructMessageDialogText :: T.Text -> IO ([Char], GValue) +constructMessageDialogText val = constructObjectPropertyString "text" val + +data MessageDialogTextPropertyInfo +instance AttrInfo MessageDialogTextPropertyInfo where + type AttrAllowedOps MessageDialogTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageDialogTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint MessageDialogTextPropertyInfo = MessageDialogK + type AttrGetType MessageDialogTextPropertyInfo = T.Text + type AttrLabel MessageDialogTextPropertyInfo = "MessageDialog::text" + attrGet _ = getMessageDialogText + attrSet _ = setMessageDialogText + attrConstruct _ = constructMessageDialogText + +-- VVV Prop "use-markup" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "MessageDialog::use-markup" + attrGet _ = getMessageDialogUseMarkup + attrSet _ = setMessageDialogUseMarkup + attrConstruct _ = constructMessageDialogUseMarkup + +type instance AttributeList MessageDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("buttons", MessageDialogButtonsPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("image", MessageDialogImagePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("message-area", MessageDialogMessageAreaPropertyInfo), '("message-type", MessageDialogMessageTypePropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("secondary-text", MessageDialogSecondaryTextPropertyInfo), '("secondary-use-markup", MessageDialogSecondaryUseMarkupPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", MessageDialogTextPropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("use-markup", MessageDialogUseMarkupPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "xalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Misc::xalign" + attrGet _ = getMiscXalign + attrSet _ = setMiscXalign + attrConstruct _ = constructMiscXalign + +-- VVV Prop "xpad" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getMiscXpad :: (MonadIO m, MiscK o) => o -> m Int32 +getMiscXpad obj = liftIO $ getObjectPropertyCInt obj "xpad" + +setMiscXpad :: (MonadIO m, MiscK o) => o -> Int32 -> m () +setMiscXpad obj val = liftIO $ setObjectPropertyCInt obj "xpad" val + +constructMiscXpad :: Int32 -> IO ([Char], GValue) +constructMiscXpad val = constructObjectPropertyCInt "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 = "Misc::xpad" + attrGet _ = getMiscXpad + attrSet _ = setMiscXpad + attrConstruct _ = constructMiscXpad + +-- VVV Prop "yalign" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Misc::yalign" + attrGet _ = getMiscYalign + attrSet _ = setMiscYalign + attrConstruct _ = constructMiscYalign + +-- VVV Prop "ypad" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getMiscYpad :: (MonadIO m, MiscK o) => o -> m Int32 +getMiscYpad obj = liftIO $ getObjectPropertyCInt obj "ypad" + +setMiscYpad :: (MonadIO m, MiscK o) => o -> Int32 -> m () +setMiscYpad obj val = liftIO $ setObjectPropertyCInt obj "ypad" val + +constructMiscYpad :: Int32 -> IO ([Char], GValue) +constructMiscYpad val = constructObjectPropertyCInt "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 = "Misc::ypad" + attrGet _ = getMiscYpad + attrSet _ = setMiscYpad + attrConstruct _ = constructMiscYpad + +type instance AttributeList Misc = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", MiscXalignPropertyInfo), '("xpad", MiscXpadPropertyInfo), '("yalign", MiscYalignPropertyInfo), '("ypad", MiscYpadPropertyInfo)] + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ModelButton::active" + attrGet _ = getModelButtonActive + attrSet _ = setModelButtonActive + attrConstruct _ = constructModelButtonActive + +-- VVV Prop "centered" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ModelButton::centered" + attrGet _ = getModelButtonCentered + attrSet _ = setModelButtonCentered + attrConstruct _ = constructModelButtonCentered + +-- VVV Prop "icon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getModelButtonIcon :: (MonadIO m, ModelButtonK o) => o -> m 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" val + +constructModelButtonIcon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructModelButtonIcon val = constructObjectPropertyObject "icon" val + +data ModelButtonIconPropertyInfo +instance AttrInfo ModelButtonIconPropertyInfo where + type AttrAllowedOps ModelButtonIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ModelButtonIconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint ModelButtonIconPropertyInfo = ModelButtonK + type AttrGetType ModelButtonIconPropertyInfo = Gio.Icon + type AttrLabel ModelButtonIconPropertyInfo = "ModelButton::icon" + attrGet _ = getModelButtonIcon + attrSet _ = setModelButtonIcon + attrConstruct _ = constructModelButtonIcon + +-- VVV Prop "iconic" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ModelButton::iconic" + attrGet _ = getModelButtonIconic + attrSet _ = setModelButtonIconic + attrConstruct _ = constructModelButtonIconic + +-- VVV Prop "inverted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ModelButton::inverted" + attrGet _ = getModelButtonInverted + attrSet _ = setModelButtonInverted + attrConstruct _ = constructModelButtonInverted + +-- VVV Prop "menu-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getModelButtonMenuName :: (MonadIO m, ModelButtonK o) => o -> m 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" val + +constructModelButtonMenuName :: T.Text -> IO ([Char], GValue) +constructModelButtonMenuName val = constructObjectPropertyString "menu-name" val + +data ModelButtonMenuNamePropertyInfo +instance AttrInfo ModelButtonMenuNamePropertyInfo where + type AttrAllowedOps ModelButtonMenuNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ModelButtonMenuNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ModelButtonMenuNamePropertyInfo = ModelButtonK + type AttrGetType ModelButtonMenuNamePropertyInfo = T.Text + type AttrLabel ModelButtonMenuNamePropertyInfo = "ModelButton::menu-name" + attrGet _ = getModelButtonMenuName + attrSet _ = setModelButtonMenuName + attrConstruct _ = constructModelButtonMenuName + +-- VVV Prop "role" + -- Type: TInterface "Gtk" "ButtonRole" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ModelButton::role" + attrGet _ = getModelButtonRole + attrSet _ = setModelButtonRole + attrConstruct _ = constructModelButtonRole + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getModelButtonText :: (MonadIO m, ModelButtonK o) => o -> m T.Text +getModelButtonText obj = liftIO $ getObjectPropertyString obj "text" + +setModelButtonText :: (MonadIO m, ModelButtonK o) => o -> T.Text -> m () +setModelButtonText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructModelButtonText :: T.Text -> IO ([Char], GValue) +constructModelButtonText val = constructObjectPropertyString "text" val + +data ModelButtonTextPropertyInfo +instance AttrInfo ModelButtonTextPropertyInfo where + type AttrAllowedOps ModelButtonTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ModelButtonTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ModelButtonTextPropertyInfo = ModelButtonK + type AttrGetType ModelButtonTextPropertyInfo = T.Text + type AttrLabel ModelButtonTextPropertyInfo = "ModelButton::text" + attrGet _ = getModelButtonText + attrSet _ = setModelButtonText + attrConstruct _ = constructModelButtonText + +type instance AttributeList ModelButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ModelButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("centered", ModelButtonCenteredPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon", ModelButtonIconPropertyInfo), '("iconic", ModelButtonIconicPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inverted", ModelButtonInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("menu-name", ModelButtonMenuNamePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", ModelButtonRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ModelButtonTextPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +-- VVV Prop "is-showing" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "MountOperation::is-showing" + attrGet _ = getMountOperationIsShowing + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "parent" + -- Type: TInterface "Gtk" "Window" + -- Flags: [PropertyReadable,PropertyWritable] + +getMountOperationParent :: (MonadIO m, MountOperationK o) => o -> m Window +getMountOperationParent obj = liftIO $ getObjectPropertyObject obj "parent" Window + +setMountOperationParent :: (MonadIO m, MountOperationK o, WindowK a) => o -> a -> m () +setMountOperationParent obj val = liftIO $ setObjectPropertyObject obj "parent" val + +constructMountOperationParent :: (WindowK a) => a -> IO ([Char], GValue) +constructMountOperationParent val = constructObjectPropertyObject "parent" val + +data MountOperationParentPropertyInfo +instance AttrInfo MountOperationParentPropertyInfo where + type AttrAllowedOps MountOperationParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MountOperationParentPropertyInfo = WindowK + type AttrBaseTypeConstraint MountOperationParentPropertyInfo = MountOperationK + type AttrGetType MountOperationParentPropertyInfo = Window + type AttrLabel MountOperationParentPropertyInfo = "MountOperation::parent" + attrGet _ = getMountOperationParent + attrSet _ = setMountOperationParent + attrConstruct _ = constructMountOperationParent + +-- VVV Prop "screen" + -- Type: TInterface "Gdk" "Screen" + -- Flags: [PropertyReadable,PropertyWritable] + +getMountOperationScreen :: (MonadIO m, MountOperationK o) => o -> m Gdk.Screen +getMountOperationScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen + +setMountOperationScreen :: (MonadIO m, MountOperationK o, Gdk.ScreenK a) => o -> a -> m () +setMountOperationScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val + +constructMountOperationScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) +constructMountOperationScreen val = constructObjectPropertyObject "screen" 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 = "MountOperation::screen" + attrGet _ = getMountOperationScreen + attrSet _ = setMountOperationScreen + attrConstruct _ = constructMountOperationScreen + +type instance AttributeList MountOperation = '[ '("anonymous", GioA.MountOperationAnonymousPropertyInfo), '("choice", GioA.MountOperationChoicePropertyInfo), '("domain", GioA.MountOperationDomainPropertyInfo), '("is-showing", MountOperationIsShowingPropertyInfo), '("parent", MountOperationParentPropertyInfo), '("password", GioA.MountOperationPasswordPropertyInfo), '("password-save", GioA.MountOperationPasswordSavePropertyInfo), '("screen", MountOperationScreenPropertyInfo), '("username", GioA.MountOperationUsernamePropertyInfo)] + +-- VVV Prop "enable-popup" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Notebook::enable-popup" + attrGet _ = getNotebookEnablePopup + attrSet _ = setNotebookEnablePopup + attrConstruct _ = constructNotebookEnablePopup + +-- VVV Prop "group-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookGroupName :: (MonadIO m, NotebookK o) => o -> m T.Text +getNotebookGroupName obj = liftIO $ getObjectPropertyString obj "group-name" + +setNotebookGroupName :: (MonadIO m, NotebookK o) => o -> T.Text -> m () +setNotebookGroupName obj val = liftIO $ setObjectPropertyString obj "group-name" val + +constructNotebookGroupName :: T.Text -> IO ([Char], GValue) +constructNotebookGroupName val = constructObjectPropertyString "group-name" val + +data NotebookGroupNamePropertyInfo +instance AttrInfo NotebookGroupNamePropertyInfo where + type AttrAllowedOps NotebookGroupNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NotebookGroupNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint NotebookGroupNamePropertyInfo = NotebookK + type AttrGetType NotebookGroupNamePropertyInfo = T.Text + type AttrLabel NotebookGroupNamePropertyInfo = "Notebook::group-name" + attrGet _ = getNotebookGroupName + attrSet _ = setNotebookGroupName + attrConstruct _ = constructNotebookGroupName + +-- VVV Prop "page" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getNotebookPage :: (MonadIO m, NotebookK o) => o -> m Int32 +getNotebookPage obj = liftIO $ getObjectPropertyCInt obj "page" + +setNotebookPage :: (MonadIO m, NotebookK o) => o -> Int32 -> m () +setNotebookPage obj val = liftIO $ setObjectPropertyCInt obj "page" val + +constructNotebookPage :: Int32 -> IO ([Char], GValue) +constructNotebookPage val = constructObjectPropertyCInt "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 = "Notebook::page" + attrGet _ = getNotebookPage + attrSet _ = setNotebookPage + attrConstruct _ = constructNotebookPage + +-- VVV Prop "scrollable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Notebook::scrollable" + attrGet _ = getNotebookScrollable + attrSet _ = setNotebookScrollable + attrConstruct _ = constructNotebookScrollable + +-- VVV Prop "show-border" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Notebook::show-border" + attrGet _ = getNotebookShowBorder + attrSet _ = setNotebookShowBorder + attrConstruct _ = constructNotebookShowBorder + +-- VVV Prop "show-tabs" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Notebook::show-tabs" + attrGet _ = getNotebookShowTabs + attrSet _ = setNotebookShowTabs + attrConstruct _ = constructNotebookShowTabs + +-- VVV Prop "tab-pos" + -- Type: TInterface "Gtk" "PositionType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Notebook::tab-pos" + attrGet _ = getNotebookTabPos + attrSet _ = setNotebookTabPos + attrConstruct _ = constructNotebookTabPos + +type instance AttributeList Notebook = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("enable-popup", NotebookEnablePopupPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group-name", NotebookGroupNamePropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("page", NotebookPagePropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scrollable", NotebookScrollablePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-border", NotebookShowBorderPropertyInfo), '("show-tabs", NotebookShowTabsPropertyInfo), '("style", WidgetStylePropertyInfo), '("tab-pos", NotebookTabPosPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList NotebookAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList NotebookPageAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo)] + +-- VVV Prop "background-icon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m 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" val + +constructNumerableIconBackgroundIcon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" val + +data NumerableIconBackgroundIconPropertyInfo +instance AttrInfo NumerableIconBackgroundIconPropertyInfo where + type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NumerableIconBackgroundIconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint NumerableIconBackgroundIconPropertyInfo = NumerableIconK + type AttrGetType NumerableIconBackgroundIconPropertyInfo = Gio.Icon + type AttrLabel NumerableIconBackgroundIconPropertyInfo = "NumerableIcon::background-icon" + attrGet _ = getNumerableIconBackgroundIcon + attrSet _ = setNumerableIconBackgroundIcon + attrConstruct _ = constructNumerableIconBackgroundIcon + +-- VVV Prop "background-icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m T.Text +getNumerableIconBackgroundIconName obj = liftIO $ getObjectPropertyString obj "background-icon-name" + +setNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m () +setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" val + +constructNumerableIconBackgroundIconName :: T.Text -> IO ([Char], GValue) +constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" val + +data NumerableIconBackgroundIconNamePropertyInfo +instance AttrInfo NumerableIconBackgroundIconNamePropertyInfo where + type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = NumerableIconK + type AttrGetType NumerableIconBackgroundIconNamePropertyInfo = T.Text + type AttrLabel NumerableIconBackgroundIconNamePropertyInfo = "NumerableIcon::background-icon-name" + attrGet _ = getNumerableIconBackgroundIconName + attrSet _ = setNumerableIconBackgroundIconName + attrConstruct _ = constructNumerableIconBackgroundIconName + +-- VVV Prop "count" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> m Int32 +getNumerableIconCount obj = liftIO $ getObjectPropertyCInt obj "count" + +setNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> Int32 -> m () +setNumerableIconCount obj val = liftIO $ setObjectPropertyCInt obj "count" val + +constructNumerableIconCount :: Int32 -> IO ([Char], GValue) +constructNumerableIconCount val = constructObjectPropertyCInt "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 = "NumerableIcon::count" + attrGet _ = getNumerableIconCount + attrSet _ = setNumerableIconCount + attrConstruct _ = constructNumerableIconCount + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m T.Text +getNumerableIconLabel obj = liftIO $ getObjectPropertyString obj "label" + +setNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m () +setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructNumerableIconLabel :: T.Text -> IO ([Char], GValue) +constructNumerableIconLabel val = constructObjectPropertyString "label" val + +data NumerableIconLabelPropertyInfo +instance AttrInfo NumerableIconLabelPropertyInfo where + type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint NumerableIconLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint NumerableIconLabelPropertyInfo = NumerableIconK + type AttrGetType NumerableIconLabelPropertyInfo = T.Text + type AttrLabel NumerableIconLabelPropertyInfo = "NumerableIcon::label" + attrGet _ = getNumerableIconLabel + attrSet _ = setNumerableIconLabel + attrConstruct _ = constructNumerableIconLabel + +-- VVV Prop "style-context" + -- Type: TInterface "Gtk" "StyleContext" + -- Flags: [PropertyReadable,PropertyWritable] + +getNumerableIconStyleContext :: (MonadIO m, NumerableIconK o) => o -> m StyleContext +getNumerableIconStyleContext obj = liftIO $ getObjectPropertyObject obj "style-context" StyleContext + +setNumerableIconStyleContext :: (MonadIO m, NumerableIconK o, StyleContextK a) => o -> a -> m () +setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" val + +constructNumerableIconStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue) +constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" 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 = "NumerableIcon::style-context" + attrGet _ = getNumerableIconStyleContext + attrSet _ = setNumerableIconStyleContext + attrConstruct _ = constructNumerableIconStyleContext + +type instance AttributeList NumerableIcon = '[ '("background-icon", NumerableIconBackgroundIconPropertyInfo), '("background-icon-name", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", GioA.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("style-context", NumerableIconStyleContextPropertyInfo)] + +type instance AttributeList OffscreenWindow = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "orientation" + -- Type: TInterface "Gtk" "Orientation" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Orientable::orientation" + attrGet _ = getOrientableOrientation + attrSet _ = setOrientableOrientation + attrConstruct _ = constructOrientableOrientation + +type instance AttributeList Orientable = '[ '("orientation", OrientableOrientationPropertyInfo)] + +type instance AttributeList Overlay = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList PageSetup = '[ ] + +-- VVV Prop "max-position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getPanedMaxPosition :: (MonadIO m, PanedK o) => o -> m Int32 +getPanedMaxPosition obj = liftIO $ getObjectPropertyCInt 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 = "Paned::max-position" + attrGet _ = getPanedMaxPosition + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "min-position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getPanedMinPosition :: (MonadIO m, PanedK o) => o -> m Int32 +getPanedMinPosition obj = liftIO $ getObjectPropertyCInt 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 = "Paned::min-position" + attrGet _ = getPanedMinPosition + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getPanedPosition :: (MonadIO m, PanedK o) => o -> m Int32 +getPanedPosition obj = liftIO $ getObjectPropertyCInt obj "position" + +setPanedPosition :: (MonadIO m, PanedK o) => o -> Int32 -> m () +setPanedPosition obj val = liftIO $ setObjectPropertyCInt obj "position" val + +constructPanedPosition :: Int32 -> IO ([Char], GValue) +constructPanedPosition val = constructObjectPropertyCInt "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 = "Paned::position" + attrGet _ = getPanedPosition + attrSet _ = setPanedPosition + attrConstruct _ = constructPanedPosition + +-- VVV Prop "position-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Paned::position-set" + attrGet _ = getPanedPositionSet + attrSet _ = setPanedPositionSet + attrConstruct _ = constructPanedPositionSet + +-- VVV Prop "wide-handle" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Paned::wide-handle" + attrGet _ = getPanedWideHandle + attrSet _ = setPanedWideHandle + attrConstruct _ = constructPanedWideHandle + +type instance AttributeList Paned = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList PanedAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "local-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::local-only" + attrGet _ = getPlacesSidebarLocalOnly + attrSet _ = setPlacesSidebarLocalOnly + attrConstruct _ = constructPlacesSidebarLocalOnly + +-- VVV Prop "location" + -- Type: TInterface "Gio" "File" + -- Flags: [PropertyReadable,PropertyWritable] + +getPlacesSidebarLocation :: (MonadIO m, PlacesSidebarK o) => o -> m 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" val + +constructPlacesSidebarLocation :: (Gio.FileK a) => a -> IO ([Char], GValue) +constructPlacesSidebarLocation val = constructObjectPropertyObject "location" val + +data PlacesSidebarLocationPropertyInfo +instance AttrInfo PlacesSidebarLocationPropertyInfo where + type AttrAllowedOps PlacesSidebarLocationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint PlacesSidebarLocationPropertyInfo = Gio.FileK + type AttrBaseTypeConstraint PlacesSidebarLocationPropertyInfo = PlacesSidebarK + type AttrGetType PlacesSidebarLocationPropertyInfo = Gio.File + type AttrLabel PlacesSidebarLocationPropertyInfo = "PlacesSidebar::location" + attrGet _ = getPlacesSidebarLocation + attrSet _ = setPlacesSidebarLocation + attrConstruct _ = constructPlacesSidebarLocation + +-- VVV Prop "open-flags" + -- Type: TInterface "Gtk" "PlacesOpenFlags" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::open-flags" + attrGet _ = getPlacesSidebarOpenFlags + attrSet _ = setPlacesSidebarOpenFlags + attrConstruct _ = constructPlacesSidebarOpenFlags + +-- VVV Prop "populate-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::populate-all" + attrGet _ = getPlacesSidebarPopulateAll + attrSet _ = setPlacesSidebarPopulateAll + attrConstruct _ = constructPlacesSidebarPopulateAll + +-- VVV Prop "show-connect-to-server" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::show-connect-to-server" + attrGet _ = getPlacesSidebarShowConnectToServer + attrSet _ = setPlacesSidebarShowConnectToServer + attrConstruct _ = constructPlacesSidebarShowConnectToServer + +-- VVV Prop "show-desktop" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::show-desktop" + attrGet _ = getPlacesSidebarShowDesktop + attrSet _ = setPlacesSidebarShowDesktop + attrConstruct _ = constructPlacesSidebarShowDesktop + +-- VVV Prop "show-enter-location" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::show-enter-location" + attrGet _ = getPlacesSidebarShowEnterLocation + attrSet _ = setPlacesSidebarShowEnterLocation + attrConstruct _ = constructPlacesSidebarShowEnterLocation + +-- VVV Prop "show-other-locations" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::show-other-locations" + attrGet _ = getPlacesSidebarShowOtherLocations + attrSet _ = setPlacesSidebarShowOtherLocations + attrConstruct _ = constructPlacesSidebarShowOtherLocations + +-- VVV Prop "show-recent" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::show-recent" + attrGet _ = getPlacesSidebarShowRecent + attrSet _ = setPlacesSidebarShowRecent + attrConstruct _ = constructPlacesSidebarShowRecent + +-- VVV Prop "show-trash" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PlacesSidebar::show-trash" + attrGet _ = getPlacesSidebarShowTrash + attrSet _ = setPlacesSidebarShowTrash + attrConstruct _ = constructPlacesSidebarShowTrash + +type instance AttributeList PlacesSidebar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscrollbar-policy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("kinetic-scrolling", ScrolledWindowKineticScrollingPropertyInfo), '("local-only", PlacesSidebarLocalOnlyPropertyInfo), '("location", PlacesSidebarLocationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("min-content-height", ScrolledWindowMinContentHeightPropertyInfo), '("min-content-width", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("open-flags", PlacesSidebarOpenFlagsPropertyInfo), '("overlay-scrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("populate-all", PlacesSidebarPopulateAllPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ScrolledWindowShadowTypePropertyInfo), '("show-connect-to-server", PlacesSidebarShowConnectToServerPropertyInfo), '("show-desktop", PlacesSidebarShowDesktopPropertyInfo), '("show-enter-location", PlacesSidebarShowEnterLocationPropertyInfo), '("show-other-locations", PlacesSidebarShowOtherLocationsPropertyInfo), '("show-recent", PlacesSidebarShowRecentPropertyInfo), '("show-trash", PlacesSidebarShowTrashPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbar-policy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-placement", ScrolledWindowWindowPlacementPropertyInfo), '("window-placement-set", ScrolledWindowWindowPlacementSetPropertyInfo)] + +-- VVV Prop "embedded" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "Plug::embedded" + attrGet _ = getPlugEmbedded + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "socket-window" + -- Type: TInterface "Gdk" "Window" + -- Flags: [PropertyReadable] + +getPlugSocketWindow :: (MonadIO m, PlugK o) => o -> m Gdk.Window +getPlugSocketWindow obj = liftIO $ getObjectPropertyObject obj "socket-window" Gdk.Window + +data PlugSocketWindowPropertyInfo +instance AttrInfo PlugSocketWindowPropertyInfo where + type AttrAllowedOps PlugSocketWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint PlugSocketWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint PlugSocketWindowPropertyInfo = PlugK + type AttrGetType PlugSocketWindowPropertyInfo = Gdk.Window + type AttrLabel PlugSocketWindowPropertyInfo = "Plug::socket-window" + attrGet _ = getPlugSocketWindow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList Plug = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("embedded", PlugEmbeddedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("socket-window", PlugSocketWindowPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "modal" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Popover::modal" + attrGet _ = getPopoverModal + attrSet _ = setPopoverModal + attrConstruct _ = constructPopoverModal + +-- VVV Prop "pointing-to" + -- Type: TInterface "Gdk" "Rectangle" + -- Flags: [PropertyReadable,PropertyWritable] + +getPopoverPointingTo :: (MonadIO m, PopoverK o) => o -> m 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" val + +constructPopoverPointingTo :: Gdk.Rectangle -> IO ([Char], GValue) +constructPopoverPointingTo val = constructObjectPropertyBoxed "pointing-to" 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 = Gdk.Rectangle + type AttrLabel PopoverPointingToPropertyInfo = "Popover::pointing-to" + attrGet _ = getPopoverPointingTo + attrSet _ = setPopoverPointingTo + attrConstruct _ = constructPopoverPointingTo + +-- VVV Prop "position" + -- Type: TInterface "Gtk" "PositionType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Popover::position" + attrGet _ = getPopoverPosition + attrSet _ = setPopoverPosition + attrConstruct _ = constructPopoverPosition + +-- VVV Prop "relative-to" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getPopoverRelativeTo :: (MonadIO m, PopoverK o) => o -> m Widget +getPopoverRelativeTo obj = liftIO $ getObjectPropertyObject obj "relative-to" Widget + +setPopoverRelativeTo :: (MonadIO m, PopoverK o, WidgetK a) => o -> a -> m () +setPopoverRelativeTo obj val = liftIO $ setObjectPropertyObject obj "relative-to" val + +constructPopoverRelativeTo :: (WidgetK a) => a -> IO ([Char], GValue) +constructPopoverRelativeTo val = constructObjectPropertyObject "relative-to" val + +data PopoverRelativeToPropertyInfo +instance AttrInfo PopoverRelativeToPropertyInfo where + type AttrAllowedOps PopoverRelativeToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint PopoverRelativeToPropertyInfo = WidgetK + type AttrBaseTypeConstraint PopoverRelativeToPropertyInfo = PopoverK + type AttrGetType PopoverRelativeToPropertyInfo = Widget + type AttrLabel PopoverRelativeToPropertyInfo = "Popover::relative-to" + attrGet _ = getPopoverRelativeTo + attrSet _ = setPopoverRelativeTo + attrConstruct _ = constructPopoverRelativeTo + +-- VVV Prop "transitions-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Popover::transitions-enabled" + attrGet _ = getPopoverTransitionsEnabled + attrSet _ = setPopoverTransitionsEnabled + attrConstruct _ = constructPopoverTransitionsEnabled + +type instance AttributeList Popover = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointing-to", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("relative-to", PopoverRelativeToPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transitions-enabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList PopoverAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "visible-submenu" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getPopoverMenuVisibleSubmenu :: (MonadIO m, PopoverMenuK o) => o -> m 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" val + +constructPopoverMenuVisibleSubmenu :: T.Text -> IO ([Char], GValue) +constructPopoverMenuVisibleSubmenu val = constructObjectPropertyString "visible-submenu" val + +data PopoverMenuVisibleSubmenuPropertyInfo +instance AttrInfo PopoverMenuVisibleSubmenuPropertyInfo where + type AttrAllowedOps PopoverMenuVisibleSubmenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint PopoverMenuVisibleSubmenuPropertyInfo = PopoverMenuK + type AttrGetType PopoverMenuVisibleSubmenuPropertyInfo = T.Text + type AttrLabel PopoverMenuVisibleSubmenuPropertyInfo = "PopoverMenu::visible-submenu" + attrGet _ = getPopoverMenuVisibleSubmenu + attrSet _ = setPopoverMenuVisibleSubmenu + attrConstruct _ = constructPopoverMenuVisibleSubmenu + +type instance AttributeList PopoverMenu = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pointing-to", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("relative-to", PopoverRelativeToPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transitions-enabled", PopoverTransitionsEnabledPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-submenu", PopoverMenuVisibleSubmenuPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList PrintContext = '[ ] + +-- VVV Prop "allow-async" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PrintOperation::allow-async" + attrGet _ = getPrintOperationAllowAsync + attrSet _ = setPrintOperationAllowAsync + attrConstruct _ = constructPrintOperationAllowAsync + +-- VVV Prop "current-page" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> m Int32 +getPrintOperationCurrentPage obj = liftIO $ getObjectPropertyCInt obj "current-page" + +setPrintOperationCurrentPage :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m () +setPrintOperationCurrentPage obj val = liftIO $ setObjectPropertyCInt obj "current-page" val + +constructPrintOperationCurrentPage :: Int32 -> IO ([Char], GValue) +constructPrintOperationCurrentPage val = constructObjectPropertyCInt "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 = "PrintOperation::current-page" + attrGet _ = getPrintOperationCurrentPage + attrSet _ = setPrintOperationCurrentPage + attrConstruct _ = constructPrintOperationCurrentPage + +-- VVV Prop "custom-tab-label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getPrintOperationCustomTabLabel :: (MonadIO m, PrintOperationK o) => o -> m 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" val + +constructPrintOperationCustomTabLabel :: T.Text -> IO ([Char], GValue) +constructPrintOperationCustomTabLabel val = constructObjectPropertyString "custom-tab-label" val + +data PrintOperationCustomTabLabelPropertyInfo +instance AttrInfo PrintOperationCustomTabLabelPropertyInfo where + type AttrAllowedOps PrintOperationCustomTabLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint PrintOperationCustomTabLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint PrintOperationCustomTabLabelPropertyInfo = PrintOperationK + type AttrGetType PrintOperationCustomTabLabelPropertyInfo = T.Text + type AttrLabel PrintOperationCustomTabLabelPropertyInfo = "PrintOperation::custom-tab-label" + attrGet _ = getPrintOperationCustomTabLabel + attrSet _ = setPrintOperationCustomTabLabel + attrConstruct _ = constructPrintOperationCustomTabLabel + +-- VVV Prop "default-page-setup" + -- Type: TInterface "Gtk" "PageSetup" + -- Flags: [PropertyReadable,PropertyWritable] + +getPrintOperationDefaultPageSetup :: (MonadIO m, PrintOperationK o) => o -> m PageSetup +getPrintOperationDefaultPageSetup obj = liftIO $ 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" val + +constructPrintOperationDefaultPageSetup :: (PageSetupK a) => a -> IO ([Char], GValue) +constructPrintOperationDefaultPageSetup val = constructObjectPropertyObject "default-page-setup" val + +data PrintOperationDefaultPageSetupPropertyInfo +instance AttrInfo PrintOperationDefaultPageSetupPropertyInfo where + type AttrAllowedOps PrintOperationDefaultPageSetupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PageSetupK + type AttrBaseTypeConstraint PrintOperationDefaultPageSetupPropertyInfo = PrintOperationK + type AttrGetType PrintOperationDefaultPageSetupPropertyInfo = PageSetup + type AttrLabel PrintOperationDefaultPageSetupPropertyInfo = "PrintOperation::default-page-setup" + attrGet _ = getPrintOperationDefaultPageSetup + attrSet _ = setPrintOperationDefaultPageSetup + attrConstruct _ = constructPrintOperationDefaultPageSetup + +-- VVV Prop "embed-page-setup" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PrintOperation::embed-page-setup" + attrGet _ = getPrintOperationEmbedPageSetup + attrSet _ = setPrintOperationEmbedPageSetup + attrConstruct _ = constructPrintOperationEmbedPageSetup + +-- VVV Prop "export-filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getPrintOperationExportFilename :: (MonadIO m, PrintOperationK o) => o -> m 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" val + +constructPrintOperationExportFilename :: T.Text -> IO ([Char], GValue) +constructPrintOperationExportFilename val = constructObjectPropertyString "export-filename" val + +data PrintOperationExportFilenamePropertyInfo +instance AttrInfo PrintOperationExportFilenamePropertyInfo where + type AttrAllowedOps PrintOperationExportFilenamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint PrintOperationExportFilenamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint PrintOperationExportFilenamePropertyInfo = PrintOperationK + type AttrGetType PrintOperationExportFilenamePropertyInfo = T.Text + type AttrLabel PrintOperationExportFilenamePropertyInfo = "PrintOperation::export-filename" + attrGet _ = getPrintOperationExportFilename + attrSet _ = setPrintOperationExportFilename + attrConstruct _ = constructPrintOperationExportFilename + +-- VVV Prop "has-selection" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PrintOperation::has-selection" + attrGet _ = getPrintOperationHasSelection + attrSet _ = setPrintOperationHasSelection + attrConstruct _ = constructPrintOperationHasSelection + +-- VVV Prop "job-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getPrintOperationJobName :: (MonadIO m, PrintOperationK o) => o -> m 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" val + +constructPrintOperationJobName :: T.Text -> IO ([Char], GValue) +constructPrintOperationJobName val = constructObjectPropertyString "job-name" 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 = T.Text + type AttrLabel PrintOperationJobNamePropertyInfo = "PrintOperation::job-name" + attrGet _ = getPrintOperationJobName + attrSet _ = setPrintOperationJobName + attrConstruct _ = constructPrintOperationJobName + +-- VVV Prop "n-pages" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> m Int32 +getPrintOperationNPages obj = liftIO $ getObjectPropertyCInt obj "n-pages" + +setPrintOperationNPages :: (MonadIO m, PrintOperationK o) => o -> Int32 -> m () +setPrintOperationNPages obj val = liftIO $ setObjectPropertyCInt obj "n-pages" val + +constructPrintOperationNPages :: Int32 -> IO ([Char], GValue) +constructPrintOperationNPages val = constructObjectPropertyCInt "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 = "PrintOperation::n-pages" + attrGet _ = getPrintOperationNPages + attrSet _ = setPrintOperationNPages + attrConstruct _ = constructPrintOperationNPages + +-- VVV Prop "n-pages-to-print" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getPrintOperationNPagesToPrint :: (MonadIO m, PrintOperationK o) => o -> m Int32 +getPrintOperationNPagesToPrint obj = liftIO $ getObjectPropertyCInt 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 = "PrintOperation::n-pages-to-print" + attrGet _ = getPrintOperationNPagesToPrint + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "print-settings" + -- Type: TInterface "Gtk" "PrintSettings" + -- Flags: [PropertyReadable,PropertyWritable] + +getPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o) => o -> m PrintSettings +getPrintOperationPrintSettings obj = liftIO $ getObjectPropertyObject obj "print-settings" PrintSettings + +setPrintOperationPrintSettings :: (MonadIO m, PrintOperationK o, PrintSettingsK a) => o -> a -> m () +setPrintOperationPrintSettings obj val = liftIO $ setObjectPropertyObject obj "print-settings" val + +constructPrintOperationPrintSettings :: (PrintSettingsK a) => a -> IO ([Char], GValue) +constructPrintOperationPrintSettings val = constructObjectPropertyObject "print-settings" val + +data PrintOperationPrintSettingsPropertyInfo +instance AttrInfo PrintOperationPrintSettingsPropertyInfo where + type AttrAllowedOps PrintOperationPrintSettingsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintSettingsK + type AttrBaseTypeConstraint PrintOperationPrintSettingsPropertyInfo = PrintOperationK + type AttrGetType PrintOperationPrintSettingsPropertyInfo = PrintSettings + type AttrLabel PrintOperationPrintSettingsPropertyInfo = "PrintOperation::print-settings" + attrGet _ = getPrintOperationPrintSettings + attrSet _ = setPrintOperationPrintSettings + attrConstruct _ = constructPrintOperationPrintSettings + +-- VVV Prop "show-progress" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PrintOperation::show-progress" + attrGet _ = getPrintOperationShowProgress + attrSet _ = setPrintOperationShowProgress + attrConstruct _ = constructPrintOperationShowProgress + +-- VVV Prop "status" + -- Type: TInterface "Gtk" "PrintStatus" + -- Flags: [PropertyReadable] + +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 = "PrintOperation::status" + attrGet _ = getPrintOperationStatus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "status-string" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getPrintOperationStatusString :: (MonadIO m, PrintOperationK o) => o -> m T.Text +getPrintOperationStatusString obj = liftIO $ getObjectPropertyString obj "status-string" + +data PrintOperationStatusStringPropertyInfo +instance AttrInfo PrintOperationStatusStringPropertyInfo where + type AttrAllowedOps PrintOperationStatusStringPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint PrintOperationStatusStringPropertyInfo = (~) () + type AttrBaseTypeConstraint PrintOperationStatusStringPropertyInfo = PrintOperationK + type AttrGetType PrintOperationStatusStringPropertyInfo = T.Text + type AttrLabel PrintOperationStatusStringPropertyInfo = "PrintOperation::status-string" + attrGet _ = getPrintOperationStatusString + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "support-selection" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PrintOperation::support-selection" + attrGet _ = getPrintOperationSupportSelection + attrSet _ = setPrintOperationSupportSelection + attrConstruct _ = constructPrintOperationSupportSelection + +-- VVV Prop "track-print-status" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PrintOperation::track-print-status" + attrGet _ = getPrintOperationTrackPrintStatus + attrSet _ = setPrintOperationTrackPrintStatus + attrConstruct _ = constructPrintOperationTrackPrintStatus + +-- VVV Prop "unit" + -- Type: TInterface "Gtk" "Unit" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PrintOperation::unit" + attrGet _ = getPrintOperationUnit + attrSet _ = setPrintOperationUnit + attrConstruct _ = constructPrintOperationUnit + +-- VVV Prop "use-full-page" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "PrintOperation::use-full-page" + attrGet _ = getPrintOperationUseFullPage + attrSet _ = setPrintOperationUseFullPage + attrConstruct _ = constructPrintOperationUseFullPage + +type instance AttributeList PrintOperation = '[ '("allow-async", PrintOperationAllowAsyncPropertyInfo), '("current-page", PrintOperationCurrentPagePropertyInfo), '("custom-tab-label", PrintOperationCustomTabLabelPropertyInfo), '("default-page-setup", PrintOperationDefaultPageSetupPropertyInfo), '("embed-page-setup", PrintOperationEmbedPageSetupPropertyInfo), '("export-filename", PrintOperationExportFilenamePropertyInfo), '("has-selection", PrintOperationHasSelectionPropertyInfo), '("job-name", PrintOperationJobNamePropertyInfo), '("n-pages", PrintOperationNPagesPropertyInfo), '("n-pages-to-print", PrintOperationNPagesToPrintPropertyInfo), '("print-settings", PrintOperationPrintSettingsPropertyInfo), '("show-progress", PrintOperationShowProgressPropertyInfo), '("status", PrintOperationStatusPropertyInfo), '("status-string", PrintOperationStatusStringPropertyInfo), '("support-selection", PrintOperationSupportSelectionPropertyInfo), '("track-print-status", PrintOperationTrackPrintStatusPropertyInfo), '("unit", PrintOperationUnitPropertyInfo), '("use-full-page", PrintOperationUseFullPagePropertyInfo)] + +type instance AttributeList PrintOperationPreview = '[ ] + +type instance AttributeList PrintSettings = '[ ] + +-- VVV Prop "ellipsize" + -- Type: TInterface "Pango" "EllipsizeMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ProgressBar::ellipsize" + attrGet _ = getProgressBarEllipsize + attrSet _ = setProgressBarEllipsize + attrConstruct _ = constructProgressBarEllipsize + +-- VVV Prop "fraction" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ProgressBar::fraction" + attrGet _ = getProgressBarFraction + attrSet _ = setProgressBarFraction + attrConstruct _ = constructProgressBarFraction + +-- VVV Prop "inverted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ProgressBar::inverted" + attrGet _ = getProgressBarInverted + attrSet _ = setProgressBarInverted + attrConstruct _ = constructProgressBarInverted + +-- VVV Prop "pulse-step" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ProgressBar::pulse-step" + attrGet _ = getProgressBarPulseStep + attrSet _ = setProgressBarPulseStep + attrConstruct _ = constructProgressBarPulseStep + +-- VVV Prop "show-text" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ProgressBar::show-text" + attrGet _ = getProgressBarShowText + attrSet _ = setProgressBarShowText + attrConstruct _ = constructProgressBarShowText + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getProgressBarText :: (MonadIO m, ProgressBarK o) => o -> m T.Text +getProgressBarText obj = liftIO $ getObjectPropertyString obj "text" + +setProgressBarText :: (MonadIO m, ProgressBarK o) => o -> T.Text -> m () +setProgressBarText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructProgressBarText :: T.Text -> IO ([Char], GValue) +constructProgressBarText val = constructObjectPropertyString "text" val + +data ProgressBarTextPropertyInfo +instance AttrInfo ProgressBarTextPropertyInfo where + type AttrAllowedOps ProgressBarTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ProgressBarTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ProgressBarTextPropertyInfo = ProgressBarK + type AttrGetType ProgressBarTextPropertyInfo = T.Text + type AttrLabel ProgressBarTextPropertyInfo = "ProgressBar::text" + attrGet _ = getProgressBarText + attrSet _ = setProgressBarText + attrConstruct _ = constructProgressBarText + +type instance AttributeList ProgressBar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ProgressBarEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fraction", ProgressBarFractionPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", ProgressBarInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("pulse-step", ProgressBarPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-text", ProgressBarShowTextPropertyInfo), '("style", WidgetStylePropertyInfo), '("text", ProgressBarTextPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList ProgressBarAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "current-value" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> m Int32 +getRadioActionCurrentValue obj = liftIO $ getObjectPropertyCInt obj "current-value" + +setRadioActionCurrentValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m () +setRadioActionCurrentValue obj val = liftIO $ setObjectPropertyCInt obj "current-value" val + +constructRadioActionCurrentValue :: Int32 -> IO ([Char], GValue) +constructRadioActionCurrentValue val = constructObjectPropertyCInt "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 = "RadioAction::current-value" + attrGet _ = getRadioActionCurrentValue + attrSet _ = setRadioActionCurrentValue + attrConstruct _ = constructRadioActionCurrentValue + +-- VVV Prop "group" + -- Type: TInterface "Gtk" "RadioAction" + -- Flags: [PropertyWritable] + +setRadioActionGroup :: (MonadIO m, RadioActionK o, RadioActionK a) => o -> a -> m () +setRadioActionGroup obj val = liftIO $ setObjectPropertyObject obj "group" val + +constructRadioActionGroup :: (RadioActionK a) => a -> IO ([Char], GValue) +constructRadioActionGroup val = constructObjectPropertyObject "group" val + +data RadioActionGroupPropertyInfo +instance AttrInfo RadioActionGroupPropertyInfo where + type AttrAllowedOps RadioActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint RadioActionGroupPropertyInfo = RadioActionK + type AttrBaseTypeConstraint RadioActionGroupPropertyInfo = RadioActionK + type AttrGetType RadioActionGroupPropertyInfo = () + type AttrLabel RadioActionGroupPropertyInfo = "RadioAction::group" + attrGet _ = undefined + attrSet _ = setRadioActionGroup + attrConstruct _ = constructRadioActionGroup + +-- VVV Prop "value" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getRadioActionValue :: (MonadIO m, RadioActionK o) => o -> m Int32 +getRadioActionValue obj = liftIO $ getObjectPropertyCInt obj "value" + +setRadioActionValue :: (MonadIO m, RadioActionK o) => o -> Int32 -> m () +setRadioActionValue obj val = liftIO $ setObjectPropertyCInt obj "value" val + +constructRadioActionValue :: Int32 -> IO ([Char], GValue) +constructRadioActionValue val = constructObjectPropertyCInt "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 = "RadioAction::value" + attrGet _ = getRadioActionValue + attrSet _ = setRadioActionValue + attrConstruct _ = constructRadioActionValue + +type instance AttributeList RadioAction = '[ '("action-group", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("current-value", RadioActionCurrentValuePropertyInfo), '("draw-as-radio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("group", RadioActionGroupPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("value", RadioActionValuePropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] + +-- VVV Prop "group" + -- Type: TInterface "Gtk" "RadioButton" + -- Flags: [PropertyWritable] + +setRadioButtonGroup :: (MonadIO m, RadioButtonK o, RadioButtonK a) => o -> a -> m () +setRadioButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" val + +constructRadioButtonGroup :: (RadioButtonK a) => a -> IO ([Char], GValue) +constructRadioButtonGroup val = constructObjectPropertyObject "group" val + +data RadioButtonGroupPropertyInfo +instance AttrInfo RadioButtonGroupPropertyInfo where + type AttrAllowedOps RadioButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK + type AttrBaseTypeConstraint RadioButtonGroupPropertyInfo = RadioButtonK + type AttrGetType RadioButtonGroupPropertyInfo = () + type AttrLabel RadioButtonGroupPropertyInfo = "RadioButton::group" + attrGet _ = undefined + attrSet _ = setRadioButtonGroup + attrConstruct _ = constructRadioButtonGroup + +type instance AttributeList RadioButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("group", RadioButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +type instance AttributeList RadioButtonAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "group" + -- Type: TInterface "Gtk" "RadioMenuItem" + -- Flags: [PropertyWritable] + +setRadioMenuItemGroup :: (MonadIO m, RadioMenuItemK o, RadioMenuItemK a) => o -> a -> m () +setRadioMenuItemGroup obj val = liftIO $ setObjectPropertyObject obj "group" val + +constructRadioMenuItemGroup :: (RadioMenuItemK a) => a -> IO ([Char], GValue) +constructRadioMenuItemGroup val = constructObjectPropertyObject "group" val + +data RadioMenuItemGroupPropertyInfo +instance AttrInfo RadioMenuItemGroupPropertyInfo where + type AttrAllowedOps RadioMenuItemGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK + type AttrBaseTypeConstraint RadioMenuItemGroupPropertyInfo = RadioMenuItemK + type AttrGetType RadioMenuItemGroupPropertyInfo = () + type AttrLabel RadioMenuItemGroupPropertyInfo = "RadioMenuItem::group" + attrGet _ = undefined + attrSet _ = setRadioMenuItemGroup + attrConstruct _ = constructRadioMenuItemGroup + +type instance AttributeList RadioMenuItem = '[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", CheckMenuItemActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-as-radio", CheckMenuItemDrawAsRadioPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioMenuItemGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inconsistent", CheckMenuItemInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList RadioMenuItemAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "group" + -- Type: TInterface "Gtk" "RadioToolButton" + -- Flags: [PropertyWritable] + +setRadioToolButtonGroup :: (MonadIO m, RadioToolButtonK o, RadioToolButtonK a) => o -> a -> m () +setRadioToolButtonGroup obj val = liftIO $ setObjectPropertyObject obj "group" val + +constructRadioToolButtonGroup :: (RadioToolButtonK a) => a -> IO ([Char], GValue) +constructRadioToolButtonGroup val = constructObjectPropertyObject "group" val + +data RadioToolButtonGroupPropertyInfo +instance AttrInfo RadioToolButtonGroupPropertyInfo where + type AttrAllowedOps RadioToolButtonGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK + type AttrBaseTypeConstraint RadioToolButtonGroupPropertyInfo = RadioToolButtonK + type AttrGetType RadioToolButtonGroupPropertyInfo = () + type AttrLabel RadioToolButtonGroupPropertyInfo = "RadioToolButton::group" + attrGet _ = undefined + attrSet _ = setRadioToolButtonGroup + attrConstruct _ = constructRadioToolButtonGroup + +type instance AttributeList RadioToolButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("group", RadioToolButtonGroupPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "adjustment" + -- Type: TInterface "Gtk" "Adjustment" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getRangeAdjustment :: (MonadIO m, RangeK o) => o -> m Adjustment +getRangeAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment + +setRangeAdjustment :: (MonadIO m, RangeK o, AdjustmentK a) => o -> a -> m () +setRangeAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val + +constructRangeAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) +constructRangeAdjustment val = constructObjectPropertyObject "adjustment" 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 = "Range::adjustment" + attrGet _ = getRangeAdjustment + attrSet _ = setRangeAdjustment + attrConstruct _ = constructRangeAdjustment + +-- VVV Prop "fill-level" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Range::fill-level" + attrGet _ = getRangeFillLevel + attrSet _ = setRangeFillLevel + attrConstruct _ = constructRangeFillLevel + +-- VVV Prop "inverted" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Range::inverted" + attrGet _ = getRangeInverted + attrSet _ = setRangeInverted + attrConstruct _ = constructRangeInverted + +-- VVV Prop "lower-stepper-sensitivity" + -- Type: TInterface "Gtk" "SensitivityType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Range::lower-stepper-sensitivity" + attrGet _ = getRangeLowerStepperSensitivity + attrSet _ = setRangeLowerStepperSensitivity + attrConstruct _ = constructRangeLowerStepperSensitivity + +-- VVV Prop "restrict-to-fill-level" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Range::restrict-to-fill-level" + attrGet _ = getRangeRestrictToFillLevel + attrSet _ = setRangeRestrictToFillLevel + attrConstruct _ = constructRangeRestrictToFillLevel + +-- VVV Prop "round-digits" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getRangeRoundDigits :: (MonadIO m, RangeK o) => o -> m Int32 +getRangeRoundDigits obj = liftIO $ getObjectPropertyCInt obj "round-digits" + +setRangeRoundDigits :: (MonadIO m, RangeK o) => o -> Int32 -> m () +setRangeRoundDigits obj val = liftIO $ setObjectPropertyCInt obj "round-digits" val + +constructRangeRoundDigits :: Int32 -> IO ([Char], GValue) +constructRangeRoundDigits val = constructObjectPropertyCInt "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 = "Range::round-digits" + attrGet _ = getRangeRoundDigits + attrSet _ = setRangeRoundDigits + attrConstruct _ = constructRangeRoundDigits + +-- VVV Prop "show-fill-level" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Range::show-fill-level" + attrGet _ = getRangeShowFillLevel + attrSet _ = setRangeShowFillLevel + attrConstruct _ = constructRangeShowFillLevel + +-- VVV Prop "upper-stepper-sensitivity" + -- Type: TInterface "Gtk" "SensitivityType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Range::upper-stepper-sensitivity" + attrGet _ = getRangeUpperStepperSensitivity + attrSet _ = setRangeUpperStepperSensitivity + attrConstruct _ = constructRangeUpperStepperSensitivity + +type instance AttributeList Range = '[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList RangeAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList RcStyle = '[ ] + +-- VVV Prop "show-numbers" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentAction::show-numbers" + attrGet _ = getRecentActionShowNumbers + attrSet _ = setRecentActionShowNumbers + attrConstruct _ = constructRecentActionShowNumbers + +type instance AttributeList RecentAction = '[ '("action-group", ActionActionGroupPropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("name", ActionNamePropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-numbers", RecentActionShowNumbersPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] + +-- VVV Prop "filter" + -- Type: TInterface "Gtk" "RecentFilter" + -- Flags: [PropertyReadable,PropertyWritable] + +getRecentChooserFilter :: (MonadIO m, RecentChooserK o) => o -> m RecentFilter +getRecentChooserFilter obj = liftIO $ getObjectPropertyObject obj "filter" RecentFilter + +setRecentChooserFilter :: (MonadIO m, RecentChooserK o, RecentFilterK a) => o -> a -> m () +setRecentChooserFilter obj val = liftIO $ setObjectPropertyObject obj "filter" val + +constructRecentChooserFilter :: (RecentFilterK a) => a -> IO ([Char], GValue) +constructRecentChooserFilter val = constructObjectPropertyObject "filter" val + +data RecentChooserFilterPropertyInfo +instance AttrInfo RecentChooserFilterPropertyInfo where + type AttrAllowedOps RecentChooserFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentChooserFilterPropertyInfo = RecentFilterK + type AttrBaseTypeConstraint RecentChooserFilterPropertyInfo = RecentChooserK + type AttrGetType RecentChooserFilterPropertyInfo = RecentFilter + type AttrLabel RecentChooserFilterPropertyInfo = "RecentChooser::filter" + attrGet _ = getRecentChooserFilter + attrSet _ = setRecentChooserFilter + attrConstruct _ = constructRecentChooserFilter + +-- VVV Prop "limit" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> m Int32 +getRecentChooserLimit obj = liftIO $ getObjectPropertyCInt obj "limit" + +setRecentChooserLimit :: (MonadIO m, RecentChooserK o) => o -> Int32 -> m () +setRecentChooserLimit obj val = liftIO $ setObjectPropertyCInt obj "limit" val + +constructRecentChooserLimit :: Int32 -> IO ([Char], GValue) +constructRecentChooserLimit val = constructObjectPropertyCInt "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 = "RecentChooser::limit" + attrGet _ = getRecentChooserLimit + attrSet _ = setRecentChooserLimit + attrConstruct _ = constructRecentChooserLimit + +-- VVV Prop "local-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentChooser::local-only" + attrGet _ = getRecentChooserLocalOnly + attrSet _ = setRecentChooserLocalOnly + attrConstruct _ = constructRecentChooserLocalOnly + +-- VVV Prop "recent-manager" + -- Type: TInterface "Gtk" "RecentManager" + -- Flags: [PropertyWritable,PropertyConstructOnly] + +constructRecentChooserRecentManager :: (RecentManagerK a) => a -> IO ([Char], GValue) +constructRecentChooserRecentManager val = constructObjectPropertyObject "recent-manager" val + +data RecentChooserRecentManagerPropertyInfo +instance AttrInfo RecentChooserRecentManagerPropertyInfo where + type AttrAllowedOps RecentChooserRecentManagerPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentManagerK + type AttrBaseTypeConstraint RecentChooserRecentManagerPropertyInfo = RecentChooserK + type AttrGetType RecentChooserRecentManagerPropertyInfo = () + type AttrLabel RecentChooserRecentManagerPropertyInfo = "RecentChooser::recent-manager" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructRecentChooserRecentManager + +-- VVV Prop "select-multiple" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentChooser::select-multiple" + attrGet _ = getRecentChooserSelectMultiple + attrSet _ = setRecentChooserSelectMultiple + attrConstruct _ = constructRecentChooserSelectMultiple + +-- VVV Prop "show-icons" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentChooser::show-icons" + attrGet _ = getRecentChooserShowIcons + attrSet _ = setRecentChooserShowIcons + attrConstruct _ = constructRecentChooserShowIcons + +-- VVV Prop "show-not-found" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentChooser::show-not-found" + attrGet _ = getRecentChooserShowNotFound + attrSet _ = setRecentChooserShowNotFound + attrConstruct _ = constructRecentChooserShowNotFound + +-- VVV Prop "show-private" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentChooser::show-private" + attrGet _ = getRecentChooserShowPrivate + attrSet _ = setRecentChooserShowPrivate + attrConstruct _ = constructRecentChooserShowPrivate + +-- VVV Prop "show-tips" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentChooser::show-tips" + attrGet _ = getRecentChooserShowTips + attrSet _ = setRecentChooserShowTips + attrConstruct _ = constructRecentChooserShowTips + +-- VVV Prop "sort-type" + -- Type: TInterface "Gtk" "RecentSortType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentChooser::sort-type" + attrGet _ = getRecentChooserSortType + attrSet _ = setRecentChooserSortType + attrConstruct _ = constructRecentChooserSortType + +type instance AttributeList RecentChooser = '[ '("filter", RecentChooserFilterPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo)] + +type instance AttributeList RecentChooserDialog = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("use-header-bar", DialogUseHeaderBarPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +-- VVV Prop "show-numbers" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "RecentChooserMenu::show-numbers" + attrGet _ = getRecentChooserMenuShowNumbers + attrSet _ = setRecentChooserMenuShowNumbers + attrConstruct _ = constructRecentChooserMenuShowNumbers + +type instance AttributeList RecentChooserMenu = '[ '("accel-group", MenuAccelGroupPropertyInfo), '("accel-path", MenuAccelPathPropertyInfo), '("active", MenuActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attach-widget", MenuAttachWidgetPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monitor", MenuMonitorPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("reserve-toggle-size", MenuReserveToggleSizePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-numbers", RecentChooserMenuShowNumbersPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("take-focus", MenuShellTakeFocusPropertyInfo), '("tearoff-state", MenuTearoffStatePropertyInfo), '("tearoff-title", MenuTearoffTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList RecentChooserWidget = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("filter", RecentChooserFilterPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("limit", RecentChooserLimitPropertyInfo), '("local-only", RecentChooserLocalOnlyPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("recent-manager", RecentChooserRecentManagerPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("select-multiple", RecentChooserSelectMultiplePropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-icons", RecentChooserShowIconsPropertyInfo), '("show-not-found", RecentChooserShowNotFoundPropertyInfo), '("show-private", RecentChooserShowPrivatePropertyInfo), '("show-tips", RecentChooserShowTipsPropertyInfo), '("sort-type", RecentChooserSortTypePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList RecentFilter = '[ ] + +-- VVV Prop "filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getRecentManagerFilename :: (MonadIO m, RecentManagerK o) => o -> m T.Text +getRecentManagerFilename obj = liftIO $ getObjectPropertyString obj "filename" + +constructRecentManagerFilename :: T.Text -> IO ([Char], GValue) +constructRecentManagerFilename val = constructObjectPropertyString "filename" val + +data RecentManagerFilenamePropertyInfo +instance AttrInfo RecentManagerFilenamePropertyInfo where + type AttrAllowedOps RecentManagerFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RecentManagerFilenamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint RecentManagerFilenamePropertyInfo = RecentManagerK + type AttrGetType RecentManagerFilenamePropertyInfo = T.Text + type AttrLabel RecentManagerFilenamePropertyInfo = "RecentManager::filename" + attrGet _ = getRecentManagerFilename + attrSet _ = undefined + attrConstruct _ = constructRecentManagerFilename + +-- VVV Prop "size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getRecentManagerSize :: (MonadIO m, RecentManagerK o) => o -> m Int32 +getRecentManagerSize obj = liftIO $ getObjectPropertyCInt 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 = "RecentManager::size" + attrGet _ = getRecentManagerSize + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList RecentManager = '[ '("filename", RecentManagerFilenamePropertyInfo), '("size", RecentManagerSizePropertyInfo)] + +-- VVV Prop "renderer" + -- Type: TInterface "Gtk" "CellRenderer" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getRendererCellAccessibleRenderer :: (MonadIO m, RendererCellAccessibleK o) => o -> m CellRenderer +getRendererCellAccessibleRenderer obj = liftIO $ getObjectPropertyObject obj "renderer" CellRenderer + +constructRendererCellAccessibleRenderer :: (CellRendererK a) => a -> IO ([Char], GValue) +constructRendererCellAccessibleRenderer val = constructObjectPropertyObject "renderer" val + +data RendererCellAccessibleRendererPropertyInfo +instance AttrInfo RendererCellAccessibleRendererPropertyInfo where + type AttrAllowedOps RendererCellAccessibleRendererPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RendererCellAccessibleRendererPropertyInfo = CellRendererK + type AttrBaseTypeConstraint RendererCellAccessibleRendererPropertyInfo = RendererCellAccessibleK + type AttrGetType RendererCellAccessibleRendererPropertyInfo = CellRenderer + type AttrLabel RendererCellAccessibleRendererPropertyInfo = "RendererCellAccessible::renderer" + attrGet _ = getRendererCellAccessibleRenderer + attrSet _ = undefined + attrConstruct _ = constructRendererCellAccessibleRenderer + +type instance AttributeList RendererCellAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "child-revealed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "Revealer::child-revealed" + attrGet _ = getRevealerChildRevealed + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "reveal-child" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Revealer::reveal-child" + attrGet _ = getRevealerRevealChild + attrSet _ = setRevealerRevealChild + attrConstruct _ = constructRevealerRevealChild + +-- VVV Prop "transition-duration" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getRevealerTransitionDuration :: (MonadIO m, RevealerK o) => o -> m Word32 +getRevealerTransitionDuration obj = liftIO $ getObjectPropertyCUInt obj "transition-duration" + +setRevealerTransitionDuration :: (MonadIO m, RevealerK o) => o -> Word32 -> m () +setRevealerTransitionDuration obj val = liftIO $ setObjectPropertyCUInt obj "transition-duration" val + +constructRevealerTransitionDuration :: Word32 -> IO ([Char], GValue) +constructRevealerTransitionDuration val = constructObjectPropertyCUInt "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 = "Revealer::transition-duration" + attrGet _ = getRevealerTransitionDuration + attrSet _ = setRevealerTransitionDuration + attrConstruct _ = constructRevealerTransitionDuration + +-- VVV Prop "transition-type" + -- Type: TInterface "Gtk" "RevealerTransitionType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Revealer::transition-type" + attrGet _ = getRevealerTransitionType + attrSet _ = setRevealerTransitionType + attrConstruct _ = constructRevealerTransitionType + +type instance AttributeList Revealer = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("child-revealed", RevealerChildRevealedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("reveal-child", RevealerRevealChildPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transition-duration", RevealerTransitionDurationPropertyInfo), '("transition-type", RevealerTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "digits" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getScaleDigits :: (MonadIO m, ScaleK o) => o -> m Int32 +getScaleDigits obj = liftIO $ getObjectPropertyCInt obj "digits" + +setScaleDigits :: (MonadIO m, ScaleK o) => o -> Int32 -> m () +setScaleDigits obj val = liftIO $ setObjectPropertyCInt obj "digits" val + +constructScaleDigits :: Int32 -> IO ([Char], GValue) +constructScaleDigits val = constructObjectPropertyCInt "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 = "Scale::digits" + attrGet _ = getScaleDigits + attrSet _ = setScaleDigits + attrConstruct _ = constructScaleDigits + +-- VVV Prop "draw-value" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Scale::draw-value" + attrGet _ = getScaleDrawValue + attrSet _ = setScaleDrawValue + attrConstruct _ = constructScaleDrawValue + +-- VVV Prop "has-origin" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Scale::has-origin" + attrGet _ = getScaleHasOrigin + attrSet _ = setScaleHasOrigin + attrConstruct _ = constructScaleHasOrigin + +-- VVV Prop "value-pos" + -- Type: TInterface "Gtk" "PositionType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Scale::value-pos" + attrGet _ = getScaleValuePos + attrSet _ = setScaleValuePos + attrConstruct _ = constructScaleValuePos + +type instance AttributeList Scale = '[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList ScaleAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "adjustment" + -- Type: TInterface "Gtk" "Adjustment" + -- Flags: [PropertyReadable,PropertyWritable] + +getScaleButtonAdjustment :: (MonadIO m, ScaleButtonK o) => o -> m Adjustment +getScaleButtonAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment + +setScaleButtonAdjustment :: (MonadIO m, ScaleButtonK o, AdjustmentK a) => o -> a -> m () +setScaleButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val + +constructScaleButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) +constructScaleButtonAdjustment val = constructObjectPropertyObject "adjustment" 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 = "ScaleButton::adjustment" + attrGet _ = getScaleButtonAdjustment + attrSet _ = setScaleButtonAdjustment + attrConstruct _ = constructScaleButtonAdjustment + +-- VVV Prop "icons" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + +getScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> m [T.Text] +getScaleButtonIcons obj = liftIO $ getObjectPropertyStringArray obj "icons" + +setScaleButtonIcons :: (MonadIO m, ScaleButtonK o) => o -> [T.Text] -> m () +setScaleButtonIcons obj val = liftIO $ setObjectPropertyStringArray obj "icons" val + +constructScaleButtonIcons :: [T.Text] -> IO ([Char], GValue) +constructScaleButtonIcons val = constructObjectPropertyStringArray "icons" 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 = [T.Text] + type AttrLabel ScaleButtonIconsPropertyInfo = "ScaleButton::icons" + attrGet _ = getScaleButtonIcons + attrSet _ = setScaleButtonIcons + attrConstruct _ = constructScaleButtonIcons + +-- VVV Prop "size" + -- Type: TInterface "Gtk" "IconSize" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScaleButton::size" + attrGet _ = getScaleButtonSize + attrSet _ = setScaleButtonSize + attrConstruct _ = constructScaleButtonSize + +-- VVV Prop "value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScaleButton::value" + attrGet _ = getScaleButtonValue + attrSet _ = setScaleButtonValue + attrConstruct _ = constructScaleButtonValue + +type instance AttributeList ScaleButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +type instance AttributeList ScaleButtonAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "hadjustment" + -- Type: TInterface "Gtk" "Adjustment" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getScrollableHadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment +getScrollableHadjustment obj = liftIO $ getObjectPropertyObject obj "hadjustment" Adjustment + +setScrollableHadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m () +setScrollableHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" val + +constructScrollableHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) +constructScrollableHadjustment val = constructObjectPropertyObject "hadjustment" val + +data ScrollableHadjustmentPropertyInfo +instance AttrInfo ScrollableHadjustmentPropertyInfo where + type AttrAllowedOps ScrollableHadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ScrollableHadjustmentPropertyInfo = AdjustmentK + type AttrBaseTypeConstraint ScrollableHadjustmentPropertyInfo = ScrollableK + type AttrGetType ScrollableHadjustmentPropertyInfo = Adjustment + type AttrLabel ScrollableHadjustmentPropertyInfo = "Scrollable::hadjustment" + attrGet _ = getScrollableHadjustment + attrSet _ = setScrollableHadjustment + attrConstruct _ = constructScrollableHadjustment + +-- VVV Prop "hscroll-policy" + -- Type: TInterface "Gtk" "ScrollablePolicy" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Scrollable::hscroll-policy" + attrGet _ = getScrollableHscrollPolicy + attrSet _ = setScrollableHscrollPolicy + attrConstruct _ = constructScrollableHscrollPolicy + +-- VVV Prop "vadjustment" + -- Type: TInterface "Gtk" "Adjustment" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getScrollableVadjustment :: (MonadIO m, ScrollableK o) => o -> m Adjustment +getScrollableVadjustment obj = liftIO $ getObjectPropertyObject obj "vadjustment" Adjustment + +setScrollableVadjustment :: (MonadIO m, ScrollableK o, AdjustmentK a) => o -> a -> m () +setScrollableVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" val + +constructScrollableVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) +constructScrollableVadjustment val = constructObjectPropertyObject "vadjustment" val + +data ScrollableVadjustmentPropertyInfo +instance AttrInfo ScrollableVadjustmentPropertyInfo where + type AttrAllowedOps ScrollableVadjustmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ScrollableVadjustmentPropertyInfo = AdjustmentK + type AttrBaseTypeConstraint ScrollableVadjustmentPropertyInfo = ScrollableK + type AttrGetType ScrollableVadjustmentPropertyInfo = Adjustment + type AttrLabel ScrollableVadjustmentPropertyInfo = "Scrollable::vadjustment" + attrGet _ = getScrollableVadjustment + attrSet _ = setScrollableVadjustment + attrConstruct _ = constructScrollableVadjustment + +-- VVV Prop "vscroll-policy" + -- Type: TInterface "Gtk" "ScrollablePolicy" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Scrollable::vscroll-policy" + attrGet _ = getScrollableVscrollPolicy + attrSet _ = setScrollableVscrollPolicy + attrConstruct _ = constructScrollableVscrollPolicy + +type instance AttributeList Scrollable = '[ '("hadjustment", ScrollableHadjustmentPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo)] + +type instance AttributeList Scrollbar = '[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "hadjustment" + -- Type: TInterface "Gtk" "Adjustment" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment +getScrolledWindowHadjustment obj = liftIO $ getObjectPropertyObject obj "hadjustment" Adjustment + +setScrolledWindowHadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m () +setScrolledWindowHadjustment obj val = liftIO $ setObjectPropertyObject obj "hadjustment" val + +constructScrolledWindowHadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) +constructScrolledWindowHadjustment val = constructObjectPropertyObject "hadjustment" 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 = "ScrolledWindow::hadjustment" + attrGet _ = getScrolledWindowHadjustment + attrSet _ = setScrolledWindowHadjustment + attrConstruct _ = constructScrolledWindowHadjustment + +-- VVV Prop "hscrollbar-policy" + -- Type: TInterface "Gtk" "PolicyType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScrolledWindow::hscrollbar-policy" + attrGet _ = getScrolledWindowHscrollbarPolicy + attrSet _ = setScrolledWindowHscrollbarPolicy + attrConstruct _ = constructScrolledWindowHscrollbarPolicy + +-- VVV Prop "kinetic-scrolling" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScrolledWindow::kinetic-scrolling" + attrGet _ = getScrolledWindowKineticScrolling + attrSet _ = setScrolledWindowKineticScrolling + attrConstruct _ = constructScrolledWindowKineticScrolling + +-- VVV Prop "min-content-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> m Int32 +getScrolledWindowMinContentHeight obj = liftIO $ getObjectPropertyCInt obj "min-content-height" + +setScrolledWindowMinContentHeight :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m () +setScrolledWindowMinContentHeight obj val = liftIO $ setObjectPropertyCInt obj "min-content-height" val + +constructScrolledWindowMinContentHeight :: Int32 -> IO ([Char], GValue) +constructScrolledWindowMinContentHeight val = constructObjectPropertyCInt "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 = "ScrolledWindow::min-content-height" + attrGet _ = getScrolledWindowMinContentHeight + attrSet _ = setScrolledWindowMinContentHeight + attrConstruct _ = constructScrolledWindowMinContentHeight + +-- VVV Prop "min-content-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> m Int32 +getScrolledWindowMinContentWidth obj = liftIO $ getObjectPropertyCInt obj "min-content-width" + +setScrolledWindowMinContentWidth :: (MonadIO m, ScrolledWindowK o) => o -> Int32 -> m () +setScrolledWindowMinContentWidth obj val = liftIO $ setObjectPropertyCInt obj "min-content-width" val + +constructScrolledWindowMinContentWidth :: Int32 -> IO ([Char], GValue) +constructScrolledWindowMinContentWidth val = constructObjectPropertyCInt "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 = "ScrolledWindow::min-content-width" + attrGet _ = getScrolledWindowMinContentWidth + attrSet _ = setScrolledWindowMinContentWidth + attrConstruct _ = constructScrolledWindowMinContentWidth + +-- VVV Prop "overlay-scrolling" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScrolledWindow::overlay-scrolling" + attrGet _ = getScrolledWindowOverlayScrolling + attrSet _ = setScrolledWindowOverlayScrolling + attrConstruct _ = constructScrolledWindowOverlayScrolling + +-- VVV Prop "shadow-type" + -- Type: TInterface "Gtk" "ShadowType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScrolledWindow::shadow-type" + attrGet _ = getScrolledWindowShadowType + attrSet _ = setScrolledWindowShadowType + attrConstruct _ = constructScrolledWindowShadowType + +-- VVV Prop "vadjustment" + -- Type: TInterface "Gtk" "Adjustment" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o) => o -> m Adjustment +getScrolledWindowVadjustment obj = liftIO $ getObjectPropertyObject obj "vadjustment" Adjustment + +setScrolledWindowVadjustment :: (MonadIO m, ScrolledWindowK o, AdjustmentK a) => o -> a -> m () +setScrolledWindowVadjustment obj val = liftIO $ setObjectPropertyObject obj "vadjustment" val + +constructScrolledWindowVadjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) +constructScrolledWindowVadjustment val = constructObjectPropertyObject "vadjustment" 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 = "ScrolledWindow::vadjustment" + attrGet _ = getScrolledWindowVadjustment + attrSet _ = setScrolledWindowVadjustment + attrConstruct _ = constructScrolledWindowVadjustment + +-- VVV Prop "vscrollbar-policy" + -- Type: TInterface "Gtk" "PolicyType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScrolledWindow::vscrollbar-policy" + attrGet _ = getScrolledWindowVscrollbarPolicy + attrSet _ = setScrolledWindowVscrollbarPolicy + attrConstruct _ = constructScrolledWindowVscrollbarPolicy + +-- VVV Prop "window-placement" + -- Type: TInterface "Gtk" "CornerType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScrolledWindow::window-placement" + attrGet _ = getScrolledWindowWindowPlacement + attrSet _ = setScrolledWindowWindowPlacement + attrConstruct _ = constructScrolledWindowWindowPlacement + +-- VVV Prop "window-placement-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ScrolledWindow::window-placement-set" + attrGet _ = getScrolledWindowWindowPlacementSet + attrSet _ = setScrolledWindowWindowPlacementSet + attrConstruct _ = constructScrolledWindowWindowPlacementSet + +type instance AttributeList ScrolledWindow = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrolledWindowHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscrollbar-policy", ScrolledWindowHscrollbarPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("kinetic-scrolling", ScrolledWindowKineticScrollingPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("min-content-height", ScrolledWindowMinContentHeightPropertyInfo), '("min-content-width", ScrolledWindowMinContentWidthPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overlay-scrolling", ScrolledWindowOverlayScrollingPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ScrolledWindowShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrolledWindowVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscrollbar-policy", ScrolledWindowVscrollbarPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-placement", ScrolledWindowWindowPlacementPropertyInfo), '("window-placement-set", ScrolledWindowWindowPlacementSetPropertyInfo)] + +type instance AttributeList ScrolledWindowAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "search-mode-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SearchBar::search-mode-enabled" + attrGet _ = getSearchBarSearchModeEnabled + attrSet _ = setSearchBarSearchModeEnabled + attrConstruct _ = constructSearchBarSearchModeEnabled + +-- VVV Prop "show-close-button" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "SearchBar::show-close-button" + attrGet _ = getSearchBarShowCloseButton + attrSet _ = setSearchBarShowCloseButton + attrConstruct _ = constructSearchBarShowCloseButton + +type instance AttributeList SearchBar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-mode-enabled", SearchBarSearchModeEnabledPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-close-button", SearchBarShowCloseButtonPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList SearchEntry = '[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] + +type instance AttributeList Separator = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList SeparatorMenuItem = '[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "draw" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SeparatorToolItem::draw" + attrGet _ = getSeparatorToolItemDraw + attrSet _ = setSeparatorToolItemDraw + attrConstruct _ = constructSeparatorToolItemDraw + +type instance AttributeList SeparatorToolItem = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw", SeparatorToolItemDrawPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- 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 +-- VVV Prop "gtk-alternative-button-order" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-alternative-button-order" + attrGet _ = getSettingsGtkAlternativeButtonOrder + attrSet _ = setSettingsGtkAlternativeButtonOrder + attrConstruct _ = constructSettingsGtkAlternativeButtonOrder + +-- VVV Prop "gtk-alternative-sort-arrows" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-alternative-sort-arrows" + attrGet _ = getSettingsGtkAlternativeSortArrows + attrSet _ = setSettingsGtkAlternativeSortArrows + attrConstruct _ = constructSettingsGtkAlternativeSortArrows + +-- VVV Prop "gtk-application-prefer-dark-theme" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-application-prefer-dark-theme" + attrGet _ = getSettingsGtkApplicationPreferDarkTheme + attrSet _ = setSettingsGtkApplicationPreferDarkTheme + attrConstruct _ = constructSettingsGtkApplicationPreferDarkTheme + +-- VVV Prop "gtk-auto-mnemonics" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-auto-mnemonics" + attrGet _ = getSettingsGtkAutoMnemonics + attrSet _ = setSettingsGtkAutoMnemonics + attrConstruct _ = constructSettingsGtkAutoMnemonics + +-- VVV Prop "gtk-button-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-button-images" + attrGet _ = getSettingsGtkButtonImages + attrSet _ = setSettingsGtkButtonImages + attrConstruct _ = constructSettingsGtkButtonImages + +-- VVV Prop "gtk-can-change-accels" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-can-change-accels" + attrGet _ = getSettingsGtkCanChangeAccels + attrSet _ = setSettingsGtkCanChangeAccels + attrConstruct _ = constructSettingsGtkCanChangeAccels + +-- VVV Prop "gtk-color-palette" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkColorPalette :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkColorPalette :: T.Text -> IO ([Char], GValue) +constructSettingsGtkColorPalette val = constructObjectPropertyString "gtk-color-palette" val + +data SettingsGtkColorPalettePropertyInfo +instance AttrInfo SettingsGtkColorPalettePropertyInfo where + type AttrAllowedOps SettingsGtkColorPalettePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkColorPalettePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkColorPalettePropertyInfo = SettingsK + type AttrGetType SettingsGtkColorPalettePropertyInfo = T.Text + type AttrLabel SettingsGtkColorPalettePropertyInfo = "Settings::gtk-color-palette" + attrGet _ = getSettingsGtkColorPalette + attrSet _ = setSettingsGtkColorPalette + attrConstruct _ = constructSettingsGtkColorPalette + +-- VVV Prop "gtk-color-scheme" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkColorScheme :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkColorScheme :: T.Text -> IO ([Char], GValue) +constructSettingsGtkColorScheme val = constructObjectPropertyString "gtk-color-scheme" val + +data SettingsGtkColorSchemePropertyInfo +instance AttrInfo SettingsGtkColorSchemePropertyInfo where + type AttrAllowedOps SettingsGtkColorSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkColorSchemePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkColorSchemePropertyInfo = SettingsK + type AttrGetType SettingsGtkColorSchemePropertyInfo = T.Text + type AttrLabel SettingsGtkColorSchemePropertyInfo = "Settings::gtk-color-scheme" + attrGet _ = getSettingsGtkColorScheme + attrSet _ = setSettingsGtkColorScheme + attrConstruct _ = constructSettingsGtkColorScheme + +-- VVV Prop "gtk-cursor-blink" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-cursor-blink" + attrGet _ = getSettingsGtkCursorBlink + attrSet _ = setSettingsGtkCursorBlink + attrConstruct _ = constructSettingsGtkCursorBlink + +-- VVV Prop "gtk-cursor-blink-time" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkCursorBlinkTime obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-blink-time" + +setSettingsGtkCursorBlinkTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkCursorBlinkTime obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-blink-time" val + +constructSettingsGtkCursorBlinkTime :: Int32 -> IO ([Char], GValue) +constructSettingsGtkCursorBlinkTime val = constructObjectPropertyCInt "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 = "Settings::gtk-cursor-blink-time" + attrGet _ = getSettingsGtkCursorBlinkTime + attrSet _ = setSettingsGtkCursorBlinkTime + attrConstruct _ = constructSettingsGtkCursorBlinkTime + +-- VVV Prop "gtk-cursor-blink-timeout" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkCursorBlinkTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-blink-timeout" + +setSettingsGtkCursorBlinkTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkCursorBlinkTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-blink-timeout" val + +constructSettingsGtkCursorBlinkTimeout :: Int32 -> IO ([Char], GValue) +constructSettingsGtkCursorBlinkTimeout val = constructObjectPropertyCInt "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 = "Settings::gtk-cursor-blink-timeout" + attrGet _ = getSettingsGtkCursorBlinkTimeout + attrSet _ = setSettingsGtkCursorBlinkTimeout + attrConstruct _ = constructSettingsGtkCursorBlinkTimeout + +-- VVV Prop "gtk-cursor-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkCursorThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkCursorThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkCursorThemeName val = constructObjectPropertyString "gtk-cursor-theme-name" val + +data SettingsGtkCursorThemeNamePropertyInfo +instance AttrInfo SettingsGtkCursorThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkCursorThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkCursorThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkCursorThemeNamePropertyInfo = T.Text + type AttrLabel SettingsGtkCursorThemeNamePropertyInfo = "Settings::gtk-cursor-theme-name" + attrGet _ = getSettingsGtkCursorThemeName + attrSet _ = setSettingsGtkCursorThemeName + attrConstruct _ = constructSettingsGtkCursorThemeName + +-- VVV Prop "gtk-cursor-theme-size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkCursorThemeSize obj = liftIO $ getObjectPropertyCInt obj "gtk-cursor-theme-size" + +setSettingsGtkCursorThemeSize :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkCursorThemeSize obj val = liftIO $ setObjectPropertyCInt obj "gtk-cursor-theme-size" val + +constructSettingsGtkCursorThemeSize :: Int32 -> IO ([Char], GValue) +constructSettingsGtkCursorThemeSize val = constructObjectPropertyCInt "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 = "Settings::gtk-cursor-theme-size" + attrGet _ = getSettingsGtkCursorThemeSize + attrSet _ = setSettingsGtkCursorThemeSize + attrConstruct _ = constructSettingsGtkCursorThemeSize + +-- VVV Prop "gtk-decoration-layout" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkDecorationLayout :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkDecorationLayout :: T.Text -> IO ([Char], GValue) +constructSettingsGtkDecorationLayout val = constructObjectPropertyString "gtk-decoration-layout" val + +data SettingsGtkDecorationLayoutPropertyInfo +instance AttrInfo SettingsGtkDecorationLayoutPropertyInfo where + type AttrAllowedOps SettingsGtkDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkDecorationLayoutPropertyInfo = SettingsK + type AttrGetType SettingsGtkDecorationLayoutPropertyInfo = T.Text + type AttrLabel SettingsGtkDecorationLayoutPropertyInfo = "Settings::gtk-decoration-layout" + attrGet _ = getSettingsGtkDecorationLayout + attrSet _ = setSettingsGtkDecorationLayout + attrConstruct _ = constructSettingsGtkDecorationLayout + +-- VVV Prop "gtk-dialogs-use-header" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-dialogs-use-header" + attrGet _ = getSettingsGtkDialogsUseHeader + attrSet _ = setSettingsGtkDialogsUseHeader + attrConstruct _ = constructSettingsGtkDialogsUseHeader + +-- VVV Prop "gtk-dnd-drag-threshold" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkDndDragThreshold obj = liftIO $ getObjectPropertyCInt obj "gtk-dnd-drag-threshold" + +setSettingsGtkDndDragThreshold :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkDndDragThreshold obj val = liftIO $ setObjectPropertyCInt obj "gtk-dnd-drag-threshold" val + +constructSettingsGtkDndDragThreshold :: Int32 -> IO ([Char], GValue) +constructSettingsGtkDndDragThreshold val = constructObjectPropertyCInt "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 = "Settings::gtk-dnd-drag-threshold" + attrGet _ = getSettingsGtkDndDragThreshold + attrSet _ = setSettingsGtkDndDragThreshold + attrConstruct _ = constructSettingsGtkDndDragThreshold + +-- VVV Prop "gtk-double-click-distance" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkDoubleClickDistance obj = liftIO $ getObjectPropertyCInt obj "gtk-double-click-distance" + +setSettingsGtkDoubleClickDistance :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkDoubleClickDistance obj val = liftIO $ setObjectPropertyCInt obj "gtk-double-click-distance" val + +constructSettingsGtkDoubleClickDistance :: Int32 -> IO ([Char], GValue) +constructSettingsGtkDoubleClickDistance val = constructObjectPropertyCInt "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 = "Settings::gtk-double-click-distance" + attrGet _ = getSettingsGtkDoubleClickDistance + attrSet _ = setSettingsGtkDoubleClickDistance + attrConstruct _ = constructSettingsGtkDoubleClickDistance + +-- VVV Prop "gtk-double-click-time" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkDoubleClickTime obj = liftIO $ getObjectPropertyCInt obj "gtk-double-click-time" + +setSettingsGtkDoubleClickTime :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkDoubleClickTime obj val = liftIO $ setObjectPropertyCInt obj "gtk-double-click-time" val + +constructSettingsGtkDoubleClickTime :: Int32 -> IO ([Char], GValue) +constructSettingsGtkDoubleClickTime val = constructObjectPropertyCInt "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 = "Settings::gtk-double-click-time" + attrGet _ = getSettingsGtkDoubleClickTime + attrSet _ = setSettingsGtkDoubleClickTime + attrConstruct _ = constructSettingsGtkDoubleClickTime + +-- VVV Prop "gtk-enable-accels" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-enable-accels" + attrGet _ = getSettingsGtkEnableAccels + attrSet _ = setSettingsGtkEnableAccels + attrConstruct _ = constructSettingsGtkEnableAccels + +-- VVV Prop "gtk-enable-animations" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-enable-animations" + attrGet _ = getSettingsGtkEnableAnimations + attrSet _ = setSettingsGtkEnableAnimations + attrConstruct _ = constructSettingsGtkEnableAnimations + +-- VVV Prop "gtk-enable-event-sounds" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-enable-event-sounds" + attrGet _ = getSettingsGtkEnableEventSounds + attrSet _ = setSettingsGtkEnableEventSounds + attrConstruct _ = constructSettingsGtkEnableEventSounds + +-- VVV Prop "gtk-enable-input-feedback-sounds" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-enable-input-feedback-sounds" + attrGet _ = getSettingsGtkEnableInputFeedbackSounds + attrSet _ = setSettingsGtkEnableInputFeedbackSounds + attrConstruct _ = constructSettingsGtkEnableInputFeedbackSounds + +-- VVV Prop "gtk-enable-mnemonics" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-enable-mnemonics" + attrGet _ = getSettingsGtkEnableMnemonics + attrSet _ = setSettingsGtkEnableMnemonics + attrConstruct _ = constructSettingsGtkEnableMnemonics + +-- VVV Prop "gtk-enable-primary-paste" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-enable-primary-paste" + attrGet _ = getSettingsGtkEnablePrimaryPaste + attrSet _ = setSettingsGtkEnablePrimaryPaste + attrConstruct _ = constructSettingsGtkEnablePrimaryPaste + +-- VVV Prop "gtk-enable-tooltips" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-enable-tooltips" + attrGet _ = getSettingsGtkEnableTooltips + attrSet _ = setSettingsGtkEnableTooltips + attrConstruct _ = constructSettingsGtkEnableTooltips + +-- VVV Prop "gtk-entry-password-hint-timeout" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsGtkEntryPasswordHintTimeout obj = liftIO $ getObjectPropertyCUInt obj "gtk-entry-password-hint-timeout" + +setSettingsGtkEntryPasswordHintTimeout :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsGtkEntryPasswordHintTimeout obj val = liftIO $ setObjectPropertyCUInt obj "gtk-entry-password-hint-timeout" val + +constructSettingsGtkEntryPasswordHintTimeout :: Word32 -> IO ([Char], GValue) +constructSettingsGtkEntryPasswordHintTimeout val = constructObjectPropertyCUInt "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 = "Settings::gtk-entry-password-hint-timeout" + attrGet _ = getSettingsGtkEntryPasswordHintTimeout + attrSet _ = setSettingsGtkEntryPasswordHintTimeout + attrConstruct _ = constructSettingsGtkEntryPasswordHintTimeout + +-- VVV Prop "gtk-entry-select-on-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-entry-select-on-focus" + attrGet _ = getSettingsGtkEntrySelectOnFocus + attrSet _ = setSettingsGtkEntrySelectOnFocus + attrConstruct _ = constructSettingsGtkEntrySelectOnFocus + +-- VVV Prop "gtk-error-bell" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-error-bell" + attrGet _ = getSettingsGtkErrorBell + attrSet _ = setSettingsGtkErrorBell + attrConstruct _ = constructSettingsGtkErrorBell + +-- VVV Prop "gtk-fallback-icon-theme" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkFallbackIconTheme :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkFallbackIconTheme :: T.Text -> IO ([Char], GValue) +constructSettingsGtkFallbackIconTheme val = constructObjectPropertyString "gtk-fallback-icon-theme" val + +data SettingsGtkFallbackIconThemePropertyInfo +instance AttrInfo SettingsGtkFallbackIconThemePropertyInfo where + type AttrAllowedOps SettingsGtkFallbackIconThemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkFallbackIconThemePropertyInfo = SettingsK + type AttrGetType SettingsGtkFallbackIconThemePropertyInfo = T.Text + type AttrLabel SettingsGtkFallbackIconThemePropertyInfo = "Settings::gtk-fallback-icon-theme" + attrGet _ = getSettingsGtkFallbackIconTheme + attrSet _ = setSettingsGtkFallbackIconTheme + attrConstruct _ = constructSettingsGtkFallbackIconTheme + +-- VVV Prop "gtk-file-chooser-backend" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkFileChooserBackend :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkFileChooserBackend :: T.Text -> IO ([Char], GValue) +constructSettingsGtkFileChooserBackend val = constructObjectPropertyString "gtk-file-chooser-backend" val + +data SettingsGtkFileChooserBackendPropertyInfo +instance AttrInfo SettingsGtkFileChooserBackendPropertyInfo where + type AttrAllowedOps SettingsGtkFileChooserBackendPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkFileChooserBackendPropertyInfo = SettingsK + type AttrGetType SettingsGtkFileChooserBackendPropertyInfo = T.Text + type AttrLabel SettingsGtkFileChooserBackendPropertyInfo = "Settings::gtk-file-chooser-backend" + attrGet _ = getSettingsGtkFileChooserBackend + attrSet _ = setSettingsGtkFileChooserBackend + attrConstruct _ = constructSettingsGtkFileChooserBackend + +-- VVV Prop "gtk-font-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkFontName :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkFontName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkFontName val = constructObjectPropertyString "gtk-font-name" val + +data SettingsGtkFontNamePropertyInfo +instance AttrInfo SettingsGtkFontNamePropertyInfo where + type AttrAllowedOps SettingsGtkFontNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkFontNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkFontNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkFontNamePropertyInfo = T.Text + type AttrLabel SettingsGtkFontNamePropertyInfo = "Settings::gtk-font-name" + attrGet _ = getSettingsGtkFontName + attrSet _ = setSettingsGtkFontName + attrConstruct _ = constructSettingsGtkFontName + +-- VVV Prop "gtk-fontconfig-timestamp" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsGtkFontconfigTimestamp obj = liftIO $ getObjectPropertyCUInt obj "gtk-fontconfig-timestamp" + +setSettingsGtkFontconfigTimestamp :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsGtkFontconfigTimestamp obj val = liftIO $ setObjectPropertyCUInt obj "gtk-fontconfig-timestamp" val + +constructSettingsGtkFontconfigTimestamp :: Word32 -> IO ([Char], GValue) +constructSettingsGtkFontconfigTimestamp val = constructObjectPropertyCUInt "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 = "Settings::gtk-fontconfig-timestamp" + attrGet _ = getSettingsGtkFontconfigTimestamp + attrSet _ = setSettingsGtkFontconfigTimestamp + attrConstruct _ = constructSettingsGtkFontconfigTimestamp + +-- VVV Prop "gtk-icon-sizes" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkIconSizes :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkIconSizes :: T.Text -> IO ([Char], GValue) +constructSettingsGtkIconSizes val = constructObjectPropertyString "gtk-icon-sizes" val + +data SettingsGtkIconSizesPropertyInfo +instance AttrInfo SettingsGtkIconSizesPropertyInfo where + type AttrAllowedOps SettingsGtkIconSizesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkIconSizesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkIconSizesPropertyInfo = SettingsK + type AttrGetType SettingsGtkIconSizesPropertyInfo = T.Text + type AttrLabel SettingsGtkIconSizesPropertyInfo = "Settings::gtk-icon-sizes" + attrGet _ = getSettingsGtkIconSizes + attrSet _ = setSettingsGtkIconSizes + attrConstruct _ = constructSettingsGtkIconSizes + +-- VVV Prop "gtk-icon-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkIconThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkIconThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkIconThemeName val = constructObjectPropertyString "gtk-icon-theme-name" val + +data SettingsGtkIconThemeNamePropertyInfo +instance AttrInfo SettingsGtkIconThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkIconThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkIconThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkIconThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkIconThemeNamePropertyInfo = T.Text + type AttrLabel SettingsGtkIconThemeNamePropertyInfo = "Settings::gtk-icon-theme-name" + attrGet _ = getSettingsGtkIconThemeName + attrSet _ = setSettingsGtkIconThemeName + attrConstruct _ = constructSettingsGtkIconThemeName + +-- VVV Prop "gtk-im-module" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkImModule :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkImModule :: T.Text -> IO ([Char], GValue) +constructSettingsGtkImModule val = constructObjectPropertyString "gtk-im-module" val + +data SettingsGtkImModulePropertyInfo +instance AttrInfo SettingsGtkImModulePropertyInfo where + type AttrAllowedOps SettingsGtkImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkImModulePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkImModulePropertyInfo = SettingsK + type AttrGetType SettingsGtkImModulePropertyInfo = T.Text + type AttrLabel SettingsGtkImModulePropertyInfo = "Settings::gtk-im-module" + attrGet _ = getSettingsGtkImModule + attrSet _ = setSettingsGtkImModule + attrConstruct _ = constructSettingsGtkImModule + +-- VVV Prop "gtk-im-preedit-style" + -- Type: TInterface "Gtk" "IMPreeditStyle" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-im-preedit-style" + attrGet _ = getSettingsGtkImPreeditStyle + attrSet _ = setSettingsGtkImPreeditStyle + attrConstruct _ = constructSettingsGtkImPreeditStyle + +-- VVV Prop "gtk-im-status-style" + -- Type: TInterface "Gtk" "IMStatusStyle" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-im-status-style" + attrGet _ = getSettingsGtkImStatusStyle + attrSet _ = setSettingsGtkImStatusStyle + attrConstruct _ = constructSettingsGtkImStatusStyle + +-- VVV Prop "gtk-key-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkKeyThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkKeyThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkKeyThemeName val = constructObjectPropertyString "gtk-key-theme-name" val + +data SettingsGtkKeyThemeNamePropertyInfo +instance AttrInfo SettingsGtkKeyThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkKeyThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkKeyThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkKeyThemeNamePropertyInfo = T.Text + type AttrLabel SettingsGtkKeyThemeNamePropertyInfo = "Settings::gtk-key-theme-name" + attrGet _ = getSettingsGtkKeyThemeName + attrSet _ = setSettingsGtkKeyThemeName + attrConstruct _ = constructSettingsGtkKeyThemeName + +-- VVV Prop "gtk-keynav-cursor-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-keynav-cursor-only" + attrGet _ = getSettingsGtkKeynavCursorOnly + attrSet _ = setSettingsGtkKeynavCursorOnly + attrConstruct _ = constructSettingsGtkKeynavCursorOnly + +-- VVV Prop "gtk-keynav-wrap-around" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-keynav-wrap-around" + attrGet _ = getSettingsGtkKeynavWrapAround + attrSet _ = setSettingsGtkKeynavWrapAround + attrConstruct _ = constructSettingsGtkKeynavWrapAround + +-- VVV Prop "gtk-label-select-on-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-label-select-on-focus" + attrGet _ = getSettingsGtkLabelSelectOnFocus + attrSet _ = setSettingsGtkLabelSelectOnFocus + attrConstruct _ = constructSettingsGtkLabelSelectOnFocus + +-- VVV Prop "gtk-long-press-time" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> m Word32 +getSettingsGtkLongPressTime obj = liftIO $ getObjectPropertyCUInt obj "gtk-long-press-time" + +setSettingsGtkLongPressTime :: (MonadIO m, SettingsK o) => o -> Word32 -> m () +setSettingsGtkLongPressTime obj val = liftIO $ setObjectPropertyCUInt obj "gtk-long-press-time" val + +constructSettingsGtkLongPressTime :: Word32 -> IO ([Char], GValue) +constructSettingsGtkLongPressTime val = constructObjectPropertyCUInt "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 = "Settings::gtk-long-press-time" + attrGet _ = getSettingsGtkLongPressTime + attrSet _ = setSettingsGtkLongPressTime + attrConstruct _ = constructSettingsGtkLongPressTime + +-- VVV Prop "gtk-menu-bar-accel" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkMenuBarAccel :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkMenuBarAccel :: T.Text -> IO ([Char], GValue) +constructSettingsGtkMenuBarAccel val = constructObjectPropertyString "gtk-menu-bar-accel" val + +data SettingsGtkMenuBarAccelPropertyInfo +instance AttrInfo SettingsGtkMenuBarAccelPropertyInfo where + type AttrAllowedOps SettingsGtkMenuBarAccelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkMenuBarAccelPropertyInfo = SettingsK + type AttrGetType SettingsGtkMenuBarAccelPropertyInfo = T.Text + type AttrLabel SettingsGtkMenuBarAccelPropertyInfo = "Settings::gtk-menu-bar-accel" + attrGet _ = getSettingsGtkMenuBarAccel + attrSet _ = setSettingsGtkMenuBarAccel + attrConstruct _ = constructSettingsGtkMenuBarAccel + +-- VVV Prop "gtk-menu-bar-popup-delay" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkMenuBarPopupDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-bar-popup-delay" + +setSettingsGtkMenuBarPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkMenuBarPopupDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-bar-popup-delay" val + +constructSettingsGtkMenuBarPopupDelay :: Int32 -> IO ([Char], GValue) +constructSettingsGtkMenuBarPopupDelay val = constructObjectPropertyCInt "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 = "Settings::gtk-menu-bar-popup-delay" + attrGet _ = getSettingsGtkMenuBarPopupDelay + attrSet _ = setSettingsGtkMenuBarPopupDelay + attrConstruct _ = constructSettingsGtkMenuBarPopupDelay + +-- VVV Prop "gtk-menu-images" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-menu-images" + attrGet _ = getSettingsGtkMenuImages + attrSet _ = setSettingsGtkMenuImages + attrConstruct _ = constructSettingsGtkMenuImages + +-- VVV Prop "gtk-menu-popdown-delay" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkMenuPopdownDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-popdown-delay" + +setSettingsGtkMenuPopdownDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkMenuPopdownDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-popdown-delay" val + +constructSettingsGtkMenuPopdownDelay :: Int32 -> IO ([Char], GValue) +constructSettingsGtkMenuPopdownDelay val = constructObjectPropertyCInt "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 = "Settings::gtk-menu-popdown-delay" + attrGet _ = getSettingsGtkMenuPopdownDelay + attrSet _ = setSettingsGtkMenuPopdownDelay + attrConstruct _ = constructSettingsGtkMenuPopdownDelay + +-- VVV Prop "gtk-menu-popup-delay" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkMenuPopupDelay obj = liftIO $ getObjectPropertyCInt obj "gtk-menu-popup-delay" + +setSettingsGtkMenuPopupDelay :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkMenuPopupDelay obj val = liftIO $ setObjectPropertyCInt obj "gtk-menu-popup-delay" val + +constructSettingsGtkMenuPopupDelay :: Int32 -> IO ([Char], GValue) +constructSettingsGtkMenuPopupDelay val = constructObjectPropertyCInt "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 = "Settings::gtk-menu-popup-delay" + attrGet _ = getSettingsGtkMenuPopupDelay + attrSet _ = setSettingsGtkMenuPopupDelay + attrConstruct _ = constructSettingsGtkMenuPopupDelay + +-- VVV Prop "gtk-modules" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkModules :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkModules :: T.Text -> IO ([Char], GValue) +constructSettingsGtkModules val = constructObjectPropertyString "gtk-modules" val + +data SettingsGtkModulesPropertyInfo +instance AttrInfo SettingsGtkModulesPropertyInfo where + type AttrAllowedOps SettingsGtkModulesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkModulesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkModulesPropertyInfo = SettingsK + type AttrGetType SettingsGtkModulesPropertyInfo = T.Text + type AttrLabel SettingsGtkModulesPropertyInfo = "Settings::gtk-modules" + attrGet _ = getSettingsGtkModules + attrSet _ = setSettingsGtkModules + attrConstruct _ = constructSettingsGtkModules + +-- VVV Prop "gtk-primary-button-warps-slider" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-primary-button-warps-slider" + attrGet _ = getSettingsGtkPrimaryButtonWarpsSlider + attrSet _ = setSettingsGtkPrimaryButtonWarpsSlider + attrConstruct _ = constructSettingsGtkPrimaryButtonWarpsSlider + +-- VVV Prop "gtk-print-backends" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkPrintBackends :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkPrintBackends :: T.Text -> IO ([Char], GValue) +constructSettingsGtkPrintBackends val = constructObjectPropertyString "gtk-print-backends" val + +data SettingsGtkPrintBackendsPropertyInfo +instance AttrInfo SettingsGtkPrintBackendsPropertyInfo where + type AttrAllowedOps SettingsGtkPrintBackendsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkPrintBackendsPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkPrintBackendsPropertyInfo = SettingsK + type AttrGetType SettingsGtkPrintBackendsPropertyInfo = T.Text + type AttrLabel SettingsGtkPrintBackendsPropertyInfo = "Settings::gtk-print-backends" + attrGet _ = getSettingsGtkPrintBackends + attrSet _ = setSettingsGtkPrintBackends + attrConstruct _ = constructSettingsGtkPrintBackends + +-- VVV Prop "gtk-print-preview-command" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkPrintPreviewCommand :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkPrintPreviewCommand :: T.Text -> IO ([Char], GValue) +constructSettingsGtkPrintPreviewCommand val = constructObjectPropertyString "gtk-print-preview-command" val + +data SettingsGtkPrintPreviewCommandPropertyInfo +instance AttrInfo SettingsGtkPrintPreviewCommandPropertyInfo where + type AttrAllowedOps SettingsGtkPrintPreviewCommandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkPrintPreviewCommandPropertyInfo = SettingsK + type AttrGetType SettingsGtkPrintPreviewCommandPropertyInfo = T.Text + type AttrLabel SettingsGtkPrintPreviewCommandPropertyInfo = "Settings::gtk-print-preview-command" + attrGet _ = getSettingsGtkPrintPreviewCommand + attrSet _ = setSettingsGtkPrintPreviewCommand + attrConstruct _ = constructSettingsGtkPrintPreviewCommand + +-- VVV Prop "gtk-recent-files-enabled" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-recent-files-enabled" + attrGet _ = getSettingsGtkRecentFilesEnabled + attrSet _ = setSettingsGtkRecentFilesEnabled + attrConstruct _ = constructSettingsGtkRecentFilesEnabled + +-- VVV Prop "gtk-recent-files-limit" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkRecentFilesLimit obj = liftIO $ getObjectPropertyCInt obj "gtk-recent-files-limit" + +setSettingsGtkRecentFilesLimit :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkRecentFilesLimit obj val = liftIO $ setObjectPropertyCInt obj "gtk-recent-files-limit" val + +constructSettingsGtkRecentFilesLimit :: Int32 -> IO ([Char], GValue) +constructSettingsGtkRecentFilesLimit val = constructObjectPropertyCInt "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 = "Settings::gtk-recent-files-limit" + attrGet _ = getSettingsGtkRecentFilesLimit + attrSet _ = setSettingsGtkRecentFilesLimit + attrConstruct _ = constructSettingsGtkRecentFilesLimit + +-- VVV Prop "gtk-recent-files-max-age" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkRecentFilesMaxAge obj = liftIO $ getObjectPropertyCInt obj "gtk-recent-files-max-age" + +setSettingsGtkRecentFilesMaxAge :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkRecentFilesMaxAge obj val = liftIO $ setObjectPropertyCInt obj "gtk-recent-files-max-age" val + +constructSettingsGtkRecentFilesMaxAge :: Int32 -> IO ([Char], GValue) +constructSettingsGtkRecentFilesMaxAge val = constructObjectPropertyCInt "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 = "Settings::gtk-recent-files-max-age" + attrGet _ = getSettingsGtkRecentFilesMaxAge + attrSet _ = setSettingsGtkRecentFilesMaxAge + attrConstruct _ = constructSettingsGtkRecentFilesMaxAge + +-- VVV Prop "gtk-scrolled-window-placement" + -- Type: TInterface "Gtk" "CornerType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-scrolled-window-placement" + attrGet _ = getSettingsGtkScrolledWindowPlacement + attrSet _ = setSettingsGtkScrolledWindowPlacement + attrConstruct _ = constructSettingsGtkScrolledWindowPlacement + +-- VVV Prop "gtk-shell-shows-app-menu" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-shell-shows-app-menu" + attrGet _ = getSettingsGtkShellShowsAppMenu + attrSet _ = setSettingsGtkShellShowsAppMenu + attrConstruct _ = constructSettingsGtkShellShowsAppMenu + +-- VVV Prop "gtk-shell-shows-desktop" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-shell-shows-desktop" + attrGet _ = getSettingsGtkShellShowsDesktop + attrSet _ = setSettingsGtkShellShowsDesktop + attrConstruct _ = constructSettingsGtkShellShowsDesktop + +-- VVV Prop "gtk-shell-shows-menubar" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-shell-shows-menubar" + attrGet _ = getSettingsGtkShellShowsMenubar + attrSet _ = setSettingsGtkShellShowsMenubar + attrConstruct _ = constructSettingsGtkShellShowsMenubar + +-- VVV Prop "gtk-show-input-method-menu" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-show-input-method-menu" + attrGet _ = getSettingsGtkShowInputMethodMenu + attrSet _ = setSettingsGtkShowInputMethodMenu + attrConstruct _ = constructSettingsGtkShowInputMethodMenu + +-- VVV Prop "gtk-show-unicode-menu" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-show-unicode-menu" + attrGet _ = getSettingsGtkShowUnicodeMenu + attrSet _ = setSettingsGtkShowUnicodeMenu + attrConstruct _ = constructSettingsGtkShowUnicodeMenu + +-- VVV Prop "gtk-sound-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkSoundThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkSoundThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkSoundThemeName val = constructObjectPropertyString "gtk-sound-theme-name" val + +data SettingsGtkSoundThemeNamePropertyInfo +instance AttrInfo SettingsGtkSoundThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkSoundThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkSoundThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkSoundThemeNamePropertyInfo = T.Text + type AttrLabel SettingsGtkSoundThemeNamePropertyInfo = "Settings::gtk-sound-theme-name" + attrGet _ = getSettingsGtkSoundThemeName + attrSet _ = setSettingsGtkSoundThemeName + attrConstruct _ = constructSettingsGtkSoundThemeName + +-- VVV Prop "gtk-split-cursor" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-split-cursor" + attrGet _ = getSettingsGtkSplitCursor + attrSet _ = setSettingsGtkSplitCursor + attrConstruct _ = constructSettingsGtkSplitCursor + +-- VVV Prop "gtk-theme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkThemeName :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkThemeName :: T.Text -> IO ([Char], GValue) +constructSettingsGtkThemeName val = constructObjectPropertyString "gtk-theme-name" val + +data SettingsGtkThemeNamePropertyInfo +instance AttrInfo SettingsGtkThemeNamePropertyInfo where + type AttrAllowedOps SettingsGtkThemeNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkThemeNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkThemeNamePropertyInfo = SettingsK + type AttrGetType SettingsGtkThemeNamePropertyInfo = T.Text + type AttrLabel SettingsGtkThemeNamePropertyInfo = "Settings::gtk-theme-name" + attrGet _ = getSettingsGtkThemeName + attrSet _ = setSettingsGtkThemeName + attrConstruct _ = constructSettingsGtkThemeName + +-- VVV Prop "gtk-timeout-expand" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTimeoutExpand obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-expand" + +setSettingsGtkTimeoutExpand :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTimeoutExpand obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-expand" val + +constructSettingsGtkTimeoutExpand :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTimeoutExpand val = constructObjectPropertyCInt "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 = "Settings::gtk-timeout-expand" + attrGet _ = getSettingsGtkTimeoutExpand + attrSet _ = setSettingsGtkTimeoutExpand + attrConstruct _ = constructSettingsGtkTimeoutExpand + +-- VVV Prop "gtk-timeout-initial" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTimeoutInitial obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-initial" + +setSettingsGtkTimeoutInitial :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTimeoutInitial obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-initial" val + +constructSettingsGtkTimeoutInitial :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTimeoutInitial val = constructObjectPropertyCInt "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 = "Settings::gtk-timeout-initial" + attrGet _ = getSettingsGtkTimeoutInitial + attrSet _ = setSettingsGtkTimeoutInitial + attrConstruct _ = constructSettingsGtkTimeoutInitial + +-- VVV Prop "gtk-timeout-repeat" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTimeoutRepeat obj = liftIO $ getObjectPropertyCInt obj "gtk-timeout-repeat" + +setSettingsGtkTimeoutRepeat :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTimeoutRepeat obj val = liftIO $ setObjectPropertyCInt obj "gtk-timeout-repeat" val + +constructSettingsGtkTimeoutRepeat :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTimeoutRepeat val = constructObjectPropertyCInt "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 = "Settings::gtk-timeout-repeat" + attrGet _ = getSettingsGtkTimeoutRepeat + attrSet _ = setSettingsGtkTimeoutRepeat + attrConstruct _ = constructSettingsGtkTimeoutRepeat + +-- VVV Prop "gtk-titlebar-double-click" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTitlebarDoubleClick :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkTitlebarDoubleClick :: T.Text -> IO ([Char], GValue) +constructSettingsGtkTitlebarDoubleClick val = constructObjectPropertyString "gtk-titlebar-double-click" val + +data SettingsGtkTitlebarDoubleClickPropertyInfo +instance AttrInfo SettingsGtkTitlebarDoubleClickPropertyInfo where + type AttrAllowedOps SettingsGtkTitlebarDoubleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkTitlebarDoubleClickPropertyInfo = SettingsK + type AttrGetType SettingsGtkTitlebarDoubleClickPropertyInfo = T.Text + type AttrLabel SettingsGtkTitlebarDoubleClickPropertyInfo = "Settings::gtk-titlebar-double-click" + attrGet _ = getSettingsGtkTitlebarDoubleClick + attrSet _ = setSettingsGtkTitlebarDoubleClick + attrConstruct _ = constructSettingsGtkTitlebarDoubleClick + +-- VVV Prop "gtk-titlebar-middle-click" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTitlebarMiddleClick :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkTitlebarMiddleClick :: T.Text -> IO ([Char], GValue) +constructSettingsGtkTitlebarMiddleClick val = constructObjectPropertyString "gtk-titlebar-middle-click" val + +data SettingsGtkTitlebarMiddleClickPropertyInfo +instance AttrInfo SettingsGtkTitlebarMiddleClickPropertyInfo where + type AttrAllowedOps SettingsGtkTitlebarMiddleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkTitlebarMiddleClickPropertyInfo = SettingsK + type AttrGetType SettingsGtkTitlebarMiddleClickPropertyInfo = T.Text + type AttrLabel SettingsGtkTitlebarMiddleClickPropertyInfo = "Settings::gtk-titlebar-middle-click" + attrGet _ = getSettingsGtkTitlebarMiddleClick + attrSet _ = setSettingsGtkTitlebarMiddleClick + attrConstruct _ = constructSettingsGtkTitlebarMiddleClick + +-- VVV Prop "gtk-titlebar-right-click" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTitlebarRightClick :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkTitlebarRightClick :: T.Text -> IO ([Char], GValue) +constructSettingsGtkTitlebarRightClick val = constructObjectPropertyString "gtk-titlebar-right-click" val + +data SettingsGtkTitlebarRightClickPropertyInfo +instance AttrInfo SettingsGtkTitlebarRightClickPropertyInfo where + type AttrAllowedOps SettingsGtkTitlebarRightClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkTitlebarRightClickPropertyInfo = SettingsK + type AttrGetType SettingsGtkTitlebarRightClickPropertyInfo = T.Text + type AttrLabel SettingsGtkTitlebarRightClickPropertyInfo = "Settings::gtk-titlebar-right-click" + attrGet _ = getSettingsGtkTitlebarRightClick + attrSet _ = setSettingsGtkTitlebarRightClick + attrConstruct _ = constructSettingsGtkTitlebarRightClick + +-- VVV Prop "gtk-toolbar-icon-size" + -- Type: TInterface "Gtk" "IconSize" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-toolbar-icon-size" + attrGet _ = getSettingsGtkToolbarIconSize + attrSet _ = setSettingsGtkToolbarIconSize + attrConstruct _ = constructSettingsGtkToolbarIconSize + +-- VVV Prop "gtk-toolbar-style" + -- Type: TInterface "Gtk" "ToolbarStyle" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-toolbar-style" + attrGet _ = getSettingsGtkToolbarStyle + attrSet _ = setSettingsGtkToolbarStyle + attrConstruct _ = constructSettingsGtkToolbarStyle + +-- VVV Prop "gtk-tooltip-browse-mode-timeout" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTooltipBrowseModeTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-browse-mode-timeout" + +setSettingsGtkTooltipBrowseModeTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTooltipBrowseModeTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-browse-mode-timeout" val + +constructSettingsGtkTooltipBrowseModeTimeout :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTooltipBrowseModeTimeout val = constructObjectPropertyCInt "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 = "Settings::gtk-tooltip-browse-mode-timeout" + attrGet _ = getSettingsGtkTooltipBrowseModeTimeout + attrSet _ = setSettingsGtkTooltipBrowseModeTimeout + attrConstruct _ = constructSettingsGtkTooltipBrowseModeTimeout + +-- VVV Prop "gtk-tooltip-browse-timeout" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTooltipBrowseTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-browse-timeout" + +setSettingsGtkTooltipBrowseTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTooltipBrowseTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-browse-timeout" val + +constructSettingsGtkTooltipBrowseTimeout :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTooltipBrowseTimeout val = constructObjectPropertyCInt "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 = "Settings::gtk-tooltip-browse-timeout" + attrGet _ = getSettingsGtkTooltipBrowseTimeout + attrSet _ = setSettingsGtkTooltipBrowseTimeout + attrConstruct _ = constructSettingsGtkTooltipBrowseTimeout + +-- VVV Prop "gtk-tooltip-timeout" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkTooltipTimeout obj = liftIO $ getObjectPropertyCInt obj "gtk-tooltip-timeout" + +setSettingsGtkTooltipTimeout :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkTooltipTimeout obj val = liftIO $ setObjectPropertyCInt obj "gtk-tooltip-timeout" val + +constructSettingsGtkTooltipTimeout :: Int32 -> IO ([Char], GValue) +constructSettingsGtkTooltipTimeout val = constructObjectPropertyCInt "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 = "Settings::gtk-tooltip-timeout" + attrGet _ = getSettingsGtkTooltipTimeout + attrSet _ = setSettingsGtkTooltipTimeout + attrConstruct _ = constructSettingsGtkTooltipTimeout + +-- VVV Prop "gtk-touchscreen-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-touchscreen-mode" + attrGet _ = getSettingsGtkTouchscreenMode + attrSet _ = setSettingsGtkTouchscreenMode + attrConstruct _ = constructSettingsGtkTouchscreenMode + +-- VVV Prop "gtk-visible-focus" + -- Type: TInterface "Gtk" "PolicyType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Settings::gtk-visible-focus" + attrGet _ = getSettingsGtkVisibleFocus + attrSet _ = setSettingsGtkVisibleFocus + attrConstruct _ = constructSettingsGtkVisibleFocus + +-- VVV Prop "gtk-xft-antialias" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkXftAntialias obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-antialias" + +setSettingsGtkXftAntialias :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkXftAntialias obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-antialias" val + +constructSettingsGtkXftAntialias :: Int32 -> IO ([Char], GValue) +constructSettingsGtkXftAntialias val = constructObjectPropertyCInt "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 = "Settings::gtk-xft-antialias" + attrGet _ = getSettingsGtkXftAntialias + attrSet _ = setSettingsGtkXftAntialias + attrConstruct _ = constructSettingsGtkXftAntialias + +-- VVV Prop "gtk-xft-dpi" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkXftDpi obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-dpi" + +setSettingsGtkXftDpi :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkXftDpi obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-dpi" val + +constructSettingsGtkXftDpi :: Int32 -> IO ([Char], GValue) +constructSettingsGtkXftDpi val = constructObjectPropertyCInt "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 = "Settings::gtk-xft-dpi" + attrGet _ = getSettingsGtkXftDpi + attrSet _ = setSettingsGtkXftDpi + attrConstruct _ = constructSettingsGtkXftDpi + +-- VVV Prop "gtk-xft-hinting" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> m Int32 +getSettingsGtkXftHinting obj = liftIO $ getObjectPropertyCInt obj "gtk-xft-hinting" + +setSettingsGtkXftHinting :: (MonadIO m, SettingsK o) => o -> Int32 -> m () +setSettingsGtkXftHinting obj val = liftIO $ setObjectPropertyCInt obj "gtk-xft-hinting" val + +constructSettingsGtkXftHinting :: Int32 -> IO ([Char], GValue) +constructSettingsGtkXftHinting val = constructObjectPropertyCInt "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 = "Settings::gtk-xft-hinting" + attrGet _ = getSettingsGtkXftHinting + attrSet _ = setSettingsGtkXftHinting + attrConstruct _ = constructSettingsGtkXftHinting + +-- VVV Prop "gtk-xft-hintstyle" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkXftHintstyle :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkXftHintstyle :: T.Text -> IO ([Char], GValue) +constructSettingsGtkXftHintstyle val = constructObjectPropertyString "gtk-xft-hintstyle" val + +data SettingsGtkXftHintstylePropertyInfo +instance AttrInfo SettingsGtkXftHintstylePropertyInfo where + type AttrAllowedOps SettingsGtkXftHintstylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkXftHintstylePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkXftHintstylePropertyInfo = SettingsK + type AttrGetType SettingsGtkXftHintstylePropertyInfo = T.Text + type AttrLabel SettingsGtkXftHintstylePropertyInfo = "Settings::gtk-xft-hintstyle" + attrGet _ = getSettingsGtkXftHintstyle + attrSet _ = setSettingsGtkXftHintstyle + attrConstruct _ = constructSettingsGtkXftHintstyle + +-- VVV Prop "gtk-xft-rgba" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSettingsGtkXftRgba :: (MonadIO m, SettingsK o) => o -> m 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" val + +constructSettingsGtkXftRgba :: T.Text -> IO ([Char], GValue) +constructSettingsGtkXftRgba val = constructObjectPropertyString "gtk-xft-rgba" val + +data SettingsGtkXftRgbaPropertyInfo +instance AttrInfo SettingsGtkXftRgbaPropertyInfo where + type AttrAllowedOps SettingsGtkXftRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SettingsGtkXftRgbaPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SettingsGtkXftRgbaPropertyInfo = SettingsK + type AttrGetType SettingsGtkXftRgbaPropertyInfo = T.Text + type AttrLabel SettingsGtkXftRgbaPropertyInfo = "Settings::gtk-xft-rgba" + attrGet _ = getSettingsGtkXftRgba + attrSet _ = setSettingsGtkXftRgba + attrConstruct _ = constructSettingsGtkXftRgba + +type instance AttributeList Settings = '[ '("color-hash", SettingsColorHashPropertyInfo), '("gtk-alternative-button-order", SettingsGtkAlternativeButtonOrderPropertyInfo), '("gtk-alternative-sort-arrows", SettingsGtkAlternativeSortArrowsPropertyInfo), '("gtk-application-prefer-dark-theme", SettingsGtkApplicationPreferDarkThemePropertyInfo), '("gtk-auto-mnemonics", SettingsGtkAutoMnemonicsPropertyInfo), '("gtk-button-images", SettingsGtkButtonImagesPropertyInfo), '("gtk-can-change-accels", SettingsGtkCanChangeAccelsPropertyInfo), '("gtk-color-palette", SettingsGtkColorPalettePropertyInfo), '("gtk-color-scheme", SettingsGtkColorSchemePropertyInfo), '("gtk-cursor-blink", SettingsGtkCursorBlinkPropertyInfo), '("gtk-cursor-blink-time", SettingsGtkCursorBlinkTimePropertyInfo), '("gtk-cursor-blink-timeout", SettingsGtkCursorBlinkTimeoutPropertyInfo), '("gtk-cursor-theme-name", SettingsGtkCursorThemeNamePropertyInfo), '("gtk-cursor-theme-size", SettingsGtkCursorThemeSizePropertyInfo), '("gtk-decoration-layout", SettingsGtkDecorationLayoutPropertyInfo), '("gtk-dialogs-use-header", SettingsGtkDialogsUseHeaderPropertyInfo), '("gtk-dnd-drag-threshold", SettingsGtkDndDragThresholdPropertyInfo), '("gtk-double-click-distance", SettingsGtkDoubleClickDistancePropertyInfo), '("gtk-double-click-time", SettingsGtkDoubleClickTimePropertyInfo), '("gtk-enable-accels", SettingsGtkEnableAccelsPropertyInfo), '("gtk-enable-animations", SettingsGtkEnableAnimationsPropertyInfo), '("gtk-enable-event-sounds", SettingsGtkEnableEventSoundsPropertyInfo), '("gtk-enable-input-feedback-sounds", SettingsGtkEnableInputFeedbackSoundsPropertyInfo), '("gtk-enable-mnemonics", SettingsGtkEnableMnemonicsPropertyInfo), '("gtk-enable-primary-paste", SettingsGtkEnablePrimaryPastePropertyInfo), '("gtk-enable-tooltips", SettingsGtkEnableTooltipsPropertyInfo), '("gtk-entry-password-hint-timeout", SettingsGtkEntryPasswordHintTimeoutPropertyInfo), '("gtk-entry-select-on-focus", SettingsGtkEntrySelectOnFocusPropertyInfo), '("gtk-error-bell", SettingsGtkErrorBellPropertyInfo), '("gtk-fallback-icon-theme", SettingsGtkFallbackIconThemePropertyInfo), '("gtk-file-chooser-backend", SettingsGtkFileChooserBackendPropertyInfo), '("gtk-font-name", SettingsGtkFontNamePropertyInfo), '("gtk-fontconfig-timestamp", SettingsGtkFontconfigTimestampPropertyInfo), '("gtk-icon-sizes", SettingsGtkIconSizesPropertyInfo), '("gtk-icon-theme-name", SettingsGtkIconThemeNamePropertyInfo), '("gtk-im-module", SettingsGtkImModulePropertyInfo), '("gtk-im-preedit-style", SettingsGtkImPreeditStylePropertyInfo), '("gtk-im-status-style", SettingsGtkImStatusStylePropertyInfo), '("gtk-key-theme-name", SettingsGtkKeyThemeNamePropertyInfo), '("gtk-keynav-cursor-only", SettingsGtkKeynavCursorOnlyPropertyInfo), '("gtk-keynav-wrap-around", SettingsGtkKeynavWrapAroundPropertyInfo), '("gtk-label-select-on-focus", SettingsGtkLabelSelectOnFocusPropertyInfo), '("gtk-long-press-time", SettingsGtkLongPressTimePropertyInfo), '("gtk-menu-bar-accel", SettingsGtkMenuBarAccelPropertyInfo), '("gtk-menu-bar-popup-delay", SettingsGtkMenuBarPopupDelayPropertyInfo), '("gtk-menu-images", SettingsGtkMenuImagesPropertyInfo), '("gtk-menu-popdown-delay", SettingsGtkMenuPopdownDelayPropertyInfo), '("gtk-menu-popup-delay", SettingsGtkMenuPopupDelayPropertyInfo), '("gtk-modules", SettingsGtkModulesPropertyInfo), '("gtk-primary-button-warps-slider", SettingsGtkPrimaryButtonWarpsSliderPropertyInfo), '("gtk-print-backends", SettingsGtkPrintBackendsPropertyInfo), '("gtk-print-preview-command", SettingsGtkPrintPreviewCommandPropertyInfo), '("gtk-recent-files-enabled", SettingsGtkRecentFilesEnabledPropertyInfo), '("gtk-recent-files-limit", SettingsGtkRecentFilesLimitPropertyInfo), '("gtk-recent-files-max-age", SettingsGtkRecentFilesMaxAgePropertyInfo), '("gtk-scrolled-window-placement", SettingsGtkScrolledWindowPlacementPropertyInfo), '("gtk-shell-shows-app-menu", SettingsGtkShellShowsAppMenuPropertyInfo), '("gtk-shell-shows-desktop", SettingsGtkShellShowsDesktopPropertyInfo), '("gtk-shell-shows-menubar", SettingsGtkShellShowsMenubarPropertyInfo), '("gtk-show-input-method-menu", SettingsGtkShowInputMethodMenuPropertyInfo), '("gtk-show-unicode-menu", SettingsGtkShowUnicodeMenuPropertyInfo), '("gtk-sound-theme-name", SettingsGtkSoundThemeNamePropertyInfo), '("gtk-split-cursor", SettingsGtkSplitCursorPropertyInfo), '("gtk-theme-name", SettingsGtkThemeNamePropertyInfo), '("gtk-timeout-expand", SettingsGtkTimeoutExpandPropertyInfo), '("gtk-timeout-initial", SettingsGtkTimeoutInitialPropertyInfo), '("gtk-timeout-repeat", SettingsGtkTimeoutRepeatPropertyInfo), '("gtk-titlebar-double-click", SettingsGtkTitlebarDoubleClickPropertyInfo), '("gtk-titlebar-middle-click", SettingsGtkTitlebarMiddleClickPropertyInfo), '("gtk-titlebar-right-click", SettingsGtkTitlebarRightClickPropertyInfo), '("gtk-toolbar-icon-size", SettingsGtkToolbarIconSizePropertyInfo), '("gtk-toolbar-style", SettingsGtkToolbarStylePropertyInfo), '("gtk-tooltip-browse-mode-timeout", SettingsGtkTooltipBrowseModeTimeoutPropertyInfo), '("gtk-tooltip-browse-timeout", SettingsGtkTooltipBrowseTimeoutPropertyInfo), '("gtk-tooltip-timeout", SettingsGtkTooltipTimeoutPropertyInfo), '("gtk-touchscreen-mode", SettingsGtkTouchscreenModePropertyInfo), '("gtk-visible-focus", SettingsGtkVisibleFocusPropertyInfo), '("gtk-xft-antialias", SettingsGtkXftAntialiasPropertyInfo), '("gtk-xft-dpi", SettingsGtkXftDpiPropertyInfo), '("gtk-xft-hinting", SettingsGtkXftHintingPropertyInfo), '("gtk-xft-hintstyle", SettingsGtkXftHintstylePropertyInfo), '("gtk-xft-rgba", SettingsGtkXftRgbaPropertyInfo)] + +-- VVV Prop "ignore-hidden" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SizeGroup::ignore-hidden" + attrGet _ = getSizeGroupIgnoreHidden + attrSet _ = setSizeGroupIgnoreHidden + attrConstruct _ = constructSizeGroupIgnoreHidden + +-- VVV Prop "mode" + -- Type: TInterface "Gtk" "SizeGroupMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SizeGroup::mode" + attrGet _ = getSizeGroupMode + attrSet _ = setSizeGroupMode + attrConstruct _ = constructSizeGroupMode + +type instance AttributeList SizeGroup = '[ '("ignore-hidden", SizeGroupIgnoreHiddenPropertyInfo), '("mode", SizeGroupModePropertyInfo)] + +type instance AttributeList Socket = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "adjustment" + -- Type: TInterface "Gtk" "Adjustment" + -- Flags: [PropertyReadable,PropertyWritable] + +getSpinButtonAdjustment :: (MonadIO m, SpinButtonK o) => o -> m Adjustment +getSpinButtonAdjustment obj = liftIO $ getObjectPropertyObject obj "adjustment" Adjustment + +setSpinButtonAdjustment :: (MonadIO m, SpinButtonK o, AdjustmentK a) => o -> a -> m () +setSpinButtonAdjustment obj val = liftIO $ setObjectPropertyObject obj "adjustment" val + +constructSpinButtonAdjustment :: (AdjustmentK a) => a -> IO ([Char], GValue) +constructSpinButtonAdjustment val = constructObjectPropertyObject "adjustment" 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 = "SpinButton::adjustment" + attrGet _ = getSpinButtonAdjustment + attrSet _ = setSpinButtonAdjustment + attrConstruct _ = constructSpinButtonAdjustment + +-- VVV Prop "climb-rate" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SpinButton::climb-rate" + attrGet _ = getSpinButtonClimbRate + attrSet _ = setSpinButtonClimbRate + attrConstruct _ = constructSpinButtonClimbRate + +-- VVV Prop "digits" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> m Word32 +getSpinButtonDigits obj = liftIO $ getObjectPropertyCUInt obj "digits" + +setSpinButtonDigits :: (MonadIO m, SpinButtonK o) => o -> Word32 -> m () +setSpinButtonDigits obj val = liftIO $ setObjectPropertyCUInt obj "digits" val + +constructSpinButtonDigits :: Word32 -> IO ([Char], GValue) +constructSpinButtonDigits val = constructObjectPropertyCUInt "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 = "SpinButton::digits" + attrGet _ = getSpinButtonDigits + attrSet _ = setSpinButtonDigits + attrConstruct _ = constructSpinButtonDigits + +-- VVV Prop "numeric" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SpinButton::numeric" + attrGet _ = getSpinButtonNumeric + attrSet _ = setSpinButtonNumeric + attrConstruct _ = constructSpinButtonNumeric + +-- VVV Prop "snap-to-ticks" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SpinButton::snap-to-ticks" + attrGet _ = getSpinButtonSnapToTicks + attrSet _ = setSpinButtonSnapToTicks + attrConstruct _ = constructSpinButtonSnapToTicks + +-- VVV Prop "update-policy" + -- Type: TInterface "Gtk" "SpinButtonUpdatePolicy" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SpinButton::update-policy" + attrGet _ = getSpinButtonUpdatePolicy + attrSet _ = setSpinButtonUpdatePolicy + attrConstruct _ = constructSpinButtonUpdatePolicy + +-- VVV Prop "value" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SpinButton::value" + attrGet _ = getSpinButtonValue + attrSet _ = setSpinButtonValue + attrConstruct _ = constructSpinButtonValue + +-- VVV Prop "wrap" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "SpinButton::wrap" + attrGet _ = getSpinButtonWrap + attrSet _ = setSpinButtonWrap + attrConstruct _ = constructSpinButtonWrap + +type instance AttributeList SpinButton = '[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("adjustment", SpinButtonAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("climb-rate", SpinButtonClimbRatePropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("digits", SpinButtonDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("numeric", SpinButtonNumericPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("snap-to-ticks", SpinButtonSnapToTicksPropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("update-policy", SpinButtonUpdatePolicyPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", SpinButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap", SpinButtonWrapPropertyInfo), '("xalign", EntryXalignPropertyInfo)] + +type instance AttributeList SpinButtonAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Spinner::active" + attrGet _ = getSpinnerActive + attrSet _ = setSpinnerActive + attrConstruct _ = constructSpinnerActive + +type instance AttributeList Spinner = '[ '("active", SpinnerActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList SpinnerAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "hhomogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Stack::hhomogeneous" + attrGet _ = getStackHhomogeneous + attrSet _ = setStackHhomogeneous + attrConstruct _ = constructStackHhomogeneous + +-- VVV Prop "homogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Stack::homogeneous" + attrGet _ = getStackHomogeneous + attrSet _ = setStackHomogeneous + attrConstruct _ = constructStackHomogeneous + +-- VVV Prop "interpolate-size" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Stack::interpolate-size" + attrGet _ = getStackInterpolateSize + attrSet _ = setStackInterpolateSize + attrConstruct _ = constructStackInterpolateSize + +-- VVV Prop "transition-duration" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getStackTransitionDuration :: (MonadIO m, StackK o) => o -> m Word32 +getStackTransitionDuration obj = liftIO $ getObjectPropertyCUInt obj "transition-duration" + +setStackTransitionDuration :: (MonadIO m, StackK o) => o -> Word32 -> m () +setStackTransitionDuration obj val = liftIO $ setObjectPropertyCUInt obj "transition-duration" val + +constructStackTransitionDuration :: Word32 -> IO ([Char], GValue) +constructStackTransitionDuration val = constructObjectPropertyCUInt "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 = "Stack::transition-duration" + attrGet _ = getStackTransitionDuration + attrSet _ = setStackTransitionDuration + attrConstruct _ = constructStackTransitionDuration + +-- VVV Prop "transition-running" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "Stack::transition-running" + attrGet _ = getStackTransitionRunning + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "transition-type" + -- Type: TInterface "Gtk" "StackTransitionType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Stack::transition-type" + attrGet _ = getStackTransitionType + attrSet _ = setStackTransitionType + attrConstruct _ = constructStackTransitionType + +-- VVV Prop "vhomogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "Stack::vhomogeneous" + attrGet _ = getStackVhomogeneous + attrSet _ = setStackVhomogeneous + attrConstruct _ = constructStackVhomogeneous + +-- VVV Prop "visible-child" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getStackVisibleChild :: (MonadIO m, StackK o) => o -> m Widget +getStackVisibleChild obj = liftIO $ getObjectPropertyObject obj "visible-child" Widget + +setStackVisibleChild :: (MonadIO m, StackK o, WidgetK a) => o -> a -> m () +setStackVisibleChild obj val = liftIO $ setObjectPropertyObject obj "visible-child" val + +constructStackVisibleChild :: (WidgetK a) => a -> IO ([Char], GValue) +constructStackVisibleChild val = constructObjectPropertyObject "visible-child" 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 = "Stack::visible-child" + attrGet _ = getStackVisibleChild + attrSet _ = setStackVisibleChild + attrConstruct _ = constructStackVisibleChild + +-- VVV Prop "visible-child-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getStackVisibleChildName :: (MonadIO m, StackK o) => o -> m T.Text +getStackVisibleChildName obj = liftIO $ getObjectPropertyString obj "visible-child-name" + +setStackVisibleChildName :: (MonadIO m, StackK o) => o -> T.Text -> m () +setStackVisibleChildName obj val = liftIO $ setObjectPropertyString obj "visible-child-name" val + +constructStackVisibleChildName :: T.Text -> IO ([Char], GValue) +constructStackVisibleChildName val = constructObjectPropertyString "visible-child-name" 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 = "Stack::visible-child-name" + attrGet _ = getStackVisibleChildName + attrSet _ = setStackVisibleChildName + attrConstruct _ = constructStackVisibleChildName + +type instance AttributeList Stack = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hhomogeneous", StackHhomogeneousPropertyInfo), '("homogeneous", StackHomogeneousPropertyInfo), '("interpolate-size", StackInterpolateSizePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transition-duration", StackTransitionDurationPropertyInfo), '("transition-running", StackTransitionRunningPropertyInfo), '("transition-type", StackTransitionTypePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("vhomogeneous", StackVhomogeneousPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-child", StackVisibleChildPropertyInfo), '("visible-child-name", StackVisibleChildNamePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "stack" + -- Type: TInterface "Gtk" "Stack" + -- Flags: [PropertyReadable,PropertyWritable] + +getStackSidebarStack :: (MonadIO m, StackSidebarK o) => o -> m 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" val + +constructStackSidebarStack :: (StackK a) => a -> IO ([Char], GValue) +constructStackSidebarStack val = constructObjectPropertyObject "stack" val + +data StackSidebarStackPropertyInfo +instance AttrInfo StackSidebarStackPropertyInfo where + type AttrAllowedOps StackSidebarStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StackSidebarStackPropertyInfo = StackK + type AttrBaseTypeConstraint StackSidebarStackPropertyInfo = StackSidebarK + type AttrGetType StackSidebarStackPropertyInfo = Stack + type AttrLabel StackSidebarStackPropertyInfo = "StackSidebar::stack" + attrGet _ = getStackSidebarStack + attrSet _ = setStackSidebarStack + attrConstruct _ = constructStackSidebarStack + +type instance AttributeList StackSidebar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stack", StackSidebarStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "stack" + -- Type: TInterface "Gtk" "Stack" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getStackSwitcherStack :: (MonadIO m, StackSwitcherK o) => o -> m Stack +getStackSwitcherStack obj = liftIO $ getObjectPropertyObject obj "stack" Stack + +setStackSwitcherStack :: (MonadIO m, StackSwitcherK o, StackK a) => o -> a -> m () +setStackSwitcherStack obj val = liftIO $ setObjectPropertyObject obj "stack" val + +constructStackSwitcherStack :: (StackK a) => a -> IO ([Char], GValue) +constructStackSwitcherStack val = constructObjectPropertyObject "stack" val + +data StackSwitcherStackPropertyInfo +instance AttrInfo StackSwitcherStackPropertyInfo where + type AttrAllowedOps StackSwitcherStackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StackSwitcherStackPropertyInfo = StackK + type AttrBaseTypeConstraint StackSwitcherStackPropertyInfo = StackSwitcherK + type AttrGetType StackSwitcherStackPropertyInfo = Stack + type AttrLabel StackSwitcherStackPropertyInfo = "StackSwitcher::stack" + attrGet _ = getStackSwitcherStack + attrSet _ = setStackSwitcherStack + attrConstruct _ = constructStackSwitcherStack + +type instance AttributeList StackSwitcher = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("stack", StackSwitcherStackPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "embedded" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "StatusIcon::embedded" + attrGet _ = getStatusIconEmbedded + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "file" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setStatusIconFile :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () +setStatusIconFile obj val = liftIO $ setObjectPropertyString obj "file" val + +constructStatusIconFile :: T.Text -> IO ([Char], GValue) +constructStatusIconFile val = constructObjectPropertyString "file" val + +data StatusIconFilePropertyInfo +instance AttrInfo StatusIconFilePropertyInfo where + type AttrAllowedOps StatusIconFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint StatusIconFilePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint StatusIconFilePropertyInfo = StatusIconK + type AttrGetType StatusIconFilePropertyInfo = () + type AttrLabel StatusIconFilePropertyInfo = "StatusIcon::file" + attrGet _ = undefined + attrSet _ = setStatusIconFile + attrConstruct _ = constructStatusIconFile + +-- VVV Prop "gicon" + -- Type: TInterface "Gio" "Icon" + -- Flags: [PropertyReadable,PropertyWritable] + +getStatusIconGicon :: (MonadIO m, StatusIconK o) => o -> m Gio.Icon +getStatusIconGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon + +setStatusIconGicon :: (MonadIO m, StatusIconK o, Gio.IconK a) => o -> a -> m () +setStatusIconGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" val + +constructStatusIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue) +constructStatusIconGicon val = constructObjectPropertyObject "gicon" val + +data StatusIconGiconPropertyInfo +instance AttrInfo StatusIconGiconPropertyInfo where + type AttrAllowedOps StatusIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StatusIconGiconPropertyInfo = Gio.IconK + type AttrBaseTypeConstraint StatusIconGiconPropertyInfo = StatusIconK + type AttrGetType StatusIconGiconPropertyInfo = Gio.Icon + type AttrLabel StatusIconGiconPropertyInfo = "StatusIcon::gicon" + attrGet _ = getStatusIconGicon + attrSet _ = setStatusIconGicon + attrConstruct _ = constructStatusIconGicon + +-- VVV Prop "has-tooltip" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "StatusIcon::has-tooltip" + attrGet _ = getStatusIconHasTooltip + attrSet _ = setStatusIconHasTooltip + attrConstruct _ = constructStatusIconHasTooltip + +-- VVV Prop "icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> m T.Text +getStatusIconIconName obj = liftIO $ getObjectPropertyString obj "icon-name" + +setStatusIconIconName :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () +setStatusIconIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val + +constructStatusIconIconName :: T.Text -> IO ([Char], GValue) +constructStatusIconIconName val = constructObjectPropertyString "icon-name" val + +data StatusIconIconNamePropertyInfo +instance AttrInfo StatusIconIconNamePropertyInfo where + type AttrAllowedOps StatusIconIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StatusIconIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint StatusIconIconNamePropertyInfo = StatusIconK + type AttrGetType StatusIconIconNamePropertyInfo = T.Text + type AttrLabel StatusIconIconNamePropertyInfo = "StatusIcon::icon-name" + attrGet _ = getStatusIconIconName + attrSet _ = setStatusIconIconName + attrConstruct _ = constructStatusIconIconName + +-- VVV Prop "orientation" + -- Type: TInterface "Gtk" "Orientation" + -- Flags: [PropertyReadable] + +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 = "StatusIcon::orientation" + attrGet _ = getStatusIconOrientation + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "pixbuf" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getStatusIconPixbuf :: (MonadIO m, StatusIconK o) => o -> m GdkPixbuf.Pixbuf +getStatusIconPixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf + +setStatusIconPixbuf :: (MonadIO m, StatusIconK o, GdkPixbuf.PixbufK a) => o -> a -> m () +setStatusIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" val + +constructStatusIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructStatusIconPixbuf val = constructObjectPropertyObject "pixbuf" val + +data StatusIconPixbufPropertyInfo +instance AttrInfo StatusIconPixbufPropertyInfo where + type AttrAllowedOps StatusIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StatusIconPixbufPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint StatusIconPixbufPropertyInfo = StatusIconK + type AttrGetType StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel StatusIconPixbufPropertyInfo = "StatusIcon::pixbuf" + attrGet _ = getStatusIconPixbuf + attrSet _ = setStatusIconPixbuf + attrConstruct _ = constructStatusIconPixbuf + +-- VVV Prop "screen" + -- Type: TInterface "Gdk" "Screen" + -- Flags: [PropertyReadable,PropertyWritable] + +getStatusIconScreen :: (MonadIO m, StatusIconK o) => o -> m Gdk.Screen +getStatusIconScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen + +setStatusIconScreen :: (MonadIO m, StatusIconK o, Gdk.ScreenK a) => o -> a -> m () +setStatusIconScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val + +constructStatusIconScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) +constructStatusIconScreen val = constructObjectPropertyObject "screen" 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 = "StatusIcon::screen" + attrGet _ = getStatusIconScreen + attrSet _ = setStatusIconScreen + attrConstruct _ = constructStatusIconScreen + +-- VVV Prop "size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getStatusIconSize :: (MonadIO m, StatusIconK o) => o -> m Int32 +getStatusIconSize obj = liftIO $ getObjectPropertyCInt 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 = "StatusIcon::size" + attrGet _ = getStatusIconSize + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "stock" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getStatusIconStock :: (MonadIO m, StatusIconK o) => o -> m T.Text +getStatusIconStock obj = liftIO $ getObjectPropertyString obj "stock" + +setStatusIconStock :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () +setStatusIconStock obj val = liftIO $ setObjectPropertyString obj "stock" val + +constructStatusIconStock :: T.Text -> IO ([Char], GValue) +constructStatusIconStock val = constructObjectPropertyString "stock" val + +data StatusIconStockPropertyInfo +instance AttrInfo StatusIconStockPropertyInfo where + type AttrAllowedOps StatusIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StatusIconStockPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint StatusIconStockPropertyInfo = StatusIconK + type AttrGetType StatusIconStockPropertyInfo = T.Text + type AttrLabel StatusIconStockPropertyInfo = "StatusIcon::stock" + attrGet _ = getStatusIconStock + attrSet _ = setStatusIconStock + attrConstruct _ = constructStatusIconStock + +-- VVV Prop "storage-type" + -- Type: TInterface "Gtk" "ImageType" + -- Flags: [PropertyReadable] + +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 = "StatusIcon::storage-type" + attrGet _ = getStatusIconStorageType + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getStatusIconTitle :: (MonadIO m, StatusIconK o) => o -> m T.Text +getStatusIconTitle obj = liftIO $ getObjectPropertyString obj "title" + +setStatusIconTitle :: (MonadIO m, StatusIconK o) => o -> T.Text -> m () +setStatusIconTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructStatusIconTitle :: T.Text -> IO ([Char], GValue) +constructStatusIconTitle val = constructObjectPropertyString "title" 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 = "StatusIcon::title" + attrGet _ = getStatusIconTitle + attrSet _ = setStatusIconTitle + attrConstruct _ = constructStatusIconTitle + +-- VVV Prop "tooltip-markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getStatusIconTooltipMarkup :: (MonadIO m, StatusIconK o) => o -> m 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" val + +constructStatusIconTooltipMarkup :: T.Text -> IO ([Char], GValue) +constructStatusIconTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val + +data StatusIconTooltipMarkupPropertyInfo +instance AttrInfo StatusIconTooltipMarkupPropertyInfo where + type AttrAllowedOps StatusIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StatusIconTooltipMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint StatusIconTooltipMarkupPropertyInfo = StatusIconK + type AttrGetType StatusIconTooltipMarkupPropertyInfo = T.Text + type AttrLabel StatusIconTooltipMarkupPropertyInfo = "StatusIcon::tooltip-markup" + attrGet _ = getStatusIconTooltipMarkup + attrSet _ = setStatusIconTooltipMarkup + attrConstruct _ = constructStatusIconTooltipMarkup + +-- VVV Prop "tooltip-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getStatusIconTooltipText :: (MonadIO m, StatusIconK o) => o -> m 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" val + +constructStatusIconTooltipText :: T.Text -> IO ([Char], GValue) +constructStatusIconTooltipText val = constructObjectPropertyString "tooltip-text" 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 = T.Text + type AttrLabel StatusIconTooltipTextPropertyInfo = "StatusIcon::tooltip-text" + attrGet _ = getStatusIconTooltipText + attrSet _ = setStatusIconTooltipText + attrConstruct _ = constructStatusIconTooltipText + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "StatusIcon::visible" + attrGet _ = getStatusIconVisible + attrSet _ = setStatusIconVisible + attrConstruct _ = constructStatusIconVisible + +type instance AttributeList StatusIcon = '[ '("embedded", StatusIconEmbeddedPropertyInfo), '("file", StatusIconFilePropertyInfo), '("gicon", StatusIconGiconPropertyInfo), '("has-tooltip", StatusIconHasTooltipPropertyInfo), '("icon-name", StatusIconIconNamePropertyInfo), '("orientation", StatusIconOrientationPropertyInfo), '("pixbuf", StatusIconPixbufPropertyInfo), '("screen", StatusIconScreenPropertyInfo), '("size", StatusIconSizePropertyInfo), '("stock", StatusIconStockPropertyInfo), '("storage-type", StatusIconStorageTypePropertyInfo), '("title", StatusIconTitlePropertyInfo), '("tooltip-markup", StatusIconTooltipMarkupPropertyInfo), '("tooltip-text", StatusIconTooltipTextPropertyInfo), '("visible", StatusIconVisiblePropertyInfo)] + +type instance AttributeList Statusbar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList StatusbarAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "context" + -- Type: TInterface "Gtk" "StyleContext" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getStyleContext :: (MonadIO m, StyleK o) => o -> m StyleContext +getStyleContext obj = liftIO $ getObjectPropertyObject obj "context" StyleContext + +constructStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue) +constructStyleContext val = constructObjectPropertyObject "context" val + +data StyleContextPropertyInfo +instance AttrInfo StyleContextPropertyInfo where + type AttrAllowedOps StyleContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StyleContextPropertyInfo = StyleContextK + type AttrBaseTypeConstraint StyleContextPropertyInfo = StyleK + type AttrGetType StyleContextPropertyInfo = StyleContext + type AttrLabel StyleContextPropertyInfo = "Style::context" + attrGet _ = getStyleContext + attrSet _ = undefined + attrConstruct _ = constructStyleContext + +type instance AttributeList Style = '[ '("context", StyleContextPropertyInfo)] + +-- VVV Prop "direction" + -- Type: TInterface "Gtk" "TextDirection" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "StyleContext::direction" + attrGet _ = getStyleContextDirection + attrSet _ = setStyleContextDirection + attrConstruct _ = constructStyleContextDirection + +-- VVV Prop "paint-clock" + -- Type: TInterface "Gdk" "FrameClock" + -- Flags: [PropertyReadable,PropertyWritable] + +getStyleContextPaintClock :: (MonadIO m, StyleContextK o) => o -> m 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" val + +constructStyleContextPaintClock :: (Gdk.FrameClockK a) => a -> IO ([Char], GValue) +constructStyleContextPaintClock val = constructObjectPropertyObject "paint-clock" val + +data StyleContextPaintClockPropertyInfo +instance AttrInfo StyleContextPaintClockPropertyInfo where + type AttrAllowedOps StyleContextPaintClockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StyleContextPaintClockPropertyInfo = Gdk.FrameClockK + type AttrBaseTypeConstraint StyleContextPaintClockPropertyInfo = StyleContextK + type AttrGetType StyleContextPaintClockPropertyInfo = Gdk.FrameClock + type AttrLabel StyleContextPaintClockPropertyInfo = "StyleContext::paint-clock" + attrGet _ = getStyleContextPaintClock + attrSet _ = setStyleContextPaintClock + attrConstruct _ = constructStyleContextPaintClock + +-- VVV Prop "parent" + -- Type: TInterface "Gtk" "StyleContext" + -- Flags: [PropertyReadable,PropertyWritable] + +getStyleContextParent :: (MonadIO m, StyleContextK o) => o -> m StyleContext +getStyleContextParent obj = liftIO $ getObjectPropertyObject obj "parent" StyleContext + +setStyleContextParent :: (MonadIO m, StyleContextK o, StyleContextK a) => o -> a -> m () +setStyleContextParent obj val = liftIO $ setObjectPropertyObject obj "parent" val + +constructStyleContextParent :: (StyleContextK a) => a -> IO ([Char], GValue) +constructStyleContextParent val = constructObjectPropertyObject "parent" val + +data StyleContextParentPropertyInfo +instance AttrInfo StyleContextParentPropertyInfo where + type AttrAllowedOps StyleContextParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint StyleContextParentPropertyInfo = StyleContextK + type AttrBaseTypeConstraint StyleContextParentPropertyInfo = StyleContextK + type AttrGetType StyleContextParentPropertyInfo = StyleContext + type AttrLabel StyleContextParentPropertyInfo = "StyleContext::parent" + attrGet _ = getStyleContextParent + attrSet _ = setStyleContextParent + attrConstruct _ = constructStyleContextParent + +-- VVV Prop "screen" + -- Type: TInterface "Gdk" "Screen" + -- Flags: [PropertyReadable,PropertyWritable] + +getStyleContextScreen :: (MonadIO m, StyleContextK o) => o -> m Gdk.Screen +getStyleContextScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen + +setStyleContextScreen :: (MonadIO m, StyleContextK o, Gdk.ScreenK a) => o -> a -> m () +setStyleContextScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val + +constructStyleContextScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) +constructStyleContextScreen val = constructObjectPropertyObject "screen" 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 = "StyleContext::screen" + attrGet _ = getStyleContextScreen + attrSet _ = setStyleContextScreen + attrConstruct _ = constructStyleContextScreen + +type instance AttributeList StyleContext = '[ '("direction", StyleContextDirectionPropertyInfo), '("paint-clock", StyleContextPaintClockPropertyInfo), '("parent", StyleContextParentPropertyInfo), '("screen", StyleContextScreenPropertyInfo)] + +type instance AttributeList StyleProperties = '[ ] + +type instance AttributeList StyleProvider = '[ ] + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Switch::active" + attrGet _ = getSwitchActive + attrSet _ = setSwitchActive + attrConstruct _ = constructSwitchActive + +-- VVV Prop "state" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Switch::state" + attrGet _ = getSwitchState + attrSet _ = setSwitchState + attrConstruct _ = constructSwitchState + +type instance AttributeList Switch = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", SwitchActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("state", SwitchStatePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList SwitchAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "column-spacing" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTableColumnSpacing :: (MonadIO m, TableK o) => o -> m Word32 +getTableColumnSpacing obj = liftIO $ getObjectPropertyCUInt obj "column-spacing" + +setTableColumnSpacing :: (MonadIO m, TableK o) => o -> Word32 -> m () +setTableColumnSpacing obj val = liftIO $ setObjectPropertyCUInt obj "column-spacing" val + +constructTableColumnSpacing :: Word32 -> IO ([Char], GValue) +constructTableColumnSpacing val = constructObjectPropertyCUInt "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 = "Table::column-spacing" + attrGet _ = getTableColumnSpacing + attrSet _ = setTableColumnSpacing + attrConstruct _ = constructTableColumnSpacing + +-- VVV Prop "homogeneous" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Table::homogeneous" + attrGet _ = getTableHomogeneous + attrSet _ = setTableHomogeneous + attrConstruct _ = constructTableHomogeneous + +-- VVV Prop "n-columns" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTableNColumns :: (MonadIO m, TableK o) => o -> m Word32 +getTableNColumns obj = liftIO $ getObjectPropertyCUInt obj "n-columns" + +setTableNColumns :: (MonadIO m, TableK o) => o -> Word32 -> m () +setTableNColumns obj val = liftIO $ setObjectPropertyCUInt obj "n-columns" val + +constructTableNColumns :: Word32 -> IO ([Char], GValue) +constructTableNColumns val = constructObjectPropertyCUInt "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 = "Table::n-columns" + attrGet _ = getTableNColumns + attrSet _ = setTableNColumns + attrConstruct _ = constructTableNColumns + +-- VVV Prop "n-rows" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTableNRows :: (MonadIO m, TableK o) => o -> m Word32 +getTableNRows obj = liftIO $ getObjectPropertyCUInt obj "n-rows" + +setTableNRows :: (MonadIO m, TableK o) => o -> Word32 -> m () +setTableNRows obj val = liftIO $ setObjectPropertyCUInt obj "n-rows" val + +constructTableNRows :: Word32 -> IO ([Char], GValue) +constructTableNRows val = constructObjectPropertyCUInt "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 = "Table::n-rows" + attrGet _ = getTableNRows + attrSet _ = setTableNRows + attrConstruct _ = constructTableNRows + +-- VVV Prop "row-spacing" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTableRowSpacing :: (MonadIO m, TableK o) => o -> m Word32 +getTableRowSpacing obj = liftIO $ getObjectPropertyCUInt obj "row-spacing" + +setTableRowSpacing :: (MonadIO m, TableK o) => o -> Word32 -> m () +setTableRowSpacing obj val = liftIO $ setObjectPropertyCUInt obj "row-spacing" val + +constructTableRowSpacing :: Word32 -> IO ([Char], GValue) +constructTableRowSpacing val = constructObjectPropertyCUInt "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 = "Table::row-spacing" + attrGet _ = getTableRowSpacing + attrSet _ = setTableRowSpacing + attrConstruct _ = constructTableRowSpacing + +type instance AttributeList Table = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("column-spacing", TableColumnSpacingPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", TableHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("n-columns", TableNColumnsPropertyInfo), '("n-rows", TableNRowsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("row-spacing", TableRowSpacingPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList TearoffMenuItem = '[ '("accel-path", MenuItemAccelPathPropertyInfo), '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", MenuItemLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-justified", MenuItemRightJustifiedPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("submenu", MenuItemSubmenuPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", MenuItemUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "copy-target-list" + -- Type: TInterface "Gtk" "TargetList" + -- Flags: [PropertyReadable] + +getTextBufferCopyTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList +getTextBufferCopyTargetList obj = liftIO $ getObjectPropertyBoxed obj "copy-target-list" TargetList + +data TextBufferCopyTargetListPropertyInfo +instance AttrInfo TextBufferCopyTargetListPropertyInfo where + type AttrAllowedOps TextBufferCopyTargetListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint TextBufferCopyTargetListPropertyInfo = (~) () + type AttrBaseTypeConstraint TextBufferCopyTargetListPropertyInfo = TextBufferK + type AttrGetType TextBufferCopyTargetListPropertyInfo = TargetList + type AttrLabel TextBufferCopyTargetListPropertyInfo = "TextBuffer::copy-target-list" + attrGet _ = getTextBufferCopyTargetList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "cursor-position" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getTextBufferCursorPosition :: (MonadIO m, TextBufferK o) => o -> m Int32 +getTextBufferCursorPosition obj = liftIO $ getObjectPropertyCInt 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 = "TextBuffer::cursor-position" + attrGet _ = getTextBufferCursorPosition + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "has-selection" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "TextBuffer::has-selection" + attrGet _ = getTextBufferHasSelection + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "paste-target-list" + -- Type: TInterface "Gtk" "TargetList" + -- Flags: [PropertyReadable] + +getTextBufferPasteTargetList :: (MonadIO m, TextBufferK o) => o -> m TargetList +getTextBufferPasteTargetList obj = liftIO $ getObjectPropertyBoxed obj "paste-target-list" TargetList + +data TextBufferPasteTargetListPropertyInfo +instance AttrInfo TextBufferPasteTargetListPropertyInfo where + type AttrAllowedOps TextBufferPasteTargetListPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint TextBufferPasteTargetListPropertyInfo = (~) () + type AttrBaseTypeConstraint TextBufferPasteTargetListPropertyInfo = TextBufferK + type AttrGetType TextBufferPasteTargetListPropertyInfo = TargetList + type AttrLabel TextBufferPasteTargetListPropertyInfo = "TextBuffer::paste-target-list" + attrGet _ = getTextBufferPasteTargetList + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "tag-table" + -- Type: TInterface "Gtk" "TextTagTable" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getTextBufferTagTable :: (MonadIO m, TextBufferK o) => o -> m TextTagTable +getTextBufferTagTable obj = liftIO $ getObjectPropertyObject obj "tag-table" TextTagTable + +constructTextBufferTagTable :: (TextTagTableK a) => a -> IO ([Char], GValue) +constructTextBufferTagTable val = constructObjectPropertyObject "tag-table" val + +data TextBufferTagTablePropertyInfo +instance AttrInfo TextBufferTagTablePropertyInfo where + type AttrAllowedOps TextBufferTagTablePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextBufferTagTablePropertyInfo = TextTagTableK + type AttrBaseTypeConstraint TextBufferTagTablePropertyInfo = TextBufferK + type AttrGetType TextBufferTagTablePropertyInfo = TextTagTable + type AttrLabel TextBufferTagTablePropertyInfo = "TextBuffer::tag-table" + attrGet _ = getTextBufferTagTable + attrSet _ = undefined + attrConstruct _ = constructTextBufferTagTable + +-- VVV Prop "text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextBufferText :: (MonadIO m, TextBufferK o) => o -> m T.Text +getTextBufferText obj = liftIO $ getObjectPropertyString obj "text" + +setTextBufferText :: (MonadIO m, TextBufferK o) => o -> T.Text -> m () +setTextBufferText obj val = liftIO $ setObjectPropertyString obj "text" val + +constructTextBufferText :: T.Text -> IO ([Char], GValue) +constructTextBufferText val = constructObjectPropertyString "text" val + +data TextBufferTextPropertyInfo +instance AttrInfo TextBufferTextPropertyInfo where + type AttrAllowedOps TextBufferTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextBufferTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextBufferTextPropertyInfo = TextBufferK + type AttrGetType TextBufferTextPropertyInfo = T.Text + type AttrLabel TextBufferTextPropertyInfo = "TextBuffer::text" + attrGet _ = getTextBufferText + attrSet _ = setTextBufferText + attrConstruct _ = constructTextBufferText + +type instance AttributeList TextBuffer = '[ '("copy-target-list", TextBufferCopyTargetListPropertyInfo), '("cursor-position", TextBufferCursorPositionPropertyInfo), '("has-selection", TextBufferHasSelectionPropertyInfo), '("paste-target-list", TextBufferPasteTargetListPropertyInfo), '("tag-table", TextBufferTagTablePropertyInfo), '("text", TextBufferTextPropertyInfo)] + +type instance AttributeList TextCellAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("renderer", RendererCellAccessibleRendererPropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList TextChildAnchor = '[ ] + +-- VVV Prop "left-gravity" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +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 = "TextMark::left-gravity" + attrGet _ = getTextMarkLeftGravity + attrSet _ = undefined + attrConstruct _ = constructTextMarkLeftGravity + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getTextMarkName :: (MonadIO m, TextMarkK o) => o -> m T.Text +getTextMarkName obj = liftIO $ getObjectPropertyString obj "name" + +constructTextMarkName :: T.Text -> IO ([Char], GValue) +constructTextMarkName val = constructObjectPropertyString "name" val + +data TextMarkNamePropertyInfo +instance AttrInfo TextMarkNamePropertyInfo where + type AttrAllowedOps TextMarkNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextMarkNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextMarkNamePropertyInfo = TextMarkK + type AttrGetType TextMarkNamePropertyInfo = T.Text + type AttrLabel TextMarkNamePropertyInfo = "TextMark::name" + attrGet _ = getTextMarkName + attrSet _ = undefined + attrConstruct _ = constructTextMarkName + +type instance AttributeList TextMark = '[ '("left-gravity", TextMarkLeftGravityPropertyInfo), '("name", TextMarkNamePropertyInfo)] + +-- VVV Prop "accumulative-margin" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::accumulative-margin" + attrGet _ = getTextTagAccumulativeMargin + attrSet _ = setTextTagAccumulativeMargin + attrConstruct _ = constructTextTagAccumulativeMargin + +-- VVV Prop "background" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setTextTagBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () +setTextTagBackground obj val = liftIO $ setObjectPropertyString obj "background" val + +constructTextTagBackground :: T.Text -> IO ([Char], GValue) +constructTextTagBackground val = constructObjectPropertyString "background" val + +data TextTagBackgroundPropertyInfo +instance AttrInfo TextTagBackgroundPropertyInfo where + type AttrAllowedOps TextTagBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint TextTagBackgroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextTagBackgroundPropertyInfo = TextTagK + type AttrGetType TextTagBackgroundPropertyInfo = () + type AttrLabel TextTagBackgroundPropertyInfo = "TextTag::background" + attrGet _ = undefined + attrSet _ = setTextTagBackground + attrConstruct _ = constructTextTagBackground + +-- VVV Prop "background-full-height" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::background-full-height" + attrGet _ = getTextTagBackgroundFullHeight + attrSet _ = setTextTagBackgroundFullHeight + attrConstruct _ = constructTextTagBackgroundFullHeight + +-- VVV Prop "background-full-height-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::background-full-height-set" + attrGet _ = getTextTagBackgroundFullHeightSet + attrSet _ = setTextTagBackgroundFullHeightSet + attrConstruct _ = constructTextTagBackgroundFullHeightSet + +-- VVV Prop "background-gdk" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) +constructTextTagBackgroundGdk val = constructObjectPropertyBoxed "background-gdk" val + +data TextTagBackgroundGdkPropertyInfo +instance AttrInfo TextTagBackgroundGdkPropertyInfo where + type AttrAllowedOps TextTagBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagBackgroundGdkPropertyInfo = (~) Gdk.Color + type AttrBaseTypeConstraint TextTagBackgroundGdkPropertyInfo = TextTagK + type AttrGetType TextTagBackgroundGdkPropertyInfo = Gdk.Color + type AttrLabel TextTagBackgroundGdkPropertyInfo = "TextTag::background-gdk" + attrGet _ = getTextTagBackgroundGdk + attrSet _ = setTextTagBackgroundGdk + attrConstruct _ = constructTextTagBackgroundGdk + +-- VVV Prop "background-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructTextTagBackgroundRgba val = constructObjectPropertyBoxed "background-rgba" val + +data TextTagBackgroundRgbaPropertyInfo +instance AttrInfo TextTagBackgroundRgbaPropertyInfo where + type AttrAllowedOps TextTagBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagBackgroundRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint TextTagBackgroundRgbaPropertyInfo = TextTagK + type AttrGetType TextTagBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrLabel TextTagBackgroundRgbaPropertyInfo = "TextTag::background-rgba" + attrGet _ = getTextTagBackgroundRgba + attrSet _ = setTextTagBackgroundRgba + attrConstruct _ = constructTextTagBackgroundRgba + +-- VVV Prop "background-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::background-set" + attrGet _ = getTextTagBackgroundSet + attrSet _ = setTextTagBackgroundSet + attrConstruct _ = constructTextTagBackgroundSet + +-- VVV Prop "direction" + -- Type: TInterface "Gtk" "TextDirection" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::direction" + attrGet _ = getTextTagDirection + attrSet _ = setTextTagDirection + attrConstruct _ = constructTextTagDirection + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::editable" + attrGet _ = getTextTagEditable + attrSet _ = setTextTagEditable + attrConstruct _ = constructTextTagEditable + +-- VVV Prop "editable-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::editable-set" + attrGet _ = getTextTagEditableSet + attrSet _ = setTextTagEditableSet + attrConstruct _ = constructTextTagEditableSet + +-- VVV Prop "fallback" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::fallback" + attrGet _ = getTextTagFallback + attrSet _ = setTextTagFallback + attrConstruct _ = constructTextTagFallback + +-- VVV Prop "fallback-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::fallback-set" + attrGet _ = getTextTagFallbackSet + attrSet _ = setTextTagFallbackSet + attrConstruct _ = constructTextTagFallbackSet + +-- VVV Prop "family" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagFamily :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagFamily obj = liftIO $ getObjectPropertyString obj "family" + +setTextTagFamily :: (MonadIO m, TextTagK o) => o -> T.Text -> m () +setTextTagFamily obj val = liftIO $ setObjectPropertyString obj "family" val + +constructTextTagFamily :: T.Text -> IO ([Char], GValue) +constructTextTagFamily val = constructObjectPropertyString "family" val + +data TextTagFamilyPropertyInfo +instance AttrInfo TextTagFamilyPropertyInfo where + type AttrAllowedOps TextTagFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagFamilyPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextTagFamilyPropertyInfo = TextTagK + type AttrGetType TextTagFamilyPropertyInfo = T.Text + type AttrLabel TextTagFamilyPropertyInfo = "TextTag::family" + attrGet _ = getTextTagFamily + attrSet _ = setTextTagFamily + attrConstruct _ = constructTextTagFamily + +-- VVV Prop "family-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::family-set" + attrGet _ = getTextTagFamilySet + attrSet _ = setTextTagFamilySet + attrConstruct _ = constructTextTagFamilySet + +-- VVV Prop "font" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagFont :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagFont obj = liftIO $ getObjectPropertyString obj "font" + +setTextTagFont :: (MonadIO m, TextTagK o) => o -> T.Text -> m () +setTextTagFont obj val = liftIO $ setObjectPropertyString obj "font" val + +constructTextTagFont :: T.Text -> IO ([Char], GValue) +constructTextTagFont val = constructObjectPropertyString "font" val + +data TextTagFontPropertyInfo +instance AttrInfo TextTagFontPropertyInfo where + type AttrAllowedOps TextTagFontPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagFontPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextTagFontPropertyInfo = TextTagK + type AttrGetType TextTagFontPropertyInfo = T.Text + type AttrLabel TextTagFontPropertyInfo = "TextTag::font" + attrGet _ = getTextTagFont + attrSet _ = setTextTagFont + attrConstruct _ = constructTextTagFont + +-- VVV Prop "font-desc" + -- Type: TInterface "Pango" "FontDescription" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagFontDesc :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagFontDesc :: Pango.FontDescription -> IO ([Char], GValue) +constructTextTagFontDesc val = constructObjectPropertyBoxed "font-desc" val + +data TextTagFontDescPropertyInfo +instance AttrInfo TextTagFontDescPropertyInfo where + type AttrAllowedOps TextTagFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagFontDescPropertyInfo = (~) Pango.FontDescription + type AttrBaseTypeConstraint TextTagFontDescPropertyInfo = TextTagK + type AttrGetType TextTagFontDescPropertyInfo = Pango.FontDescription + type AttrLabel TextTagFontDescPropertyInfo = "TextTag::font-desc" + attrGet _ = getTextTagFontDesc + attrSet _ = setTextTagFontDesc + attrConstruct _ = constructTextTagFontDesc + +-- VVV Prop "font-features" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagFontFeatures :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagFontFeatures :: T.Text -> IO ([Char], GValue) +constructTextTagFontFeatures val = constructObjectPropertyString "font-features" val + +data TextTagFontFeaturesPropertyInfo +instance AttrInfo TextTagFontFeaturesPropertyInfo where + type AttrAllowedOps TextTagFontFeaturesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagFontFeaturesPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextTagFontFeaturesPropertyInfo = TextTagK + type AttrGetType TextTagFontFeaturesPropertyInfo = T.Text + type AttrLabel TextTagFontFeaturesPropertyInfo = "TextTag::font-features" + attrGet _ = getTextTagFontFeatures + attrSet _ = setTextTagFontFeatures + attrConstruct _ = constructTextTagFontFeatures + +-- VVV Prop "font-features-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::font-features-set" + attrGet _ = getTextTagFontFeaturesSet + attrSet _ = setTextTagFontFeaturesSet + attrConstruct _ = constructTextTagFontFeaturesSet + +-- VVV Prop "foreground" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setTextTagForeground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () +setTextTagForeground obj val = liftIO $ setObjectPropertyString obj "foreground" val + +constructTextTagForeground :: T.Text -> IO ([Char], GValue) +constructTextTagForeground val = constructObjectPropertyString "foreground" val + +data TextTagForegroundPropertyInfo +instance AttrInfo TextTagForegroundPropertyInfo where + type AttrAllowedOps TextTagForegroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint TextTagForegroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextTagForegroundPropertyInfo = TextTagK + type AttrGetType TextTagForegroundPropertyInfo = () + type AttrLabel TextTagForegroundPropertyInfo = "TextTag::foreground" + attrGet _ = undefined + attrSet _ = setTextTagForeground + attrConstruct _ = constructTextTagForeground + +-- VVV Prop "foreground-gdk" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagForegroundGdk :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagForegroundGdk :: Gdk.Color -> IO ([Char], GValue) +constructTextTagForegroundGdk val = constructObjectPropertyBoxed "foreground-gdk" val + +data TextTagForegroundGdkPropertyInfo +instance AttrInfo TextTagForegroundGdkPropertyInfo where + type AttrAllowedOps TextTagForegroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagForegroundGdkPropertyInfo = (~) Gdk.Color + type AttrBaseTypeConstraint TextTagForegroundGdkPropertyInfo = TextTagK + type AttrGetType TextTagForegroundGdkPropertyInfo = Gdk.Color + type AttrLabel TextTagForegroundGdkPropertyInfo = "TextTag::foreground-gdk" + attrGet _ = getTextTagForegroundGdk + attrSet _ = setTextTagForegroundGdk + attrConstruct _ = constructTextTagForegroundGdk + +-- VVV Prop "foreground-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagForegroundRgba :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagForegroundRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructTextTagForegroundRgba val = constructObjectPropertyBoxed "foreground-rgba" val + +data TextTagForegroundRgbaPropertyInfo +instance AttrInfo TextTagForegroundRgbaPropertyInfo where + type AttrAllowedOps TextTagForegroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagForegroundRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint TextTagForegroundRgbaPropertyInfo = TextTagK + type AttrGetType TextTagForegroundRgbaPropertyInfo = Gdk.RGBA + type AttrLabel TextTagForegroundRgbaPropertyInfo = "TextTag::foreground-rgba" + attrGet _ = getTextTagForegroundRgba + attrSet _ = setTextTagForegroundRgba + attrConstruct _ = constructTextTagForegroundRgba + +-- VVV Prop "foreground-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::foreground-set" + attrGet _ = getTextTagForegroundSet + attrSet _ = setTextTagForegroundSet + attrConstruct _ = constructTextTagForegroundSet + +-- VVV Prop "indent" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagIndent :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagIndent obj = liftIO $ getObjectPropertyCInt obj "indent" + +setTextTagIndent :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val + +constructTextTagIndent :: Int32 -> IO ([Char], GValue) +constructTextTagIndent val = constructObjectPropertyCInt "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 = "TextTag::indent" + attrGet _ = getTextTagIndent + attrSet _ = setTextTagIndent + attrConstruct _ = constructTextTagIndent + +-- VVV Prop "indent-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::indent-set" + attrGet _ = getTextTagIndentSet + attrSet _ = setTextTagIndentSet + attrConstruct _ = constructTextTagIndentSet + +-- VVV Prop "invisible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::invisible" + attrGet _ = getTextTagInvisible + attrSet _ = setTextTagInvisible + attrConstruct _ = constructTextTagInvisible + +-- VVV Prop "invisible-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::invisible-set" + attrGet _ = getTextTagInvisibleSet + attrSet _ = setTextTagInvisibleSet + attrConstruct _ = constructTextTagInvisibleSet + +-- VVV Prop "justification" + -- Type: TInterface "Gtk" "Justification" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::justification" + attrGet _ = getTextTagJustification + attrSet _ = setTextTagJustification + attrConstruct _ = constructTextTagJustification + +-- VVV Prop "justification-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::justification-set" + attrGet _ = getTextTagJustificationSet + attrSet _ = setTextTagJustificationSet + attrConstruct _ = constructTextTagJustificationSet + +-- VVV Prop "language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagLanguage :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagLanguage obj = liftIO $ getObjectPropertyString obj "language" + +setTextTagLanguage :: (MonadIO m, TextTagK o) => o -> T.Text -> m () +setTextTagLanguage obj val = liftIO $ setObjectPropertyString obj "language" val + +constructTextTagLanguage :: T.Text -> IO ([Char], GValue) +constructTextTagLanguage val = constructObjectPropertyString "language" val + +data TextTagLanguagePropertyInfo +instance AttrInfo TextTagLanguagePropertyInfo where + type AttrAllowedOps TextTagLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagLanguagePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextTagLanguagePropertyInfo = TextTagK + type AttrGetType TextTagLanguagePropertyInfo = T.Text + type AttrLabel TextTagLanguagePropertyInfo = "TextTag::language" + attrGet _ = getTextTagLanguage + attrSet _ = setTextTagLanguage + attrConstruct _ = constructTextTagLanguage + +-- VVV Prop "language-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::language-set" + attrGet _ = getTextTagLanguageSet + attrSet _ = setTextTagLanguageSet + attrConstruct _ = constructTextTagLanguageSet + +-- VVV Prop "left-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin" + +setTextTagLeftMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val + +constructTextTagLeftMargin :: Int32 -> IO ([Char], GValue) +constructTextTagLeftMargin val = constructObjectPropertyCInt "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 = "TextTag::left-margin" + attrGet _ = getTextTagLeftMargin + attrSet _ = setTextTagLeftMargin + attrConstruct _ = constructTextTagLeftMargin + +-- VVV Prop "left-margin-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::left-margin-set" + attrGet _ = getTextTagLeftMarginSet + attrSet _ = setTextTagLeftMarginSet + attrConstruct _ = constructTextTagLeftMarginSet + +-- VVV Prop "letter-spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagLetterSpacing obj = liftIO $ getObjectPropertyCInt obj "letter-spacing" + +setTextTagLetterSpacing :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagLetterSpacing obj val = liftIO $ setObjectPropertyCInt obj "letter-spacing" val + +constructTextTagLetterSpacing :: Int32 -> IO ([Char], GValue) +constructTextTagLetterSpacing val = constructObjectPropertyCInt "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 = "TextTag::letter-spacing" + attrGet _ = getTextTagLetterSpacing + attrSet _ = setTextTagLetterSpacing + attrConstruct _ = constructTextTagLetterSpacing + +-- VVV Prop "letter-spacing-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::letter-spacing-set" + attrGet _ = getTextTagLetterSpacingSet + attrSet _ = setTextTagLetterSpacingSet + attrConstruct _ = constructTextTagLetterSpacingSet + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getTextTagName :: (MonadIO m, TextTagK o) => o -> m T.Text +getTextTagName obj = liftIO $ getObjectPropertyString obj "name" + +constructTextTagName :: T.Text -> IO ([Char], GValue) +constructTextTagName val = constructObjectPropertyString "name" val + +data TextTagNamePropertyInfo +instance AttrInfo TextTagNamePropertyInfo where + type AttrAllowedOps TextTagNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextTagNamePropertyInfo = TextTagK + type AttrGetType TextTagNamePropertyInfo = T.Text + type AttrLabel TextTagNamePropertyInfo = "TextTag::name" + attrGet _ = getTextTagName + attrSet _ = undefined + attrConstruct _ = constructTextTagName + +-- VVV Prop "paragraph-background" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setTextTagParagraphBackground :: (MonadIO m, TextTagK o) => o -> T.Text -> m () +setTextTagParagraphBackground obj val = liftIO $ setObjectPropertyString obj "paragraph-background" val + +constructTextTagParagraphBackground :: T.Text -> IO ([Char], GValue) +constructTextTagParagraphBackground val = constructObjectPropertyString "paragraph-background" val + +data TextTagParagraphBackgroundPropertyInfo +instance AttrInfo TextTagParagraphBackgroundPropertyInfo where + type AttrAllowedOps TextTagParagraphBackgroundPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint TextTagParagraphBackgroundPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextTagParagraphBackgroundPropertyInfo = TextTagK + type AttrGetType TextTagParagraphBackgroundPropertyInfo = () + type AttrLabel TextTagParagraphBackgroundPropertyInfo = "TextTag::paragraph-background" + attrGet _ = undefined + attrSet _ = setTextTagParagraphBackground + attrConstruct _ = constructTextTagParagraphBackground + +-- VVV Prop "paragraph-background-gdk" + -- Type: TInterface "Gdk" "Color" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagParagraphBackgroundGdk :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagParagraphBackgroundGdk :: Gdk.Color -> IO ([Char], GValue) +constructTextTagParagraphBackgroundGdk val = constructObjectPropertyBoxed "paragraph-background-gdk" val + +data TextTagParagraphBackgroundGdkPropertyInfo +instance AttrInfo TextTagParagraphBackgroundGdkPropertyInfo where + type AttrAllowedOps TextTagParagraphBackgroundGdkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = (~) Gdk.Color + type AttrBaseTypeConstraint TextTagParagraphBackgroundGdkPropertyInfo = TextTagK + type AttrGetType TextTagParagraphBackgroundGdkPropertyInfo = Gdk.Color + type AttrLabel TextTagParagraphBackgroundGdkPropertyInfo = "TextTag::paragraph-background-gdk" + attrGet _ = getTextTagParagraphBackgroundGdk + attrSet _ = setTextTagParagraphBackgroundGdk + attrConstruct _ = constructTextTagParagraphBackgroundGdk + +-- VVV Prop "paragraph-background-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagParagraphBackgroundRgba :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagParagraphBackgroundRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructTextTagParagraphBackgroundRgba val = constructObjectPropertyBoxed "paragraph-background-rgba" val + +data TextTagParagraphBackgroundRgbaPropertyInfo +instance AttrInfo TextTagParagraphBackgroundRgbaPropertyInfo where + type AttrAllowedOps TextTagParagraphBackgroundRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint TextTagParagraphBackgroundRgbaPropertyInfo = TextTagK + type AttrGetType TextTagParagraphBackgroundRgbaPropertyInfo = Gdk.RGBA + type AttrLabel TextTagParagraphBackgroundRgbaPropertyInfo = "TextTag::paragraph-background-rgba" + attrGet _ = getTextTagParagraphBackgroundRgba + attrSet _ = setTextTagParagraphBackgroundRgba + attrConstruct _ = constructTextTagParagraphBackgroundRgba + +-- VVV Prop "paragraph-background-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::paragraph-background-set" + attrGet _ = getTextTagParagraphBackgroundSet + attrSet _ = setTextTagParagraphBackgroundSet + attrConstruct _ = constructTextTagParagraphBackgroundSet + +-- VVV Prop "pixels-above-lines" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines" + +setTextTagPixelsAboveLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val + +constructTextTagPixelsAboveLines :: Int32 -> IO ([Char], GValue) +constructTextTagPixelsAboveLines val = constructObjectPropertyCInt "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 = "TextTag::pixels-above-lines" + attrGet _ = getTextTagPixelsAboveLines + attrSet _ = setTextTagPixelsAboveLines + attrConstruct _ = constructTextTagPixelsAboveLines + +-- VVV Prop "pixels-above-lines-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::pixels-above-lines-set" + attrGet _ = getTextTagPixelsAboveLinesSet + attrSet _ = setTextTagPixelsAboveLinesSet + attrConstruct _ = constructTextTagPixelsAboveLinesSet + +-- VVV Prop "pixels-below-lines" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines" + +setTextTagPixelsBelowLines :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val + +constructTextTagPixelsBelowLines :: Int32 -> IO ([Char], GValue) +constructTextTagPixelsBelowLines val = constructObjectPropertyCInt "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 = "TextTag::pixels-below-lines" + attrGet _ = getTextTagPixelsBelowLines + attrSet _ = setTextTagPixelsBelowLines + attrConstruct _ = constructTextTagPixelsBelowLines + +-- VVV Prop "pixels-below-lines-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::pixels-below-lines-set" + attrGet _ = getTextTagPixelsBelowLinesSet + attrSet _ = setTextTagPixelsBelowLinesSet + attrConstruct _ = constructTextTagPixelsBelowLinesSet + +-- VVV Prop "pixels-inside-wrap" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap" + +setTextTagPixelsInsideWrap :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val + +constructTextTagPixelsInsideWrap :: Int32 -> IO ([Char], GValue) +constructTextTagPixelsInsideWrap val = constructObjectPropertyCInt "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 = "TextTag::pixels-inside-wrap" + attrGet _ = getTextTagPixelsInsideWrap + attrSet _ = setTextTagPixelsInsideWrap + attrConstruct _ = constructTextTagPixelsInsideWrap + +-- VVV Prop "pixels-inside-wrap-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::pixels-inside-wrap-set" + attrGet _ = getTextTagPixelsInsideWrapSet + attrSet _ = setTextTagPixelsInsideWrapSet + attrConstruct _ = constructTextTagPixelsInsideWrapSet + +-- VVV Prop "right-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin" + +setTextTagRightMargin :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val + +constructTextTagRightMargin :: Int32 -> IO ([Char], GValue) +constructTextTagRightMargin val = constructObjectPropertyCInt "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 = "TextTag::right-margin" + attrGet _ = getTextTagRightMargin + attrSet _ = setTextTagRightMargin + attrConstruct _ = constructTextTagRightMargin + +-- VVV Prop "right-margin-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::right-margin-set" + attrGet _ = getTextTagRightMarginSet + attrSet _ = setTextTagRightMarginSet + attrConstruct _ = constructTextTagRightMarginSet + +-- VVV Prop "rise" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagRise :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagRise obj = liftIO $ getObjectPropertyCInt obj "rise" + +setTextTagRise :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagRise obj val = liftIO $ setObjectPropertyCInt obj "rise" val + +constructTextTagRise :: Int32 -> IO ([Char], GValue) +constructTextTagRise val = constructObjectPropertyCInt "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 = "TextTag::rise" + attrGet _ = getTextTagRise + attrSet _ = setTextTagRise + attrConstruct _ = constructTextTagRise + +-- VVV Prop "rise-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::rise-set" + attrGet _ = getTextTagRiseSet + attrSet _ = setTextTagRiseSet + attrConstruct _ = constructTextTagRiseSet + +-- VVV Prop "scale" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::scale" + attrGet _ = getTextTagScale + attrSet _ = setTextTagScale + attrConstruct _ = constructTextTagScale + +-- VVV Prop "scale-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::scale-set" + attrGet _ = getTextTagScaleSet + attrSet _ = setTextTagScaleSet + attrConstruct _ = constructTextTagScaleSet + +-- VVV Prop "size" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagSize :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagSize obj = liftIO $ getObjectPropertyCInt obj "size" + +setTextTagSize :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagSize obj val = liftIO $ setObjectPropertyCInt obj "size" val + +constructTextTagSize :: Int32 -> IO ([Char], GValue) +constructTextTagSize val = constructObjectPropertyCInt "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 = "TextTag::size" + attrGet _ = getTextTagSize + attrSet _ = setTextTagSize + attrConstruct _ = constructTextTagSize + +-- VVV Prop "size-points" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::size-points" + attrGet _ = getTextTagSizePoints + attrSet _ = setTextTagSizePoints + attrConstruct _ = constructTextTagSizePoints + +-- VVV Prop "size-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::size-set" + attrGet _ = getTextTagSizeSet + attrSet _ = setTextTagSizeSet + attrConstruct _ = constructTextTagSizeSet + +-- VVV Prop "stretch" + -- Type: TInterface "Pango" "Stretch" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::stretch" + attrGet _ = getTextTagStretch + attrSet _ = setTextTagStretch + attrConstruct _ = constructTextTagStretch + +-- VVV Prop "stretch-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::stretch-set" + attrGet _ = getTextTagStretchSet + attrSet _ = setTextTagStretchSet + attrConstruct _ = constructTextTagStretchSet + +-- VVV Prop "strikethrough" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::strikethrough" + attrGet _ = getTextTagStrikethrough + attrSet _ = setTextTagStrikethrough + attrConstruct _ = constructTextTagStrikethrough + +-- VVV Prop "strikethrough-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagStrikethroughRgba :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagStrikethroughRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructTextTagStrikethroughRgba val = constructObjectPropertyBoxed "strikethrough-rgba" val + +data TextTagStrikethroughRgbaPropertyInfo +instance AttrInfo TextTagStrikethroughRgbaPropertyInfo where + type AttrAllowedOps TextTagStrikethroughRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagStrikethroughRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint TextTagStrikethroughRgbaPropertyInfo = TextTagK + type AttrGetType TextTagStrikethroughRgbaPropertyInfo = Gdk.RGBA + type AttrLabel TextTagStrikethroughRgbaPropertyInfo = "TextTag::strikethrough-rgba" + attrGet _ = getTextTagStrikethroughRgba + attrSet _ = setTextTagStrikethroughRgba + attrConstruct _ = constructTextTagStrikethroughRgba + +-- VVV Prop "strikethrough-rgba-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::strikethrough-rgba-set" + attrGet _ = getTextTagStrikethroughRgbaSet + attrSet _ = setTextTagStrikethroughRgbaSet + attrConstruct _ = constructTextTagStrikethroughRgbaSet + +-- VVV Prop "strikethrough-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::strikethrough-set" + attrGet _ = getTextTagStrikethroughSet + attrSet _ = setTextTagStrikethroughSet + attrConstruct _ = constructTextTagStrikethroughSet + +-- VVV Prop "style" + -- Type: TInterface "Pango" "Style" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::style" + attrGet _ = getTextTagStyle + attrSet _ = setTextTagStyle + attrConstruct _ = constructTextTagStyle + +-- VVV Prop "style-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::style-set" + attrGet _ = getTextTagStyleSet + attrSet _ = setTextTagStyleSet + attrConstruct _ = constructTextTagStyleSet + +-- VVV Prop "tabs" + -- Type: TInterface "Pango" "TabArray" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagTabs :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagTabs :: Pango.TabArray -> IO ([Char], GValue) +constructTextTagTabs val = constructObjectPropertyBoxed "tabs" val + +data TextTagTabsPropertyInfo +instance AttrInfo TextTagTabsPropertyInfo where + type AttrAllowedOps TextTagTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagTabsPropertyInfo = (~) Pango.TabArray + type AttrBaseTypeConstraint TextTagTabsPropertyInfo = TextTagK + type AttrGetType TextTagTabsPropertyInfo = Pango.TabArray + type AttrLabel TextTagTabsPropertyInfo = "TextTag::tabs" + attrGet _ = getTextTagTabs + attrSet _ = setTextTagTabs + attrConstruct _ = constructTextTagTabs + +-- VVV Prop "tabs-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::tabs-set" + attrGet _ = getTextTagTabsSet + attrSet _ = setTextTagTabsSet + attrConstruct _ = constructTextTagTabsSet + +-- VVV Prop "underline" + -- Type: TInterface "Pango" "Underline" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::underline" + attrGet _ = getTextTagUnderline + attrSet _ = setTextTagUnderline + attrConstruct _ = constructTextTagUnderline + +-- VVV Prop "underline-rgba" + -- Type: TInterface "Gdk" "RGBA" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagUnderlineRgba :: (MonadIO m, TextTagK o) => o -> m 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" val + +constructTextTagUnderlineRgba :: Gdk.RGBA -> IO ([Char], GValue) +constructTextTagUnderlineRgba val = constructObjectPropertyBoxed "underline-rgba" val + +data TextTagUnderlineRgbaPropertyInfo +instance AttrInfo TextTagUnderlineRgbaPropertyInfo where + type AttrAllowedOps TextTagUnderlineRgbaPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextTagUnderlineRgbaPropertyInfo = (~) Gdk.RGBA + type AttrBaseTypeConstraint TextTagUnderlineRgbaPropertyInfo = TextTagK + type AttrGetType TextTagUnderlineRgbaPropertyInfo = Gdk.RGBA + type AttrLabel TextTagUnderlineRgbaPropertyInfo = "TextTag::underline-rgba" + attrGet _ = getTextTagUnderlineRgba + attrSet _ = setTextTagUnderlineRgba + attrConstruct _ = constructTextTagUnderlineRgba + +-- VVV Prop "underline-rgba-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::underline-rgba-set" + attrGet _ = getTextTagUnderlineRgbaSet + attrSet _ = setTextTagUnderlineRgbaSet + attrConstruct _ = constructTextTagUnderlineRgbaSet + +-- VVV Prop "underline-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::underline-set" + attrGet _ = getTextTagUnderlineSet + attrSet _ = setTextTagUnderlineSet + attrConstruct _ = constructTextTagUnderlineSet + +-- VVV Prop "variant" + -- Type: TInterface "Pango" "Variant" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::variant" + attrGet _ = getTextTagVariant + attrSet _ = setTextTagVariant + attrConstruct _ = constructTextTagVariant + +-- VVV Prop "variant-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::variant-set" + attrGet _ = getTextTagVariantSet + attrSet _ = setTextTagVariantSet + attrConstruct _ = constructTextTagVariantSet + +-- VVV Prop "weight" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextTagWeight :: (MonadIO m, TextTagK o) => o -> m Int32 +getTextTagWeight obj = liftIO $ getObjectPropertyCInt obj "weight" + +setTextTagWeight :: (MonadIO m, TextTagK o) => o -> Int32 -> m () +setTextTagWeight obj val = liftIO $ setObjectPropertyCInt obj "weight" val + +constructTextTagWeight :: Int32 -> IO ([Char], GValue) +constructTextTagWeight val = constructObjectPropertyCInt "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 = "TextTag::weight" + attrGet _ = getTextTagWeight + attrSet _ = setTextTagWeight + attrConstruct _ = constructTextTagWeight + +-- VVV Prop "weight-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::weight-set" + attrGet _ = getTextTagWeightSet + attrSet _ = setTextTagWeightSet + attrConstruct _ = constructTextTagWeightSet + +-- VVV Prop "wrap-mode" + -- Type: TInterface "Gtk" "WrapMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::wrap-mode" + attrGet _ = getTextTagWrapMode + attrSet _ = setTextTagWrapMode + attrConstruct _ = constructTextTagWrapMode + +-- VVV Prop "wrap-mode-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextTag::wrap-mode-set" + attrGet _ = getTextTagWrapModeSet + attrSet _ = setTextTagWrapModeSet + attrConstruct _ = constructTextTagWrapModeSet + +type instance AttributeList TextTag = '[ '("accumulative-margin", TextTagAccumulativeMarginPropertyInfo), '("background", TextTagBackgroundPropertyInfo), '("background-full-height", TextTagBackgroundFullHeightPropertyInfo), '("background-full-height-set", TextTagBackgroundFullHeightSetPropertyInfo), '("background-gdk", TextTagBackgroundGdkPropertyInfo), '("background-rgba", TextTagBackgroundRgbaPropertyInfo), '("background-set", TextTagBackgroundSetPropertyInfo), '("direction", TextTagDirectionPropertyInfo), '("editable", TextTagEditablePropertyInfo), '("editable-set", TextTagEditableSetPropertyInfo), '("fallback", TextTagFallbackPropertyInfo), '("fallback-set", TextTagFallbackSetPropertyInfo), '("family", TextTagFamilyPropertyInfo), '("family-set", TextTagFamilySetPropertyInfo), '("font", TextTagFontPropertyInfo), '("font-desc", TextTagFontDescPropertyInfo), '("font-features", TextTagFontFeaturesPropertyInfo), '("font-features-set", TextTagFontFeaturesSetPropertyInfo), '("foreground", TextTagForegroundPropertyInfo), '("foreground-gdk", TextTagForegroundGdkPropertyInfo), '("foreground-rgba", TextTagForegroundRgbaPropertyInfo), '("foreground-set", TextTagForegroundSetPropertyInfo), '("indent", TextTagIndentPropertyInfo), '("indent-set", TextTagIndentSetPropertyInfo), '("invisible", TextTagInvisiblePropertyInfo), '("invisible-set", TextTagInvisibleSetPropertyInfo), '("justification", TextTagJustificationPropertyInfo), '("justification-set", TextTagJustificationSetPropertyInfo), '("language", TextTagLanguagePropertyInfo), '("language-set", TextTagLanguageSetPropertyInfo), '("left-margin", TextTagLeftMarginPropertyInfo), '("left-margin-set", TextTagLeftMarginSetPropertyInfo), '("letter-spacing", TextTagLetterSpacingPropertyInfo), '("letter-spacing-set", TextTagLetterSpacingSetPropertyInfo), '("name", TextTagNamePropertyInfo), '("paragraph-background", TextTagParagraphBackgroundPropertyInfo), '("paragraph-background-gdk", TextTagParagraphBackgroundGdkPropertyInfo), '("paragraph-background-rgba", TextTagParagraphBackgroundRgbaPropertyInfo), '("paragraph-background-set", TextTagParagraphBackgroundSetPropertyInfo), '("pixels-above-lines", TextTagPixelsAboveLinesPropertyInfo), '("pixels-above-lines-set", TextTagPixelsAboveLinesSetPropertyInfo), '("pixels-below-lines", TextTagPixelsBelowLinesPropertyInfo), '("pixels-below-lines-set", TextTagPixelsBelowLinesSetPropertyInfo), '("pixels-inside-wrap", TextTagPixelsInsideWrapPropertyInfo), '("pixels-inside-wrap-set", TextTagPixelsInsideWrapSetPropertyInfo), '("right-margin", TextTagRightMarginPropertyInfo), '("right-margin-set", TextTagRightMarginSetPropertyInfo), '("rise", TextTagRisePropertyInfo), '("rise-set", TextTagRiseSetPropertyInfo), '("scale", TextTagScalePropertyInfo), '("scale-set", TextTagScaleSetPropertyInfo), '("size", TextTagSizePropertyInfo), '("size-points", TextTagSizePointsPropertyInfo), '("size-set", TextTagSizeSetPropertyInfo), '("stretch", TextTagStretchPropertyInfo), '("stretch-set", TextTagStretchSetPropertyInfo), '("strikethrough", TextTagStrikethroughPropertyInfo), '("strikethrough-rgba", TextTagStrikethroughRgbaPropertyInfo), '("strikethrough-rgba-set", TextTagStrikethroughRgbaSetPropertyInfo), '("strikethrough-set", TextTagStrikethroughSetPropertyInfo), '("style", TextTagStylePropertyInfo), '("style-set", TextTagStyleSetPropertyInfo), '("tabs", TextTagTabsPropertyInfo), '("tabs-set", TextTagTabsSetPropertyInfo), '("underline", TextTagUnderlinePropertyInfo), '("underline-rgba", TextTagUnderlineRgbaPropertyInfo), '("underline-rgba-set", TextTagUnderlineRgbaSetPropertyInfo), '("underline-set", TextTagUnderlineSetPropertyInfo), '("variant", TextTagVariantPropertyInfo), '("variant-set", TextTagVariantSetPropertyInfo), '("weight", TextTagWeightPropertyInfo), '("weight-set", TextTagWeightSetPropertyInfo), '("wrap-mode", TextTagWrapModePropertyInfo), '("wrap-mode-set", TextTagWrapModeSetPropertyInfo)] + +type instance AttributeList TextTagTable = '[ ] + +-- VVV Prop "accepts-tab" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::accepts-tab" + attrGet _ = getTextViewAcceptsTab + attrSet _ = setTextViewAcceptsTab + attrConstruct _ = constructTextViewAcceptsTab + +-- VVV Prop "bottom-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewBottomMargin obj = liftIO $ getObjectPropertyCInt obj "bottom-margin" + +setTextViewBottomMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewBottomMargin obj val = liftIO $ setObjectPropertyCInt obj "bottom-margin" val + +constructTextViewBottomMargin :: Int32 -> IO ([Char], GValue) +constructTextViewBottomMargin val = constructObjectPropertyCInt "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 = "TextView::bottom-margin" + attrGet _ = getTextViewBottomMargin + attrSet _ = setTextViewBottomMargin + attrConstruct _ = constructTextViewBottomMargin + +-- VVV Prop "buffer" + -- Type: TInterface "Gtk" "TextBuffer" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewBuffer :: (MonadIO m, TextViewK o) => o -> m TextBuffer +getTextViewBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" TextBuffer + +setTextViewBuffer :: (MonadIO m, TextViewK o, TextBufferK a) => o -> a -> m () +setTextViewBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val + +constructTextViewBuffer :: (TextBufferK a) => a -> IO ([Char], GValue) +constructTextViewBuffer val = constructObjectPropertyObject "buffer" val + +data TextViewBufferPropertyInfo +instance AttrInfo TextViewBufferPropertyInfo where + type AttrAllowedOps TextViewBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewBufferPropertyInfo = TextBufferK + type AttrBaseTypeConstraint TextViewBufferPropertyInfo = TextViewK + type AttrGetType TextViewBufferPropertyInfo = TextBuffer + type AttrLabel TextViewBufferPropertyInfo = "TextView::buffer" + attrGet _ = getTextViewBuffer + attrSet _ = setTextViewBuffer + attrConstruct _ = constructTextViewBuffer + +-- VVV Prop "cursor-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::cursor-visible" + attrGet _ = getTextViewCursorVisible + attrSet _ = setTextViewCursorVisible + attrConstruct _ = constructTextViewCursorVisible + +-- VVV Prop "editable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::editable" + attrGet _ = getTextViewEditable + attrSet _ = setTextViewEditable + attrConstruct _ = constructTextViewEditable + +-- VVV Prop "im-module" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewImModule :: (MonadIO m, TextViewK o) => o -> m 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" val + +constructTextViewImModule :: T.Text -> IO ([Char], GValue) +constructTextViewImModule val = constructObjectPropertyString "im-module" val + +data TextViewImModulePropertyInfo +instance AttrInfo TextViewImModulePropertyInfo where + type AttrAllowedOps TextViewImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TextViewImModulePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint TextViewImModulePropertyInfo = TextViewK + type AttrGetType TextViewImModulePropertyInfo = T.Text + type AttrLabel TextViewImModulePropertyInfo = "TextView::im-module" + attrGet _ = getTextViewImModule + attrSet _ = setTextViewImModule + attrConstruct _ = constructTextViewImModule + +-- VVV Prop "indent" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewIndent :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewIndent obj = liftIO $ getObjectPropertyCInt obj "indent" + +setTextViewIndent :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewIndent obj val = liftIO $ setObjectPropertyCInt obj "indent" val + +constructTextViewIndent :: Int32 -> IO ([Char], GValue) +constructTextViewIndent val = constructObjectPropertyCInt "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 = "TextView::indent" + attrGet _ = getTextViewIndent + attrSet _ = setTextViewIndent + attrConstruct _ = constructTextViewIndent + +-- VVV Prop "input-hints" + -- Type: TInterface "Gtk" "InputHints" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::input-hints" + attrGet _ = getTextViewInputHints + attrSet _ = setTextViewInputHints + attrConstruct _ = constructTextViewInputHints + +-- VVV Prop "input-purpose" + -- Type: TInterface "Gtk" "InputPurpose" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::input-purpose" + attrGet _ = getTextViewInputPurpose + attrSet _ = setTextViewInputPurpose + attrConstruct _ = constructTextViewInputPurpose + +-- VVV Prop "justification" + -- Type: TInterface "Gtk" "Justification" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::justification" + attrGet _ = getTextViewJustification + attrSet _ = setTextViewJustification + attrConstruct _ = constructTextViewJustification + +-- VVV Prop "left-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewLeftMargin obj = liftIO $ getObjectPropertyCInt obj "left-margin" + +setTextViewLeftMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewLeftMargin obj val = liftIO $ setObjectPropertyCInt obj "left-margin" val + +constructTextViewLeftMargin :: Int32 -> IO ([Char], GValue) +constructTextViewLeftMargin val = constructObjectPropertyCInt "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 = "TextView::left-margin" + attrGet _ = getTextViewLeftMargin + attrSet _ = setTextViewLeftMargin + attrConstruct _ = constructTextViewLeftMargin + +-- VVV Prop "monospace" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::monospace" + attrGet _ = getTextViewMonospace + attrSet _ = setTextViewMonospace + attrConstruct _ = constructTextViewMonospace + +-- VVV Prop "overwrite" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::overwrite" + attrGet _ = getTextViewOverwrite + attrSet _ = setTextViewOverwrite + attrConstruct _ = constructTextViewOverwrite + +-- VVV Prop "pixels-above-lines" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewPixelsAboveLines obj = liftIO $ getObjectPropertyCInt obj "pixels-above-lines" + +setTextViewPixelsAboveLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewPixelsAboveLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-above-lines" val + +constructTextViewPixelsAboveLines :: Int32 -> IO ([Char], GValue) +constructTextViewPixelsAboveLines val = constructObjectPropertyCInt "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 = "TextView::pixels-above-lines" + attrGet _ = getTextViewPixelsAboveLines + attrSet _ = setTextViewPixelsAboveLines + attrConstruct _ = constructTextViewPixelsAboveLines + +-- VVV Prop "pixels-below-lines" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewPixelsBelowLines obj = liftIO $ getObjectPropertyCInt obj "pixels-below-lines" + +setTextViewPixelsBelowLines :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewPixelsBelowLines obj val = liftIO $ setObjectPropertyCInt obj "pixels-below-lines" val + +constructTextViewPixelsBelowLines :: Int32 -> IO ([Char], GValue) +constructTextViewPixelsBelowLines val = constructObjectPropertyCInt "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 = "TextView::pixels-below-lines" + attrGet _ = getTextViewPixelsBelowLines + attrSet _ = setTextViewPixelsBelowLines + attrConstruct _ = constructTextViewPixelsBelowLines + +-- VVV Prop "pixels-inside-wrap" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewPixelsInsideWrap obj = liftIO $ getObjectPropertyCInt obj "pixels-inside-wrap" + +setTextViewPixelsInsideWrap :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewPixelsInsideWrap obj val = liftIO $ setObjectPropertyCInt obj "pixels-inside-wrap" val + +constructTextViewPixelsInsideWrap :: Int32 -> IO ([Char], GValue) +constructTextViewPixelsInsideWrap val = constructObjectPropertyCInt "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 = "TextView::pixels-inside-wrap" + attrGet _ = getTextViewPixelsInsideWrap + attrSet _ = setTextViewPixelsInsideWrap + attrConstruct _ = constructTextViewPixelsInsideWrap + +-- VVV Prop "populate-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::populate-all" + attrGet _ = getTextViewPopulateAll + attrSet _ = setTextViewPopulateAll + attrConstruct _ = constructTextViewPopulateAll + +-- VVV Prop "right-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewRightMargin obj = liftIO $ getObjectPropertyCInt obj "right-margin" + +setTextViewRightMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewRightMargin obj val = liftIO $ setObjectPropertyCInt obj "right-margin" val + +constructTextViewRightMargin :: Int32 -> IO ([Char], GValue) +constructTextViewRightMargin val = constructObjectPropertyCInt "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 = "TextView::right-margin" + attrGet _ = getTextViewRightMargin + attrSet _ = setTextViewRightMargin + attrConstruct _ = constructTextViewRightMargin + +-- VVV Prop "tabs" + -- Type: TInterface "Pango" "TabArray" + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewTabs :: (MonadIO m, TextViewK o) => o -> m 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" val + +constructTextViewTabs :: Pango.TabArray -> IO ([Char], GValue) +constructTextViewTabs val = constructObjectPropertyBoxed "tabs" 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 = Pango.TabArray + type AttrLabel TextViewTabsPropertyInfo = "TextView::tabs" + attrGet _ = getTextViewTabs + attrSet _ = setTextViewTabs + attrConstruct _ = constructTextViewTabs + +-- VVV Prop "top-margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> m Int32 +getTextViewTopMargin obj = liftIO $ getObjectPropertyCInt obj "top-margin" + +setTextViewTopMargin :: (MonadIO m, TextViewK o) => o -> Int32 -> m () +setTextViewTopMargin obj val = liftIO $ setObjectPropertyCInt obj "top-margin" val + +constructTextViewTopMargin :: Int32 -> IO ([Char], GValue) +constructTextViewTopMargin val = constructObjectPropertyCInt "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 = "TextView::top-margin" + attrGet _ = getTextViewTopMargin + attrSet _ = setTextViewTopMargin + attrConstruct _ = constructTextViewTopMargin + +-- VVV Prop "wrap-mode" + -- Type: TInterface "Gtk" "WrapMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TextView::wrap-mode" + attrGet _ = getTextViewWrapMode + attrSet _ = setTextViewWrapMode + attrConstruct _ = constructTextViewWrapMode + +type instance AttributeList TextView = '[ '("accepts-tab", TextViewAcceptsTabPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("bottom-margin", TextViewBottomMarginPropertyInfo), '("buffer", TextViewBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-visible", TextViewCursorVisiblePropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", TextViewEditablePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("im-module", TextViewImModulePropertyInfo), '("indent", TextViewIndentPropertyInfo), '("input-hints", TextViewInputHintsPropertyInfo), '("input-purpose", TextViewInputPurposePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("justification", TextViewJustificationPropertyInfo), '("left-margin", TextViewLeftMarginPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("monospace", TextViewMonospacePropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite", TextViewOverwritePropertyInfo), '("parent", WidgetParentPropertyInfo), '("pixels-above-lines", TextViewPixelsAboveLinesPropertyInfo), '("pixels-below-lines", TextViewPixelsBelowLinesPropertyInfo), '("pixels-inside-wrap", TextViewPixelsInsideWrapPropertyInfo), '("populate-all", TextViewPopulateAllPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("right-margin", TextViewRightMarginPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", TextViewTabsPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("top-margin", TextViewTopMarginPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("wrap-mode", TextViewWrapModePropertyInfo)] + +type instance AttributeList TextViewAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getThemingEngineName :: (MonadIO m, ThemingEngineK o) => o -> m T.Text +getThemingEngineName obj = liftIO $ getObjectPropertyString obj "name" + +constructThemingEngineName :: T.Text -> IO ([Char], GValue) +constructThemingEngineName val = constructObjectPropertyString "name" val + +data ThemingEngineNamePropertyInfo +instance AttrInfo ThemingEngineNamePropertyInfo where + type AttrAllowedOps ThemingEngineNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ThemingEngineNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ThemingEngineNamePropertyInfo = ThemingEngineK + type AttrGetType ThemingEngineNamePropertyInfo = T.Text + type AttrLabel ThemingEngineNamePropertyInfo = "ThemingEngine::name" + attrGet _ = getThemingEngineName + attrSet _ = undefined + attrConstruct _ = constructThemingEngineName + +type instance AttributeList ThemingEngine = '[ '("name", ThemingEngineNamePropertyInfo)] + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToggleAction::active" + attrGet _ = getToggleActionActive + attrSet _ = setToggleActionActive + attrConstruct _ = constructToggleActionActive + +-- VVV Prop "draw-as-radio" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToggleAction::draw-as-radio" + attrGet _ = getToggleActionDrawAsRadio + attrSet _ = setToggleActionDrawAsRadio + attrConstruct _ = constructToggleActionDrawAsRadio + +type instance AttributeList ToggleAction = '[ '("action-group", ActionActionGroupPropertyInfo), '("active", ToggleActionActivePropertyInfo), '("always-show-image", ActionAlwaysShowImagePropertyInfo), '("draw-as-radio", ToggleActionDrawAsRadioPropertyInfo), '("gicon", ActionGiconPropertyInfo), '("hide-if-empty", ActionHideIfEmptyPropertyInfo), '("icon-name", ActionIconNamePropertyInfo), '("is-important", ActionIsImportantPropertyInfo), '("label", ActionLabelPropertyInfo), '("name", ActionNamePropertyInfo), '("sensitive", ActionSensitivePropertyInfo), '("short-label", ActionShortLabelPropertyInfo), '("stock-id", ActionStockIdPropertyInfo), '("tooltip", ActionTooltipPropertyInfo), '("visible", ActionVisiblePropertyInfo), '("visible-horizontal", ActionVisibleHorizontalPropertyInfo), '("visible-overflown", ActionVisibleOverflownPropertyInfo), '("visible-vertical", ActionVisibleVerticalPropertyInfo)] + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToggleButton::active" + attrGet _ = getToggleButtonActive + attrSet _ = setToggleButtonActive + attrConstruct _ = constructToggleButtonActive + +-- VVV Prop "draw-indicator" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToggleButton::draw-indicator" + attrGet _ = getToggleButtonDrawIndicator + attrSet _ = setToggleButtonDrawIndicator + attrConstruct _ = constructToggleButtonDrawIndicator + +-- VVV Prop "inconsistent" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToggleButton::inconsistent" + attrGet _ = getToggleButtonInconsistent + attrSet _ = setToggleButtonInconsistent + attrConstruct _ = constructToggleButtonInconsistent + +type instance AttributeList ToggleButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleButtonActivePropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-indicator", ToggleButtonDrawIndicatorPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("inconsistent", ToggleButtonInconsistentPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +type instance AttributeList ToggleButtonAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToggleToolButton::active" + attrGet _ = getToggleToolButtonActive + attrSet _ = setToggleToolButtonActive + attrConstruct _ = constructToggleToolButtonActive + +type instance AttributeList ToggleToolButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("active", ToggleToolButtonActivePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> m T.Text +getToolButtonIconName obj = liftIO $ getObjectPropertyString obj "icon-name" + +setToolButtonIconName :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () +setToolButtonIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val + +constructToolButtonIconName :: T.Text -> IO ([Char], GValue) +constructToolButtonIconName val = constructObjectPropertyString "icon-name" val + +data ToolButtonIconNamePropertyInfo +instance AttrInfo ToolButtonIconNamePropertyInfo where + type AttrAllowedOps ToolButtonIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ToolButtonIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ToolButtonIconNamePropertyInfo = ToolButtonK + type AttrGetType ToolButtonIconNamePropertyInfo = T.Text + type AttrLabel ToolButtonIconNamePropertyInfo = "ToolButton::icon-name" + attrGet _ = getToolButtonIconName + attrSet _ = setToolButtonIconName + attrConstruct _ = constructToolButtonIconName + +-- VVV Prop "icon-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getToolButtonIconWidget :: (MonadIO m, ToolButtonK o) => o -> m Widget +getToolButtonIconWidget obj = liftIO $ getObjectPropertyObject obj "icon-widget" Widget + +setToolButtonIconWidget :: (MonadIO m, ToolButtonK o, WidgetK a) => o -> a -> m () +setToolButtonIconWidget obj val = liftIO $ setObjectPropertyObject obj "icon-widget" val + +constructToolButtonIconWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructToolButtonIconWidget val = constructObjectPropertyObject "icon-widget" val + +data ToolButtonIconWidgetPropertyInfo +instance AttrInfo ToolButtonIconWidgetPropertyInfo where + type AttrAllowedOps ToolButtonIconWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ToolButtonIconWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint ToolButtonIconWidgetPropertyInfo = ToolButtonK + type AttrGetType ToolButtonIconWidgetPropertyInfo = Widget + type AttrLabel ToolButtonIconWidgetPropertyInfo = "ToolButton::icon-widget" + attrGet _ = getToolButtonIconWidget + attrSet _ = setToolButtonIconWidget + attrConstruct _ = constructToolButtonIconWidget + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> m T.Text +getToolButtonLabel obj = liftIO $ getObjectPropertyString obj "label" + +setToolButtonLabel :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () +setToolButtonLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructToolButtonLabel :: T.Text -> IO ([Char], GValue) +constructToolButtonLabel val = constructObjectPropertyString "label" val + +data ToolButtonLabelPropertyInfo +instance AttrInfo ToolButtonLabelPropertyInfo where + type AttrAllowedOps ToolButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ToolButtonLabelPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ToolButtonLabelPropertyInfo = ToolButtonK + type AttrGetType ToolButtonLabelPropertyInfo = T.Text + type AttrLabel ToolButtonLabelPropertyInfo = "ToolButton::label" + attrGet _ = getToolButtonLabel + attrSet _ = setToolButtonLabel + attrConstruct _ = constructToolButtonLabel + +-- VVV Prop "label-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getToolButtonLabelWidget :: (MonadIO m, ToolButtonK o) => o -> m Widget +getToolButtonLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget + +setToolButtonLabelWidget :: (MonadIO m, ToolButtonK o, WidgetK a) => o -> a -> m () +setToolButtonLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val + +constructToolButtonLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructToolButtonLabelWidget val = constructObjectPropertyObject "label-widget" val + +data ToolButtonLabelWidgetPropertyInfo +instance AttrInfo ToolButtonLabelWidgetPropertyInfo where + type AttrAllowedOps ToolButtonLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ToolButtonLabelWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint ToolButtonLabelWidgetPropertyInfo = ToolButtonK + type AttrGetType ToolButtonLabelWidgetPropertyInfo = Widget + type AttrLabel ToolButtonLabelWidgetPropertyInfo = "ToolButton::label-widget" + attrGet _ = getToolButtonLabelWidget + attrSet _ = setToolButtonLabelWidget + attrConstruct _ = constructToolButtonLabelWidget + +-- VVV Prop "stock-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> m T.Text +getToolButtonStockId obj = liftIO $ getObjectPropertyString obj "stock-id" + +setToolButtonStockId :: (MonadIO m, ToolButtonK o) => o -> T.Text -> m () +setToolButtonStockId obj val = liftIO $ setObjectPropertyString obj "stock-id" val + +constructToolButtonStockId :: T.Text -> IO ([Char], GValue) +constructToolButtonStockId val = constructObjectPropertyString "stock-id" val + +data ToolButtonStockIdPropertyInfo +instance AttrInfo ToolButtonStockIdPropertyInfo where + type AttrAllowedOps ToolButtonStockIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ToolButtonStockIdPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ToolButtonStockIdPropertyInfo = ToolButtonK + type AttrGetType ToolButtonStockIdPropertyInfo = T.Text + type AttrLabel ToolButtonStockIdPropertyInfo = "ToolButton::stock-id" + attrGet _ = getToolButtonStockId + attrSet _ = setToolButtonStockId + attrConstruct _ = constructToolButtonStockId + +-- VVV Prop "use-underline" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolButton::use-underline" + attrGet _ = getToolButtonUseUnderline + attrSet _ = setToolButtonUseUnderline + attrConstruct _ = constructToolButtonUseUnderline + +type instance AttributeList ToolButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-name", ToolButtonIconNamePropertyInfo), '("icon-widget", ToolButtonIconWidgetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("label", ToolButtonLabelPropertyInfo), '("label-widget", ToolButtonLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("stock-id", ToolButtonStockIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-underline", ToolButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "is-important" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolItem::is-important" + attrGet _ = getToolItemIsImportant + attrSet _ = setToolItemIsImportant + attrConstruct _ = constructToolItemIsImportant + +-- VVV Prop "visible-horizontal" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolItem::visible-horizontal" + attrGet _ = getToolItemVisibleHorizontal + attrSet _ = setToolItemVisibleHorizontal + attrConstruct _ = constructToolItemVisibleHorizontal + +-- VVV Prop "visible-vertical" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolItem::visible-vertical" + attrGet _ = getToolItemVisibleVertical + attrSet _ = setToolItemVisibleVertical + attrConstruct _ = constructToolItemVisibleVertical + +type instance AttributeList ToolItem = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-important", ToolItemIsImportantPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("visible-horizontal", ToolItemVisibleHorizontalPropertyInfo), '("visible-vertical", ToolItemVisibleVerticalPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "collapsed" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolItemGroup::collapsed" + attrGet _ = getToolItemGroupCollapsed + attrSet _ = setToolItemGroupCollapsed + attrConstruct _ = constructToolItemGroupCollapsed + +-- VVV Prop "ellipsize" + -- Type: TInterface "Pango" "EllipsizeMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolItemGroup::ellipsize" + attrGet _ = getToolItemGroupEllipsize + attrSet _ = setToolItemGroupEllipsize + attrConstruct _ = constructToolItemGroupEllipsize + +-- VVV Prop "header-relief" + -- Type: TInterface "Gtk" "ReliefStyle" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolItemGroup::header-relief" + attrGet _ = getToolItemGroupHeaderRelief + attrSet _ = setToolItemGroupHeaderRelief + attrConstruct _ = constructToolItemGroupHeaderRelief + +-- VVV Prop "label" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getToolItemGroupLabel :: (MonadIO m, ToolItemGroupK o) => o -> m T.Text +getToolItemGroupLabel obj = liftIO $ getObjectPropertyString obj "label" + +setToolItemGroupLabel :: (MonadIO m, ToolItemGroupK o) => o -> T.Text -> m () +setToolItemGroupLabel obj val = liftIO $ setObjectPropertyString obj "label" val + +constructToolItemGroupLabel :: T.Text -> IO ([Char], GValue) +constructToolItemGroupLabel val = constructObjectPropertyString "label" 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 = "ToolItemGroup::label" + attrGet _ = getToolItemGroupLabel + attrSet _ = setToolItemGroupLabel + attrConstruct _ = constructToolItemGroupLabel + +-- VVV Prop "label-widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getToolItemGroupLabelWidget :: (MonadIO m, ToolItemGroupK o) => o -> m Widget +getToolItemGroupLabelWidget obj = liftIO $ getObjectPropertyObject obj "label-widget" Widget + +setToolItemGroupLabelWidget :: (MonadIO m, ToolItemGroupK o, WidgetK a) => o -> a -> m () +setToolItemGroupLabelWidget obj val = liftIO $ setObjectPropertyObject obj "label-widget" val + +constructToolItemGroupLabelWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructToolItemGroupLabelWidget val = constructObjectPropertyObject "label-widget" 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 = "ToolItemGroup::label-widget" + attrGet _ = getToolItemGroupLabelWidget + attrSet _ = setToolItemGroupLabelWidget + attrConstruct _ = constructToolItemGroupLabelWidget + +type instance AttributeList ToolItemGroup = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("collapsed", ToolItemGroupCollapsedPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("ellipsize", ToolItemGroupEllipsizePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("header-relief", ToolItemGroupHeaderReliefPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ToolItemGroupLabelPropertyInfo), '("label-widget", ToolItemGroupLabelWidgetPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "icon-size" + -- Type: TInterface "Gtk" "IconSize" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolPalette::icon-size" + attrGet _ = getToolPaletteIconSize + attrSet _ = setToolPaletteIconSize + attrConstruct _ = constructToolPaletteIconSize + +-- VVV Prop "icon-size-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolPalette::icon-size-set" + attrGet _ = getToolPaletteIconSizeSet + attrSet _ = setToolPaletteIconSizeSet + attrConstruct _ = constructToolPaletteIconSizeSet + +-- VVV Prop "toolbar-style" + -- Type: TInterface "Gtk" "ToolbarStyle" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "ToolPalette::toolbar-style" + attrGet _ = getToolPaletteToolbarStyle + attrSet _ = setToolPaletteToolbarStyle + attrConstruct _ = constructToolPaletteToolbarStyle + +type instance AttributeList ToolPalette = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("icon-size", ToolPaletteIconSizePropertyInfo), '("icon-size-set", ToolPaletteIconSizeSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbar-style", ToolPaletteToolbarStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList ToolShell = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "icon-size" + -- Type: TInterface "Gtk" "IconSize" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Toolbar::icon-size" + attrGet _ = getToolbarIconSize + attrSet _ = setToolbarIconSize + attrConstruct _ = constructToolbarIconSize + +-- VVV Prop "icon-size-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Toolbar::icon-size-set" + attrGet _ = getToolbarIconSizeSet + attrSet _ = setToolbarIconSizeSet + attrConstruct _ = constructToolbarIconSizeSet + +-- VVV Prop "show-arrow" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Toolbar::show-arrow" + attrGet _ = getToolbarShowArrow + attrSet _ = setToolbarShowArrow + attrConstruct _ = constructToolbarShowArrow + +-- VVV Prop "toolbar-style" + -- Type: TInterface "Gtk" "ToolbarStyle" + -- Flags: [PropertyReadable,PropertyWritable] + +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::toolbar-style" + attrGet _ = getToolbarToolbarStyle + attrSet _ = setToolbarToolbarStyle + attrConstruct _ = constructToolbarToolbarStyle + +type instance AttributeList Toolbar = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icon-size", ToolbarIconSizePropertyInfo), '("icon-size-set", ToolbarIconSizeSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-arrow", ToolbarShowArrowPropertyInfo), '("style", WidgetStylePropertyInfo), '("toolbar-style", ToolbarToolbarStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList Tooltip = '[ ] + +type instance AttributeList ToplevelAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo)] + +type instance AttributeList TreeDragDest = '[ ] + +type instance AttributeList TreeDragSource = '[ ] + +type instance AttributeList TreeModel = '[ ] + +-- VVV Prop "child-model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getTreeModelFilterChildModel :: (MonadIO m, TreeModelFilterK o) => o -> m TreeModel +getTreeModelFilterChildModel obj = liftIO $ getObjectPropertyObject obj "child-model" TreeModel + +constructTreeModelFilterChildModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructTreeModelFilterChildModel val = constructObjectPropertyObject "child-model" val + +data TreeModelFilterChildModelPropertyInfo +instance AttrInfo TreeModelFilterChildModelPropertyInfo where + type AttrAllowedOps TreeModelFilterChildModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint TreeModelFilterChildModelPropertyInfo = TreeModelFilterK + type AttrGetType TreeModelFilterChildModelPropertyInfo = TreeModel + type AttrLabel TreeModelFilterChildModelPropertyInfo = "TreeModelFilter::child-model" + attrGet _ = getTreeModelFilterChildModel + attrSet _ = undefined + attrConstruct _ = constructTreeModelFilterChildModel + +-- VVV Prop "virtual-root" + -- Type: TInterface "Gtk" "TreePath" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getTreeModelFilterVirtualRoot :: (MonadIO m, TreeModelFilterK o) => o -> m TreePath +getTreeModelFilterVirtualRoot obj = liftIO $ getObjectPropertyBoxed obj "virtual-root" TreePath + +constructTreeModelFilterVirtualRoot :: TreePath -> IO ([Char], GValue) +constructTreeModelFilterVirtualRoot val = constructObjectPropertyBoxed "virtual-root" val + +data TreeModelFilterVirtualRootPropertyInfo +instance AttrInfo TreeModelFilterVirtualRootPropertyInfo where + type AttrAllowedOps TreeModelFilterVirtualRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeModelFilterVirtualRootPropertyInfo = (~) TreePath + type AttrBaseTypeConstraint TreeModelFilterVirtualRootPropertyInfo = TreeModelFilterK + type AttrGetType TreeModelFilterVirtualRootPropertyInfo = TreePath + type AttrLabel TreeModelFilterVirtualRootPropertyInfo = "TreeModelFilter::virtual-root" + attrGet _ = getTreeModelFilterVirtualRoot + attrSet _ = undefined + attrConstruct _ = constructTreeModelFilterVirtualRoot + +type instance AttributeList TreeModelFilter = '[ '("child-model", TreeModelFilterChildModelPropertyInfo), '("virtual-root", TreeModelFilterVirtualRootPropertyInfo)] + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getTreeModelSortModel :: (MonadIO m, TreeModelSortK o) => o -> m TreeModel +getTreeModelSortModel obj = liftIO $ getObjectPropertyObject obj "model" TreeModel + +constructTreeModelSortModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructTreeModelSortModel val = constructObjectPropertyObject "model" val + +data TreeModelSortModelPropertyInfo +instance AttrInfo TreeModelSortModelPropertyInfo where + type AttrAllowedOps TreeModelSortModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeModelSortModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint TreeModelSortModelPropertyInfo = TreeModelSortK + type AttrGetType TreeModelSortModelPropertyInfo = TreeModel + type AttrLabel TreeModelSortModelPropertyInfo = "TreeModelSort::model" + attrGet _ = getTreeModelSortModel + attrSet _ = undefined + attrConstruct _ = constructTreeModelSortModel + +type instance AttributeList TreeModelSort = '[ '("model", TreeModelSortModelPropertyInfo)] + +-- VVV Prop "mode" + -- Type: TInterface "Gtk" "SelectionMode" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeSelection::mode" + attrGet _ = getTreeSelectionMode + attrSet _ = setTreeSelectionMode + attrConstruct _ = constructTreeSelectionMode + +type instance AttributeList TreeSelection = '[ '("mode", TreeSelectionModePropertyInfo)] + +type instance AttributeList TreeSortable = '[ ] + +type instance AttributeList TreeStore = '[ ] + +-- VVV Prop "activate-on-single-click" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::activate-on-single-click" + attrGet _ = getTreeViewActivateOnSingleClick + attrSet _ = setTreeViewActivateOnSingleClick + attrConstruct _ = constructTreeViewActivateOnSingleClick + +-- VVV Prop "enable-grid-lines" + -- Type: TInterface "Gtk" "TreeViewGridLines" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::enable-grid-lines" + attrGet _ = getTreeViewEnableGridLines + attrSet _ = setTreeViewEnableGridLines + attrConstruct _ = constructTreeViewEnableGridLines + +-- VVV Prop "enable-search" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::enable-search" + attrGet _ = getTreeViewEnableSearch + attrSet _ = setTreeViewEnableSearch + attrConstruct _ = constructTreeViewEnableSearch + +-- VVV Prop "enable-tree-lines" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::enable-tree-lines" + attrGet _ = getTreeViewEnableTreeLines + attrSet _ = setTreeViewEnableTreeLines + attrConstruct _ = constructTreeViewEnableTreeLines + +-- VVV Prop "expander-column" + -- Type: TInterface "Gtk" "TreeViewColumn" + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewExpanderColumn :: (MonadIO m, TreeViewK o) => o -> m TreeViewColumn +getTreeViewExpanderColumn obj = liftIO $ getObjectPropertyObject obj "expander-column" TreeViewColumn + +setTreeViewExpanderColumn :: (MonadIO m, TreeViewK o, TreeViewColumnK a) => o -> a -> m () +setTreeViewExpanderColumn obj val = liftIO $ setObjectPropertyObject obj "expander-column" val + +constructTreeViewExpanderColumn :: (TreeViewColumnK a) => a -> IO ([Char], GValue) +constructTreeViewExpanderColumn val = constructObjectPropertyObject "expander-column" 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 = "TreeView::expander-column" + attrGet _ = getTreeViewExpanderColumn + attrSet _ = setTreeViewExpanderColumn + attrConstruct _ = constructTreeViewExpanderColumn + +-- VVV Prop "fixed-height-mode" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::fixed-height-mode" + attrGet _ = getTreeViewFixedHeightMode + attrSet _ = setTreeViewFixedHeightMode + attrConstruct _ = constructTreeViewFixedHeightMode + +-- VVV Prop "headers-clickable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::headers-clickable" + attrGet _ = getTreeViewHeadersClickable + attrSet _ = setTreeViewHeadersClickable + attrConstruct _ = constructTreeViewHeadersClickable + +-- VVV Prop "headers-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::headers-visible" + attrGet _ = getTreeViewHeadersVisible + attrSet _ = setTreeViewHeadersVisible + attrConstruct _ = constructTreeViewHeadersVisible + +-- VVV Prop "hover-expand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::hover-expand" + attrGet _ = getTreeViewHoverExpand + attrSet _ = setTreeViewHoverExpand + attrConstruct _ = constructTreeViewHoverExpand + +-- VVV Prop "hover-selection" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::hover-selection" + attrGet _ = getTreeViewHoverSelection + attrSet _ = setTreeViewHoverSelection + attrConstruct _ = constructTreeViewHoverSelection + +-- VVV Prop "level-indentation" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> m Int32 +getTreeViewLevelIndentation obj = liftIO $ getObjectPropertyCInt obj "level-indentation" + +setTreeViewLevelIndentation :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () +setTreeViewLevelIndentation obj val = liftIO $ setObjectPropertyCInt obj "level-indentation" val + +constructTreeViewLevelIndentation :: Int32 -> IO ([Char], GValue) +constructTreeViewLevelIndentation val = constructObjectPropertyCInt "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 = "TreeView::level-indentation" + attrGet _ = getTreeViewLevelIndentation + attrSet _ = setTreeViewLevelIndentation + attrConstruct _ = constructTreeViewLevelIndentation + +-- VVV Prop "model" + -- Type: TInterface "Gtk" "TreeModel" + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewModel :: (MonadIO m, TreeViewK o) => o -> m 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" val + +constructTreeViewModel :: (TreeModelK a) => a -> IO ([Char], GValue) +constructTreeViewModel val = constructObjectPropertyObject "model" val + +data TreeViewModelPropertyInfo +instance AttrInfo TreeViewModelPropertyInfo where + type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewModelPropertyInfo = TreeModelK + type AttrBaseTypeConstraint TreeViewModelPropertyInfo = TreeViewK + type AttrGetType TreeViewModelPropertyInfo = TreeModel + type AttrLabel TreeViewModelPropertyInfo = "TreeView::model" + attrGet _ = getTreeViewModel + attrSet _ = setTreeViewModel + attrConstruct _ = constructTreeViewModel + +-- VVV Prop "reorderable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::reorderable" + attrGet _ = getTreeViewReorderable + attrSet _ = setTreeViewReorderable + attrConstruct _ = constructTreeViewReorderable + +-- VVV Prop "rubber-banding" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::rubber-banding" + attrGet _ = getTreeViewRubberBanding + attrSet _ = setTreeViewRubberBanding + attrConstruct _ = constructTreeViewRubberBanding + +-- VVV Prop "rules-hint" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::rules-hint" + attrGet _ = getTreeViewRulesHint + attrSet _ = setTreeViewRulesHint + attrConstruct _ = constructTreeViewRulesHint + +-- VVV Prop "search-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 +getTreeViewSearchColumn obj = liftIO $ getObjectPropertyCInt obj "search-column" + +setTreeViewSearchColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () +setTreeViewSearchColumn obj val = liftIO $ setObjectPropertyCInt obj "search-column" val + +constructTreeViewSearchColumn :: Int32 -> IO ([Char], GValue) +constructTreeViewSearchColumn val = constructObjectPropertyCInt "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 = "TreeView::search-column" + attrGet _ = getTreeViewSearchColumn + attrSet _ = setTreeViewSearchColumn + attrConstruct _ = constructTreeViewSearchColumn + +-- VVV Prop "show-expanders" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeView::show-expanders" + attrGet _ = getTreeViewShowExpanders + attrSet _ = setTreeViewShowExpanders + attrConstruct _ = constructTreeViewShowExpanders + +-- VVV Prop "tooltip-column" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> m Int32 +getTreeViewTooltipColumn obj = liftIO $ getObjectPropertyCInt obj "tooltip-column" + +setTreeViewTooltipColumn :: (MonadIO m, TreeViewK o) => o -> Int32 -> m () +setTreeViewTooltipColumn obj val = liftIO $ setObjectPropertyCInt obj "tooltip-column" val + +constructTreeViewTooltipColumn :: Int32 -> IO ([Char], GValue) +constructTreeViewTooltipColumn val = constructObjectPropertyCInt "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 = "TreeView::tooltip-column" + attrGet _ = getTreeViewTooltipColumn + attrSet _ = setTreeViewTooltipColumn + attrConstruct _ = constructTreeViewTooltipColumn + +type instance AttributeList TreeView = '[ '("activate-on-single-click", TreeViewActivateOnSingleClickPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("enable-grid-lines", TreeViewEnableGridLinesPropertyInfo), '("enable-search", TreeViewEnableSearchPropertyInfo), '("enable-tree-lines", TreeViewEnableTreeLinesPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("expander-column", TreeViewExpanderColumnPropertyInfo), '("fixed-height-mode", TreeViewFixedHeightModePropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("headers-clickable", TreeViewHeadersClickablePropertyInfo), '("headers-visible", TreeViewHeadersVisiblePropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hover-expand", TreeViewHoverExpandPropertyInfo), '("hover-selection", TreeViewHoverSelectionPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("level-indentation", TreeViewLevelIndentationPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("model", TreeViewModelPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("reorderable", TreeViewReorderablePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("rubber-banding", TreeViewRubberBandingPropertyInfo), '("rules-hint", TreeViewRulesHintPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("search-column", TreeViewSearchColumnPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-expanders", TreeViewShowExpandersPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-column", TreeViewTooltipColumnPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList TreeViewAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "alignment" + -- Type: TBasicType TFloat + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::alignment" + attrGet _ = getTreeViewColumnAlignment + attrSet _ = setTreeViewColumnAlignment + attrConstruct _ = constructTreeViewColumnAlignment + +-- VVV Prop "cell-area" + -- Type: TInterface "Gtk" "CellArea" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getTreeViewColumnCellArea :: (MonadIO m, TreeViewColumnK o) => o -> m CellArea +getTreeViewColumnCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea + +constructTreeViewColumnCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) +constructTreeViewColumnCellArea val = constructObjectPropertyObject "cell-area" val + +data TreeViewColumnCellAreaPropertyInfo +instance AttrInfo TreeViewColumnCellAreaPropertyInfo where + type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = CellAreaK + type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = TreeViewColumnK + type AttrGetType TreeViewColumnCellAreaPropertyInfo = CellArea + type AttrLabel TreeViewColumnCellAreaPropertyInfo = "TreeViewColumn::cell-area" + attrGet _ = getTreeViewColumnCellArea + attrSet _ = undefined + attrConstruct _ = constructTreeViewColumnCellArea + +-- VVV Prop "clickable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::clickable" + attrGet _ = getTreeViewColumnClickable + attrSet _ = setTreeViewColumnClickable + attrConstruct _ = constructTreeViewColumnClickable + +-- VVV Prop "expand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::expand" + attrGet _ = getTreeViewColumnExpand + attrSet _ = setTreeViewColumnExpand + attrConstruct _ = constructTreeViewColumnExpand + +-- VVV Prop "fixed-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 +getTreeViewColumnFixedWidth obj = liftIO $ getObjectPropertyCInt obj "fixed-width" + +setTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () +setTreeViewColumnFixedWidth obj val = liftIO $ setObjectPropertyCInt obj "fixed-width" val + +constructTreeViewColumnFixedWidth :: Int32 -> IO ([Char], GValue) +constructTreeViewColumnFixedWidth val = constructObjectPropertyCInt "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 = "TreeViewColumn::fixed-width" + attrGet _ = getTreeViewColumnFixedWidth + attrSet _ = setTreeViewColumnFixedWidth + attrConstruct _ = constructTreeViewColumnFixedWidth + +-- VVV Prop "max-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 +getTreeViewColumnMaxWidth obj = liftIO $ getObjectPropertyCInt obj "max-width" + +setTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () +setTreeViewColumnMaxWidth obj val = liftIO $ setObjectPropertyCInt obj "max-width" val + +constructTreeViewColumnMaxWidth :: Int32 -> IO ([Char], GValue) +constructTreeViewColumnMaxWidth val = constructObjectPropertyCInt "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 = "TreeViewColumn::max-width" + attrGet _ = getTreeViewColumnMaxWidth + attrSet _ = setTreeViewColumnMaxWidth + attrConstruct _ = constructTreeViewColumnMaxWidth + +-- VVV Prop "min-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 +getTreeViewColumnMinWidth obj = liftIO $ getObjectPropertyCInt obj "min-width" + +setTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () +setTreeViewColumnMinWidth obj val = liftIO $ setObjectPropertyCInt obj "min-width" val + +constructTreeViewColumnMinWidth :: Int32 -> IO ([Char], GValue) +constructTreeViewColumnMinWidth val = constructObjectPropertyCInt "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 = "TreeViewColumn::min-width" + attrGet _ = getTreeViewColumnMinWidth + attrSet _ = setTreeViewColumnMinWidth + attrConstruct _ = constructTreeViewColumnMinWidth + +-- VVV Prop "reorderable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::reorderable" + attrGet _ = getTreeViewColumnReorderable + attrSet _ = setTreeViewColumnReorderable + attrConstruct _ = constructTreeViewColumnReorderable + +-- VVV Prop "resizable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::resizable" + attrGet _ = getTreeViewColumnResizable + attrSet _ = setTreeViewColumnResizable + attrConstruct _ = constructTreeViewColumnResizable + +-- VVV Prop "sizing" + -- Type: TInterface "Gtk" "TreeViewColumnSizing" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::sizing" + attrGet _ = getTreeViewColumnSizing + attrSet _ = setTreeViewColumnSizing + attrConstruct _ = constructTreeViewColumnSizing + +-- VVV Prop "sort-column-id" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 +getTreeViewColumnSortColumnId obj = liftIO $ getObjectPropertyCInt obj "sort-column-id" + +setTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () +setTreeViewColumnSortColumnId obj val = liftIO $ setObjectPropertyCInt obj "sort-column-id" val + +constructTreeViewColumnSortColumnId :: Int32 -> IO ([Char], GValue) +constructTreeViewColumnSortColumnId val = constructObjectPropertyCInt "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 = "TreeViewColumn::sort-column-id" + attrGet _ = getTreeViewColumnSortColumnId + attrSet _ = setTreeViewColumnSortColumnId + attrConstruct _ = constructTreeViewColumnSortColumnId + +-- VVV Prop "sort-indicator" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::sort-indicator" + attrGet _ = getTreeViewColumnSortIndicator + attrSet _ = setTreeViewColumnSortIndicator + attrConstruct _ = constructTreeViewColumnSortIndicator + +-- VVV Prop "sort-order" + -- Type: TInterface "Gtk" "SortType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::sort-order" + attrGet _ = getTreeViewColumnSortOrder + attrSet _ = setTreeViewColumnSortOrder + attrConstruct _ = constructTreeViewColumnSortOrder + +-- VVV Prop "spacing" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 +getTreeViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing" + +setTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () +setTreeViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val + +constructTreeViewColumnSpacing :: Int32 -> IO ([Char], GValue) +constructTreeViewColumnSpacing val = constructObjectPropertyCInt "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 = "TreeViewColumn::spacing" + attrGet _ = getTreeViewColumnSpacing + attrSet _ = setTreeViewColumnSpacing + attrConstruct _ = constructTreeViewColumnSpacing + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> m T.Text +getTreeViewColumnTitle obj = liftIO $ getObjectPropertyString obj "title" + +setTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> T.Text -> m () +setTreeViewColumnTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructTreeViewColumnTitle :: T.Text -> IO ([Char], GValue) +constructTreeViewColumnTitle val = constructObjectPropertyString "title" 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 = "TreeViewColumn::title" + attrGet _ = getTreeViewColumnTitle + attrSet _ = setTreeViewColumnTitle + attrConstruct _ = constructTreeViewColumnTitle + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "TreeViewColumn::visible" + attrGet _ = getTreeViewColumnVisible + attrSet _ = setTreeViewColumnVisible + attrConstruct _ = constructTreeViewColumnVisible + +-- VVV Prop "widget" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable] + +getTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m Widget +getTreeViewColumnWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget + +setTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o, WidgetK a) => o -> a -> m () +setTreeViewColumnWidget obj val = liftIO $ setObjectPropertyObject obj "widget" val + +constructTreeViewColumnWidget :: (WidgetK a) => a -> IO ([Char], GValue) +constructTreeViewColumnWidget val = constructObjectPropertyObject "widget" val + +data TreeViewColumnWidgetPropertyInfo +instance AttrInfo TreeViewColumnWidgetPropertyInfo where + type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = WidgetK + type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = TreeViewColumnK + type AttrGetType TreeViewColumnWidgetPropertyInfo = Widget + type AttrLabel TreeViewColumnWidgetPropertyInfo = "TreeViewColumn::widget" + attrGet _ = getTreeViewColumnWidget + attrSet _ = setTreeViewColumnWidget + attrConstruct _ = constructTreeViewColumnWidget + +-- VVV Prop "width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getTreeViewColumnWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 +getTreeViewColumnWidth obj = liftIO $ getObjectPropertyCInt 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 = "TreeViewColumn::width" + attrGet _ = getTreeViewColumnWidth + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "x-offset" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getTreeViewColumnXOffset :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 +getTreeViewColumnXOffset obj = liftIO $ getObjectPropertyCInt 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 = "TreeViewColumn::x-offset" + attrGet _ = getTreeViewColumnXOffset + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList TreeViewColumn = '[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cell-area", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixed-width", TreeViewColumnFixedWidthPropertyInfo), '("max-width", TreeViewColumnMaxWidthPropertyInfo), '("min-width", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sort-column-id", TreeViewColumnSortColumnIdPropertyInfo), '("sort-indicator", TreeViewColumnSortIndicatorPropertyInfo), '("sort-order", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("x-offset", TreeViewColumnXOffsetPropertyInfo)] + +-- VVV Prop "add-tearoffs" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "UIManager::add-tearoffs" + attrGet _ = getUIManagerAddTearoffs + attrSet _ = setUIManagerAddTearoffs + attrConstruct _ = constructUIManagerAddTearoffs + +-- VVV Prop "ui" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getUIManagerUi :: (MonadIO m, UIManagerK o) => o -> m T.Text +getUIManagerUi obj = liftIO $ getObjectPropertyString obj "ui" + +data UIManagerUiPropertyInfo +instance AttrInfo UIManagerUiPropertyInfo where + type AttrAllowedOps UIManagerUiPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint UIManagerUiPropertyInfo = (~) () + type AttrBaseTypeConstraint UIManagerUiPropertyInfo = UIManagerK + type AttrGetType UIManagerUiPropertyInfo = T.Text + type AttrLabel UIManagerUiPropertyInfo = "UIManager::ui" + attrGet _ = getUIManagerUi + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList UIManager = '[ '("add-tearoffs", UIManagerAddTearoffsPropertyInfo), '("ui", UIManagerUiPropertyInfo)] + +type instance AttributeList VBox = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList VButtonBox = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("baseline-position", BoxBaselinePositionPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("homogeneous", BoxHomogeneousPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("layout-style", ButtonBoxLayoutStylePropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("spacing", BoxSpacingPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList VPaned = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-position", PanedMaxPositionPropertyInfo), '("min-position", PanedMinPositionPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("position", PanedPositionPropertyInfo), '("position-set", PanedPositionSetPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("wide-handle", PanedWideHandlePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList VScale = '[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("digits", ScaleDigitsPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("draw-value", ScaleDrawValuePropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-origin", ScaleHasOriginPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("value-pos", ScaleValuePosPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList VScrollbar = '[ '("adjustment", RangeAdjustmentPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("fill-level", RangeFillLevelPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("inverted", RangeInvertedPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("lower-stepper-sensitivity", RangeLowerStepperSensitivityPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("restrict-to-fill-level", RangeRestrictToFillLevelPropertyInfo), '("round-digits", RangeRoundDigitsPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("show-fill-level", RangeShowFillLevelPropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("upper-stepper-sensitivity", RangeUpperStepperSensitivityPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList VSeparator = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "shadow-type" + -- Type: TInterface "Gtk" "ShadowType" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Viewport::shadow-type" + attrGet _ = getViewportShadowType + attrSet _ = setViewportShadowType + attrConstruct _ = constructViewportShadowType + +type instance AttributeList Viewport = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("hadjustment", ScrollableHadjustmentPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hscroll-policy", ScrollableHscrollPolicyPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", ViewportShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("vadjustment", ScrollableVadjustmentPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("vscroll-policy", ScrollableVscrollPolicyPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +-- VVV Prop "use-symbolic" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +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 = "VolumeButton::use-symbolic" + attrGet _ = getVolumeButtonUseSymbolic + attrSet _ = setVolumeButtonUseSymbolic + attrConstruct _ = constructVolumeButtonUseSymbolic + +type instance AttributeList VolumeButton = '[ '("action-name", ActionableActionNamePropertyInfo), '("action-target", ActionableActionTargetPropertyInfo), '("adjustment", ScaleButtonAdjustmentPropertyInfo), '("always-show-image", ButtonAlwaysShowImagePropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-click", ButtonFocusOnClickPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("icons", ScaleButtonIconsPropertyInfo), '("image", ButtonImagePropertyInfo), '("image-position", ButtonImagePositionPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("label", ButtonLabelPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("orientation", OrientableOrientationPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("related-action", ActivatableRelatedActionPropertyInfo), '("relief", ButtonReliefPropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("size", ScaleButtonSizePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("use-action-appearance", ActivatableUseActionAppearancePropertyInfo), '("use-stock", ButtonUseStockPropertyInfo), '("use-symbolic", VolumeButtonUseSymbolicPropertyInfo), '("use-underline", ButtonUseUnderlinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("value", ScaleButtonValuePropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", ButtonXalignPropertyInfo), '("yalign", ButtonYalignPropertyInfo)] + +-- VVV Prop "app-paintable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::app-paintable" + attrGet _ = getWidgetAppPaintable + attrSet _ = setWidgetAppPaintable + attrConstruct _ = constructWidgetAppPaintable + +-- VVV Prop "can-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::can-default" + attrGet _ = getWidgetCanDefault + attrSet _ = setWidgetCanDefault + attrConstruct _ = constructWidgetCanDefault + +-- VVV Prop "can-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::can-focus" + attrGet _ = getWidgetCanFocus + attrSet _ = setWidgetCanFocus + attrConstruct _ = constructWidgetCanFocus + +-- VVV Prop "composite-child" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "Widget::composite-child" + attrGet _ = getWidgetCompositeChild + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "double-buffered" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::double-buffered" + attrGet _ = getWidgetDoubleBuffered + attrSet _ = setWidgetDoubleBuffered + attrConstruct _ = constructWidgetDoubleBuffered + +-- VVV Prop "events" + -- Type: TInterface "Gdk" "EventMask" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::events" + attrGet _ = getWidgetEvents + attrSet _ = setWidgetEvents + attrConstruct _ = constructWidgetEvents + +-- VVV Prop "expand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::expand" + attrGet _ = getWidgetExpand + attrSet _ = setWidgetExpand + attrConstruct _ = constructWidgetExpand + +-- VVV Prop "halign" + -- Type: TInterface "Gtk" "Align" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::halign" + attrGet _ = getWidgetHalign + attrSet _ = setWidgetHalign + attrConstruct _ = constructWidgetHalign + +-- VVV Prop "has-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::has-default" + attrGet _ = getWidgetHasDefault + attrSet _ = setWidgetHasDefault + attrConstruct _ = constructWidgetHasDefault + +-- VVV Prop "has-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::has-focus" + attrGet _ = getWidgetHasFocus + attrSet _ = setWidgetHasFocus + attrConstruct _ = constructWidgetHasFocus + +-- VVV Prop "has-tooltip" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::has-tooltip" + attrGet _ = getWidgetHasTooltip + attrSet _ = setWidgetHasTooltip + attrConstruct _ = constructWidgetHasTooltip + +-- VVV Prop "height-request" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetHeightRequest obj = liftIO $ getObjectPropertyCInt obj "height-request" + +setWidgetHeightRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetHeightRequest obj val = liftIO $ setObjectPropertyCInt obj "height-request" val + +constructWidgetHeightRequest :: Int32 -> IO ([Char], GValue) +constructWidgetHeightRequest val = constructObjectPropertyCInt "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 = "Widget::height-request" + attrGet _ = getWidgetHeightRequest + attrSet _ = setWidgetHeightRequest + attrConstruct _ = constructWidgetHeightRequest + +-- VVV Prop "hexpand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::hexpand" + attrGet _ = getWidgetHexpand + attrSet _ = setWidgetHexpand + attrConstruct _ = constructWidgetHexpand + +-- VVV Prop "hexpand-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::hexpand-set" + attrGet _ = getWidgetHexpandSet + attrSet _ = setWidgetHexpandSet + attrConstruct _ = constructWidgetHexpandSet + +-- VVV Prop "is-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::is-focus" + attrGet _ = getWidgetIsFocus + attrSet _ = setWidgetIsFocus + attrConstruct _ = constructWidgetIsFocus + +-- VVV Prop "margin" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMargin :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMargin obj = liftIO $ getObjectPropertyCInt obj "margin" + +setWidgetMargin :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMargin obj val = liftIO $ setObjectPropertyCInt obj "margin" val + +constructWidgetMargin :: Int32 -> IO ([Char], GValue) +constructWidgetMargin val = constructObjectPropertyCInt "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 = "Widget::margin" + attrGet _ = getWidgetMargin + attrSet _ = setWidgetMargin + attrConstruct _ = constructWidgetMargin + +-- VVV Prop "margin-bottom" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginBottom obj = liftIO $ getObjectPropertyCInt obj "margin-bottom" + +setWidgetMarginBottom :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginBottom obj val = liftIO $ setObjectPropertyCInt obj "margin-bottom" val + +constructWidgetMarginBottom :: Int32 -> IO ([Char], GValue) +constructWidgetMarginBottom val = constructObjectPropertyCInt "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 = "Widget::margin-bottom" + attrGet _ = getWidgetMarginBottom + attrSet _ = setWidgetMarginBottom + attrConstruct _ = constructWidgetMarginBottom + +-- VVV Prop "margin-end" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginEnd obj = liftIO $ getObjectPropertyCInt obj "margin-end" + +setWidgetMarginEnd :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginEnd obj val = liftIO $ setObjectPropertyCInt obj "margin-end" val + +constructWidgetMarginEnd :: Int32 -> IO ([Char], GValue) +constructWidgetMarginEnd val = constructObjectPropertyCInt "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 = "Widget::margin-end" + attrGet _ = getWidgetMarginEnd + attrSet _ = setWidgetMarginEnd + attrConstruct _ = constructWidgetMarginEnd + +-- VVV Prop "margin-left" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginLeft obj = liftIO $ getObjectPropertyCInt obj "margin-left" + +setWidgetMarginLeft :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginLeft obj val = liftIO $ setObjectPropertyCInt obj "margin-left" val + +constructWidgetMarginLeft :: Int32 -> IO ([Char], GValue) +constructWidgetMarginLeft val = constructObjectPropertyCInt "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 = "Widget::margin-left" + attrGet _ = getWidgetMarginLeft + attrSet _ = setWidgetMarginLeft + attrConstruct _ = constructWidgetMarginLeft + +-- VVV Prop "margin-right" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginRight obj = liftIO $ getObjectPropertyCInt obj "margin-right" + +setWidgetMarginRight :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginRight obj val = liftIO $ setObjectPropertyCInt obj "margin-right" val + +constructWidgetMarginRight :: Int32 -> IO ([Char], GValue) +constructWidgetMarginRight val = constructObjectPropertyCInt "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 = "Widget::margin-right" + attrGet _ = getWidgetMarginRight + attrSet _ = setWidgetMarginRight + attrConstruct _ = constructWidgetMarginRight + +-- VVV Prop "margin-start" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginStart obj = liftIO $ getObjectPropertyCInt obj "margin-start" + +setWidgetMarginStart :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginStart obj val = liftIO $ setObjectPropertyCInt obj "margin-start" val + +constructWidgetMarginStart :: Int32 -> IO ([Char], GValue) +constructWidgetMarginStart val = constructObjectPropertyCInt "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 = "Widget::margin-start" + attrGet _ = getWidgetMarginStart + attrSet _ = setWidgetMarginStart + attrConstruct _ = constructWidgetMarginStart + +-- VVV Prop "margin-top" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetMarginTop obj = liftIO $ getObjectPropertyCInt obj "margin-top" + +setWidgetMarginTop :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetMarginTop obj val = liftIO $ setObjectPropertyCInt obj "margin-top" val + +constructWidgetMarginTop :: Int32 -> IO ([Char], GValue) +constructWidgetMarginTop val = constructObjectPropertyCInt "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 = "Widget::margin-top" + attrGet _ = getWidgetMarginTop + attrSet _ = setWidgetMarginTop + attrConstruct _ = constructWidgetMarginTop + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetName :: (MonadIO m, WidgetK o) => o -> m T.Text +getWidgetName obj = liftIO $ getObjectPropertyString obj "name" + +setWidgetName :: (MonadIO m, WidgetK o) => o -> T.Text -> m () +setWidgetName obj val = liftIO $ setObjectPropertyString obj "name" val + +constructWidgetName :: T.Text -> IO ([Char], GValue) +constructWidgetName val = constructObjectPropertyString "name" 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 = "Widget::name" + attrGet _ = getWidgetName + attrSet _ = setWidgetName + attrConstruct _ = constructWidgetName + +-- VVV Prop "no-show-all" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::no-show-all" + attrGet _ = getWidgetNoShowAll + attrSet _ = setWidgetNoShowAll + attrConstruct _ = constructWidgetNoShowAll + +-- VVV Prop "opacity" + -- Type: TBasicType TDouble + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::opacity" + attrGet _ = getWidgetOpacity + attrSet _ = setWidgetOpacity + attrConstruct _ = constructWidgetOpacity + +-- VVV Prop "parent" + -- Type: TInterface "Gtk" "Container" + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetParent :: (MonadIO m, WidgetK o) => o -> m 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" val + +constructWidgetParent :: (ContainerK a) => a -> IO ([Char], GValue) +constructWidgetParent val = constructObjectPropertyObject "parent" val + +data WidgetParentPropertyInfo +instance AttrInfo WidgetParentPropertyInfo where + type AttrAllowedOps WidgetParentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetParentPropertyInfo = ContainerK + type AttrBaseTypeConstraint WidgetParentPropertyInfo = WidgetK + type AttrGetType WidgetParentPropertyInfo = Container + type AttrLabel WidgetParentPropertyInfo = "Widget::parent" + attrGet _ = getWidgetParent + attrSet _ = setWidgetParent + attrConstruct _ = constructWidgetParent + +-- VVV Prop "receives-default" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::receives-default" + attrGet _ = getWidgetReceivesDefault + attrSet _ = setWidgetReceivesDefault + attrConstruct _ = constructWidgetReceivesDefault + +-- VVV Prop "scale-factor" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable] + +getWidgetScaleFactor :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetScaleFactor obj = liftIO $ getObjectPropertyCInt 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 = "Widget::scale-factor" + attrGet _ = getWidgetScaleFactor + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "sensitive" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::sensitive" + attrGet _ = getWidgetSensitive + attrSet _ = setWidgetSensitive + attrConstruct _ = constructWidgetSensitive + +-- VVV Prop "style" + -- Type: TInterface "Gtk" "Style" + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetStyle :: (MonadIO m, WidgetK o) => o -> m Style +getWidgetStyle obj = liftIO $ getObjectPropertyObject obj "style" Style + +setWidgetStyle :: (MonadIO m, WidgetK o, StyleK a) => o -> a -> m () +setWidgetStyle obj val = liftIO $ setObjectPropertyObject obj "style" val + +constructWidgetStyle :: (StyleK a) => a -> IO ([Char], GValue) +constructWidgetStyle val = constructObjectPropertyObject "style" val + +data WidgetStylePropertyInfo +instance AttrInfo WidgetStylePropertyInfo where + type AttrAllowedOps WidgetStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetStylePropertyInfo = StyleK + type AttrBaseTypeConstraint WidgetStylePropertyInfo = WidgetK + type AttrGetType WidgetStylePropertyInfo = Style + type AttrLabel WidgetStylePropertyInfo = "Widget::style" + attrGet _ = getWidgetStyle + attrSet _ = setWidgetStyle + attrConstruct _ = constructWidgetStyle + +-- VVV Prop "tooltip-markup" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetTooltipMarkup :: (MonadIO m, WidgetK o) => o -> m 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" val + +constructWidgetTooltipMarkup :: T.Text -> IO ([Char], GValue) +constructWidgetTooltipMarkup val = constructObjectPropertyString "tooltip-markup" val + +data WidgetTooltipMarkupPropertyInfo +instance AttrInfo WidgetTooltipMarkupPropertyInfo where + type AttrAllowedOps WidgetTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetTooltipMarkupPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WidgetTooltipMarkupPropertyInfo = WidgetK + type AttrGetType WidgetTooltipMarkupPropertyInfo = T.Text + type AttrLabel WidgetTooltipMarkupPropertyInfo = "Widget::tooltip-markup" + attrGet _ = getWidgetTooltipMarkup + attrSet _ = setWidgetTooltipMarkup + attrConstruct _ = constructWidgetTooltipMarkup + +-- VVV Prop "tooltip-text" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetTooltipText :: (MonadIO m, WidgetK o) => o -> m 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" val + +constructWidgetTooltipText :: T.Text -> IO ([Char], GValue) +constructWidgetTooltipText val = constructObjectPropertyString "tooltip-text" val + +data WidgetTooltipTextPropertyInfo +instance AttrInfo WidgetTooltipTextPropertyInfo where + type AttrAllowedOps WidgetTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WidgetTooltipTextPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WidgetTooltipTextPropertyInfo = WidgetK + type AttrGetType WidgetTooltipTextPropertyInfo = T.Text + type AttrLabel WidgetTooltipTextPropertyInfo = "Widget::tooltip-text" + attrGet _ = getWidgetTooltipText + attrSet _ = setWidgetTooltipText + attrConstruct _ = constructWidgetTooltipText + +-- VVV Prop "valign" + -- Type: TInterface "Gtk" "Align" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::valign" + attrGet _ = getWidgetValign + attrSet _ = setWidgetValign + attrConstruct _ = constructWidgetValign + +-- VVV Prop "vexpand" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::vexpand" + attrGet _ = getWidgetVexpand + attrSet _ = setWidgetVexpand + attrConstruct _ = constructWidgetVexpand + +-- VVV Prop "vexpand-set" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::vexpand-set" + attrGet _ = getWidgetVexpandSet + attrSet _ = setWidgetVexpandSet + attrConstruct _ = constructWidgetVexpandSet + +-- VVV Prop "visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Widget::visible" + attrGet _ = getWidgetVisible + attrSet _ = setWidgetVisible + attrConstruct _ = constructWidgetVisible + +-- VVV Prop "width-request" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> m Int32 +getWidgetWidthRequest obj = liftIO $ getObjectPropertyCInt obj "width-request" + +setWidgetWidthRequest :: (MonadIO m, WidgetK o) => o -> Int32 -> m () +setWidgetWidthRequest obj val = liftIO $ setObjectPropertyCInt obj "width-request" val + +constructWidgetWidthRequest :: Int32 -> IO ([Char], GValue) +constructWidgetWidthRequest val = constructObjectPropertyCInt "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 = "Widget::width-request" + attrGet _ = getWidgetWidthRequest + attrSet _ = setWidgetWidthRequest + attrConstruct _ = constructWidgetWidthRequest + +-- VVV Prop "window" + -- Type: TInterface "Gdk" "Window" + -- Flags: [PropertyReadable] + +getWidgetWindow :: (MonadIO m, WidgetK o) => o -> m Gdk.Window +getWidgetWindow obj = liftIO $ getObjectPropertyObject obj "window" Gdk.Window + +data WidgetWindowPropertyInfo +instance AttrInfo WidgetWindowPropertyInfo where + type AttrAllowedOps WidgetWindowPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WidgetWindowPropertyInfo = (~) () + type AttrBaseTypeConstraint WidgetWindowPropertyInfo = WidgetK + type AttrGetType WidgetWindowPropertyInfo = Gdk.Window + type AttrLabel WidgetWindowPropertyInfo = "Widget::window" + attrGet _ = getWidgetWindow + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList Widget = '[ '("app-paintable", WidgetAppPaintablePropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("style", WidgetStylePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo)] + +type instance AttributeList WidgetAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +-- VVV Prop "accept-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::accept-focus" + attrGet _ = getWindowAcceptFocus + attrSet _ = setWindowAcceptFocus + attrConstruct _ = constructWindowAcceptFocus + +-- VVV Prop "application" + -- Type: TInterface "Gtk" "Application" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowApplication :: (MonadIO m, WindowK o) => o -> m Application +getWindowApplication obj = liftIO $ getObjectPropertyObject obj "application" Application + +setWindowApplication :: (MonadIO m, WindowK o, ApplicationK a) => o -> a -> m () +setWindowApplication obj val = liftIO $ setObjectPropertyObject obj "application" val + +constructWindowApplication :: (ApplicationK a) => a -> IO ([Char], GValue) +constructWindowApplication val = constructObjectPropertyObject "application" val + +data WindowApplicationPropertyInfo +instance AttrInfo WindowApplicationPropertyInfo where + type AttrAllowedOps WindowApplicationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowApplicationPropertyInfo = ApplicationK + type AttrBaseTypeConstraint WindowApplicationPropertyInfo = WindowK + type AttrGetType WindowApplicationPropertyInfo = Application + type AttrLabel WindowApplicationPropertyInfo = "Window::application" + attrGet _ = getWindowApplication + attrSet _ = setWindowApplication + attrConstruct _ = constructWindowApplication + +-- VVV Prop "attached-to" + -- Type: TInterface "Gtk" "Widget" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWindowAttachedTo :: (MonadIO m, WindowK o) => o -> m Widget +getWindowAttachedTo obj = liftIO $ getObjectPropertyObject obj "attached-to" Widget + +setWindowAttachedTo :: (MonadIO m, WindowK o, WidgetK a) => o -> a -> m () +setWindowAttachedTo obj val = liftIO $ setObjectPropertyObject obj "attached-to" val + +constructWindowAttachedTo :: (WidgetK a) => a -> IO ([Char], GValue) +constructWindowAttachedTo val = constructObjectPropertyObject "attached-to" val + +data WindowAttachedToPropertyInfo +instance AttrInfo WindowAttachedToPropertyInfo where + type AttrAllowedOps WindowAttachedToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowAttachedToPropertyInfo = WidgetK + type AttrBaseTypeConstraint WindowAttachedToPropertyInfo = WindowK + type AttrGetType WindowAttachedToPropertyInfo = Widget + type AttrLabel WindowAttachedToPropertyInfo = "Window::attached-to" + attrGet _ = getWindowAttachedTo + attrSet _ = setWindowAttachedTo + attrConstruct _ = constructWindowAttachedTo + +-- VVV Prop "decorated" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::decorated" + attrGet _ = getWindowDecorated + attrSet _ = setWindowDecorated + attrConstruct _ = constructWindowDecorated + +-- VVV Prop "default-height" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> m Int32 +getWindowDefaultHeight obj = liftIO $ getObjectPropertyCInt obj "default-height" + +setWindowDefaultHeight :: (MonadIO m, WindowK o) => o -> Int32 -> m () +setWindowDefaultHeight obj val = liftIO $ setObjectPropertyCInt obj "default-height" val + +constructWindowDefaultHeight :: Int32 -> IO ([Char], GValue) +constructWindowDefaultHeight val = constructObjectPropertyCInt "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 = "Window::default-height" + attrGet _ = getWindowDefaultHeight + attrSet _ = setWindowDefaultHeight + attrConstruct _ = constructWindowDefaultHeight + +-- VVV Prop "default-width" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> m Int32 +getWindowDefaultWidth obj = liftIO $ getObjectPropertyCInt obj "default-width" + +setWindowDefaultWidth :: (MonadIO m, WindowK o) => o -> Int32 -> m () +setWindowDefaultWidth obj val = liftIO $ setObjectPropertyCInt obj "default-width" val + +constructWindowDefaultWidth :: Int32 -> IO ([Char], GValue) +constructWindowDefaultWidth val = constructObjectPropertyCInt "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 = "Window::default-width" + attrGet _ = getWindowDefaultWidth + attrSet _ = setWindowDefaultWidth + attrConstruct _ = constructWindowDefaultWidth + +-- VVV Prop "deletable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::deletable" + attrGet _ = getWindowDeletable + attrSet _ = setWindowDeletable + attrConstruct _ = constructWindowDeletable + +-- VVV Prop "destroy-with-parent" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::destroy-with-parent" + attrGet _ = getWindowDestroyWithParent + attrSet _ = setWindowDestroyWithParent + attrConstruct _ = constructWindowDestroyWithParent + +-- VVV Prop "focus-on-map" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::focus-on-map" + attrGet _ = getWindowFocusOnMap + attrSet _ = setWindowFocusOnMap + attrConstruct _ = constructWindowFocusOnMap + +-- VVV Prop "focus-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::focus-visible" + attrGet _ = getWindowFocusVisible + attrSet _ = setWindowFocusVisible + attrConstruct _ = constructWindowFocusVisible + +-- VVV Prop "gravity" + -- Type: TInterface "Gdk" "Gravity" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::gravity" + attrGet _ = getWindowGravity + attrSet _ = setWindowGravity + attrConstruct _ = constructWindowGravity + +-- VVV Prop "has-resize-grip" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::has-resize-grip" + attrGet _ = getWindowHasResizeGrip + attrSet _ = setWindowHasResizeGrip + attrConstruct _ = constructWindowHasResizeGrip + +-- VVV Prop "has-toplevel-focus" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "Window::has-toplevel-focus" + attrGet _ = getWindowHasToplevelFocus + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "hide-titlebar-when-maximized" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::hide-titlebar-when-maximized" + attrGet _ = getWindowHideTitlebarWhenMaximized + attrSet _ = setWindowHideTitlebarWhenMaximized + attrConstruct _ = constructWindowHideTitlebarWhenMaximized + +-- VVV Prop "icon" + -- Type: TInterface "GdkPixbuf" "Pixbuf" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowIcon :: (MonadIO m, WindowK o) => o -> m GdkPixbuf.Pixbuf +getWindowIcon obj = liftIO $ getObjectPropertyObject obj "icon" GdkPixbuf.Pixbuf + +setWindowIcon :: (MonadIO m, WindowK o, GdkPixbuf.PixbufK a) => o -> a -> m () +setWindowIcon obj val = liftIO $ setObjectPropertyObject obj "icon" val + +constructWindowIcon :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue) +constructWindowIcon val = constructObjectPropertyObject "icon" val + +data WindowIconPropertyInfo +instance AttrInfo WindowIconPropertyInfo where + type AttrAllowedOps WindowIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowIconPropertyInfo = GdkPixbuf.PixbufK + type AttrBaseTypeConstraint WindowIconPropertyInfo = WindowK + type AttrGetType WindowIconPropertyInfo = GdkPixbuf.Pixbuf + type AttrLabel WindowIconPropertyInfo = "Window::icon" + attrGet _ = getWindowIcon + attrSet _ = setWindowIcon + attrConstruct _ = constructWindowIcon + +-- VVV Prop "icon-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowIconName :: (MonadIO m, WindowK o) => o -> m T.Text +getWindowIconName obj = liftIO $ getObjectPropertyString obj "icon-name" + +setWindowIconName :: (MonadIO m, WindowK o) => o -> T.Text -> m () +setWindowIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" val + +constructWindowIconName :: T.Text -> IO ([Char], GValue) +constructWindowIconName val = constructObjectPropertyString "icon-name" val + +data WindowIconNamePropertyInfo +instance AttrInfo WindowIconNamePropertyInfo where + type AttrAllowedOps WindowIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowIconNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WindowIconNamePropertyInfo = WindowK + type AttrGetType WindowIconNamePropertyInfo = T.Text + type AttrLabel WindowIconNamePropertyInfo = "Window::icon-name" + attrGet _ = getWindowIconName + attrSet _ = setWindowIconName + attrConstruct _ = constructWindowIconName + +-- VVV Prop "is-active" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "Window::is-active" + attrGet _ = getWindowIsActive + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-maximized" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "Window::is-maximized" + attrGet _ = getWindowIsMaximized + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "mnemonics-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::mnemonics-visible" + attrGet _ = getWindowMnemonicsVisible + attrSet _ = setWindowMnemonicsVisible + attrConstruct _ = constructWindowMnemonicsVisible + +-- VVV Prop "modal" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::modal" + attrGet _ = getWindowModal + attrSet _ = setWindowModal + attrConstruct _ = constructWindowModal + +-- VVV Prop "resizable" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::resizable" + attrGet _ = getWindowResizable + attrSet _ = setWindowResizable + attrConstruct _ = constructWindowResizable + +-- VVV Prop "resize-grip-visible" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +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 = "Window::resize-grip-visible" + attrGet _ = getWindowResizeGripVisible + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "role" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowRole :: (MonadIO m, WindowK o) => o -> m T.Text +getWindowRole obj = liftIO $ getObjectPropertyString obj "role" + +setWindowRole :: (MonadIO m, WindowK o) => o -> T.Text -> m () +setWindowRole obj val = liftIO $ setObjectPropertyString obj "role" val + +constructWindowRole :: T.Text -> IO ([Char], GValue) +constructWindowRole val = constructObjectPropertyString "role" 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 = "Window::role" + attrGet _ = getWindowRole + attrSet _ = setWindowRole + attrConstruct _ = constructWindowRole + +-- VVV Prop "screen" + -- Type: TInterface "Gdk" "Screen" + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowScreen :: (MonadIO m, WindowK o) => o -> m Gdk.Screen +getWindowScreen obj = liftIO $ getObjectPropertyObject obj "screen" Gdk.Screen + +setWindowScreen :: (MonadIO m, WindowK o, Gdk.ScreenK a) => o -> a -> m () +setWindowScreen obj val = liftIO $ setObjectPropertyObject obj "screen" val + +constructWindowScreen :: (Gdk.ScreenK a) => a -> IO ([Char], GValue) +constructWindowScreen val = constructObjectPropertyObject "screen" 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 = "Window::screen" + attrGet _ = getWindowScreen + attrSet _ = setWindowScreen + attrConstruct _ = constructWindowScreen + +-- VVV Prop "skip-pager-hint" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::skip-pager-hint" + attrGet _ = getWindowSkipPagerHint + attrSet _ = setWindowSkipPagerHint + attrConstruct _ = constructWindowSkipPagerHint + +-- VVV Prop "skip-taskbar-hint" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::skip-taskbar-hint" + attrGet _ = getWindowSkipTaskbarHint + attrSet _ = setWindowSkipTaskbarHint + attrConstruct _ = constructWindowSkipTaskbarHint + +-- VVV Prop "startup-id" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setWindowStartupId :: (MonadIO m, WindowK o) => o -> T.Text -> m () +setWindowStartupId obj val = liftIO $ setObjectPropertyString obj "startup-id" val + +constructWindowStartupId :: T.Text -> IO ([Char], GValue) +constructWindowStartupId val = constructObjectPropertyString "startup-id" 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 = "Window::startup-id" + attrGet _ = undefined + attrSet _ = setWindowStartupId + attrConstruct _ = constructWindowStartupId + +-- VVV Prop "title" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getWindowTitle :: (MonadIO m, WindowK o) => o -> m T.Text +getWindowTitle obj = liftIO $ getObjectPropertyString obj "title" + +setWindowTitle :: (MonadIO m, WindowK o) => o -> T.Text -> m () +setWindowTitle obj val = liftIO $ setObjectPropertyString obj "title" val + +constructWindowTitle :: T.Text -> IO ([Char], GValue) +constructWindowTitle val = constructObjectPropertyString "title" 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 = "Window::title" + attrGet _ = getWindowTitle + attrSet _ = setWindowTitle + attrConstruct _ = constructWindowTitle + +-- VVV Prop "transient-for" + -- Type: TInterface "Gtk" "Window" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getWindowTransientFor :: (MonadIO m, WindowK o) => o -> m Window +getWindowTransientFor obj = liftIO $ getObjectPropertyObject obj "transient-for" Window + +setWindowTransientFor :: (MonadIO m, WindowK o, WindowK a) => o -> a -> m () +setWindowTransientFor obj val = liftIO $ setObjectPropertyObject obj "transient-for" val + +constructWindowTransientFor :: (WindowK a) => a -> IO ([Char], GValue) +constructWindowTransientFor val = constructObjectPropertyObject "transient-for" val + +data WindowTransientForPropertyInfo +instance AttrInfo WindowTransientForPropertyInfo where + type AttrAllowedOps WindowTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WindowTransientForPropertyInfo = WindowK + type AttrBaseTypeConstraint WindowTransientForPropertyInfo = WindowK + type AttrGetType WindowTransientForPropertyInfo = Window + type AttrLabel WindowTransientForPropertyInfo = "Window::transient-for" + attrGet _ = getWindowTransientFor + attrSet _ = setWindowTransientFor + attrConstruct _ = constructWindowTransientFor + +-- VVV Prop "type" + -- Type: TInterface "Gtk" "WindowType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +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 = "Window::type" + attrGet _ = getWindowType + attrSet _ = undefined + attrConstruct _ = constructWindowType + +-- VVV Prop "type-hint" + -- Type: TInterface "Gdk" "WindowTypeHint" + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::type-hint" + attrGet _ = getWindowTypeHint + attrSet _ = setWindowTypeHint + attrConstruct _ = constructWindowTypeHint + +-- VVV Prop "urgency-hint" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +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 = "Window::urgency-hint" + attrGet _ = getWindowUrgencyHint + attrSet _ = setWindowUrgencyHint + attrConstruct _ = constructWindowUrgencyHint + +-- VVV Prop "window-position" + -- Type: TInterface "Gtk" "WindowPosition" + -- Flags: [PropertyReadable,PropertyWritable] + +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::window-position" + attrGet _ = getWindowWindowPosition + attrSet _ = setWindowWindowPosition + attrConstruct _ = constructWindowWindowPosition + +type instance AttributeList Window = '[ '("accept-focus", WindowAcceptFocusPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("application", WindowApplicationPropertyInfo), '("attached-to", WindowAttachedToPropertyInfo), '("border-width", ContainerBorderWidthPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("decorated", WindowDecoratedPropertyInfo), '("default-height", WindowDefaultHeightPropertyInfo), '("default-width", WindowDefaultWidthPropertyInfo), '("deletable", WindowDeletablePropertyInfo), '("destroy-with-parent", WindowDestroyWithParentPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("focus-on-map", WindowFocusOnMapPropertyInfo), '("focus-visible", WindowFocusVisiblePropertyInfo), '("gravity", WindowGravityPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-resize-grip", WindowHasResizeGripPropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("has-toplevel-focus", WindowHasToplevelFocusPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("hide-titlebar-when-maximized", WindowHideTitlebarWhenMaximizedPropertyInfo), '("icon", WindowIconPropertyInfo), '("icon-name", WindowIconNamePropertyInfo), '("is-active", WindowIsActivePropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("is-maximized", WindowIsMaximizedPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("mnemonics-visible", WindowMnemonicsVisiblePropertyInfo), '("modal", WindowModalPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("parent", WidgetParentPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("resizable", WindowResizablePropertyInfo), '("resize-grip-visible", WindowResizeGripVisiblePropertyInfo), '("resize-mode", ContainerResizeModePropertyInfo), '("role", WindowRolePropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("screen", WindowScreenPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("skip-pager-hint", WindowSkipPagerHintPropertyInfo), '("skip-taskbar-hint", WindowSkipTaskbarHintPropertyInfo), '("startup-id", WindowStartupIdPropertyInfo), '("style", WidgetStylePropertyInfo), '("title", WindowTitlePropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("transient-for", WindowTransientForPropertyInfo), '("type", WindowTypePropertyInfo), '("type-hint", WindowTypeHintPropertyInfo), '("urgency-hint", WindowUrgencyHintPropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("window-position", WindowWindowPositionPropertyInfo)] + +type instance AttributeList WindowAccessible = '[ '("accessible-component-layer", AtkA.ObjectAccessibleComponentLayerPropertyInfo), '("accessible-component-mdi-zorder", AtkA.ObjectAccessibleComponentMdiZorderPropertyInfo), '("accessible-description", AtkA.ObjectAccessibleDescriptionPropertyInfo), '("accessible-hypertext-nlinks", AtkA.ObjectAccessibleHypertextNlinksPropertyInfo), '("accessible-name", AtkA.ObjectAccessibleNamePropertyInfo), '("accessible-parent", AtkA.ObjectAccessibleParentPropertyInfo), '("accessible-role", AtkA.ObjectAccessibleRolePropertyInfo), '("accessible-table-caption", AtkA.ObjectAccessibleTableCaptionPropertyInfo), '("accessible-table-caption-object", AtkA.ObjectAccessibleTableCaptionObjectPropertyInfo), '("accessible-table-column-description", AtkA.ObjectAccessibleTableColumnDescriptionPropertyInfo), '("accessible-table-column-header", AtkA.ObjectAccessibleTableColumnHeaderPropertyInfo), '("accessible-table-row-description", AtkA.ObjectAccessibleTableRowDescriptionPropertyInfo), '("accessible-table-row-header", AtkA.ObjectAccessibleTableRowHeaderPropertyInfo), '("accessible-table-summary", AtkA.ObjectAccessibleTableSummaryPropertyInfo), '("accessible-value", AtkA.ObjectAccessibleValuePropertyInfo), '("widget", AccessibleWidgetPropertyInfo)] + +type instance AttributeList WindowGroup = '[ ] + diff --git a/GI/GtkSignals.hs b/GI/GtkSignals.hs new file mode 100644 --- /dev/null +++ b/GI/GtkSignals.hs @@ -0,0 +1,2656 @@ +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-orphans #-} + +{-# LANGUAGE DataKinds, FlexibleInstances, + TypeFamilies, MultiParamTypeClasses, + TypeOperators #-} + +module GI.GtkSignals where + +import Data.GI.Base.Properties (GObjectNotifySignalInfo) +import Data.GI.Base.Signals +import Data.GI.Base.Overloading + +import qualified GI.AtkSignals as Atk +import qualified GI.GObjectSignals as GObject +import qualified GI.GioSignals as Gio +import GI.Gtk + +data AboutDialogActivateLinkSignalInfo +instance SignalInfo AboutDialogActivateLinkSignalInfo where + type HaskellCallbackType AboutDialogActivateLinkSignalInfo = AboutDialogActivateLinkCallback + connectSignal _ = connectAboutDialogActivateLink + +type instance SignalList AboutDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("activate-link", AboutDialogActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-activate", AccelGroupAccelActivateSignalInfo), '("accel-changed", AccelGroupAccelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AccelLabel = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current-link", LabelActivateCurrentLinkSignalInfo), '("activate-link", LabelActivateLinkSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", LabelCopyClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", LabelMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", LabelPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data AccelMapChangedSignalInfo +instance SignalInfo AccelMapChangedSignalInfo where + type HaskellCallbackType AccelMapChangedSignalInfo = AccelMapChangedCallback + connectSignal _ = connectAccelMapChanged + +type instance SignalList AccelMap = '[ '("changed", AccelMapChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Accessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ActionActivateSignalInfo +instance SignalInfo ActionActivateSignalInfo where + type HaskellCallbackType ActionActivateSignalInfo = ActionActivateCallback + connectSignal _ = connectActionActivate + +type instance SignalList Action = '[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ActionBar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("connect-proxy", ActionGroupConnectProxySignalInfo), '("disconnect-proxy", ActionGroupDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("post-activate", ActionGroupPostActivateSignalInfo), '("pre-activate", ActionGroupPreActivateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Actionable = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Activatable = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("changed", AdjustmentChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("value-changed", AdjustmentValueChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Alignment = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AppChooser = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data AppChooserButtonCustomItemActivatedSignalInfo +instance SignalInfo AppChooserButtonCustomItemActivatedSignalInfo where + type HaskellCallbackType AppChooserButtonCustomItemActivatedSignalInfo = AppChooserButtonCustomItemActivatedCallback + connectSignal _ = connectAppChooserButtonCustomItemActivated + +type instance SignalList AppChooserButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("custom-item-activated", AppChooserButtonCustomItemActivatedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AppChooserDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("application-activated", AppChooserWidgetApplicationActivatedSignalInfo), '("application-selected", AppChooserWidgetApplicationSelectedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", AppChooserWidgetPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("action-added", Gio.ActionGroupActionAddedSignalInfo), '("action-enabled-changed", Gio.ActionGroupActionEnabledChangedSignalInfo), '("action-removed", Gio.ActionGroupActionRemovedSignalInfo), '("action-state-changed", Gio.ActionGroupActionStateChangedSignalInfo), '("activate", Gio.ApplicationActivateSignalInfo), '("command-line", Gio.ApplicationCommandLineSignalInfo), '("handle-local-options", Gio.ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", Gio.ApplicationOpenSignalInfo), '("shutdown", Gio.ApplicationShutdownSignalInfo), '("startup", Gio.ApplicationStartupSignalInfo), '("window-added", ApplicationWindowAddedSignalInfo), '("window-removed", ApplicationWindowRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ApplicationWindow = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("action-added", Gio.ActionGroupActionAddedSignalInfo), '("action-enabled-changed", Gio.ActionGroupActionEnabledChangedSignalInfo), '("action-removed", Gio.ActionGroupActionRemovedSignalInfo), '("action-state-changed", Gio.ActionGroupActionStateChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Arrow = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ArrowAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AspectFrame = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("apply", AssistantApplySignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", AssistantCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", AssistantCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("escape", AssistantEscapeSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("prepare", AssistantPrepareSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Bin = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList BooleanCellAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Box = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Buildable = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Builder = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ButtonAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ButtonBox = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("day-selected", CalendarDaySelectedSignalInfo), '("day-selected-double-click", CalendarDaySelectedDoubleClickSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("month-changed", CalendarMonthChangedSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("next-month", CalendarNextMonthSignalInfo), '("next-year", CalendarNextYearSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("prev-month", CalendarPrevMonthSignalInfo), '("prev-year", CalendarPrevYearSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellAccessibleParent = '[ ] + +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 = '[ '("add-editable", CellAreaAddEditableSignalInfo), '("apply-attributes", CellAreaApplyAttributesSignalInfo), '("focus-changed", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("remove-editable", CellAreaRemoveEditableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellAreaBox = '[ '("add-editable", CellAreaAddEditableSignalInfo), '("apply-attributes", CellAreaApplyAttributesSignalInfo), '("focus-changed", CellAreaFocusChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("remove-editable", CellAreaRemoveEditableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellAreaContext = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellLayout = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-cleared", CellRendererAccelAccelClearedSignalInfo), '("accel-edited", CellRendererAccelAccelEditedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data CellRendererComboChangedSignalInfo +instance SignalInfo CellRendererComboChangedSignalInfo where + type HaskellCallbackType CellRendererComboChangedSignalInfo = CellRendererComboChangedCallback + connectSignal _ = connectCellRendererComboChanged + +type instance SignalList CellRendererCombo = '[ '("changed", CellRendererComboChangedSignalInfo), '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellRendererPixbuf = '[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellRendererProgress = '[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellRendererSpin = '[ '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellRendererSpinner = '[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data CellRendererTextEditedSignalInfo +instance SignalInfo CellRendererTextEditedSignalInfo where + type HaskellCallbackType CellRendererTextEditedSignalInfo = CellRendererTextEditedCallback + connectSignal _ = connectCellRendererTextEdited + +type instance SignalList CellRendererText = '[ '("edited", CellRendererTextEditedSignalInfo), '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data CellRendererToggleToggledSignalInfo +instance SignalInfo CellRendererToggleToggledSignalInfo where + type HaskellCallbackType CellRendererToggleToggledSignalInfo = CellRendererToggleToggledCallback + connectSignal _ = connectCellRendererToggleToggled + +type instance SignalList CellRendererToggle = '[ '("editing-canceled", CellRendererEditingCanceledSignalInfo), '("editing-started", CellRendererEditingStartedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", CellRendererToggleToggledSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CellView = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CheckButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data CheckMenuItemToggledSignalInfo +instance SignalInfo CheckMenuItemToggledSignalInfo where + type HaskellCallbackType CheckMenuItemToggledSignalInfo = CheckMenuItemToggledCallback + connectSignal _ = connectCheckMenuItemToggled + +type instance SignalList CheckMenuItem = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CheckMenuItemAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ClipboardOwnerChangeSignalInfo +instance SignalInfo ClipboardOwnerChangeSignalInfo where + type HaskellCallbackType ClipboardOwnerChangeSignalInfo = ClipboardOwnerChangeCallback + connectSignal _ = connectClipboardOwnerChange + +type instance SignalList Clipboard = '[ '("notify", GObject.ObjectNotifySignalInfo), '("owner-change", ClipboardOwnerChangeSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ColorButtonColorSetSignalInfo +instance SignalInfo ColorButtonColorSetSignalInfo where + type HaskellCallbackType ColorButtonColorSetSignalInfo = ColorButtonColorSetCallback + connectSignal _ = connectColorButtonColorSet + +type instance SignalList ColorButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("color-set", ColorButtonColorSetSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ColorChooserColorActivatedSignalInfo +instance SignalInfo ColorChooserColorActivatedSignalInfo where + type HaskellCallbackType ColorChooserColorActivatedSignalInfo = ColorChooserColorActivatedCallback + connectSignal _ = connectColorChooserColorActivated + +type instance SignalList ColorChooser = '[ '("color-activated", ColorChooserColorActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ColorChooserDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ColorChooserWidget = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("color-activated", ColorChooserColorActivatedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ColorSelectionColorChangedSignalInfo +instance SignalInfo ColorSelectionColorChangedSignalInfo where + type HaskellCallbackType ColorSelectionColorChangedSignalInfo = ColorSelectionColorChangedCallback + connectSignal _ = connectColorSelectionColorChanged + +type instance SignalList ColorSelection = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("color-changed", ColorSelectionColorChangedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ColorSelectionDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ComboBoxAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ComboBoxText = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", ComboBoxChangedSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-entry-text", ComboBoxFormatEntryTextSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-active", ComboBoxMoveActiveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ComboBoxPopdownSignalInfo), '("popup", ComboBoxPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ContainerAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ContainerCellAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data CssProviderParsingErrorSignalInfo +instance SignalInfo CssProviderParsingErrorSignalInfo where + type HaskellCallbackType CssProviderParsingErrorSignalInfo = CssProviderParsingErrorCallback + connectSignal _ = connectCssProviderParsingError + +type instance SignalList CssProvider = '[ '("notify", GObject.ObjectNotifySignalInfo), '("parsing-error", CssProviderParsingErrorSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList DrawingArea = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("changed", EditableChangedSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("insert-text", EditableInsertTextSignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList EntryAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("deleted-text", EntryBufferDeletedTextSignalInfo), '("inserted-text", EntryBufferInsertedTextSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("action-activated", EntryCompletionActionActivatedSignalInfo), '("cursor-on-match", EntryCompletionCursorOnMatchSignalInfo), '("insert-prefix", EntryCompletionInsertPrefixSignalInfo), '("match-selected", EntryCompletionMatchSelectedSignalInfo), '("no-matches", EntryCompletionNoMatchesSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList EntryIconAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList EventBox = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList EventController = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ExpanderActivateSignalInfo +instance SignalInfo ExpanderActivateSignalInfo where + type HaskellCallbackType ExpanderActivateSignalInfo = ExpanderActivateCallback + connectSignal _ = connectExpanderActivate + +type instance SignalList Expander = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ExpanderActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ExpanderAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data FileChooserButtonFileSetSignalInfo +instance SignalInfo FileChooserButtonFileSetSignalInfo where + type HaskellCallbackType FileChooserButtonFileSetSignalInfo = FileChooserButtonFileSetCallback + connectSignal _ = connectFileChooserButtonFileSet + +type instance SignalList FileChooserButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("file-set", FileChooserButtonFileSetSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FileChooserDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("confirm-overwrite", FileChooserConfirmOverwriteSignalInfo), '("current-folder-changed", FileChooserCurrentFolderChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("desktop-folder", FileChooserWidgetDesktopFolderSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("down-folder", FileChooserWidgetDownFolderSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("file-activated", FileChooserFileActivatedSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("home-folder", FileChooserWidgetHomeFolderSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("location-popup", FileChooserWidgetLocationPopupSignalInfo), '("location-popup-on-paste", FileChooserWidgetLocationPopupOnPasteSignalInfo), '("location-toggle-popup", FileChooserWidgetLocationTogglePopupSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("places-shortcut", FileChooserWidgetPlacesShortcutSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("quick-bookmark", FileChooserWidgetQuickBookmarkSignalInfo), '("realize", WidgetRealizeSignalInfo), '("recent-shortcut", FileChooserWidgetRecentShortcutSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("search-shortcut", FileChooserWidgetSearchShortcutSignalInfo), '("selection-changed", FileChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("show-hidden", FileChooserWidgetShowHiddenSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("up-folder", FileChooserWidgetUpFolderSignalInfo), '("update-preview", FileChooserUpdatePreviewSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FileFilter = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Fixed = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-child", FlowBoxActivateCursorChildSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-activated", FlowBoxChildActivatedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", FlowBoxMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", FlowBoxSelectAllSignalInfo), '("selected-children-changed", FlowBoxSelectedChildrenChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-child", FlowBoxToggleCursorChildSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", FlowBoxUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FlowBoxAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data FlowBoxChildActivateSignalInfo +instance SignalInfo FlowBoxChildActivateSignalInfo where + type HaskellCallbackType FlowBoxChildActivateSignalInfo = FlowBoxChildActivateCallback + connectSignal _ = connectFlowBoxChildActivate + +type instance SignalList FlowBoxChild = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", FlowBoxChildActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FlowBoxChildAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data FontButtonFontSetSignalInfo +instance SignalInfo FontButtonFontSetSignalInfo where + type HaskellCallbackType FontButtonFontSetSignalInfo = FontButtonFontSetCallback + connectSignal _ = connectFontButtonFontSet + +type instance SignalList FontButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("font-set", FontButtonFontSetSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data FontChooserFontActivatedSignalInfo +instance SignalInfo FontChooserFontActivatedSignalInfo where + type HaskellCallbackType FontChooserFontActivatedSignalInfo = FontChooserFontActivatedCallback + connectSignal _ = connectFontChooserFontActivated + +type instance SignalList FontChooser = '[ '("font-activated", FontChooserFontActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FontChooserDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FontChooserWidget = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("font-activated", FontChooserFontActivatedSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FontSelection = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FontSelectionDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Frame = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList FrameAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-context", GLAreaCreateContextSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("render", GLAreaRenderSignalInfo), '("resize", GLAreaResizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("drag-begin", GestureDragDragBeginSignalInfo), '("drag-end", GestureDragDragEndSignalInfo), '("drag-update", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("cancelled", GestureLongPressCancelledSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pressed", GestureLongPressPressedSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pressed", GestureMultiPressPressedSignalInfo), '("released", GestureMultiPressReleasedSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("stopped", GestureMultiPressStoppedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data GesturePanPanSignalInfo +instance SignalInfo GesturePanPanSignalInfo where + type HaskellCallbackType GesturePanPanSignalInfo = GesturePanPanCallback + connectSignal _ = connectGesturePanPan + +type instance SignalList GesturePan = '[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("drag-begin", GestureDragDragBeginSignalInfo), '("drag-end", GestureDragDragEndSignalInfo), '("drag-update", GestureDragDragUpdateSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pan", GesturePanPanSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data GestureRotateAngleChangedSignalInfo +instance SignalInfo GestureRotateAngleChangedSignalInfo where + type HaskellCallbackType GestureRotateAngleChangedSignalInfo = GestureRotateAngleChangedCallback + connectSignal _ = connectGestureRotateAngleChanged + +type instance SignalList GestureRotate = '[ '("angle-changed", GestureRotateAngleChangedSignalInfo), '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList GestureSingle = '[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data GestureSwipeSwipeSignalInfo +instance SignalInfo GestureSwipeSwipeSignalInfo where + type HaskellCallbackType GestureSwipeSwipeSignalInfo = GestureSwipeSwipeCallback + connectSignal _ = connectGestureSwipeSwipe + +type instance SignalList GestureSwipe = '[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("swipe", GestureSwipeSwipeSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data GestureZoomScaleChangedSignalInfo +instance SignalInfo GestureZoomScaleChangedSignalInfo where + type HaskellCallbackType GestureZoomScaleChangedSignalInfo = GestureZoomScaleChangedCallback + connectSignal _ = connectGestureZoomScaleChanged + +type instance SignalList GestureZoom = '[ '("begin", GestureBeginSignalInfo), '("cancel", GestureCancelSignalInfo), '("end", GestureEndSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("scale-changed", GestureZoomScaleChangedSignalInfo), '("sequence-state-changed", GestureSequenceStateChangedSignalInfo), '("update", GestureUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Grid = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HBox = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HButtonBox = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HPaned = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", HSVChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move", HSVMoveSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HScale = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HScrollbar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HSeparator = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-attached", HandleBoxChildAttachedSignalInfo), '("child-detached", HandleBoxChildDetachedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList HeaderBar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("commit", IMContextCommitSignalInfo), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList IMContextSimple = '[ '("commit", IMContextCommitSignalInfo), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList IMMulticontext = '[ '("commit", IMContextCommitSignalInfo), '("delete-surrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preedit-changed", IMContextPreeditChangedSignalInfo), '("preedit-end", IMContextPreeditEndSignalInfo), '("preedit-start", IMContextPreeditStartSignalInfo), '("retrieve-surrounding", IMContextRetrieveSurroundingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList IconFactory = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList IconInfo = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data IconThemeChangedSignalInfo +instance SignalInfo IconThemeChangedSignalInfo where + type HaskellCallbackType IconThemeChangedSignalInfo = IconThemeChangedCallback + connectSignal _ = connectIconThemeChanged + +type instance SignalList IconTheme = '[ '("changed", IconThemeChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-item", IconViewActivateCursorItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", IconViewItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", IconViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", IconViewSelectAllSignalInfo), '("select-cursor-item", IconViewSelectCursorItemSignalInfo), '("selection-changed", IconViewSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-item", IconViewToggleCursorItemSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", IconViewUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList IconViewAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Image = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ImageAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ImageCellAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ImageMenuItem = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", InfoBarCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", InfoBarResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Invisible = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current-link", LabelActivateCurrentLinkSignalInfo), '("activate-link", LabelActivateLinkSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", LabelCopyClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", LabelMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", LabelPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList LabelAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("link-selected", Atk.HypertextLinkSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Layout = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data LevelBarOffsetChangedSignalInfo +instance SignalInfo LevelBarOffsetChangedSignalInfo where + type HaskellCallbackType LevelBarOffsetChangedSignalInfo = LevelBarOffsetChangedCallback + connectSignal _ = connectLevelBarOffsetChanged + +type instance SignalList LevelBar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("offset-changed", LevelBarOffsetChangedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList LevelBarAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data LinkButtonActivateLinkSignalInfo +instance SignalInfo LinkButtonActivateLinkSignalInfo where + type HaskellCallbackType LinkButtonActivateLinkSignalInfo = LinkButtonActivateLinkCallback + connectSignal _ = connectLinkButtonActivateLink + +type instance SignalList LinkButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("activate-link", LinkButtonActivateLinkSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList LinkButtonAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-cursor-row", ListBoxActivateCursorRowSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", ListBoxMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("row-activated", ListBoxRowActivatedSignalInfo), '("row-selected", ListBoxRowSelectedSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", ListBoxSelectAllSignalInfo), '("selected-rows-changed", ListBoxSelectedRowsChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-row", ListBoxToggleCursorRowSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", ListBoxUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ListBoxAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ListBoxRowActivateSignalInfo +instance SignalInfo ListBoxRowActivateSignalInfo where + type HaskellCallbackType ListBoxRowActivateSignalInfo = ListBoxRowActivateCallback + connectSignal _ = connectListBoxRowActivate + +type instance SignalList ListBoxRow = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ListBoxRowActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ListBoxRowAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ListStore = '[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList LockButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList LockButtonAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data MenuMoveScrollSignalInfo +instance SignalInfo MenuMoveScrollSignalInfo where + type HaskellCallbackType MenuMoveScrollSignalInfo = MenuMoveScrollCallback + connectSignal _ = connectMenuMoveScroll + +type instance SignalList Menu = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-scroll", MenuMoveScrollSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MenuAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MenuBar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MenuButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MenuButtonAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MenuItemAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MenuShellAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data MenuToolButtonShowMenuSignalInfo +instance SignalInfo MenuToolButtonShowMenuSignalInfo where + type HaskellCallbackType MenuToolButtonShowMenuSignalInfo = MenuToolButtonShowMenuCallback + connectSignal _ = connectMenuToolButtonShowMenu + +type instance SignalList MenuToolButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("show-menu", MenuToolButtonShowMenuSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MessageDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Misc = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ModelButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MountOperation = '[ '("aborted", Gio.MountOperationAbortedSignalInfo), '("ask-password", Gio.MountOperationAskPasswordSignalInfo), '("ask-question", Gio.MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", Gio.MountOperationReplySignalInfo), '("show-processes", Gio.MountOperationShowProcessesSignalInfo), '("show-unmount-progress", Gio.MountOperationShowUnmountProgressSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-current-page", NotebookChangeCurrentPageSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-window", NotebookCreateWindowSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("focus-tab", NotebookFocusTabSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", NotebookMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("page-added", NotebookPageAddedSignalInfo), '("page-removed", NotebookPageRemovedSignalInfo), '("page-reordered", NotebookPageReorderedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("reorder-tab", NotebookReorderTabSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-page", NotebookSelectPageSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("switch-page", NotebookSwitchPageSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList NotebookAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList NotebookPageAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList NumerableIcon = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList OffscreenWindow = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Orientable = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Overlay = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList PageSetup = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList PanedAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-action-ask", PlacesSidebarDragActionAskSignalInfo), '("drag-action-requested", PlacesSidebarDragActionRequestedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("drag-perform-drop", PlacesSidebarDragPerformDropSignalInfo), '("draw", WidgetDrawSignalInfo), '("edge-overshot", ScrolledWindowEdgeOvershotSignalInfo), '("edge-reached", ScrolledWindowEdgeReachedSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open-location", PlacesSidebarOpenLocationSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("populate-popup", PlacesSidebarPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-child", ScrolledWindowScrollChildSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-connect-to-server", PlacesSidebarShowConnectToServerSignalInfo), '("show-enter-location", PlacesSidebarShowEnterLocationSignalInfo), '("show-error-message", PlacesSidebarShowErrorMessageSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("show-other-locations", PlacesSidebarShowOtherLocationsSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data PlugEmbeddedSignalInfo +instance SignalInfo PlugEmbeddedSignalInfo where + type HaskellCallbackType PlugEmbeddedSignalInfo = PlugEmbeddedCallback + connectSignal _ = connectPlugEmbedded + +type instance SignalList Plug = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("embedded", PlugEmbeddedSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data PopoverClosedSignalInfo +instance SignalInfo PopoverClosedSignalInfo where + type HaskellCallbackType PopoverClosedSignalInfo = PopoverClosedCallback + connectSignal _ = connectPopoverClosed + +type instance SignalList Popover = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList PopoverAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList PopoverMenu = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList PrintContext = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("begin-print", PrintOperationBeginPrintSignalInfo), '("create-custom-widget", PrintOperationCreateCustomWidgetSignalInfo), '("custom-widget-apply", PrintOperationCustomWidgetApplySignalInfo), '("done", PrintOperationDoneSignalInfo), '("draw-page", PrintOperationDrawPageSignalInfo), '("end-print", PrintOperationEndPrintSignalInfo), '("got-page-size", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paginate", PrintOperationPaginateSignalInfo), '("preview", PrintOperationPreviewSignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("request-page-setup", PrintOperationRequestPageSetupSignalInfo), '("status-changed", PrintOperationStatusChangedSignalInfo), '("update-custom-widget", PrintOperationUpdateCustomWidgetSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("got-page-size", PrintOperationPreviewGotPageSizeSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("ready", PrintOperationPreviewReadySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList PrintSettings = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ProgressBar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ProgressBarAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data RadioActionChangedSignalInfo +instance SignalInfo RadioActionChangedSignalInfo where + type HaskellCallbackType RadioActionChangedSignalInfo = RadioActionChangedCallback + connectSignal _ = connectRadioActionChanged + +type instance SignalList RadioAction = '[ '("activate", ActionActivateSignalInfo), '("changed", RadioActionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data RadioButtonGroupChangedSignalInfo +instance SignalInfo RadioButtonGroupChangedSignalInfo where + type HaskellCallbackType RadioButtonGroupChangedSignalInfo = RadioButtonGroupChangedCallback + connectSignal _ = connectRadioButtonGroupChanged + +type instance SignalList RadioButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("group-changed", RadioButtonGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RadioButtonAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data RadioMenuItemGroupChangedSignalInfo +instance SignalInfo RadioMenuItemGroupChangedSignalInfo where + type HaskellCallbackType RadioMenuItemGroupChangedSignalInfo = RadioMenuItemGroupChangedCallback + connectSignal _ = connectRadioMenuItemGroupChanged + +type instance SignalList RadioMenuItem = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("group-changed", RadioMenuItemGroupChangedSignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("toggled", CheckMenuItemToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RadioMenuItemAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RadioToolButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RangeAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RcStyle = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RecentAction = '[ '("activate", ActionActivateSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("item-activated", RecentChooserItemActivatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RecentChooserDialog = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("close", DialogCloseSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("response", DialogResponseSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RecentChooserMenu = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-current", MenuShellActivateCurrentSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel", MenuShellCancelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-focus", MenuShellCycleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("deactivate", MenuShellDeactivateSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert", MenuShellInsertSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-current", MenuShellMoveCurrentSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-scroll", MenuMoveScrollSignalInfo), '("move-selected", MenuShellMoveSelectedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-done", MenuShellSelectionDoneSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RecentChooserWidget = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("item-activated", RecentChooserItemActivatedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-changed", RecentChooserSelectionChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RecentFilter = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data RecentManagerChangedSignalInfo +instance SignalInfo RecentManagerChangedSignalInfo where + type HaskellCallbackType RecentManagerChangedSignalInfo = RecentManagerChangedCallback + connectSignal _ = connectRecentManagerChanged + +type instance SignalList RecentManager = '[ '("changed", RecentManagerChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RendererCellAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Revealer = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ScaleFormatValueSignalInfo +instance SignalInfo ScaleFormatValueSignalInfo where + type HaskellCallbackType ScaleFormatValueSignalInfo = ScaleFormatValueCallback + connectSignal _ = connectScaleFormatValue + +type instance SignalList Scale = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ScaleAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", ScaleButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ScaleButtonAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Scrollable = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Scrollbar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("edge-overshot", ScrolledWindowEdgeOvershotSignalInfo), '("edge-reached", ScrolledWindowEdgeReachedSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-focus-out", ScrolledWindowMoveFocusOutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-child", ScrolledWindowScrollChildSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ScrolledWindowAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SearchBar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("next-match", SearchEntryNextMatchSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("previous-match", SearchEntryPreviousMatchSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("search-changed", SearchEntrySearchChangedSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("stop-search", SearchEntryStopSearchSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Separator = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SeparatorMenuItem = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SeparatorToolItem = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Settings = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SizeGroup = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("plug-added", SocketPlugAddedSignalInfo), '("plug-removed", SocketPlugRemovedSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", SpinButtonChangeValueSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("input", SpinButtonInputSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("output", SpinButtonOutputSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", SpinButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("wrapped", SpinButtonWrappedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SpinButtonAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("value-changed", Atk.ValueValueChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Spinner = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SpinnerAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Stack = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList StackSidebar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList StackSwitcher = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("activate", StatusIconActivateSignalInfo), '("button-press-event", StatusIconButtonPressEventSignalInfo), '("button-release-event", StatusIconButtonReleaseEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("popup-menu", StatusIconPopupMenuSignalInfo), '("query-tooltip", StatusIconQueryTooltipSignalInfo), '("scroll-event", StatusIconScrollEventSignalInfo), '("size-changed", StatusIconSizeChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("text-popped", StatusbarTextPoppedSignalInfo), '("text-pushed", StatusbarTextPushedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList StatusbarAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("notify", GObject.ObjectNotifySignalInfo), '("realize", StyleRealizeSignalInfo), '("unrealize", StyleUnrealizeSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data StyleContextChangedSignalInfo +instance SignalInfo StyleContextChangedSignalInfo where + type HaskellCallbackType StyleContextChangedSignalInfo = StyleContextChangedCallback + connectSignal _ = connectStyleContextChanged + +type instance SignalList StyleContext = '[ '("changed", StyleContextChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList StyleProperties = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList StyleProvider = '[ ] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", SwitchActivateSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("state-set", SwitchStateSetSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SwitchAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Table = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TearoffMenuItem = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", MenuItemActivateSignalInfo), '("activate-item", MenuItemActivateItemSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("deselect", MenuItemDeselectSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select", MenuItemSelectSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-size-allocate", MenuItemToggleSizeAllocateSignalInfo), '("toggle-size-request", MenuItemToggleSizeRequestSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("apply-tag", TextBufferApplyTagSignalInfo), '("begin-user-action", TextBufferBeginUserActionSignalInfo), '("changed", TextBufferChangedSignalInfo), '("delete-range", TextBufferDeleteRangeSignalInfo), '("end-user-action", TextBufferEndUserActionSignalInfo), '("insert-child-anchor", TextBufferInsertChildAnchorSignalInfo), '("insert-pixbuf", TextBufferInsertPixbufSignalInfo), '("insert-text", TextBufferInsertTextSignalInfo), '("mark-deleted", TextBufferMarkDeletedSignalInfo), '("mark-set", TextBufferMarkSetSignalInfo), '("modified-changed", TextBufferModifiedChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paste-done", TextBufferPasteDoneSignalInfo), '("remove-tag", TextBufferRemoveTagSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TextCellAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TextChildAnchor = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TextMark = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data TextTagEventSignalInfo +instance SignalInfo TextTagEventSignalInfo where + type HaskellCallbackType TextTagEventSignalInfo = TextTagEventCallback + connectSignal _ = connectTextTagEvent + +type instance SignalList TextTag = '[ '("event", TextTagEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("notify", GObject.ObjectNotifySignalInfo), '("tag-added", TextTagTableTagAddedSignalInfo), '("tag-changed", TextTagTableTagChangedSignalInfo), '("tag-removed", TextTagTableTagRemovedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("backspace", TextViewBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", TextViewCopyClipboardSignalInfo), '("cut-clipboard", TextViewCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", TextViewDeleteFromCursorSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("extend-selection", TextViewExtendSelectionSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("insert-at-cursor", TextViewInsertAtCursorSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", TextViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-viewport", TextViewMoveViewportSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", TextViewPasteClipboardSignalInfo), '("populate-popup", TextViewPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", TextViewPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", TextViewSelectAllSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-anchor", TextViewSetAnchorSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-cursor-visible", TextViewToggleCursorVisibleSignalInfo), '("toggle-overwrite", TextViewToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TextViewAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("text-attributes-changed", Atk.TextTextAttributesChangedSignalInfo), '("text-caret-moved", Atk.TextTextCaretMovedSignalInfo), '("text-changed", Atk.TextTextChangedSignalInfo), '("text-insert", Atk.TextTextInsertSignalInfo), '("text-remove", Atk.TextTextRemoveSignalInfo), '("text-selection-changed", Atk.TextTextSelectionChangedSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ThemingEngine = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ToggleActionToggledSignalInfo +instance SignalInfo ToggleActionToggledSignalInfo where + type HaskellCallbackType ToggleActionToggledSignalInfo = ToggleActionToggledCallback + connectSignal _ = connectToggleActionToggled + +type instance SignalList ToggleAction = '[ '("activate", ActionActivateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("toggled", ToggleActionToggledSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ToggleButtonToggledSignalInfo +instance SignalInfo ToggleButtonToggledSignalInfo where + type HaskellCallbackType ToggleButtonToggledSignalInfo = ToggleButtonToggledCallback + connectSignal _ = connectToggleButtonToggled + +type instance SignalList ToggleButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleButtonToggledSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ToggleButtonAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ToggleToolButtonToggledSignalInfo +instance SignalInfo ToggleToolButtonToggledSignalInfo where + type HaskellCallbackType ToggleToolButtonToggledSignalInfo = ToggleToolButtonToggledCallback + connectSignal _ = connectToggleToolButtonToggled + +type instance SignalList ToggleToolButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggled", ToggleToolButtonToggledSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ToolButtonClickedSignalInfo +instance SignalInfo ToolButtonClickedSignalInfo where + type HaskellCallbackType ToolButtonClickedSignalInfo = ToolButtonClickedCallback + connectSignal _ = connectToolButtonClicked + +type instance SignalList ToolButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ToolButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("create-menu-proxy", ToolItemCreateMenuProxySignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toolbar-reconfigured", ToolItemToolbarReconfiguredSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ToolItemGroup = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ToolPalette = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ToolShell = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-home-or-end", ToolbarFocusHomeOrEndSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("orientation-changed", ToolbarOrientationChangedSignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-context-menu", ToolbarPopupContextMenuSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-changed", ToolbarStyleChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Tooltip = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ToplevelAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TreeDragDest = '[ ] + +type instance SignalList TreeDragSource = '[ ] + +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 = '[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TreeModelFilter = '[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TreeModelSort = '[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data TreeSelectionChangedSignalInfo +instance SignalInfo TreeSelectionChangedSignalInfo where + type HaskellCallbackType TreeSelectionChangedSignalInfo = TreeSelectionChangedCallback + connectSignal _ = connectTreeSelectionChanged + +type instance SignalList TreeSelection = '[ '("changed", TreeSelectionChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data TreeSortableSortColumnChangedSignalInfo +instance SignalInfo TreeSortableSortColumnChangedSignalInfo where + type HaskellCallbackType TreeSortableSortColumnChangedSignalInfo = TreeSortableSortColumnChangedCallback + connectSignal _ = connectTreeSortableSortColumnChanged + +type instance SignalList TreeSortable = '[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TreeStore = '[ '("notify", GObject.ObjectNotifySignalInfo), '("row-changed", TreeModelRowChangedSignalInfo), '("row-deleted", TreeModelRowDeletedSignalInfo), '("row-has-child-toggled", TreeModelRowHasChildToggledSignalInfo), '("row-inserted", TreeModelRowInsertedSignalInfo), '("sort-column-changed", TreeSortableSortColumnChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("columns-changed", TreeViewColumnsChangedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cursor-changed", TreeViewCursorChangedSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("expand-collapse-cursor-row", TreeViewExpandCollapseCursorRowSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", TreeViewMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("row-activated", TreeViewRowActivatedSignalInfo), '("row-collapsed", TreeViewRowCollapsedSignalInfo), '("row-expanded", TreeViewRowExpandedSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("select-all", TreeViewSelectAllSignalInfo), '("select-cursor-parent", TreeViewSelectCursorParentSignalInfo), '("select-cursor-row", TreeViewSelectCursorRowSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("start-interactive-search", TreeViewStartInteractiveSearchSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("test-collapse-row", TreeViewTestCollapseRowSignalInfo), '("test-expand-row", TreeViewTestExpandRowSignalInfo), '("toggle-cursor-row", TreeViewToggleCursorRowSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("unselect-all", TreeViewUnselectAllSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList TreeViewAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("column-deleted", Atk.TableColumnDeletedSignalInfo), '("column-inserted", Atk.TableColumnInsertedSignalInfo), '("column-reordered", Atk.TableColumnReorderedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("model-changed", Atk.TableModelChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("row-deleted", Atk.TableRowDeletedSignalInfo), '("row-inserted", Atk.TableRowInsertedSignalInfo), '("row-reordered", Atk.TableRowReorderedSignalInfo), '("selection-changed", Atk.SelectionSelectionChangedSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data TreeViewColumnClickedSignalInfo +instance SignalInfo TreeViewColumnClickedSignalInfo where + type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback + connectSignal _ = connectTreeViewColumnClicked + +type instance SignalList TreeViewColumn = '[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("actions-changed", UIManagerActionsChangedSignalInfo), '("add-widget", UIManagerAddWidgetSignalInfo), '("connect-proxy", UIManagerConnectProxySignalInfo), '("disconnect-proxy", UIManagerDisconnectProxySignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("post-activate", UIManagerPostActivateSignalInfo), '("pre-activate", UIManagerPreActivateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList VBox = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList VButtonBox = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList VPaned = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("accept-position", PanedAcceptPositionSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("cancel-position", PanedCancelPositionSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("cycle-child-focus", PanedCycleChildFocusSignalInfo), '("cycle-handle-focus", PanedCycleHandleFocusSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-handle", PanedMoveHandleSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-handle-focus", PanedToggleHandleFocusSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList VScale = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("format-value", ScaleFormatValueSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList VScrollbar = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("adjust-bounds", RangeAdjustBoundsSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("change-value", RangeChangeValueSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("move-slider", RangeMoveSliderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", RangeValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList VSeparator = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Viewport = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList VolumeButton = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", ButtonActivateSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("clicked", ButtonClickedSignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter", ButtonEnterSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave", ButtonLeaveSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popdown", ScaleButtonPopdownSignalInfo), '("popup", ScaleButtonPopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("pressed", ButtonPressedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("released", ButtonReleasedSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("value-changed", ScaleButtonValueChangedSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WidgetAccessible = '[ '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +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 = '[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate-default", WindowActivateDefaultSignalInfo), '("activate-focus", WindowActivateFocusSignalInfo), '("add", ContainerAddSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("check-resize", ContainerCheckResizeSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("enable-debugging", WindowEnableDebuggingSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("keys-changed", WindowKeysChangedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("set-focus", WindowSetFocusSignalInfo), '("set-focus-child", ContainerSetFocusChildSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WindowAccessible = '[ '("activate", Atk.WindowActivateSignalInfo), '("active-descendant-changed", Atk.ObjectActiveDescendantChangedSignalInfo), '("bounds-changed", Atk.ComponentBoundsChangedSignalInfo), '("children-changed", Atk.ObjectChildrenChangedSignalInfo), '("create", Atk.WindowCreateSignalInfo), '("deactivate", Atk.WindowDeactivateSignalInfo), '("destroy", Atk.WindowDestroySignalInfo), '("focus-event", Atk.ObjectFocusEventSignalInfo), '("maximize", Atk.WindowMaximizeSignalInfo), '("minimize", Atk.WindowMinimizeSignalInfo), '("move", Atk.WindowMoveSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("property-change", Atk.ObjectPropertyChangeSignalInfo), '("resize", Atk.WindowResizeSignalInfo), '("restore", Atk.WindowRestoreSignalInfo), '("state-change", Atk.ObjectStateChangeSignalInfo), '("visible-data-changed", Atk.ObjectVisibleDataChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList WindowGroup = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + diff --git a/gi-gtk.cabal b/gi-gtk.cabal --- a/gi-gtk.cabal +++ b/gi-gtk.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gtk -version: 0.3.16.12 +version: 0.3.18.10 synopsis: Gtk bindings description: Bindings for Gtk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,353 +14,18 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, 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.WidgetAuxInfo - GI.Gtk.Structs.WidgetPath - GI.Gtk.Structs.WindowGeometryInfo - pkgconfig-depends: gtk+-3.0 >= 3.16 + exposed-modules: GI.Gtk, GI.GtkAttributes, GI.GtkSignals + pkgconfig-depends: gtk+-3.0 >= 3.18 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, - gi-atk >= 0.2.16.12 && < 0.2.17, - gi-glib >= 0.2.44.12 && < 0.2.45, - gi-gobject >= 0.2.44.12 && < 0.2.45, - gi-gdk >= 0.3.16.12 && < 0.3.17, - gi-gdkpixbuf >= 0.2.31.12 && < 0.2.32, - gi-gio >= 0.2.44.12 && < 0.2.45, - gi-pango >= 0.1.36.12 && < 0.1.37, - gi-cairo >= 0.1.14.12 && < 0.1.15, + haskell-gi-base >= 0.10 && < 1, + gi-atk >= 0.2.18.10 && < 0.3, + gi-glib >= 0.2.46.10 && < 0.3, + gi-gobject >= 0.2.46.10 && < 0.3, + gi-gdk >= 0.3.18.10 && < 0.4, + gi-gdkpixbuf >= 0.2.32.10 && < 0.3, + gi-gio >= 0.2.46.10 && < 0.3, + gi-pango >= 0.1.38.10 && < 0.2, + gi-cairo >= 0.1.14.10 && < 0.2, bytestring >= 0.10, containers >= 0.5, text >= 1.0,